- (while (net-select (%socket) "r" 1000)
- (net-receive (%socket) BUFFER 8192)
- (extend RESULT BUFFER))
+ (while (and RESULT (net-select (%socket) "r" 1000))
+ (if (net-receive (%socket) BUFFER 8192)
+ (extend RESULT BUFFER)
+ (begin
+ (setf RESULT nil)
+ (die 1 "dbus socket closed"))
+ ))