anchor.diff:               :tester ((object) (not (eql *package* object))))
       (object)
     (list object))
  -    
  
positive.code:          (initargs (c2mop:slot-definition-initargs slot))
           (initfunc (c2mop:slot-definition-initfunction slot))
           (initform (c2mop:slot-definition-initform slot))
           (direct-slots (direct-slot-definitions class name))         
           (readers (mapcan (lambda (x) (copy-list (c2mop:slot-definition-readers x))) direct-slots))
           (writers (mapcan (lambda (x) (copy-list (c2mop:slot-definition-writers x))) direct-slots))
           (documentation (first (remove nil (mapcar (lambda (x) (documentation x t)) direct-slots))))
  
negative.code:         (format t "~&The current directory is now ")
          (present (truename parent))
          (terpri)))))
  
  (define-gesture-name :change-directory :pointer-button-press
    (:middle))
  
  