anchor.diff:                      (t (file-position stream rewind)
                          (load-object))))))))
   
  +(defun load-for-effect (file)
  +  (flet ((frob-compile-only (form)
  +           (genesis-eval (list (genesis-intern "HANDLE-TOP-LEVEL-FORM")
  +                               (list (genesis-intern "QUOTE") form)
  +                               (lambda (form env) (declare (ignore form env)))
  +                               (lambda (form env)
  +                                 (when env
  +                                   (error "TODO: Eval in env."))
  +                                 (format t "; Eval ~S~%" form)
  +                                 (genesis-eval form))))))
  +    (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))))))
  +
   (defun make-toplevel-function (&rest files)
     (let ((toplevel-forms '()))
       (flet ((frob (form)
  
positive.code:                                    (format t "; Load ~S~%" form)
                                     (or (fastload-form form)
                                         (push form toplevel-forms)))
                                   (lambda (form env)
                                     (when env
                                       (error "TODO: Eval in env."))
                                     (format t "; Eval ~S~%" form)
                                     (genesis-eval form)))))
             (frob-compile-only (form)
               (genesis-eval (list (genesis-intern "HANDLE-TOP-LEVEL-FORM")
                                   (list (genesis-intern "QUOTE") form)
                                   (lambda (form env) (declare (ignore form env)))
                                   (lambda (form env)
                                     (when env
                                       (error "TODO: Eval in env."))
  
negative.code:                    (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.
                   (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))
  