From 3d8e8dfb00aedab9b327ee9af2e62535630c5977 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 8 Mar 2006 04:51:45 +0000
Subject: [PATCH] New gcl compiler bug involving multiple-value-setq

---
 ansi-tests/misc.lsp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 0159d4d1..88a4986a 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11242,3 +11242,9 @@ Broken at C::WT-MAKE-CLOSURE.
   :a)
 
 
+;;; gcl 2.7.0 (7 Mar 2006)
+;;; Wrong value -- NIL
+
+(deftest misc.632
+  (funcall (compile nil '(lambda () (let (b) (multiple-value-setq (b) 10)))))
+  10)
-- 
GitLab