compiler: (alejandro) fix bug noted by Samuel Ward December 2024

<>
  :closes <armedbear#690>;
  rdfs:seeAlso
  <https://mailman3.common-lisp.net/hyperkitty/list/armedbear-devel@lists.common-lisp.net/thread/TZO5ZOTODY5TF47SBNT3UQGN54UT3GNW/> .

Author: Alejandro Zamora

src/org/armedbear/lisp/compiler-pass2.lisp

@@ -5627,8 +5627,7 @@ We need more thought here.
                  (apply #'maybe-emit-clear-values args)
                  (emit-move-from-stack target representation))
                (progn
-                 (unless (every 'single-valued-p args)
-                   (emit-clear-values))
+                 (emit-clear-values)
                  (emit-move-from-stack target))))
           (t
            (compile-function-call form target representation)))))