anchor.diff:  ;;; driver
   
   (defun toplevel ()
  +  ;; NOTE: The C version of the tutorial doesn't initialize any target, but
  +  ;;       expects that a JIT is created. I think it's just out of date.
  +  (llvm:initialize-native-target)
     ;; install standard binary operators
     ;; 1 is lowest precedence
     (setf (gethash #\= *binop-precedence*) 2
  
positive.code:         (gethash #\* *binop-precedence*) 40)
    (llvm:with-objects ((*builder* 'llvm:builder)
                        (*module* 'llvm:module :name "my cool jit")
                        (*execution-engine* 'llvm:execution-engine :module *module*)
                        (*fpm* 'llvm:function-pass-manager :module *module*))
      (llvm:add-target-data (llvm:target-data *execution-engine*) *fpm*)
      (llvm:add-promote-memory-to-register-pass *fpm*)
  
negative.code:                  (llvm:params function)
                   (arguments expression))
              function)
            (error 'kaleidoscope-error
                   :message "redefinition of function with different # args"))
          (error 'kaleidoscope-error :message "redefinition of function")))
      ;; Set names for all arguments.
      (map nil
  