Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv2625 Modified Files: inspect.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:20 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.12 movitz/losp/muerte/inspect.lisp:1.13 --- movitz/losp/muerte/inspect.lisp:1.12 Thu Jun 17 02:49:18 2004 +++ movitz/losp/muerte/inspect.lisp Wed Jul 7 10:37:20 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.12 2004/06/17 09:49:18 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.13 2004/07/07 17:37:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -245,7 +245,7 @@ (+ -1 object-location #.(movitz::movitz-type-word-size :movitz-funobj) (funobj-num-constants object)))) - ((or vector-u8 string) + ((or vector-u8 string code-vector) (<= object-location location (+ -1 object-location