projects
/
rrq
/
lsp-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Simplifying importing with pointer-pointer return.
[rrq/lsp-utils.git]
/
lsp-dbus
/
lsp-dbus-connection.lsp
diff --git
a/lsp-dbus/lsp-dbus-connection.lsp
b/lsp-dbus/lsp-dbus-connection.lsp
index f09381bf345f48a4a004a38b3fef840156f48895..73e96728f3581f577c23953f368ec82219f9ea74 100644
(file)
--- a/
lsp-dbus/lsp-dbus-connection.lsp
+++ b/
lsp-dbus/lsp-dbus-connection.lsp
@@
-58,9
+58,6
@@
(setf RESULT (read-message))
(if PAT (regex PAT RESULT 0) RESULT)))
(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"
(constant
'AUTHFMT "AUTH EXTERNAL %s\r\n"
'AUTHACK "OK (\\S+)\r\n"
@@
-82,5
+79,4
@@
(define (cancel)
(handshake "CANCEL\r\n" "(.*)"))
(define (cancel)
(handshake "CANCEL\r\n" "(.*)"))
-"DbusConnection"
-
+"lsp-dbus-connection.lsp"