anchor.diff:    (destructuring-bind (_ object-name attributes &rest options) schema-object
       (declare (ignore _))
       (with-object ((or (and (stringp object-name)
  -                            object-name)
  -                       (symbol-name object-name))
  -                   :serializer serializer
  -                   :stream stream)
  +                           object-name)
  +                      (symbol-name object-name))
  +                  :serializer serializer
  +                  :stream stream)
         (loop for attribute in attributes
            do
              (serialize-schema-attribute attribute serializer input stream)))))
  
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: 
  (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)))))
  
  (defun parse-json-schema-object-property (prop &optional (required-p t))
    `(,(intern (json:camel-case-to-lisp (car prop)))
  