anchor.diff:  ;;; Load-time actions for define-presentation-type
   (defmacro %define-presentation-type (name parameters params-ll
                                        options options-ll
  -                                     inherit-from inherit-from-lambda
  +                                     inherit-from-lambda
                                        description history parameters-are-types)
  -  (declare (ignore inherit-from))
  -  (let* ((inherit-from-func (coerce inherit-from-lambda 'function))
  -         (inherit-typespec (funcall inherit-from-func
  +  (let* ((inherit-typespec (funcall (coerce inherit-from-lambda 'function)
                                       (cons name (fake-params-args params-ll))))
            (superclasses (if inherit-typespec
                              (with-presentation-type-decoded
  
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:                                    :parameters-lambda-list params-ll
                                     :options options
                                     :options-lambda-list options-ll
                                     :description description
                                     :history history
                                     :parameters-are-types parameters-are-types
  