Changeset 513

Timestamp:

Feb 9, 2004, 8:26:41 AM (21 years ago)

Author:

Gary Byers

Message:

ABORT-BREAK restart around process's initial function.

File:

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

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

@@ -296 +296 @@
                       (setq exited t)
                       nil)
+                    (abort-break ())
                     (abort () (setq exited t)))
                  (process-reset (condition)
@@ -302 +303 @@
     ;; exit prematurely, or are being reset and should enter the
     ;; "awaiting preset" state.
-    (if (or kill exited)
+    (if (or kill exited) 
       (unless (eq kill :toplevel)
         (process-initial-form-exited process (or kill t)))