[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-serv10842

Modified Files:
	los0-gc.lisp 
Log Message:
Some tweaking of the scope of *gc-running*.

Date: Tue Jul 27 06:53:33 2004
Author: ffjeld

Index: movitz/losp/los0-gc.lisp
diff -u movitz/losp/los0-gc.lisp:1.32 movitz/losp/los0-gc.lisp:1.33
--- movitz/losp/los0-gc.lisp:1.32	Fri Jul 23 09:44:07 2004
+++ movitz/losp/los0-gc.lisp	Tue Jul 27 06:53:33 2004
@@ -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.32 2004/07/23 16:44:07 ffjeld Exp $
+;;;; $Id: los0-gc.lisp,v 1.33 2004/07/27 13:53:33 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -292,15 +292,15 @@
 	(let ((*gc-running* t))
 	  (unless *gc-quiet*
 	    (format t "~&;; GC.. "))
-	  (stop-and-copy)
-	  (if *gc-break*
-	      (break "GC break.")
-	    (loop			; This is  a nice opportunity to poll the keyboard..
-	      (case (muerte.x86-pc.keyboard:poll-char)
-		((#\esc)
-		 (break "Los0 GC keyboard poll."))
-		((nil)
-		 (return)))))))))
+	  (stop-and-copy))
+	(if *gc-break*
+	    (break "GC break.")
+	  (loop				; This is  a nice opportunity to poll the keyboard..
+	    (case (muerte.x86-pc.keyboard:poll-char)
+	      ((#\esc)
+	       (break "Los0 GC keyboard poll."))
+	      ((nil)
+	       (return))))))))
   (let* ((actual-duo-space (or duo-space
 			       (allocate-duo-space (* kb-size #x100))))
 	 (last-location (object-location (cons 1 2))))