anchor.diff:    (set-key #\C-P 'previous-line-command key-map)
     (set-key #\M-F 'forward-word-command key-map)
     (set-key #\M-B 'backward-word-command key-map)
  +  (set-key #\C-M-F 'forward-sexp-command key-map)
  +  (set-key #\C-M-B 'backward-sexp-command key-map)
     (set-key #\C-A 'move-beginning-of-line-command key-map)
     (set-key #\C-E 'move-end-of-line-command key-map)
     (set-key #\C-K 'kill-line-command key-map)
  
positive.code: (defun backward-word-command ()
    (move-word (current-buffer *editor*) -1))
  
  (defun move-beginning-of-line-command ()
    (move-beginning-of-line (current-buffer *editor*)))
  
  
negative.code: (defun find-file-command ()
    (let* ((path (read-from-minibuffer (format nil "Find file (default ~S): " *default-pathname-defaults*)))
           (filespec (merge-pathnames path))
           (buffer (make-instance 'buffer)))
      (with-open-file (s filespec :if-does-not-exist nil)
        (cond (s
               (loop
  