anchor.diff:    (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)
  
positive.code:       (assert (= protocol-version 1))
        (list *endianness* msg-type flags protocol-version body-length serial))))
  
  (defun dbus-close (con)
    (close (stream-of con)))
  
  
  ;;; EOF
  
negative.code:     (assert (string= "REJECTED" response))
      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
  