anchor.diff:                                     :hyper (find :hyper (mezzanine.gui.compositor:key-modifier-state event)))
             (mezzanine.gui.compositor:key-key event)))))
   
  -(defun editor-read-char ()
  +(defun editor-read-char-1 ()
     (catch 'next-character
       (when (pending-event *editor*)
         (let ((event (pending-event *editor*)))
  
positive.code: (defun kill-region (buffer mark-1 mark-2)
    (multiple-value-bind (first-mark last-mark)
        (delete-region buffer mark-1 mark-2)
      (setf (killed-region *editor*) (cons first-mark last-mark))))
  
  (defun kill-line (buffer)
    "Kill from point to the end of the line. If the point is at the end of the line,
  
negative.code:                                         :window window
                                          :frame frame
                                          :buffer (make-instance 'buffer)))
                 (*last-command* nil)
                 (*last-character* nil))
            (initialize-global-key-map *editor*)
            (mezzanine.gui.widgets:draw-frame frame)
            (multiple-value-bind (left right top bottom)
  