anchor.diff:                                     (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."))
  
positive.code:                     (t (file-position stream rewind)
                         (load-object))))))))
  
  (defun make-toplevel-function (&rest files)
    (let ((toplevel-forms '()))
      (flet ((frob (form)
  
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))
  