anchor.diff:  
   (defun find-file-command ()
     (let* ((path (read-from-minibuffer (format nil "Find file (default ~S): " *default-pathname-defaults*)))
  -         (filespec (merge-pathnames path)))
  -    (with-open-file (s filespec)
  -      (let* ((buffer (make-instance 'buffer))
  -             (start (copy-mark (buffer-point buffer) :left)))
  -        (loop
  -           (multiple-value-bind (line missing-newline-p)
  -               (read-line s nil)
  -             (when (not line)
  -               (return))
  -             (insert buffer line)
  -             (when (not missing-newline-p)
  -               (insert buffer #\Newline))))
  -        (push buffer (buffer-list *editor*))
  -        (setf (buffer-property buffer 'path) filespec)
  -        (rename-buffer buffer (file-namestring s))
  -        (point-to-mark buffer start)
  -        ;; Loading the file will set the modified flag.
  -        (setf (buffer-modified buffer) nil)
  -        (switch-to-buffer buffer)))
  +         (filespec (merge-pathnames path))
  +         (buffer (make-instance 'buffer))
  +         (start (copy-mark (buffer-point buffer) :left)))
  +    (with-open-file (s filespec :if-does-not-exist nil)
  +      (cond (s
  +             (loop
  +                (multiple-value-bind (line missing-newline-p)
  +                    (read-line s nil)
  +                  (when (not line)
  +                    (return))
  +                  (insert buffer line)
  +                  (when (not missing-newline-p)
  +                    (insert buffer #\Newline)))))
  +            (t (setf (buffer-property buffer 'new-file) t))))
  +    (push buffer (buffer-list *editor*))
  +    (setf (buffer-property buffer 'path) filespec)
  +    (rename-buffer buffer (file-namestring filespec))
  +    (point-to-mark buffer start)
  +    ;; Loading the file will set the modified flag.
  +    (setf (buffer-modified buffer) nil)
  +    (switch-to-buffer buffer)
       (setf *default-pathname-defaults* filespec)))
   
   (defun save-buffer-command ()
  
positive.code:     (setf (mezzanine.gui.widgets:frame-title (frame *editor*))
            (format nil "Editor - ~A~A"
                    (or (buffer-property buffer 'name) "Untitled")
                    (if (buffer-modified buffer) " (Modified)" "")))
      (mezzanine.gui.widgets:draw-frame (frame *editor*))))
  
  (defun switch-to-buffer (buffer)
  
negative.code:         (write-sequence (data line) s)
          (when (next-line line)
            (terpri s))))
      (setf (buffer-property buffer 'new-file) nil
            (buffer-modified buffer) nil)))
  
  (defun write-file-command ()
    (let* ((buffer (current-buffer *editor*))
  