anchor.diff:                     (genesis-eval (list (genesis-intern "COMPILE-FILE") file)))
                    (format t "; Loading compiled toplevel file ~S.~%" llf-path)
                    ;; Load the source file as well to pull in any compile-time stuff.
  -                 (with-open-file (s file)
  -                   (progv (list (genesis-intern "*PACKAGE*")) (list (genesis-eval-string "(find-package '#:cl-user)"))
  -                     (do* ((form (genesis-eval (list (genesis-intern "READ") s nil (list (genesis-intern "QUOTE") s)))
  -                                 (genesis-eval (list (genesis-intern "READ") s nil (list (genesis-intern "QUOTE") s)))))
  -                          ((eql form s))
  -                       (frob-compile-only form))))
  +                 (load-for-effect file)
                    (with-open-file (s llf-path :element-type '(unsigned-byte 8))
                      (load-llf s (lambda (f) (push f toplevel-forms))))))
                 (t (format t "; Loading toplevel file ~S.~%" (first file))
  
positive.code:                     (t (file-position stream rewind)
                         (load-object))))))))
  
  (defun make-toplevel-function (&rest files)
    (let ((toplevel-forms '()))
      (flet ((frob (form)
  
negative.code:                                    (format t "; Load ~S~%" form)
                                     (or (fastload-form form)
                                         (push form toplevel-forms)))
                                   (lambda (form env)
                                     (when env
                                       (error "TODO: Eval in env."))
  