anchor.diff:       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)
  +	    (list (make-lexical-location-info location)
   		  (sicl-ast:make-word-ast 1)))))))
   
   (defun replace-globals (ast table)
  
positive.code: 	     (mapc #'traverse (sicl-ast:children ast))))
      (traverse ast)))
  
  (defun eliminate-externals (ast)
    (let* ((constants (build-constants ast))
  	 (constants-table
  	   (loop for constant in constants
  
negative.code:      ast 'sicl-ast:memset-ast
       :argument-asts
       (list (sicl-ast:make-u--ast
  	    (list (make-lexical-location-info location)
  		  (sicl-ast:make-word-ast 1)))
  	   (sicl-ast:value ast)))))
  
  