anchor.diff:          ;; 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
  
positive.code:                    (and hide-garbage (garbage-name-p name))))
               seq :key #'actual-name))
  
  (defun show-directory-pathnames (pathname)
    "Convert the pathname entered by the user into a query pathname
   (the pathname which will be passed to cl:directory, potentially a
   wild pathname), and a base pathname (which directory entries may
   be printed relative to in the fashion of enough-namestring)."
    (values (if (wild-pathname-p pathname)
                pathname
                (gen-wild-pathname pathname))
            (strip-filespec pathname)))
  
  ;; Change to using an :ICONIC view for pathnames?
  
  (define-command (com-show-directory :name "Show Directory"
  				    :command-table filesystem-commands
                                      :menu t
  				    :provide-output-destination-keyword t)
      ((pathname 'pathname #+nil(or 'string 'pathname) :prompt "pathname")
       &key
       (sort-by '(member name size modify none) :default 'name)
       (show-hidden  'boolean :default nil :prompt "show hidden")
  
negative.code:      (full-names 'boolean :default nil :prompt "show full name?")
       (list-all-direct-subdirectories 'boolean :default nil :prompt "list all direct subdirectories?"))
  
    (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 ()
  