anchor.diff:  
   (defmethod convert-special
       ((head (eql 'progn)) form environment)
  -  ;; The following expression means "if this form is a top-level
  -  ;; form, then make sure that forms compiled by a recursive call
  -  ;; to CONVERT are also top-level forms".
  -  (setf *top-level-form-p* *old-top-level-form-p*)
  -  (cleavir-ast:make-progn-ast
  -   (convert-sequence (cdr form) environment)))
  +  (with-preserved-toplevel-ness
  +    (cleavir-ast:make-progn-ast
  +     (convert-sequence (cdr form) environment))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: 	    for expander = (cleavir-env:eval lambda-expr env env)
  	    do (setf new-env
  		     (cleavir-env:add-local-macro new-env name expander)))
        ;; The following expression means "if this form is a top-level
        ;; form, then make sure that forms compiled by a recursive call
        ;; to CONVERT are also top-level forms".
        (setf *top-level-form-p* *old-top-level-form-p*)
        (convert `(locally ,@body) new-env))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: 	     (reduce #'append (mapcar #'cdr declarations)))))
        (let ((new-env (augment-environment-with-declarations
  		      env canonicalized-dspecs)))
  	(with-preserved-toplevel-ness
  	  (cleavir-ast:make-progn-ast
  	   (convert-sequence forms new-env)))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  