anchor.diff:  	      (process-required required
   				parsed-lambda-list
   				idspecs
  -				(make-body rdspecs forms)
  +				(make-body rdspecs forms block-name block-name-p)
   				env
   				system)
   	    (cleavir-ast:make-function-ast ast lexical-lambda-list)))))))
  
positive.code: 		     result)))
      (append (mapcar #'list required) result)))
  
  (defgeneric convert-code (lambda-list body env system))
  
  (defmethod convert-code (lambda-list body env system)
    (let* ((parsed-lambda-list
  	   (cleavir-code-utilities:parse-ordinary-lambda-list lambda-list))
  	 (required (cleavir-code-utilities:required parsed-lambda-list)))
  
negative.code: ;;; Convert the body forms of a function.
  (defun convert-body (body env system)
    (let ((new-env (augment-environment-with-declarations env (dspecs body))))
      (convert (if (block-name-p body)
  		 `(block ,(block-name body) ,@(forms body))
  		 `(progn ,@(forms body)))
  	     new-env system)))
  
  