[movitz-cvs] CVS update: movitz/losp/muerte/arrays.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv13719

Modified Files:
	arrays.lisp 
Log Message:
Minor edit.

Date: Tue Jun 29 16:21:28 2004
Author: ffjeld

Index: movitz/losp/muerte/arrays.lisp
diff -u movitz/losp/muerte/arrays.lisp:1.27 movitz/losp/muerte/arrays.lisp:1.28
--- movitz/losp/muerte/arrays.lisp:1.27	Wed Jun 23 03:15:10 2004
+++ movitz/losp/muerte/arrays.lisp	Tue Jun 29 16:21:28 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sun Feb 11 23:14:04 2001
 ;;;;                
-;;;; $Id: arrays.lisp,v 1.27 2004/06/23 10:15:10 ffjeld Exp $
+;;;; $Id: arrays.lisp,v 1.28 2004/06/29 23:21:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -122,7 +122,7 @@
      (assert (%basic-vector-has-fill-pointer-p vector) (vector)
        "Vector has no fill-pointer.")
      (%basic-vector-fill-pointer vector))
-    (vector
+    (old-vector
      (memref vector #.(bt:slot-offset 'movitz:movitz-vector 'movitz::fill-pointer) 0
 	     :unsigned-byte16))))