Index: /trunk/ccl/level-1/l1-processes.lisp
===================================================================
--- /trunk/ccl/level-1/l1-processes.lisp	(revision 5976)
+++ /trunk/ccl/level-1/l1-processes.lisp	(revision 5977)
@@ -621,2 +621,14 @@
 
 (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)))