anchor.diff:     (inherit-from :accessor inherit-from
                    :initarg :inherit-from
                    :documentation "Inherit-from form with dummys substituted")
  -   (inherit-from-function :accessor inherit-from-function
  -                          :initarg :inherit-from-function
  -                          :documentation "Function that returns the inherit-from form")
      (description :accessor description :initarg :description)
      (history :accessor history :initarg :history :initform nil
               :documentation "Who knows?")
  
positive.code:                                                       inherit-from)))
      `(progn
         (eval-when (:compile-toplevel)
           (record-presentation-type ',name ',parameters ',params-ll ',options
                                     ',options-ll #',inherit-from-func
                                     ',description ',history
                                     ',parameters-are-types
                                     t nil nil))
         (eval-when (:load-toplevel :execute)
           (%define-presentation-type ,name ,parameters ,params-ll
                                      ,options ,options-ll
                                      ,inherit-from ,inherit-from-func
                                      ,description ,history
                                      ,parameters-are-types)))))
  
  
negative.code:                                               downcase-name))
        (string-trim " " downcase-name)))
  
    (defun record-presentation-type (name
                                     parameters params-ll
                                     options options-ll
                                     description history
                                     parameters-are-types
                                     compile-time-p
                                     supers expansion-func)
  