anchor.diff:  (defun find-file-command ()
     (let* ((path (read-from-minibuffer (format nil "Find file (default ~S): " *default-pathname-defaults*)))
            (filespec (merge-pathnames path))
  -         (buffer (make-instance 'buffer))
  -         (start (copy-mark (buffer-point buffer) :left)))
  +         (buffer (make-instance 'buffer)))
       (with-open-file (s filespec :if-does-not-exist nil)
         (cond (s
                (loop
  
positive.code: (defun backward-word-command ()
    (move-word (current-buffer *editor*) -1))
  
  (defun move-beginning-of-line-command ()
    (move-beginning-of-line (current-buffer *editor*)))
  
  
negative.code:                    (editor-loop)
                   (error (c)
                     (ignore-errors
                       (format t "Editor error: ~A~%" c)
                       (setf (pending-redisplay *editor*) t)))))))))))
  
  (defun spawn (&key width height)
    (mezzanine.supervisor:make-thread (lambda () (editor-main width height))
  