anchor.diff:                                          :window window
                                           :frame frame
                                           :buffer (make-instance 'buffer)))
  -               (*last-command* nil))
  +               (*last-command* nil)
  +               (*last-character* nil))
             (initialize-global-key-map *editor*)
             (mezzanine.gui.widgets:draw-frame frame)
             (multiple-value-bind (left right top bottom)
  
positive.code:           (move-mark point)
            (move-end-of-line buffer))
        (unwind-protect
             (delete-region buffer here point)
          (point-to-mark buffer here))))
    (values))
  
  
negative.code:   "Insert STRING into BUFFER at point. STRING is a string-designator, so can be a character."
    (loop for ch across (string string)
       if (char= ch #\Newline)
       do (insert-line (buffer-point buffer))
       else do (insert-char (buffer-point buffer) ch)))
  
  (defun order-marks (mark-1 mark-2)
    (let ((line-1 (mark-line mark-1))
  