[Openmcl-cvs-notifications] r7905 - /trunk/ccl/level-1/l1-readloop.lisp

[gz at clozure.com]

Author: gz
Date: Thu Dec 13 12:59:30 2007
New Revision: 7905

Log:
Use defloadvar for *quitting* (needed because of changeset #7699)

Modified:
    trunk/ccl/level-1/l1-readloop.lisp

Modified: trunk/ccl/level-1/l1-readloop.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/level-1/l1-readloop.lisp (original)
+++ trunk/ccl/level-1/l1-readloop.lisp Thu Dec 13 12:59:30 2007
@@ -123,7 +123,7 @@
 	(process-kill cp)))))
 =

 =

-(defglobal *quitting* nil)
+(defloadvar *quitting* nil)
 =

 =

 (defun prepare-to-quit (&optional part)