anchor.diff:  ;;; for satisfying the unfit context.
   (defmethod compile-ast :around ((ast cleavir-ast:one-value-ast-mixin) context)
     (with-accessors ((results results)
  -		   (successors successors))
  +		   (successors successors)
  +		   (invocation invocation))
         context
       (ecase (length successors)
         (1
  
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: 		  (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
  