anchor.diff:  	     ((eq (car rest) '&optional) (pop rest) (go optional))
   	     ((eq (car rest) '&key) (pop rest) (go key))
   	     (t (let* ((var (pop rest))
  -		       (var-ast (cleavir-ast:make-lexical-ast var)))
  +		       (name (make-symbol (string-downcase var)))
  +		       (var-ast (cleavir-ast:make-lexical-ast name)))
   		  (setq new-env
   			(cleavir-env:add-lexical-variable
   			 new-env var var-ast)))
  
positive.code: 			    dspecs
  			    forms
  			    new-env)
  	    (let ((lexical-ast (cleavir-ast:make-lexical-ast rest)))
  	      (values (set-or-bind-variable rest lexical-ast next-ast new-env)
  		      (list* '&rest lexical-ast next-lexical-parameters))))))))
  
  
negative.code:   (if (null required)
        (process-optionals parsed-lambda-list dspecs forms env)
        (let* ((var (first required))
  	     (name (make-symbol (string-downcase var)))
  	     (lexical-ast (cleavir-ast:make-lexical-ast name))
  	     (new-env (augment-environment-with-variable
  		       var dspecs env env)))
  	(multiple-value-bind (next-ast next-lexical-parameters)
  