From 277e9c4dd8826ec187d00cf3987fdfc3f7b359e7 Mon Sep 17 00:00:00 2001 From: Alejandro Zamora Date: Fri, 20 Dec 2024 16:24:26 -0300 Subject: [PATCH] - potential fix to #690 --- src/org/armedbear/lisp/compiler-pass2.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/org/armedbear/lisp/compiler-pass2.lisp b/src/org/armedbear/lisp/compiler-pass2.lisp index 4557e3eca..83e487ded 100644 --- a/src/org/armedbear/lisp/compiler-pass2.lisp +++ b/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)))))