[lift-devel] BORDEAUX-THREADS:WITH-TIMEOUT, LIFT:WITH-TIMEOUT symbol conflict

[Gary King]

Hi again Marko,

I just send a patch to Greg Pfeil. The defpackage in the testsuite  
needs a shadowing-import-from to specific which with-timeout to use.

thanks again for the report,


On Jun 7, 2008, at 9:18 AM, Marko Tapio Manninen wrote:

> I thought this might interest, if it could be a cause of any  
> problems in future: (sbcl.17 with threads on macbook 10.5.3)
>
> USE-PACKAGE #<PACKAGE "BORDEAUX-THREADS"> causes name-conflicts
> in #<PACKAGE "BORDEAUX-THREADS-TEST"> between the following
> symbols:
>  BORDEAUX-THREADS:WITH-TIMEOUT, LIFT:WITH-TIMEOUT
>   [Condition of type NAME-CONFLICT]
> See also:
>  Common Lisp Hyperspec, 11.1.1.2.5 [:section]
>
> Restarts:
> 0: [RESOLVE-CONFLICT] Resolve conflict.
> 1: [TRY-RECOMPILING] Try recompiling bordeaux-threads-test
> 2: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL {13197741}> on  
> #<ASDF:CL-SOURCE-FILE "bordeaux-threads-test" {13197A09}>.
> 3: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {13197741}> on  
> #<ASDF:CL-SOURCE-FILE "bordeaux-threads-test" {13197A09}> as having  
> been successful.
> 4: [ABORT] Return to SLIME's top level.
> 5: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl- 
> thread" {1268F779}>)
>
> Backtrace:
>  0: (NAME-CONFLICT #<PACKAGE "BORDEAUX-THREADS-TEST"> USE-PACKAGE  
> #<PACKAGE "BORDEAUX-THREADS">)[:EXTERNAL]
>  1: ((FLET SB-THREAD::WITH-RECURSIVE-SPINLOCK-THUNK))
>  2: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE- 
> SPINLOCK]555))
>  3: (SB-THREAD::CALL-WITH-RECURSIVE-SPINLOCK #<CLOSURE (FLET SB- 
> THREAD::WITH-RECURSIVE-SPINLOCK-THUNK) {44FEE0D}> #S(SB- 
> THREAD::SPINLOCK :NAME "Package Lock" :VALUE #<SB-THREAD:THREAD  
> "repl-thread" {1268F779}>))
>  4: (USE-PACKAGE (#<PACKAGE "COMMON-LISP"> #<PACKAGE "BORDEAUX- 
> THREADS"> #<PACKAGE "LIFT">) #<PACKAGE "BORDEAUX-THREADS-TEST">)
>  5: (SB-IMPL::UPDATE-PACKAGE #<PACKAGE "BORDEAUX-THREADS-TEST"> NIL  
> NIL NIL NIL (#<PACKAGE "COMMON-LISP"> #<PACKAGE "BORDEAUX-THREADS">  
> #<PACKAGE "LIFT">) NIL NIL NIL ("BORDEAUX-THREADS-TEST") NIL NIL)
>  6: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-IMPL::%DEFPACKAGE "BORDEAUX- 
> THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...)  
> #<NULL-LEXENV>)
>  7: ((FLET SB-C::DEFAULT-PROCESSOR) (SB-IMPL::%DEFPACKAGE "BORDEAUX- 
> THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...))
>  8: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFPACKAGE "BORDEAUX- 
> THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...)  
> ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL:: 
> %DEFPACKAGE "BORDEAUX-THREADS-TEST" # # # # ...)) SB-C::ORIGINAL- 
> SOURCE-START 0 0) (:COMPILE-TOPLEVEL))
>  9: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-IMPL::%DEFPACKAGE "BORDEAUX- 
> THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...))  
> ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL:: 
> %DEFPACKAGE "BORDEAUX-THREADS-TEST" # # # # ...)) SB-C::ORIGINAL- 
> SOURCE-START 0 0) (:COMPILE-TOPLEVEL))
> 10: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD- 
> TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE "BORDEAUX-THREADS- 
> TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...)) (SB- 
> C::ORIGINAL-SOURCE-START 0 0) NIL)
> 11: ((FLET SB-C::DEFAULT-PROCESSOR) (DEFPACKAGE BORDEAUX-THREADS- 
> TEST (:USE #:CL #:BORDEAUX-THREADS #:LIFT)))
> 12: (SB-C::PROCESS-TOPLEVEL-FORM (DEFPACKAGE BORDEAUX-THREADS-TEST  
> (:USE #:CL #:BORDEAUX-THREADS #:LIFT)) (SB-C::ORIGINAL-SOURCE-START  
> 0 0) NIL)
> 13: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
> 14: ((LAMBDA NIL))
> 15: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {1299117D}>) 
> [:EXTERNAL]
> 16: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
> 17: (COMPILE-FILE #P"/Users/mmstud/lisp/libs/bordeaux-threads/test/ 
> bordeaux-threads-test.lisp")[:EXTERNAL]
> 18: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL- 
> SOURCE-FILE)) #<unavailable argument> #<unavailable argument>  
> #<ASDF:COMPILE-OP NIL {13197741}> #<ASDF:CL-SOURCE-FILE "bordeaux- 
> threads-test" {13197A09}>)
> 19: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.  
> SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument>  
> #<ASDF:COMPILE-OP NIL {13197741}> #<ASDF:CL-SOURCE-FILE "bordeaux- 
> threads-test" {13197A09}>)
> 20: ((SB-PCL::FAST-METHOD ASDF:PERFORM :AROUND (ASDF:COMPILE-OP  
> ASDF:CL-SOURCE-FILE)) #<unavailable argument> #S(SB-PCL::FAST-METHOD- 
> CALL :FUNCTION #<CLOSURE (LAMBDA #) {1297BA15}> :PV NIL :NEXT-METHOD- 
> CALL NIL :ARG-INFO (2)) #<ASDF:COMPILE-OP NIL {13197741}> #<ASDF:CL- 
> SOURCE-FILE "bordeaux-threads-test" {13197A09}>)
> 21: ((LAMBDA NIL))
> 22: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
> 23: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]522))
> 24: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB- 
> THREAD::WITH-RECURSIVE-LOCK-THUNK) {44FF6CD}> #S(SB- 
> THREAD:MUTEX :NAME "big compiler lock" :%OWNER #<SB-THREAD:THREAD  
> "repl-thread" {1268F779}> :LUTEX #<unknown pointer object,  
> widetag=#x5E {1049A027}>))
> 25: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {12A0C9DD}>) 
> [:EXTERNAL]
> 26: (ASDF:OPERATE ASDF:LOAD-OP :BORDEAUX-THREADS-TEST)[:EXTERNAL]
> 27: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF:OOS (QUOTE ASDF:LOAD- 
> OP) :BORDEAUX-THREADS-TEST) #<NULL-LEXENV>)
> 28: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op :bordeaux-threads- 
> test)
>     ")
> 29: ((LAMBDA NIL))
> _______________________________________________
> lift-devel mailing list
> lift-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/lift-devel

--
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM