anchor.diff:      (let ((forms1 (loop for entry in entries
   			for init in inits
   			collect (make-instance 'setq-ast
  -					       :location (location entry)
  -					       :value init)))
  +					       :location (sicl-env:location entry)
  +					       :value-ast init)))
   	  (forms2 (loop for body-form in (cddr form)
   			collect (convert body-form new-env))))
   	  
         (make-instance 'progn-ast
  -		     :forms (append forms1 forms2)))))
  +		     :form-asts (append forms1 forms2)))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code:   (unless (sicl-code-utilities:proper-list-p lambda-form)
      (error 'lambda-must-be-proper-list
  	   :expr lambda-form))
    (let* ((parsed-lambda-list
  	   (sicl-code-utilities:parse-ordinary-lambda-list (cadr lambda-form)))
  	 (vars (sicl-code-utilities:lambda-list-variables parsed-lambda-list))
  	 (entries (loop for var in vars
  			collect (sicl-env:make-lexical-variable-entry var))))
      (multiple-value-bind (declarations documentation forms)
  	(sicl-code-utilities:separate-function-body (cddr lambda-form))
        (declare (ignore documentation))
        (let ((new-env (sicl-env:augment-environment env entries)))
  	(setf new-env
  	      (sicl-env:augment-environment-with-declarations
  	       new-env declarations))
  	(let ((body-asts (convert-sequence forms new-env)))
  	  (make-instance 'close-ast
  			 ;; FIXME: Need to convert the lambda list first.
  			 :lambda-list parsed-lambda-list
  			 :body (make-instance 'progn-ast
  					      :forms body-asts)))))))
  
  (defmethod convert-compound
      ((symbol (eql 'function)) form environment)
    (sicl-code-utilities:check-form-proper-list form)
    (sicl-code-utilities:check-argcount form 1 1)
    (if (symbolp (cadr form))
        (convert-named-function (cadr form) environment)
        (convert-lambda-function (cadr form) environment)))
  
  
negative.code: 	     :expr (cadr form)))
      (make-instance 'return-from-ast
  		   :block-ast (sicl-env:definition entry)
  		   :form-ast (convert (caddr form) environment))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  