anchor.diff:  
   (defun parse-json-schema-object (json-schema)
     (let ((required-props (access:access json-schema :required)))
  -  `(:object ,(access:access json-schema "title")
  -            ,(loop for prop in (alist (access:access json-schema "properties"))
  -                collect (parse-json-schema-object-property prop (member (car prop) required-props :test 'equalp)))
  -            (:documentation ,(access:access json-schema :description)))))
  +    `(:object ,(access:access json-schema "title")
  +              ,(loop for prop in (alist (access:access json-schema "properties"))
  +                  collect (parse-json-schema-object-property prop (member (car prop) required-props :test 'equalp)))
  +              (:documentation ,(access:access json-schema :description)))))
   
   (defun parse-json-schema-object-property (prop &optional (required-p t))
     `(,(intern (json:camel-case-to-lisp (car prop)))
  
positive.code:                                   (find-schema schema))
                               schema)))
               (%schema-validate (schema-type schema) schema data attribute))))
    (if (and attribute (attribute-validator attribute))
        
        ;; The validator function receives the data to validate and an "schema validator" function
        ;; it can use to validate the schema
        (funcall (attribute-validator attribute) data #'schema-validator)
        ;; else
        (schema-validator))))
  
  (defmethod schema-validate :after (schema data &optional attribute)
    ;; After normal validation, :add-validator is evaluated if found
  
negative.code: (defmethod %schema-validate ((schema-type (eql :string)) schema data &optional attribute)
    (when (not (stringp data))
      (validation-error "~A: ~A is not a string"
                        (attribute-name attribute)
                        data)))
  
  (defmethod %schema-validate ((schema-type (eql :boolean)) schema data &optional attribute)
    (when (not (typep data 'boolean))
      (validation-error "~A: ~A is not a boolean"
                        (attribute-name attribute)
                        data)))
  
  