anchor.diff:  	     ((eq (car rest) '&key)
   	      (push (pop rest) result)
   	      (go key))
  -	     (t (push (var-to-lexical-location (pop rest)) result)
  +	     (t (push (var-to-lexical-location (pop rest) env) result)
   		(go required)))
        optional
          (cond ((null rest)
  
positive.code:     new-env))
  
  (defun var-to-lexical-location (var env)
    (let ((info (sicl-env:variable-info var env))
  	(location (sicl-env:location info)))
      (find-or-create-ast location)))
  
  (defun build-ast-lambda-list (lambda-list env)
  
negative.code: 	     ((eq (car rest) '&key)
  	      (push (pop rest) result)
  	      (go key))
  	     (t (push (var-to-lexical-location (first rest) env) result)
  		(push (var-to-lexical-location (second rest) env) result)
  		(pop rest)
  		(go optional)))
       key
         (cond ((or (null rest) (eq (car rest) '&allow-other-keys))
  	      (go out))
  	     (t (push (var-to-lexical-location (second rest) env) result)
  		(push (var-to-lexical-location (third rest) env) result)
  		(pop rest)
  		(go key)))
       out)
  