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

Modified Files: compiler-types.lisp Log Message: Teach basic-typep about basic-vectors.

Date: Tue Jun 29 16:17:23 2004 Author: ffjeld

Index: movitz/compiler-types.lisp diff -u movitz/compiler-types.lisp:1.14 movitz/compiler-types.lisp:1.15 --- movitz/compiler-types.lisp:1.14 Wed Jun 9 10:18:36 2004 +++ movitz/compiler-types.lisp Tue Jun 29 16:17:22 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Sep 10 00:40:07 2003 ;;;; -;;;; $Id: compiler-types.lisp,v 1.14 2004/06/09 17:18:36 ffjeld Exp $ +;;;; $Id: compiler-types.lisp,v 1.15 2004/06/29 23:17:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -223,7 +223,7 @@ (symbol (typep x 'movitz-symbol)) ((vector array) - (typep x 'movitz-vector)) + (typep x '(or movitz-basic-vector movitz-vector))) (fixnum (typep x 'movitz-fixnum)) (bignum