Index: /trunk/ccl/level-1/l1-boot-2.lisp
===================================================================
--- /trunk/ccl/level-1/l1-boot-2.lisp	(revision 482)
+++ /trunk/ccl/level-1/l1-boot-2.lisp	(revision 483)
@@ -72,5 +72,4 @@
 (defvar *stdout* ())
 (defvar *stderr* ())
-(defvar *terminal-input-lock* ())
 
 ;;; The hard parts here have to do with setting up *TERMINAL-IO*.
@@ -124,7 +123,6 @@
   (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")))