anchor.diff:            (note "No accessors")
           (progn
             (with-ink (readers)
  -            (if readers (dolist (reader readers)  (format t "~A~%" reader))
  -              (note "No readers~%")))
  +            (if readers 
  +                (dolist (reader readers)
  +                  (hackish-present reader)
  +                  (terpri))
  +                (note "No readers~%")))
             (with-ink (writers)
  -            (if writers (dolist (writer writers)  (format t "~A~%" writer))
  +            (if writers 
  +                (dolist (writer writers) 
  +                  (hackish-present writer)
  +                  (terpri))
                 (note "No writers"))))))
   
       (fcell (documentation :left)
  
positive.code: 		 (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)))
                   (write-char #\) stream))))
        (when optional
  	(format stream " &optional ~{~A ~^ ~}" optional))
  
negative.code: 
  ;;; Presentation types
  
  (define-presentation-type specializer () :inherit-from 'expression)
  (define-presentation-type class () :inherit-from 'specializer)
  (define-presentation-type eql-specializer () :inherit-from 'specializer)
  (define-presentation-type class-name () :inherit-from 'symbol)
  (define-presentation-type slot-definition () :inherit-from 'expression)
  
  (define-presentation-type-abbreviation function-name () 
    `(and expression (satisfies legal-and-fboundp)))
  
  (defun legal-and-fboundp (object)
    (and #+sbcl (sb-int:valid-function-name-p object)
         #-sbcl (typep object '(or symbol (cons (eql setf))))
         (fboundp object)))
  
  (define-presentation-type process () :inherit-from 'expression)
  (define-presentation-type generic-function () :inherit-from 't)
  
  