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)))