anchor.diff:      ;; Loading the file will set the modified flag.
       (setf (buffer-modified buffer) nil)
       (switch-to-buffer buffer)
  -    (setf *default-pathname-defaults* filespec)))
  +    (setf *default-pathname-defaults* (make-pathname :name nil :type nil :version :newest :defaults filespec))))
   
   (defun save-buffer-command ()
     (let ((buffer (current-buffer *editor*)))
  
positive.code:   (let ((buffer (current-buffer *editor*)))
      (kill-region buffer (buffer-point buffer) (buffer-mark buffer))))
  
  (defun yank-command ()
    (yank-region (current-buffer *editor*)))
  
  
negative.code:   (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)
    (set-key #\C-M-K 'kill-sexp-command key-map)
    (set-key #\C-Q 'quoted-insert-command key-map)
    (set-key #\C-L 'recenter-command key-map)
    (set-key #\M-L 'redraw-screen-command key-map)
  