[movitz-cvs] CVS update: movitz/losp/muerte/inspect.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Fri Jun 10 23:07:08 UTC 2005
Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv13134
Modified Files:
inspect.lisp
Log Message:
vector-u16 and vector-u32 are obsolete.
Date: Sat Jun 11 01:07:07 2005
Author: ffjeld
Index: movitz/losp/muerte/inspect.lisp
diff -u movitz/losp/muerte/inspect.lisp:1.53 movitz/losp/muerte/inspect.lisp:1.54
--- movitz/losp/muerte/inspect.lisp:1.53 Thu May 5 22:52:02 2005
+++ movitz/losp/muerte/inspect.lisp Sat Jun 11 01:07:07 2005
@@ -10,7 +10,7 @@
;;;; Author: Frode Vatvedt Fjeld <frodef at acm.org>
;;;; Created at: Fri Oct 24 09:50:41 2003
;;;;
-;;;; $Id: inspect.lisp,v 1.53 2005/05/05 20:52:02 ffjeld Exp $
+;;;; $Id: inspect.lisp,v 1.54 2005/06/10 23:07:07 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
@@ -388,13 +388,13 @@
(+ -1 object-location
(movitz-type-word-size 'movitz-basic-vector)
(* 2 (truncate (+ (array-dimension object 0) 7) 8)))))
- (vector-u16
+ ((simple-array (unsigned-byte 16) 1)
(<= object-location
location
(+ -1 object-location
(movitz-type-word-size 'movitz-basic-vector)
(* 2 (truncate (+ (array-dimension object 0) 3) 4)))))
- ((or vector-u32 simple-vector)
+ ((or simple-vector (simple-array (unsigned-byte 32) 1))
(<= object-location
location
(+ -1 object-location
More information about the Movitz-cvs
mailing list