[movitz-cvs] CVS update: movitz/losp/los0-gc.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	los0-gc.lisp 
Log Message:
Make stop-and-copy work again: Use (simple-array ..) rather than vector-u32.

Date: Thu May  5 21:35:18 2005
Author: ffjeld

Index: movitz/losp/los0-gc.lisp
diff -u movitz/losp/los0-gc.lisp:1.52 movitz/losp/los0-gc.lisp:1.53
--- movitz/losp/los0-gc.lisp:1.52	Thu May  5 20:08:39 2005
+++ movitz/losp/los0-gc.lisp	Thu May  5 21:35:18 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Feb 21 17:48:32 2004
 ;;;;                
-;;;; $Id: los0-gc.lisp,v 1.52 2005/05/05 18:08:39 ffjeld Exp $
+;;;; $Id: los0-gc.lisp,v 1.53 2005/05/05 19:35:18 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -346,8 +346,8 @@
       (without-interrupts
 	(let* ((space0 (%run-time-context-slot 'nursery-space))
 	       (space1 (space-other space0)))
-	  (check-type space0 vector-u32)
-	  (check-type space1 vector-u32)
+	  (check-type space0 (simple-array (unsigned-byte 32) 1))
+	  (check-type space1 (simple-array (unsigned-byte 32) 1))
 	  (assert (eq space0 (space-other space1)))
 	  (assert (= 2 (space-fresh-pointer space1)))
 	  (setf (%run-time-context-slot 'nursery-space) space1)