anchor.diff:           (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)
  
positive.code:      ,(schema-from-json-schema (cdr prop))
       ,@(when (not required-p)
           (list :optional t))
       ;; 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
  
negative.code:                                      :test #'equalp
                                       :key #'string)
           appending
             (cond
               ((and (not data-attribute)
                     (not (attribute-optional-p schema-attribute)))
                 (validation-error "Attribute ~a not found in ~a"
                                   (attribute-name schema-attribute)
                                   data))
               ((and (not data-attribute)
                     (attribute-optional-p schema-attribute))
                ;; don't add the attribute to the data in this case
                ;; idea to think of: we could use the attribute default value if specified, instead
                nil)
               ((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)))))))))
  