[movitz-cvs] CVS update: movitz/losp/muerte/typep.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	typep.lisp 
Log Message:
Recognize "array" as the same as "simple-array".

Date: Wed Jul 21 05:49:24 2004
Author: ffjeld

Index: movitz/losp/muerte/typep.lisp
diff -u movitz/losp/muerte/typep.lisp:1.28 movitz/losp/muerte/typep.lisp:1.29
--- movitz/losp/muerte/typep.lisp:1.28	Wed Jul 21 05:28:15 2004
+++ movitz/losp/muerte/typep.lisp	Wed Jul 21 05:49:24 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  8 11:07:53 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: typep.lisp,v 1.28 2004/07/21 12:28:15 ffjeld Exp $
+;;;; $Id: typep.lisp,v 1.29 2004/07/21 12:49:24 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -268,7 +268,7 @@
 		(if deriver-function
 		    `(typep ,object ',(apply deriver-function (cdr type)))
 		  (case (car type)
-		    ((simple-array)
+		    ((simple-array array)
 		     (let ((et (second type))
 			   (dim (if (listp (third type))
 				    (length (third type))
@@ -401,10 +401,6 @@
 		    (t (warn "compiling typep ~S [~A]" type
 			     (package-name (symbol-package (car type))))))))))
 	    form)))))
-
-#+ignore
-(defun foo (x)
-  (typep x '(simple-array (unsigned-byte 4))))
 
 (defmacro define-typep (tname lambda &body body)
   (let ((fname (format nil "~A-~A" 'typep tname)))