Changeset 479

Timestamp:

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

Author:

Gary Byers

Message:

TOPLEVEL-FUNCTION manages the "shared resource" attached to the
shared terminal-input stream.

File:

• trunk/ccl/level-1/l1-readloop.lisp (modified) (4 diffs)

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

@@ -316 +316 @@
 
   
-;;; Process the "help" option, report parsing errors.
+;;; Process the "help" and "version" options, report parsing errors.
 (defmethod process-application-arguments ((a application) error-flag opts args)
   (declare (ignore args))
@@ -435 +435 @@
 (defmethod toplevel-function ((a lisp-development-system) init-file)
   (call-next-method)
-  (let* ((lockptr (recursive-lock-ptr *terminal-input-lock*)))
+  (let* ((sr (input-stream-shared-resource *terminal-input*)))
     (make-mcl-listener-process
      "listener"
      *terminal-input*
      *terminal-output*
-     #'(lambda () (%unlock-recursive-lock lockptr))
+     #'(lambda () (when sr (setf (shared-resource-primary-owner sr)
+                                 *initial-process*)))
      #'(lambda ()
-         (%lock-recursive-lock lockptr)
          (setq *interactive-abort-process*
                *current-process*)
@@ -448 +448 @@
          (listener-function)
          nil)
-     nil)
-    (%unlock-recursive-lock lockptr))
+     nil))
   (%set-toplevel #'(lambda ()
                      (loop
@@ -456 +455 @@
   (toplevel))
 
-(defmethod application-file-creator ((app lisp-development-system))
-  *ccl-file-creator*)
+
 
 (defmethod application-init-file ((app lisp-development-system))