[movitz-cvs] CVS update: movitz/compiler-types.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv7413

Modified Files:
	compiler-types.lisp 
Log Message:
Slight improvement of type-specifier-nth-value.

Date: Mon Jun  7 15:09:24 2004
Author: ffjeld

Index: movitz/compiler-types.lisp
diff -u movitz/compiler-types.lisp:1.12 movitz/compiler-types.lisp:1.13
--- movitz/compiler-types.lisp:1.12	Sun Apr 18 17:29:35 2004
+++ movitz/compiler-types.lisp	Mon Jun  7 15:09:24 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Sep 10 00:40:07 2003
 ;;;;                
-;;;; $Id: compiler-types.lisp,v 1.12 2004/04/19 00:29:35 ffjeld Exp $
+;;;; $Id: compiler-types.lisp,v 1.13 2004/06/07 22:09:24 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -45,9 +45,10 @@
 	 ((< number (length reqs))
 	  (nth number reqs))
 	 ((< number (+ (length reqs) (length opts)))
-	  `(or null ,(nth (- number (length reqs)) opts)))
+	  (let ((x (nth (- number (length reqs)) opts)))
+	    (if (eq x t) t `(or null ,x))))
 	 (rest
-	  `(or null ,rest))
+	  (if (eq rest t) t `(or null ,rest)))
 	 (t 'null))))))
 
 (defun type-specifier-primary (type-specifier)