anchor.diff:    ;; XXX: We can only visually represent the pathname if it has a name
     ;; - making it wild is a compromise. If the pathname is completely
     ;; blank, we leave it as-is, though.
  +
  +  ;; The above comment was meant to indicate that if the pathname had
  +  ;; neither a name NOR a directory, then it couldn't be visually
  +  ;; represented.  Some discussion has ensued on the possbility of
  +  ;; emitting something like "A pathname of type <foo>"
  +  ;; [2007/01/08:rpg]
     (let ((pathname (if (equal object #.(make-pathname))
                         object
                         (merge-pathnames object (make-pathname :name :wild)))))
  -    (princ pathname stream)))
  +    (princ object stream))
  +  )
   
   (define-presentation-method present ((object string) (type pathname)
                                        stream (view textual-view)
  
positive.code: 	    when (presentation-subtypep type or-type)
  	    do (return-from presentation-subtypep (values t t))
  	    finally (return-from presentation-subtypep (values nil t))))
      (map-over-presentation-type-supertypes
       #'(lambda (name massaged)
  	 (when (eq name super-name)
  
negative.code: 	   :acceptably acceptably
  	   :for-context-type for-context-type))
  
  (define-presentation-method accept ((type and)
  				    (stream input-editing-stream)
  				    (view textual-view)
  				    &key)
    (let* ((subtype (first types))
  	 (value (accept subtype
  			:stream stream
  			:view view
  			:prompt nil)))
      (unless (presentation-typep value type)
        (simple-parse-error "Input type is not of type ~S" type))
      value))
  
  (define-presentation-type-abbreviation token-or-type (tokens type)
    `(or (member-alist ,tokens) ,type))
  
  