anchor.diff:        (assert (= protocol-version 1))
         (list *endianness* msg-type flags protocol-version body-length serial))))
   
  -(defun dbus-close (con)
  -  (close (stream-of con)))
  -
  -
   ;;; EOF
  
positive.code:       ;; Cleanup
        (unless success
          (dbus-close con)))))
  
  ;;; Method calls
  
  
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
  