anchor.diff:          (when (next-line line)
             (terpri s))))
       (setf (buffer-property buffer 'new-file) nil
  -          (buffer-modified buffer) nil)))
  +          (buffer-modified buffer) nil)
  +    (format t "Wrote ~S~%" (buffer-property buffer 'path))))
   
   (defun write-file-command ()
     (let* ((buffer (current-buffer *editor*))
  
positive.code: (defun buffer-current-package (buffer)
    "From point, search backwards for a top-level IN-PACKAGE form.
  If no such form is found, then return the CL-USER package."
    (let ((point (current-buffer *editor*))
          (temporary-package (make-package (gensym))))
      (import 'in-package temporary-package)
  
negative.code:         (write-sequence (data line) s)
          (terpri s)))
      (setf (buffer-property buffer 'new-file) nil
            (buffer-modified buffer) nil)
      (format t "Wrote ~S~%" (buffer-property buffer 'path))))
  
  (defun list-buffers-command ()
    (let ((buffer (get-buffer-create "*Buffers*")))
  