anchor.diff:      (format *error-output* "~&ready> ")
       (get-next-token)
       (main-loop)
  -    (llvm:dump-module *module*)))+    (llvm:dump-module *module*)))
  
positive.code:                  (llvm:params function)
                   (arguments expression))
              function)
            (error "redefinition of function with different # args"))
          (error "redefinition of function")))
      ;; Set names for all arguments.
      (map nil
           (lambda (argument name)
  
negative.code:       (when val
          (let ((variable (gethash (name lhse) *named-values*)))
            (unless variable
              (error 'kaleidoscope-error :message "Unknown variable name"))
            (llvm:build-store *builder* val variable)
            val)))
      (let ((l (codegen (lhs expression)))
  