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:   (object)
    (clim-mop:class-name object))
  
  (define-presentation-translator symbol-to-function-name
    (symbol function-name lisp-dev-commands
       :documentation ((object stream) (format stream "Function ~A" object))
       :gesture t
       :tester ((object) (fboundp object))
       :tester-definitive t)
    (object) object)
  
  ;;; Application commands
  
  
negative.code: 			   :command-table lisp-commands
                             :menu t
  			   :provide-output-destination-keyword nil)
      ((fsym 'function-name :prompt "function name"))
    (if (fboundp fsym)
        (progn 
  	(eval `(trace ,fsym))
  