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

[Marko Tapio Manninen]

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))