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

Modified Files:
	los0-gc.lisp 
Log Message:
Say #\escape rather than #\esc, since that seems to be more generally acceptable.

Date: Thu Dec  9 00:39:51 2004
Author: ffjeld

Index: movitz/losp/los0-gc.lisp
diff -u movitz/losp/los0-gc.lisp:1.44 movitz/losp/los0-gc.lisp:1.45
--- movitz/losp/los0-gc.lisp:1.44	Fri Nov 26 15:59:18 2004
+++ movitz/losp/los0-gc.lisp	Thu Dec  9 00:39:51 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.44 2004/11/26 14:59:18 ffjeld Exp $
+;;;; $Id: los0-gc.lisp,v 1.45 2004/12/08 23:39:51 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -234,7 +234,7 @@
 	      (break "GC break.")
 	    (loop			; This is  a nice opportunity to poll the keyboard..
 	      (case (muerte.x86-pc.keyboard:poll-char)
-		((#\esc)
+		((#\escape)
 		 (break "Los0 GC keyboard poll."))
 		((nil)
 		 (return)))))))))
@@ -310,8 +310,8 @@
       (values))))
 
 
-(defparameter *x* #4000())		; Have this in static space.
-(defparameter *xx* #4000())		; Have this in static space.
+(defparameter *x* #4000(nil))		; Have this in static space.
+(defparameter *xx* #4000(nil))		; Have this in static space.
 
 
 (defun stop-and-copy (&optional evacuator)