Changeset 12587
- Timestamp:
- 04/09/10 23:10:42 (14 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/LispThread.java
r12513 r12587 73 73 private boolean threadInterrupted; 74 74 private LispObject pending = NIL; 75 private Symbol wrapper = 76 PACKAGE_THREADS.intern("THREAD-FUNCTION-WRAPPER"); 75 77 76 78 LispThread(Thread javaThread) … … 86 88 { 87 89 try { 88 funcall(fun, new LispObject[0], LispThread.this); 90 funcall(wrapper, 91 new LispObject[] { fun }, 92 LispThread.this); 89 93 } 90 94 catch (ThreadDestroyed ignored) { -
trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
r12583 r12587 319 319 (in-package "THREADS") 320 320 321 322 (autoload '(;; Mailbox 321 (autoload '(;; MAKE-THREAD helper 322 thread-function-wrapper 323 324 ;; Mailbox 323 325 make-mailbox mailbox-send mailbox-empty-p 324 326 mailbox-read mailbox-peek -
trunk/abcl/src/org/armedbear/lisp/debug.lisp
r12157 r12587 95 95 (simple-format *debug-io* 96 96 (if (fboundp 'tpl::repl) 97 "Debugger invoked on condition of type ~A:~%" 98 "Unhandled condition of type ~A:~%") 97 "~S: Debugger invoked on condition of type ~A~%" 98 "~S: Unhandled condition of type ~A:~%") 99 (threads:current-thread) 99 100 (type-of condition)) 100 101 (simple-format *debug-io* " ~A~%" condition))))) -
trunk/abcl/src/org/armedbear/lisp/threads.lisp
r12213 r12587 33 33 (in-package #:threads) 34 34 35 36 ;; 37 ;; MAKE-THREAD helper to establish restarts 38 ;; 39 40 (defun thread-function-wrapper (fun) 41 (restart-case 42 (funcall fun) 43 (abort () :report "Abort thread."))) 35 44 36 45 ;;
Note: See TracChangeset
for help on using the changeset viewer.