anchor.diff:                                     :parameters-lambda-list params-ll
                                      :options options
                                      :options-lambda-list options-ll
  -                                   :inherit-from-function inherit-from-func
                                      :description description
                                      :history history
                                      :parameters-are-types parameters-are-types
  
positive.code:                                               downcase-name))
        (string-trim " " downcase-name)))
  
    (defun record-presentation-type (name parameters params-ll options options-ll
                                     inherit-from-func description history
                                     parameters-are-types
                                     compile-time-p
                                     supers expansion-func)
  
negative.code:          (expansion-lambda (make-expansion-lambda params-ll options-ll)))
      `(progn
         (record-presentation-type ',name ',parameters ',params-ll ',options
                                   ',options-ll
                                   ',description ',history
                                   ',parameters-are-types
                                   nil ',superclasses
  