Finalize nested fields (#17)

fisxoj · Oct 8, 2019 · c3c60ce · c3c60ce
1 parent 7f5a21c
commit c3c60ce
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/sanity-clause.asd b/sanity-clause.asd
@@ -1,7 +1,7 @@
 (defsystem sanity-clause
   :author "Matt Novenstern"
   :license "LLGPLv3+"
-  :version "0.5.0"
+  :version "0.5.1"
   :homepage "https://fisxoj.github.io/sanity-clause/"
   :depends-on ("alexandria"
                "cl-arrows"

diff --git a/src/field.lisp b/src/field.lisp
@@ -419,7 +419,7 @@ Also contains :function:`sanity-clause.protocol:get-value`, :function:`sanity-cl
        (mapcar (lambda (item) (sanity-clause.protocol:load element-type item)) value)))))
 
 
-(defclass map-field (field)
+(define-final-class map-field (field)
   ((key-field :initarg :key-field
               :accessor key-field-of
               :initform :string)
@@ -445,7 +445,7 @@ examples::
     accumulator))
 
 
-(defclass one-field-of-field (field)
+(define-final-class one-field-of-field (field)
   ((field-choices :type list
                   :initarg :field-choices
                   :accessor field-choices-of
@@ -496,7 +496,7 @@ examples::
                         :parents (reverse (list* field parents))))))))
 
 
-(defclass one-schema-of-field (field)
+(define-final-class one-schema-of-field (field)
   ((schema-choices :type list
                    :initarg :schema-choices
                    :accessor schema-choices-of