anchor.diff:            (format t "Eval ~S~%" form)
             (eval form))))))
   
  +(defun beginning-of-top-level-form-command ()
  +  (beginning-of-top-level-form (current-buffer *editor*)))
  +
   ;;;; End command wrappers.
   
   (defun translate-command (editor character)
  
positive.code:       (move-sexp buffer 1)
        (kill-region buffer current point))))
  
  (defun yank-command ()
    (yank-region (current-buffer *editor*)))
  
  
negative.code:   (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-A) 'beginning-of-top-level-form-command key-map))
  
  (defun initialize-minibuffer-key-map (key-map)
    (initialize-key-map key-map)
  