gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

fix to c2values in the absence of *mv-var*

-rwxr-xr-x

1 files changed, 3 insertions, 1 deletions

diff --git a/gcl/cmpnew/gcl_cmpmulti.lsp b/gcl/cmpnew/gcl_cmpmulti.lsp
index 097a374a2..58c14e56b 100755
--- a/gcl/cmpnew/gcl_cmpmulti.lsp
+++ b/gcl/cmpnew/gcl_cmpmulti.lsp

@@ -238,7 +238,9 @@

(in (list (inline-type (car types)) (flags) s (inline-args forms types))))

(unwind-exit in nil (cons 'values (length forms)))

(close-inline-blocks))

- (c2expr (car forms))))

+ (prog1 (c2expr (or (car forms) (c1nil)))

+ (let ((*value-to-go* 'trash))

+ (dolist (f (cdr forms)) (c2expr f))))))

;; (defun c2values (forms)

;; (if *mv-var*

generated by cgit v1.2.3 (git 2.25.1) at 2025年09月02日 01:15:04 +0000