Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv6822
Modified Files: basic-macros.lisp Log Message: These checkins more or less complete the migration to the new basic-vector data-structure. All traces of the old vector structure should be gone.
Date: Wed Jul 7 10:37:30 2004 Author: ffjeld
Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.24 movitz/losp/muerte/basic-macros.lisp:1.25 --- movitz/losp/muerte/basic-macros.lisp:1.24 Wed Jun 9 12:35:22 2004 +++ movitz/losp/muerte/basic-macros.lisp Wed Jul 7 10:37:30 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.24 2004/06/09 19:35:22 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.25 2004/07/07 17:37:30 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -557,7 +557,7 @@ nil) (t (if (member type '(standard-gf-instance function pointer atom integer fixnum positive-fixnum cons symbol character null list - string vector simple-vector vector-u8 vector-u16)) + string vector simple-vector vector-u8 vector-u16 code-vector)) `(unless (typep ,place ',type) (with-inline-assembly (:returns :non-local-exit) (:int 66)))