anchor.diff:    #+windows
     (fad:delete-directory-and-files file)
     #-windows
  -  (run-command "rm -fr '~A'" file))
  +  (run-command `("rm" "-fr" ,file)))
   
   (defun subdirectory-p (to-pathname from-pathname)
     (let ((to-dir (pathname-directory to-pathname))
  
positive.code:   (copy-file src dst)
    #-windows
    (if *rename-p*
        (run-command "mv '~A' '~A'" src dst)
        (run-command "cp -r '~A' '~A'" src dst)))
  
  (defun check-copy-files (src-files dst)
    (let ((n (length src-files)))
  
negative.code: (define-key *directory-mode-keymap* "R" 'directory-mode-rename-files)
  (define-key *directory-mode-keymap* "+" 'make-directory)
  
  (defun run-command (command)
    (when (consp command)
      (setf command (mapcar #'princ-to-string command)))
    (let ((error-string
           (with-output-to-string (error-output)
             (uiop:run-program command
                               :ignore-error-status t
                               :error-output error-output))))
      (when (string/= error-string "")
  