Skip to content

Instantly share code, notes, and snippets.

@jmercouris
Created June 10, 2019 11:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jmercouris/3c4f792cb7068b8d845a79161c06069d to your computer and use it in GitHub Desktop.
Save jmercouris/3c4f792cb7068b8d845a79161c06069d to your computer and use it in GitHub Desktop.
-----------------------------------------------------------------------------------
(defmethod open-connection (event-base (addresses list) &key (if-failed :error))
(with-if-failed-handler if-failed
(or (some (lambda (address)
(open-connection event-base address :if-failed nil))
addresses)
(error "No server addresses left to try to open."))))
-----------------------------------------------------------------------------------
No server addresses left to try to open.
[Condition of type SIMPLE-ERROR]
Restarts:
0: [ABORT] abort thread (#<THREAD "Anonymous thread" RUNNING {100796DEA3}>)
Backtrace:
0: ((LAMBDA NIL :IN DBUS/PROTOCOLS:OPEN-CONNECTION))
1: (DBUS/UTILS::CALL-WITH-IF-FAILED-HANDLER :ERROR #<CLOSURE (LAMBDA NIL :IN DBUS/PROTOCOLS:OPEN-CONNECTION) {1007E4947B}>)
2: ((:METHOD DBUS/PROTOCOLS:OPEN-CONNECTION (T LIST)) #<event base, 0 FDs monitored, using: #<kqueue(2) multiplexer> {1007A62983}> NIL :IF-FAILED :ERROR) [fast-method]
3: ((SB-PCL::EMF DBUS/PROTOCOLS:OPEN-CONNECTION) #<unused argument> #<unused argument> #<event base, 0 FDs monitored, using: #<kqueue(2) multiplexer> {1007A62983}> NIL :IF-FAILED :ERROR)
4: (DBUS/CONVENIENCE::CALL-WITH-OPEN-BUS #<CLOSURE (LAMBDA (NEXT::BUS) :IN INITIALIZE-INSTANCE) {1007B0BE3B}> #<event base, 0 FDs monitored, using: #<kqueue(2) multiplexer> {1007A62983}> NIL)
5: ((LAMBDA NIL :IN INITIALIZE-INSTANCE))
6: ((LAMBDA NIL :IN BORDEAUX-THREADS::BINDING-DEFAULT-SPECIALS))
7: ((FLET SB-UNIX::BODY :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
8: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
9: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
10: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX))
11: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE) {39FFD8B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD "..
12: (SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE #<SB-THREAD:THREAD "Anonymous thread" RUNNING {100796DEA3}> NIL #<CLOSURE (LAMBDA NIL :IN BORDEAUX-THREADS::BINDING-DEFAULT-SPECIALS) {100796DE4B}> NIL)
13: ("foreign function: call_into_lisp")
14: ("foreign function: new_thread_trampoline")
15: ("foreign function: _pthread_body")
16: ("foreign function: _pthread_start")
17: ("foreign function: thread_start")
--more--
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment