anchor.diff:    ())
   
   (defun convert-named-function (name environment)
  -  (let ((location (sicl-env:location (sicl-env:function-info name environment t))))
  -    (etypecase location
  -      (sicl-env:global-location
  -       (sicl-ast:make-global-ast (sicl-env:name location)
  -				 (sicl-env:storage location)))
  -      (sicl-env:lexical-location
  -       (sicl-ast:make-lexical-ast (sicl-env:name location))))))
  +  (let* ((info (sicl-env:function-info name environment t))
  +	 (location (sicl-env:location info)))
  +    (find-or-create-ast location)))
   
   (defun convert-lambda-function (lambda-form env)
     (unless (sicl-code-utilities:proper-list-p lambda-form)
  
positive.code:       (declare (ignore declarations))
        (sicl-ast:make-progn-ast
         (cons (sicl-ast:make-setq-ast
  	      (sicl-ast:make-lexical-ast
  (sicl-env:location info)
  				     (convert init-form env))
  	     (convert-sequence forms new-env))))))
  
  ;;; Separate a list of canonicalized declaration specifiers into two
  
negative.code: 	 (convert-compound (car form) form environment))))
  	 
  (defun convert-top-level-form (form)
    (let ((*location-asts* (make-hash-table :test #'eq)))
      (convert `(function (lambda () ,form)) nil)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  