anchor.diff:  ;        (format t "Read ~S in package ~S~%" str package)
           (let ((form (let ((*package* package))
                         (read-from-string str))))
  -          (format t "Eval ~S~%" form)
  +          (format t "Evaluated ~S~%" (cadr form))
             (eval form))))))
   
   (defun beginning-of-top-level-form-command ()
  
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*")))
  