Changeset 5977

Timestamp:

Mar 2, 2007, 4:09:15 AM (18 years ago)

Author:

Gary Byers

Message:

New process class: TTY-LISTENER.

EXIT-INTERACTIVE-PROCESS: for most processes, just PROCESS-KILL. For
TTY-LISTENER, call QUIT.

File:

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

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

@@ -621 +621 @@
 
 (def-standard-initial-binding *backtrace-contexts* nil)
+
+(defmethod exit-interactive-process ((p process))
+  (unless (eq p *initial-process*)
+    (when (eq p *current-process*)
+      (process-kill p))))
+
+(defclass tty-listener (process)
+    ())
+
+(defmethod exit-interactive-process ((p tty-listener))
+  (when (eq p *current-process*)
+    (quit)))