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:       ;; And now past alphanumeric characters.
        (funcall fn point (complement #'alphanumericp)))))
  
  (defun test-fill (buffer)
    (let ((width (1- (truncate (editor-width)
                               (mezzanine.gui.font:glyph-advance (mezzanine.gui.font:character-to-glyph (font *editor*) #\M))))))
      (let ((mark (copy-mark (buffer-point buffer) :left)))
        (dotimes (i (* (window-rows) 2))
          (dotimes (j width)
            (insert buffer (code-char (+ #x20 i))))
  
negative.code:     (push buffer (buffer-list *editor*))
      (setf (buffer-property buffer 'path) filespec)
      (rename-buffer buffer (file-namestring filespec))
      (move-beginning-of-buffer buffer)
      ;; Loading the file will set the modified flag.
      (setf (buffer-modified buffer) nil)
      (switch-to-buffer buffer)
  