Changeset 13101 for trunk/source/level-1/l1-processes.lisp
- Timestamp:
- Oct 27, 2009, 10:24:02 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-processes.lisp
r13067 r13101 639 639 (with-standard-abort-handling "Exit Lisp" 640 640 (prepare-to-quit) 641 (fresh-line *stdout*) 642 (finish-output *stdout*)) 641 ;; We may have abruptly terminated a thread 642 ;; which owned the output lock on *STDOUT*. 643 ;; Don't block waiting on that lock if so. 644 (let* ((s *stdout*) 645 (lock (ioblock-outbuf-lock (basic-stream-ioblock s))) 646 (locked (make-lock-acquisition))) 647 (declare (dynamic-extent locked)) 648 (when (or (null lock) (%try-recursive-lock-object lock locked)) 649 (unwind-protect 650 (progn 651 (fresh-line s) 652 (finish-output s))) 653 (when (lock-acquisition.status locked) (release-lock lock))))) 643 654 (%set-toplevel thunk) 644 655 (toplevel)))
Note: See TracChangeset
for help on using the changeset viewer.