anchor.diff:  		(call-next-method ast
   				  (context (list (first results))
   					   (list successor)
  -					   (invocation context)))))))
  +					   invocation))))))
         (2
          ;; We have a context where a test of a Boolean is required.  We
          ;; create a new context where the result is compared to NIL
  
positive.code: ;;; for satisfying the unfit context.
  (defmethod compile-ast :around ((ast cleavir-ast:one-value-ast-mixin) context)
    (with-accessors ((results results)
  		   (successors successors))
        context
      (ecase (length successors)
        (1
  
negative.code: 		  (call-next-method ast
  				    (context (list (make-temp))
  					     successors
  					     invocation))))
  	     (t
  	      ;; We have at least one result.  In case there is more
  	      ;; than one, we generate a successor where all but the
  