anchor.diff:  		     result)))
       (append (mapcar #'list required) result)))
   
  -(defgeneric convert-code (lambda-list body env system))
  -
  -(defmethod convert-code (lambda-list body env system)
  +(defgeneric convert-code (lambda-list body env system &optional block-name))
  +
  +(defmethod convert-code (lambda-list body env system
  +			 &optional (block-name nil block-name-p))
     (let* ((parsed-lambda-list
   	   (cleavir-code-utilities:parse-ordinary-lambda-list lambda-list))
   	 (required (cleavir-code-utilities:required parsed-lambda-list)))
  
positive.code: 	      (process-required required
  				parsed-lambda-list
  				idspecs
  				(make-body rdspecs forms)
  				env
  				system)
  	    (cleavir-ast:make-function-ast ast lexical-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)))
  
  