anchor.diff:  (defun %yank (editor)
     (aif (buffer-peek (editor-killring editor))
          (with-editor-point-and-string ((point string) editor)
  -	 (setf (get-string editor)
  -	       (concat (subseq string 0 (editor-yank editor))
  -		       it
  -		       (subseq string point))
  -	       (get-point editor) (+ (editor-yank editor) (length it))))
  -	(beep editor)))
  +         (setf (get-string editor)
  +               (concat (subseq string 0 (editor-yank editor))
  +                       it
  +                       (subseq string point))
  +               (get-point editor) (+ (editor-yank editor) (length it))))
  +        (beep editor)))
   
   (defun yank (chord editor)
     (declare (ignore chord))
  
positive.code:   (declare (ignore chord))
    (if (try-yank editor)
        (progn
  	 (buffer-cycle (editor-killring editor))
  	 (%yank editor))
        (beep editor)))
  
  (defun kill-to-eol (chord editor)
  
negative.code:   (declare (ignore chord))
    (with-editor-point-and-string ((point string) editor)
      (let ((start (editor-sexp-start editor))
            (end (min (1+ (editor-sexp-end editor)) (length string))))
        (buffer-push (subseq string start end) (editor-killring editor))
        (setf (get-string editor) (concat (subseq string 0 start)
                                          (subseq string end))
              (get-point editor) start))))
  
  (defun close-all-sexp (chord editor)
    (move-to-eol chord editor)
    (do ((string (get-string editor) (get-string editor)))
        ((not (find-open-paren string (length string))))
      (add-char (case (schar string (find-open-paren string (length string)))
                      (#\( #\))
                      (#\[ #\])
                      (#\{ #\}))
                editor)))
  
  ;;; SIGNALS
  
  