anchor.diff:  			   :command-table lisp-commands
                              :menu t
   			   :provide-output-destination-keyword nil)
  -    ((fsym 'function-name :prompt "function-name"))
  +    ((fsym 'function-name :prompt "function name"))
     (if (fboundp fsym)
         (progn 
   	(eval `(trace ,fsym))
  
positive.code: 
  (define-presentation-type package-name () :inherit-from 'string)
  (define-presentation-method presentation-typep (object (type package-name))
    (find-package 'object))
      
  
  
  ;;; Presentation methods
  
  
negative.code: 		 (write-char #\( stream)
  		 (present arg 'symbol :stream stream)
  		 (write-char #\space  stream)
  		 (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))
  