anchor.diff:  			 collect (make-instance 'lexical-variable-entry
   						:name var))
   		   environment)))
  -    (let ((body (loop for form in (cddr lambda-form)
  -		      collect (convert form new-environment))))
  +    (let ((body (convert-sequence (cddr lambda-form) new-environment)))
         (make-instance 'close-ast
   		     ;; FIXME: Need to convert the lambda list first.
   		     :lambda-list parsed-lambda-list
  
positive.code: ;;;
  ;;; Converting FUNCTION.
  
  (defclass function-ast (ast)
    ((%binding :initarg :binding :reader binding)
     (%type :initarg :type :reader type)))
  
  (defclass close-ast (ast)
    ((%lambda-list :initarg :lambda-list :reader lambda-list)
     (%body :initarg :body :reader body)))
  
negative.code: 	(make-instance 'function-call-ast
  		       :binding binding
  		       :type (find-type binding environment)
  		       :arguments (convert-sequence (cdr form) environment)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  