anchor.diff:  		 (write-char #\( stream)
   		 (present arg 'symbol :stream stream)
   		 (write-char #\space  stream)
  -		 (with-output-as-presentation (stream spec 'class)
  -		   (format stream "~S" (clim-mop:class-name spec)))
  +		 (with-output-as-presentation (stream spec 'specializer)
  +                   (if (typep spec 'class)
  +                       (format stream "~S" (clim-mop:class-name spec))
  +                       (format stream "~S" `(eql ,(clim-mop:eql-specializer-object spec)))))
                    (write-char #\) stream))))
         (when optional
   	(format stream " &optional ~{~A ~^ ~}" optional))
  
positive.code: 
  ;;; Presentation types
  
  (define-presentation-type class () :inherit-from 'expression)
  (define-presentation-type class-name () :inherit-from 'symbol)
  (define-presentation-type slot-definition () :inherit-from 'expression)
  (define-presentation-type function-name () :inherit-from 'symbol)
  (define-presentation-type process () :inherit-from 'expression)
  (define-presentation-type generic-function () :inherit-from 't)
  
  
negative.code: 
  (define-presentation-type package-name () :inherit-from 'string)
  (define-presentation-method presentation-typep (object (type package-name))
    (find-package object))
  
  ;;; Presentation methods
  
  