anchor.diff:  (defun api-paths (api)
     (let ((paths (make-hash-table :test 'equalp)))
       (loop for resource being the hash-values of (rs::resources api)
  -       do
  -         (loop for operation being the hash-values of (rs::resource-operations resource)
  -            do
  -              (push (list :tag (rs:resource-name resource)
  -                          :operation operation)
  -                    (gethash (rs::path operation)
  -                             paths))))
  +          do
  +             (loop for operation being the hash-values of (rs::resource-operations resource)
  +                   do
  +                      (push (list :tag (rs:resource-name resource)
  +                                  :operation operation)
  +                            (gethash (rs::path operation)
  +                                     paths))))
       paths))
   
   (defun render-api-spec (api stream)
  
positive.code: 
  (defun parse-schemas-from-v3-spec (spec)
    (loop for (schema-name . schema-def) in (alist (access:accesses spec "components" "schemas"))
       collect
         (cons (intern (json::simplified-camel-case-to-lisp schema-name))
               (schemata.json-schema:schema-from-json-schema schema-def))))
  
  (defmacro define-schemas-from-spec (filepath)
    "Define REST-SERVER schemas from an OpenAPI spec file.
  
negative.code:                                         (-> param "required"))
                                        params)))
        (loop for param in required-params
              do (setf result (append result (list (required-param-from-spec param)))))
        (when (> (length optional-params) 0)
          (setf result (append result '(&optional)))
          (loop for param in optional-params
                do (setf result (append result (list (optional-param-from-spec param)))))))
      result))
  
  (defun parse-value (string type)
  