anchor.diff:       ,(schema-from-json-schema (cdr prop))
        ,@(when (not required-p)
            (list :optional t))
  +     ,@(let ((default (access:access (cdr prop) "default")))
  +         (when default
  +           (list :default default)))
        ;; CUSTOM JSON SCHEMA PROPERTIES
        ;; These are not JSON schema properties, we parse some extra attributes
        ;; to fill-in REST-SERVER schema things not present in JSON schemas, like
  
positive.code:                                      :test #'equalp
                                       :key #'string)
           appending
             (progn
               (when (and (not data-attribute)
                          (not (attribute-optional-p schema-attribute)))
                 (validation-error "Attribute ~a not found in ~a"
                                   (attribute-name schema-attribute)
                                   data))
               (when (or (equalp (attribute-type schema-attribute) :boolean)
                         (not (null (cdr data-attribute))))
                 (list (cons (intern (string (attribute-name schema-attribute)) :keyword)
                             (parse-schema-attribute schema-attribute (cdr data-attribute)))))))))
  
negative.code:          (list :accessor (read-from-string (access:access (cdr prop) "x-accessor"))))
       ,@(when (access:access (cdr prop) "x-reader")
           (list :reader (read-from-string (access:access (cdr prop) "x-reader"))))
       ,@(when (access:access (cdr prop) "x-writer")
           (list :writer (read-from-string (access:access (cdr prop) "x-writer"))))
       :documentation ,(access:access (cdr prop) "description")))
  
  (defun parse-json-schema-boolean (json-schema)
  