April 2009 - bordeaux-threads-devel - mailman3.common-lisp.net

[Bordeaux-threads-devel] sbcl timeout fix
by Attila Lendvai 09 Sep '09

09 Sep '09

please find a fix attached. Tue Nov 18 20:36:34 CET 2008 attila.lendvai(a)gmail.com * fix sbcl timeout condition: export the sb-ext:timeout symbol from the bordeaux-threads package -- attila

1 1

[Bordeaux-threads-devel] JOIN-THREAD for OpenMCL
by Volkan YAZICI 20 Apr '09

20 Apr '09

Hi, Why `JOIN-THREAD' is not available for OpenMCL platform while there is a function like `JOIN-PROCESS'[1]. Am I missing something? Regards. [1] http://openmcl.clozure.com/manual/chapter6.7.html#f_join-process

2 1

[Bordeaux-threads-devel] SBCL and Conditional Waits
by Volkan YAZICI 13 Apr '09

13 Apr '09

Hi, While playing with conditional waits, SBCL complains about an assertion pasted below. I don't know if it's an expected behaviour or not. Any ideas? Regards. (asdf:oos 'asdf:load-op 'bordeaux-threads) (defpackage :btt (:use :cl)) (in-package :btt) (defun thread-body (stream cond-var lock-var) (format stream "WAITING... (~S)~%" (bt:current-thread)) (bt:condition-wait cond-var lock-var) (format stream "NOTIFIED! (~S)~%" (bt:current-thread))) (defun test-condition-variables (n-threads) (let* ((cond-var (bt:make-condition-variable)) (lock-var (bt:make-lock)) (stream *trace-output*) (threads (loop repeat n-threads collect (bt:make-thread (lambda () (thread-body stream cond-var lock-var)))))) (sleep 10.0) ; The assertion (EQ SB-THREAD::ME ; (SB-THREAD::MUTEX-%OWNER SB-THREAD:MUTEX)) failed. ; [Condition of type SIMPLE-ERROR] ; ; Restarts: ; 0: [CONTINUE] Retry assertion. ; 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "Anonymous" RUNNING {10027AAE21}>) ; ; Backtrace: ; 0: (SB-KERNEL:ASSERT-ERROR (EQ SB-THREAD::ME (SB-THREAD::MUTEX-%OWNER SB-THREAD:MUTEX)) NIL NIL)[:EXTERNAL] ; 1: (SB-THREAD:CONDITION-WAIT #S(SB-THREAD:WAITQUEUE :NAME NIL :DATA NIL) #S(SB-THREAD:MUTEX :NAME NIL :%OWNER NIL :STATE 0)) ; 2: (SB-THREAD:CONDITION-WAIT #S(SB-THREAD:WAITQUEUE :NAME NIL :DATA NIL) #S(SB-THREAD:MUTEX :NAME NIL :%OWNER NIL :STATE 0))[:EXTERNAL] ; 3: (BTT::THREAD-BODY #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1002ACA601}> #S(SB-THREAD:WAITQUEUE :NAME NIL :DATA NIL) #S(SB-THREAD:MUTEX :NAME NIL :%OWNER NIL :STATE 0)) ; 4: ((LAMBDA ())) ; 5: ((FLET SB-THREAD::WITH-MUTEX-THUNK)) ; 6: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-MUTEX]478)) ; 7: (SB-THREAD::CALL-WITH-MUTEX ..) ; 8: ((LAMBDA ())) ; 9: ("foreign function: #x41F1B2") ; 10: ("foreign function: #x4165CA") ; --more-- (format stream "Notifying...~%") (bt:condition-notify cond-var) (dolist (thread threads) (format stream "~:[Active Thread: ~S~;Inactive Thread: ~S~]~%" (bt:thread-alive-p thread) thread) (when (bt:thread-alive-p thread) (bt:destroy-thread thread))) (format stream "Exiting...~%")))

1 1

[Bordeaux-threads-devel] darcs patch: Don't pass nil initial-bindings for new threads on Clo...
by asf＠boinkor.net 11 Apr '09

11 Apr '09

Sat Apr 11 11:05:49 CEST 2009 asf(a)boinkor.net * Don't pass nil initial-bindings for new threads on Clozure CL. Clozure CL /really/ doesn't like having no initial bindings in a thread. Passing this option causes essential bindings to not get transported to a new thread, see http://clozure.com/pipermail/openmcl-devel/2009-April/009125.html and the remaining thread for details.

1 0

[Bordeaux-threads-devel] patch for binding-default-specials
by Brian O'Reilly 07 Apr '09

07 Apr '09

Gustavo's patch to change binding-default-specials breaks Uncommon Web's internal httpd during startup:: The value #\T is not of type LIST. [Condition of type TYPE-ERROR] Restarts: 0: [RETRY] Retry SLIME REPL evaluation request. 1: [ABORT] Return to SLIME's top level. 2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" RUNNING {B1FEE61}>) Backtrace: 0: (CAR #\T)[:EXTERNAL] 1: (SB-IMPL::VECTOR-REMOVE-DUPLICATES* ..) 2: (REMOVE-DUPLICATES ..)[:EXTERNAL] 3: (BORDEAUX-THREADS::BINDING-DEFAULT-SPECIALS ..) 4: (BORDEAUX-THREADS:MAKE-THREAD #<CLOSURE (LAMBDA #) {B93E0D5}>)[:EXTERNAL] 5: (IT.BESE.UCW.CORE::MAKE-HTTPD-CONTROLLER #<HTTPD-BACKEND :host 0.0.0.0 :port 9999 {A944501}>) 6: ((SB-PCL::FAST-METHOD IT.BESE.UCW.CORE::STARTUP-BACKEND (HTTPD-BACKEND)) #<unavailable argument> #<unavail$ 7: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT. $ 8: ((SB-PCL::FAST-METHOD STARTUP-SERVER (STANDARD-SERVER)) #<unavailable argument> #<unavailable argument> #<$ 9: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]477)) 10: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK ..) 11: ((SB-PCL::FAST-METHOD STARTUP-SERVER :AROUND (STANDARD-SERVER)) ..) 12: (SB-INT:SIMPLE-EVAL-IN-LEXENV (STARTUP-KTOUR) #<NULL-LEXENV>) 13: (SWANK::EVAL-REGION "(startup-ktour)\n") 14: ((LAMBDA ())) 15: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {B68771D}>) 16: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA #) {B6876AD}>) 17: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA #) {B687695}>) 18: (SWANK::REPL-EVAL "(startup-ktour)\n") 19: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(startup-ktour)\n") #<NULL-LEXENV>) 20: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(startup-ktour)\n") "KINSASHA" 11) 21: (SWANK::PROCESS-REQUESTS NIL) 22: ((LAMBDA ())) 23: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA$ 24: (SWANK::CALL-WITH-BINDINGS ..) 25: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {ADDCA71}> #<CLOSURE (LAMBDA #) {B2080BD}>) 26: (SWANK::HANDLE-REQUESTS #<SWANK::CONNECTION {ADDCA71}> NIL) 27: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA #) {B208095}>) 28: ((FLET #:WITHOUT-INTERRUPTS-BODY-[G859]865)) 29: ((FLET SB-THREAD::WITH-MUTEX-THUNK)) 30: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-MUTEX]446)) 31: (SB-THREAD::CALL-WITH-MUTEX ..) 32: ((LAMBDA ())) 33: ("foreign function: #x8066A1C") 34: ("foreign function: #x8052DCD") 35: ("foreign function: #x805DAEB") 36: ("foreign function: #xB7FC54C0") Backing out the following patches makes things functional again: Mon Mar 30 09:47:23 EDT 2009 Stelian Ionescu <sionescu(a)common-lisp.net> * *default-special-bindings* now defaults to NIL, move I/O bindings to *standard-io-bindings*. Mon Mar 30 09:25:06 EDT 2009 Stelian Ionescu <sionescu(a)common-lisp.net> * Use forms(and EVAL) instead of funtions to yield values for thread-local bindings. Sat Mar 21 19:29:26 EDT 2009 Stelian Ionescu <sionescu(a)common-lisp.net> * Clean bordeaux-threads.asd up. Sat Mar 14 11:31:08 EDT 2009 Gustavo <gugamilare(a)gmail.com> * Fix use of REMOVE-DUPLICATES in BINDING-DEFAULT-SPECIALS. ... pretty sure it's a case of the computer doing what you say and not what you mean, but at any rate, I thought I should let you folks know. Kind Regards., Brian O'Reilly DeepSky Systems/Walled Networks.

2 2

[Bordeaux-threads-devel] [PATCH] :use-standard-initial-bindings in OpenMCL/Clozure
by Stephen Compall 05 Apr '09

05 Apr '09

:use-standard-initial-bindings must be passed as part of the first argument, not in the &rest args, as explained in http://trac.clozure.com/openmcl/ticket/450#comment:2 Patch attached. -- Sorry but you say Nibiru is a Hoax? Doesnt Exist? So maybe The Sumerian people doesnt exist also! --Anonymous by way of SkI

2 1