anchor.diff:                       :foreground-colour #xFFDCDCCC
                        :background-colour #xFF3E3E3E
                        :killed-region nil
  +                     :global-key-map (make-hash-table)
                        :screen nil
                        :display-line-cache '()))
   
  +(defvar *last-command*)
  +(defvar *this-command*)
  +(defvar *last-character*)
   (defvar *editor*)
   
   (defgeneric dispatch-event (editor event)
  
positive.code:              (new-line (funcall accessor current-line)))
          (cond (new-line
                 (setf (mark-line point) new-line
                       (mark-charpos point) (min (point-column-hint buffer)
                                                 (line-length new-line))))
                (t (return))))))
    (values))
  
  (defun backward-line (buffer &optional (n 1))
    (forward-line buffer (- n)))
  
  (defun test-fill (buffer)
    (let ((width (1- (truncate (editor-width)
  
negative.code:     (let ((mark (copy-mark (buffer-point buffer) :left)))
        (dotimes (i (* (window-rows) 2))
          (dotimes (j width)
            (insert buffer (code-char (+ #x20 i))))
          (insert buffer #\Newline))
        (point-to-mark buffer mark))))
  
  ;;; Mark stuff.
  