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