anchor.diff:  	    (itemize-declaration-specifiers
   	     (mapcar #'list variables)
   	     canonical-dspecs)
  -	  (cleavir-ast:make-progn-ast
  +	  (process-progn
   	   (append init-asts
   		   (list (process-remaining-let-bindings
   			  (mapcar #'cons variables temp-asts)
  
positive.code: 	      (not *current-form-is-top-level-p*))
  	  (if (or (member :execute situations)
  		  (member 'eval situations))
  	      (cleavir-ast:make-progn-ast
  	       (convert-sequence (cddr form) environment system))
  	      (convert nil environment system))
  	  (cond ((or (and (or (member :compile-toplevel situations)
  
negative.code: 
  (defmethod convert-setq
      ((info cleavir-env:lexical-variable-info) form env system)
    (process-progn 
     (list (cleavir-ast:make-setq-ast
  	  (cleavir-env:identity info)
  	  (convert form env system))
  