Skip to content

Instantly share code, notes, and snippets.

@jollm
Created February 8, 2012 12:51
Show Gist options
  • Save jollm/1769130 to your computer and use it in GitHub Desktop.
Save jollm/1769130 to your computer and use it in GitHub Desktop.
(loop
(with-open-bus (bus (session-server-addresses))
(with-introspected-object (notify bus "/org/freedesktop/Notifications" "org.freedesktop.Notifications")
(notify "org.freedesktop.DBus.Introspectable" "Introspect")
(notify "org.freedesktop.Notifications" "GetCapabilities")
(notify "org.freedesktop.Notifications" "GetServerInformation"))
(format t "."))
(iolib.syscalls:usleep 500000))
;; this hung after about 10 minutes, code executing should reflect what's in death/dbus
;; The pattern is that it always fails waiting on "Introspect", complete data is in input buffer
;; still seems suspicious that it's always the same dbus message
;; Backtrace:
;; 0: ("bogus stack frame")
;; 1: (IOLIB.MULTIPLEX::DISPATCH-FD-EVENTS-ONCE #<event base, 1 FDs monitored, using: #<epoll(4) multiplexer> {1003353B73}> NIL 32171.51377643d0)
;; Locals:
;; SB-DEBUG::ARG-0 = #<event base, 1 FDs monitored, using: #<epoll(4) multiplexer> {1003353B73}>
;; SB-DEBUG::ARG-1 = NIL
;; SB-DEBUG::ARG-2 = 32171.51377643d0
;; 2: ((SB-PCL::FAST-METHOD IOLIB.MULTIPLEX:EVENT-DISPATCH (IOLIB.MULTIPLEX:EVENT-BASE)) ..)
;; Locals:
;; IOLIB.MULTIPLEX:EVENT-BASE = #<event base, 1 FDs monitored, using: #<epoll(4) multiplexer> {1003353B73}>
;; #:MAX-STEP-DEFAULTING-TEMP = NIL
;; #:MIN-STEP-DEFAULTING-TEMP = NIL
;; #:N-SUPPLIED-945 = NIL
;; #:N-SUPPLIED-946 = NIL
;; #:ONE-SHOT-DEFAULTING-TEMP = T
;; 3: ((SB-PCL::EMF IOLIB.MULTIPLEX:EVENT-DISPATCH) #<unused argument> #<unused argument> #<event base, 1 FDs monitored, using: #<epoll(4) multiplexer> {1003353B73}> :ONE-SHOT T)
;; Locals:
;; SB-PCL::.ARG0. = #<event base, 1 FDs monitored, using: #<epoll(4) multiplexer> {1003353B73}>
;; SB-PCL::.DFUN-MORE-CONTEXT. = 70368647343116
;; SB-PCL::.DFUN-MORE-COUNT. = 2
;; SB-DEBUG::MORE = (:ONE-SHOT T)
;; 4: ((SB-PCL::FAST-METHOD DBUS::WAIT-FOR-INCOMING-MESSAGE (STANDARD-CONNECTION T)) #<unused argument> #<unused argument> #<UNIX-CONNECTION {1003355DD3}> (ERROR-MESSAGE METHOD-RETURN-MESSAGE) 2)
;; Locals:
;; CONNECTION = #<UNIX-CONNECTION {1003355DD3}>
;; DBUS::MESSAGE-TYPES = (ERROR-MESSAGE METHOD-RETURN-MESSAGE)
;; DBUS::SERIAL = 2
;; 5: ((SB-PCL::FAST-METHOD WAIT-FOR-REPLY (T STANDARD-CONNECTION)) #<unavailable argument> #<unavailable argument> 2 #<UNIX-CONNECTION {1003355DD3}>)
;; Locals:
;; SB-DEBUG::ARG-0 = :<NOT-AVAILABLE>
;; SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
;; SB-DEBUG::ARG-2 = 2
;; SB-DEBUG::ARG-3 = #<UNIX-CONNECTION {1003355DD3}>
;; 6: (INVOKE-METHOD ..)
;; Locals:
;; #:ARGUMENTS-DEFAULTING-TEMP = NIL
;; #:ASYNCHRONOUS-DEFAULTING-TEMP = NIL
;; CONNECTION = #<UNIX-CONNECTION {1003355DD3}>
;; #:DESTINATION-DEFAULTING-TEMP = "org.freedesktop.Notifications"
;; #:ENDIANNESS-DEFAULTING-TEMP = :LITTLE-ENDIAN
;; #:INTERFACE-DEFAULTING-TEMP = "org.freedesktop.DBus.Introspectable"
;; MEMBER = "Introspect"
;; #:NO-AUTO-START-DEFAULTING-TEMP = NIL
;; #:NO-REPLY-DEFAULTING-TEMP = NIL
;; #:PATH-DEFAULTING-TEMP = "/org/freedesktop/Notifications"
;; #:SIGNATURE-DEFAULTING-TEMP = NIL
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment