anchor.diff:  					(eq (base-entry entry) macro-entry)))
   				 (proclamations *global-environment*))))
   	      ;; Check whether the symbol has a definition as a
  -	      ;; special varible.
  +	      ;; special variable.
   	      (let ((variable-entry
   		      (find symbol (special-variables *global-environment*)
   			    :key #'name :test #'eq)))
  
positive.code: ;;; variable with that name exists (i.e., the entry exists in stage
  ;;; 2), and if so, uses its special binding.  An entry in stage 1 does
  ;;; not trigger that behavior in the compiler, so if the entry found
  ;;; is in stage 1, any new binding of the varible is considered to be
  ;;; a lexical binding.
  ;;;
  ;;; Stage 2 happens when a DEFVAR or DEFPARAMETER form has been
  
negative.code: ;;;
  
  (defclass lexical-variable-entry
      (base-entry named-entry variable-space location-entry)
    ())
  
  (defun make-lexical-variable-entry (name)
  