anchor.diff:                                                              nil
                                                               base-pathname))))
              (multiple-value-bind (x y) (stream-cursor-position *standard-output*)
  +             (declare (ignore x))
                (setf (stream-cursor-position *standard-output*) (values 0 y))))
             (:list (dolist (ent group)
                      (let ((ent (merge-pathnames ent pathname)))
  
positive.code: 
  (define-presentation-to-command-translator display-dir-stack-translator
    (directory-stack com-display-directory-stack filesystem-commands :gesture :select)
      (object)
    (declare (ignore object)))
  
  (define-command (com-edit-file :name "Edit File"
                                 :menu t
  
negative.code:       (sort methods #'sorter))))
  
  (defun show-specialized-methods (gf stream methods arg-types)
    (declare (ignore gf))
    (let ((before nil)
  	(after nil)
  	(around nil)
  