anchor.diff:    (setf *builder* (llvm:make-builder))
     (unwind-protect
          (progn
  -         (compile-func main (make-env))
  -         (llvm:dump-module *module*))
  +         (compile-func main (clone-env-tree (clutter-operator-env (clutter-function-operator main))))
  +         (llvm:dump-module *module*)
  +         (llvm:write-bitcode-to-file *module* output))
       (llvm:dispose-module *module*)
       (llvm:dispose-builder *builder*)))
  
positive.code:     (mapc (lambda (arg name)
              (setf (llvm:value-name arg) (clutter-symbol-name name))
              (extend fenv name
                      (llvm:build-alloca *builder* (llvm:type-of arg) (clutter-symbol-name name)))
              (llvm:build-store *builder* arg (lookup name fenv)))
            (llvm:params fobj)
            args)
      (let ((ret))
  
negative.code: (in-package #:clutter)
  
  (declaim (optimize debug))
  
  (defstruct (split-val (:constructor split-val (llvm clutter)))
    llvm
    clutter)
  
  (defvar *context* (llvm:global-context))
  (defvar *module*)
  