anchor.diff:        (let ((funcs (sort (class-funcs class) #'slot-name-sortp
                            :key #'c2mop:generic-function-name)))
           (with-text-size (t :small)
  -          (format-items funcs 
  +          (format-items funcs
               :printer (lambda (item stream)
                          (present item 'generic-function :stream stream))
               :move-cursor t))))))
  
positive.code:                           (automagic-translator object))
                   :documentation ((object stream)
                                   (princ (nth-value 1 (automagic-translator object)) stream))
                   :pointer-documentation ((object stream)                                         
                                           (princ (nth-value 2 (automagic-translator object)) stream)))
    (object)  
    (values
     (automagic-translator object)
     'command))
  
negative.code: 
  (defun display-evalues (values)
    (labels
        ((present-value (value)
           ;; I would really prefer this to behave as below, as presenting
           ;; things as expressions causes translators applicable to expression
           ;; to override those which would be otherwise applicable (such as
  