anchor.diff:     (%frame :initarg :frame :accessor frame)
      (%buffer-list :initarg :buffer-list :accessor buffer-list)
      (%buffer :initarg :buffer :accessor current-buffer)
  +   (%last-buffer :initarg :last-buffer :accessor last-buffer)
      (%font :initarg :font :reader font)
      (%foreground-colour :initarg :foreground-colour :accessor foreground-colour)
      (%background-colour :initarg :background-colour :accessor background-colour)
  
positive.code:                    (make-mark (last-line buffer) (line-length (last-line buffer))))
      (dolist (b (buffer-list *editor*))
        (insert buffer (buffer-property b 'name))
        (insert buffer #\Newline))))
  
  (defun switch-to-buffer-command ()
    (switch-to-buffer (get-buffer-create (read-from-minibuffer "Buffer: "))))
  
  (defun kill-buffer-command ()
    (let* ((name (read-from-minibuffer (format nil "Buffer (default ~A): " (buffer-property (current-buffer *editor*) 'name))))
  
negative.code: (defun previous-line-command ()
    (move-line (current-buffer *editor*) -1))
  
  (defun forward-word-command ()
    (move-word (current-buffer *editor*)))
  
  (defun backward-word-command ()
    (move-word (current-buffer *editor*) -1))
  
  (defun move-beginning-of-line-command ()
    (move-beginning-of-line (current-buffer *editor*)))
  
  