Changeset 6017

Timestamp:

Mar 8, 2007, 10:58:43 PM (18 years ago)

Author:

Gary Byers

Message:

Lose *OPEN-FILE-STREAMS* and the lock associated with it.

File:

• trunk/ccl/level-1/l1-init.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-init.lisp

@@ -276 +276 @@
 
 
-(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
+
+