anchor.diff:  		  (call-next-method ast
   				    (context (list (make-temp))
   					     successors
  -					     (invocation context)))))
  +					     invocation))))
   	     (t
   	      ;; We have at least one result.  In case there is more
   	      ;; than one, we generate a successor where all but the
  
positive.code: 				 (list temp)
  				 results
  				 (first successors)))
  			  (invocation context)))))
  	     ((null results)
  	      ;; We don't need the result.  This situation typically
  	      ;; happens when we compile a form other than the last of
  
negative.code: ;;; for satisfying the unfit context.
  (defmethod compile-ast :around ((ast cleavir-ast:one-value-ast-mixin) context)
    (with-accessors ((results results)
  		   (successors successors)
  		   (invocation invocation))
        context
      (ecase (length successors)
        (1
  