anchor.diff:    (set-key #\M-> 'move-end-of-buffer-command key-map)
     (set-key #\C-V 'scroll-up-command key-map)
     (set-key #\M-V 'scroll-down-command key-map)
  -  (set-key '(#\C-C #\C-C) 'eval-top-level-form-command key-map))
  +  (set-key '(#\C-C #\C-C) 'eval-top-level-form-command key-map)
  +  (set-key '(#\C-C #\C-A) 'beginning-of-top-level-form-command key-map))
   
   (defun initialize-minibuffer-key-map (key-map)
     (initialize-key-map key-map)
  
positive.code: (defconstant +line-number-increment+ 10000)
  
  (defun fully-renumber-lines-from (line)
    (do ((l line (next l)))
        ((null l))
      (setf (line-number line) (+ (line-number (prev line)) +line-number-increment+))))
  
  (defun insert-line (point)
    "Insert a new line at POINT, splitting the current line if needed.
  
negative.code:   (set-key #\Backspace 'delete-backward-char-command key-map)
    (set-key #\C-D 'delete-forward-char-command key-map)
    (set-key #\Delete 'delete-forward-char-command key-map)
    (set-key #\C-Backspace 'backward-kill-word-command key-map)
    (set-key #\M-D 'forward-kill-word-command key-map)
    (set-key #\C-W 'kill-region-command key-map)
    (set-key #\C-Y 'yank-command key-map)
    (set-key '(#\C-X #\C-F) 'find-file-command key-map)
  