Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv23008
Modified Files: inspect.lisp Log Message: Minor edit.
Date: Thu Jul 8 08:23:15 2004 Author: ffjeld
Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.13 movitz/losp/muerte/inspect.lisp:1.14 --- movitz/losp/muerte/inspect.lisp:1.13 Wed Jul 7 10:37:20 2004 +++ movitz/losp/muerte/inspect.lisp Thu Jul 8 08:23:15 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.13 2004/07/07 17:37:20 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.14 2004/07/08 15:23:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -245,7 +245,7 @@ (+ -1 object-location #.(movitz::movitz-type-word-size :movitz-funobj) (funobj-num-constants object)))) - ((or vector-u8 string code-vector) + ((or string code-vector (simple-array (unsigned-byte 8))) (<= object-location location (+ -1 object-location