anchor.diff:  (define-key *dired-mode-keymap* (kbd "p") 'dired-previous-line)
   (define-key *dired-mode-keymap* (kbd "q") 'dired-quit)
   
  +(defun dired-cursor-column ()
  +  (get-bvar :dired-cursor-column :default 0))
  +
   (define-command dired-next-line (&optional (n 1)) ("p")
     (forward-line n)
  -  (move-to-column (get-bvar :dired-cursor-column)))
  +  (move-to-column (dired-cursor-column)))
   
   (define-command dired-previous-line (&optional (n 1)) ("p")
     (forward-line (- n))
  -  (move-to-column (get-bvar :dired-cursor-column)))
  +  (move-to-column (dired-cursor-column)))
   
   (define-command dired-quit () ()
     (quit-window))
  
positive.code:   (let ((files))
      (save-excursion
       (goto-start-line)
       (do ((file nil nil))
           ((eobp))
         (when (and (eql +mark+ (following-char))
  
negative.code:                                to-pathname))
               to-pathname)))
      (when (subdirectory-p to-pathname from-pathname)
        (editor-error "Cannot copy `~a' into its subdirectory `~a'"
                      from-pathname to-pathname))
      (multiple-value-bind (to-dir-pathname made-directory-p)
          (ensure-directories-exist to-dir-pathname)
        (assert made-directory-p)
  