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:                      :gesture :select
                       :documentation "Room"
                       :pointer-documentation "Room")
      (object)
    (declare (ignore object)))
    
  
  (define-presentation-to-command-translator com-show-class-subclasses-translator
  
negative.code: 
  (define-presentation-to-command-translator display-dir-stack-translator
    (directory-stack com-display-directory-stack filesystem-commands :gesture :select)
      (object))
  
  (define-command (com-edit-file :name "Edit File"
                                 :menu t
  