(setf RESULT (read-message))
(if PAT (regex PAT RESULT 0) RESULT)))
-(define (char2hex STR)
- (join (map (curry format "%2x") (map char (explode STR)))))
-
(constant
'AUTHFMT "AUTH EXTERNAL %s\r\n"
'AUTHACK "OK (\\S+)\r\n"
(define (cancel)
(handshake "CANCEL\r\n" "(.*)"))
-"DbusConnection"
-
+"lsp-dbus-connection.lsp"