[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