anchor.diff:         (cond ((null rest) (go out))
   	     ((eq (car rest) '&key) (pop rest) (go key))
   	     (t (let* ((var1 (first (first rest)))
  -		       (var1-ast (cleavir-ast:make-lexical-ast var1))
  +		       (name1 (make-symbol (string-downcase var1)))
  +		       (var1-ast (cleavir-ast:make-lexical-ast name1))
   		       (var2 (second (first rest)))
  -		       (var2-ast (cleavir-ast:make-lexical-ast var2)))
  +		       (name2 (make-symbol (string-downcase var2)))
  +		       (var2-ast (cleavir-ast:make-lexical-ast name2)))
   		  (setq new-env
   			(cleavir-env:add-lexical-variable
   			 new-env var1 var1-ast))
  
positive.code: ;;; responsible for assigning to those LEXICAL-ASTs according to what
  ;;; arguments were given to the function.
  (defun process-init-parameter (var supplied-p init-form dspecs env next-ast)
    (let ((new-env (augment-environment-with-variable var dspecs env env))
  	(lexical-var-ast (cleavir-ast:make-lexical-ast var))
  	(lexical-supplied-p-ast (cleavir-ast:make-lexical-ast supplied-p)))
      (unless (null supplied-p)
        (setf new-env
  	    (augment-environment-with-variable
  
negative.code:        (cond ((or (null rest) (eq (car rest) '&allow-other-keys))
  	      (go out))
  	     (t (let* ((var1 (second (first rest)))
  		       (name1 (make-symbol (string-downcase var1)))
  		       (var1-ast (cleavir-ast:make-lexical-ast name1))
  		       (var2 (third (first rest)))
  		       (name2 (make-symbol (string-downcase var2)))
  		       (var2-ast (cleavir-ast:make-lexical-ast name2)))
  		  (setq new-env
  			(cleavir-env:add-lexical-variable
  			 new-env var1 var1-ast))
  