anchor.diff:        ;; Cleanup
         (unless success
           (dbus-close con)))))
  +
  +
   
   ;;; Method calls
   
  
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:   (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)
  