From e3cd7d58994ad71cb96a481f6403f305b31232ae Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Tue, 16 May 2006 16:51:17 +0000
Subject: [PATCH] (THE (VALUES ...) ...) now works

---
 src/CHANGELOG          | 3 +++
 src/cmp/cmpspecial.lsp | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index b91930222..36d713efa 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -201,6 +201,9 @@ ECL 0.9i
 	      (faa))))
    A form (FOO 3) produced 4 before the bug was fixed.
 
+ - The compiler now admits THE forms with type (VALUES ...), though they are
+   ignored.
+
 * Documentation:
 
  - The HTML manuals now use CSS for a more appealing look.
diff --git a/src/cmp/cmpspecial.lsp b/src/cmp/cmpspecial.lsp
index 50fc71e2a..714874dd8 100644
--- a/src/cmp/cmpspecial.lsp
+++ b/src/cmp/cmpspecial.lsp
@@ -23,7 +23,7 @@
 (defun c1the (args)
   (check-args-number 'THE args 2 2)
   (let* ((form (c1expr (second args)))
-	 (the-type (type-filter (first args)))
+	 (the-type (type-filter (first args) t))
 	 type)
     (cond ((and (consp the-type) (eq (first the-type) 'VALUES))
 	   (cmpwarn "Ignoring THE form with type ~A" the-type))