anchor.diff:    (assert (equal (cleavir-generate-ast:minimally-compile
   		  '(unwind-protect gsm1 gsm1 gsm1)
   		  *e*)
  -		 '(unwind-protect (hello1 hello2)
  -		   (hello1 hello2)
  -		   (hello1 hello2)))))
  +		 '(unwind-protect (consp hello2)
  +		   (consp hello2)
  +		   (consp hello2)))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: 		     (fun gsm1))
  		  *e*)
  		 `(labels ((fun (gsm1) gsm1))
  		    (fun (hello1 hello2)))))
    ;; Test that an &OPTIONAL parameter of the local function shadows
    ;; the global symbol macro in the &KEY part of the lambda list of
    ;; the local function, but not in the body of the LABELS.
  
negative.code: 		  '(tagbody gsm1 (progn gsm1) gsm1 (progn gsm1))
  		  *e*)
  		 `(tagbody
  		   gsm1 (progn (consp hello2))
  		   gsm1 (progn (consp hello2))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  