anchor.diff:                                                downcase-name))
         (string-trim " " downcase-name)))
   
  -  (defun record-presentation-type (name parameters params-ll options options-ll
  -                                   inherit-from-func description history
  +  (defun record-presentation-type (name
  +                                   parameters params-ll
  +                                   options options-ll
  +                                   description history
                                      parameters-are-types
                                      compile-time-p
                                      supers expansion-func)
  
positive.code:          (expansion-lambda (make-expansion-lambda params-ll options-ll)))
      `(progn
         (record-presentation-type ',name ',parameters ',params-ll ',options
                                   ',options-ll #',inherit-from-lambda
                                   ',description ',history
                                   ',parameters-are-types
                                   nil ',superclasses
  
negative.code: ;;; Load-time actions for define-presentation-type
  (defmacro %define-presentation-type (name parameters params-ll
                                       options options-ll
                                       inherit-from-lambda
                                       description history parameters-are-types)
    (let* ((inherit-typespec (funcall (coerce inherit-from-lambda 'function)
                                      (cons name (fake-params-args params-ll))))
           (superclasses (if inherit-typespec
                             (with-presentation-type-decoded
  