anchor.diff:                       collecting (cons name init)
                        while (eql *current-token* #\,)
                        do (get-next-token)
  -                     do (unless (eql *current-token* 'tok-identifier)
  +                        (unless (eql *current-token* 'tok-identifier)
                             (error 'kaleidoscope-error
  -                                 :message "expected identifier list after var")))))
  +                                 :message
  +                                 "expected identifier list after var")))))
       (unless (eql *current-token* 'tok-in)
         (error 'kaleidoscope-error :message "expected 'in' keyword after 'var'"))
       (get-next-token)
  
positive.code: ;;; driver
  
  (defun toplevel ()
    ;; install standard binary operators
    ;; 1 is lowest precedence
    (setf (gethash #\= *binop-precedence*) 2
  
negative.code:         (when lf
            (llvm:dump-value lf)
            (let ((ptr (llvm:pointer-to-global *execution-engine* lf)))
              (format *error-output* "Evaluated to ~f"
                      ;; NOTE: The C version of the tutorial only has the JIT side
                      ;;       of this, so if you have an interpreter, it breaks.
                      (if (eql ptr lf) ; we have an interpreter
                        (llvm:generic-value-to-float
                         (llvm:double-type)
  