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

[Frode Vatvedt Fjeld]

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