[usocket-devel] Fwd: [usocket-cvs] r423 - usocket/trunk/backend
Erik Huelsmann
ehuels at gmail.com
Fri Aug 8 21:11:21 UTC 2008
I made a huge number of broken commits before I finally got it to work
(at least for a simple case).
Could you check SBCL works with Hunchentoot now (on trunk)?
Thanks in advance!
Bye,
Erik.
---------- Forwarded message ----------
From: <ehuelsmann at common-lisp.net>
Date: Fri, Aug 8, 2008 at 11:08 PM
Subject: [usocket-cvs] r423 - usocket/trunk/backend
To: usocket-cvs at common-lisp.net
Author: ehuelsmann
Date: Fri Aug 8 17:08:41 2008
New Revision: 423
Modified:
usocket/trunk/backend/sbcl.lisp
Log:
Fix the fixed fix.
Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp (original)
+++ usocket/trunk/backend/sbcl.lisp Fri Aug 8 17:08:41 2008
@@ -334,8 +334,8 @@
(multiple-value-bind
(count err)
(sb-unix:unix-fast-select
- (1+ (reduce #'max (wait-list-%wait sockets))
- :key #'sb-bsd-sockets:socket-file-descriptor)
+ (1+ (reduce #'max (wait-list-%wait sockets)
+ :key #'sb-bsd-sockets:socket-file-descriptor))
(sb-alien:addr rfds) nil nil
(when timeout secs) musecs)
(if (null count)
_______________________________________________
usocket-cvs mailing list
usocket-cvs at common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-cvs
More information about the usocket-devel
mailing list