Changeset 483

Timestamp:

Feb 6, 2004, 11:40:35 AM (21 years ago)

Author:

Gary Byers

Message:

Replace *TERMINAL-INPUT-LOCK* with the new shared-resource scheme.

File:

• trunk/ccl/level-1/l1-boot-2.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-boot-2.lisp

@@ -72 +72 @@
 (defvar *stdout* ())
 (defvar *stderr* ())
-(defvar *terminal-input-lock* ())
 
 ;;; The hard parts here have to do with setting up *TERMINAL-IO*.
@@ -124 +123 @@
   (setq *trace-output* *standard-output*)
   (push *terminal-output* *auto-flush-streams*)
-  (let* ((lock (ioblock-inbuf-lock (stream-ioblock *terminal-input*))))
-    (%lock-recursive-lock (recursive-lock-ptr lock))
-    (setq *terminal-input-lock* lock)))
+  (setf (input-stream-shared-resource *terminal-input*)
+        (make-shared-resource "Shared Terminal Input")))