Browse files

Reorganize stuff.

  • Loading branch information...
1 parent b36a914 commit c2e911201c8a0d84af67ccaf66e938b2ccbad93b @blitz committed Jan 27, 2010
Showing with 7 additions and 4 deletions.
  1. +7 −4 network.lisp
View
11 network.lisp
@@ -9,6 +9,8 @@
(stream))
(defun accepted-methods (stream)
+ "Return a list of names of accepted authentication methods (as
+strings)."
(format-crlf stream "AUTH")
(finish-output stream)
(destructuring-bind (response . rest)
@@ -17,6 +19,9 @@
rest))
+(defun dbus-close (con)
+ (close (stream-of con)))
+
(defun dbus-connect (&optional (address :session))
"Returns a DBUS connection to the given ADDRESS. ADDRESS is either a
symbol (:SESSION or :SYSTEM) or a string containing a DBUS
@@ -57,6 +62,8 @@ address. Defaults to :SESSION."
(unless success
(dbus-close con)))))
+
+
;;; Method calls
;; (defvar *endianness* :little-endian)
@@ -265,8 +272,4 @@ address. Defaults to :SESSION."
(assert (= protocol-version 1))
(list *endianness* msg-type flags protocol-version body-length serial))))
-(defun dbus-close (con)
- (close (stream-of con)))
-
-
;;; EOF

0 comments on commit c2e9112

Please sign in to comment.