anchor.diff:       ast 'sicl-ast:memset-ast
        :argument-asts
        (list (sicl-ast:make-u--ast
  -	    (list (make-instance 'sicl-env:lexical-location-info
  -		    :dynamic-extent-p nil
  -		    :ignore-info nil
  -		    :inline-info nil
  -		    :type t
  -		    :location location)
  +	    (list (make-lexical-location-info location)
   		  (sicl-ast:make-word-ast 1)))
   	   (sicl-ast:value ast)))))
   
  
positive.code:      ast 'sicl-ast:memref-ast
       :argument-asts
       (list (sicl-ast:make-u--ast
  	    (list (make-instance 'sicl-env:lexical-location-info
  		    :dynamic-extent-p nil
  		    :ignore-info nil
  		    :inline-info nil
  		    :type t
  		    :location location)
  		  (sicl-ast:make-word-ast 1)))))))
  
  (defun replace-globals (ast table)
  
negative.code: 	     (mapc #'traverse (sicl-ast:children ast))))
      (traverse ast)))
  
  (defun make-lexical-location-info (location)
    (make-instance 'sicl-env:lexical-location-info
      :dynamic-extent-p nil
      :ignore-info nil
      :inline-info nil
      :type t
      :location location))
  
  (defun replace-setq (ast table)
    (let* ((lhs-ast (sicl-ast:lhs-ast ast))
  	 (location (cdr (assoc (sicl-env:location lhs-ast) table))))
  