From fd49f0fdbcea064a8f67729b28651f7f2dfdd831 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sat, 6 May 2006 08:20:42 +0000
Subject: [PATCH] Some declarations in sysfun.lsp have return type *. Interpret
 this as (VALUES &REST).

---
 src/cmp/cmpmulti.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpmulti.lsp b/src/cmp/cmpmulti.lsp
index 1e3f5a119..551f6158d 100644
--- a/src/cmp/cmpmulti.lsp
+++ b/src/cmp/cmpmulti.lsp
@@ -157,7 +157,7 @@
 
 (defun c1form-values-number (form)
   (let ((type (c1form-type form)))
-    (cond ((eq type 'T)
+    (cond ((or (eq type 'T) (eq type '*))
 	   (values 0 MULTIPLE-VALUES-LIMIT))
 	  ((or (atom type) (not (eq (first type) 'VALUES)))
 	   (values 1 1))