Warning for MULTIPLE-VALUE-CALL

I'm getting a warning for using MULTIPLE-VALUE-CALL as follows:


CL-USER 10 > (defun foo ()
               (multiple-value-call #'+ (foo1) (foo2)))
FOO

CL-USER 11 > (compile 'foo)
;;;*** Warning in FOO: (MULTIPLE-VALUE-CALL (FUNCTION +) (FOO1)
(FOO2)) Multi form multi-value-call is inefficient
FOO
((FOO #<STYLE-WARNING 216545FC>))
NIL



Is there a way to tell LispWorks that I don't want the warning?

I tried (DECLARE (OPTIMIZE (SPEED 0))) but that made no difference.


(I'm using LWW 4.3.7 if that makes any difference.)

______________________________
Simon Katz
sk@nomistech.com