Index: /trunk/ccl/level-1/l1-init.lisp
===================================================================
--- /trunk/ccl/level-1/l1-init.lisp	(revision 6016)
+++ /trunk/ccl/level-1/l1-init.lisp	(revision 6017)
@@ -276,12 +276,6 @@
 
 
-(defvar *open-file-streams-lock* (make-lock))
-(defvar *open-file-streams* nil)
-
-; Note: all the stream definitions have moved to l1-streams:
-; *terminal-io*, *standard-input*, *standard-output*, *pop-up-terminal-io*,
-; *error-output*, *trace-output*
-;
-; All the window definitions are in l1-windows & l1-edwin
+
+