anchor.diff:       (full-names 'boolean :default nil :prompt "show full name?")
        (list-all-direct-subdirectories 'boolean :default nil :prompt "list all direct subdirectories?"))
   
  -  (multiple-value-bind (query-pathname base-pathname)
  -      (show-directory-pathnames pathname)
  -    
  -    (let ((dir (if list-all-direct-subdirectories
  -                   (list-directory-with-all-direct-subdirectories query-pathname)
  -                   (list-directory query-pathname))))
  -
  +  (let* ((query-pathname (make-pathname :name (or (pathname-name pathname) :wild)
  +                                        :type (or (pathname-type pathname) :wild)
  +                                        :version (or (pathname-version pathname) :wild)))
  +         (base-pathname (osicat:pathname-directory-pathname pathname))
  +         (dir (uiop:while-collecting (files)
  +                (osicat:mapdir (lambda (path)
  +                                 (when (or (pathname-match-p path query-pathname)
  +                                           (and list-all-direct-subdirectories
  +                                                (osicat:directory-pathname-p path)))
  +                                   (files (osicat:absolute-pathname path))))
  +                               base-pathname))))
       (with-text-family (t :sans-serif)
         (invoke-as-heading
          (lambda ()
  
positive.code:         ;; Note that the above leaves the cursor positioned at the end
          ;; of the "Parent Directory" line.
          (terpri))
  
  
  
        (dolist (group (split-sort-pathnames dir group-directories sort-by))
          (unless show-all
  
negative.code:              (setf (stream-cursor-position *standard-output*) (values 0 y))))
            (:list (dolist (ent group)
                     (let ((ent (merge-pathnames ent pathname)))
                       (pretty-pretty-pathname ent *standard-output* full-names)))))))))
  
  (define-command (com-change-directory :name "Change Directory"
                                        :menu t
  