anchor.diff:  (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."
  +  ;; TODO: create a cache for this
     (let ((point (current-buffer *editor*))
           (temporary-package (make-package (gensym))))
       (import 'in-package temporary-package)
  
positive.code:         (write-sequence (data line) s)
          (terpri s)))
      (setf (buffer-property buffer 'new-file) nil
            (buffer-modified buffer) nil)))
  
  (defun list-buffers-command ()
    (let ((buffer (get-buffer-create "*Buffers*")))
  
negative.code: ;        (format t "Read ~S in package ~S~%" str package)
          (let ((form (let ((*package* package))
                        (read-from-string str))))
            (format t "Evaluated ~S~%" (cadr form))
            (eval form))))))
  
  (defun beginning-of-top-level-form-command ()
  