anchor.diff:        (move-sexp buffer 1)
         (kill-region buffer current point))))
   
  +(defun forward-kill-word-command ()
  +  (let* ((buffer (current-buffer *editor*))
  +         (point (buffer-point buffer)))
  +    (with-mark (current point)
  +      (move-word buffer 1)
  +      (kill-region buffer current point))))
  +
  +(defun backward-kill-word-command ()
  +  (let* ((buffer (current-buffer *editor*))
  +         (point (buffer-point buffer)))
  +    (with-mark (current point)
  +      (move-word buffer -1)
  +      (kill-region buffer current point))))
  +
   (defun yank-command ()
     (yank-region (current-buffer *editor*)))
   
  
positive.code:           (format t "Eval ~S~%" form)
            (eval form))))))
  
  ;;;; End command wrappers.
  
  (defun translate-command (editor character)
  
negative.code: (defconstant +line-number-increment+ 10000)
  
  (defun fully-renumber-lines-from (line)
    (do ((l line (next-line l)))
        ((null l))
      (setf (line-number line) (+ (line-number (previous-line line)) +line-number-increment+))))
  
  (defun insert-line (point)
    "Insert a new line at POINT, splitting the current line if needed.
  