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@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)