[usocket-cvs] r380 - usocket/branches/new-wfi/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Jul 23 16:54:57 2008
New Revision: 380

Modified:
   usocket/branches/new-wfi/backend/armedbear.lisp
Log:
Fix ABCL backend.

Modified: usocket/branches/new-wfi/backend/armedbear.lisp
==============================================================================
--- usocket/branches/new-wfi/backend/armedbear.lisp	(original)
+++ usocket/branches/new-wfi/backend/armedbear.lisp	Wed Jul 23 16:54:57 2008
@@ -196,7 +196,6 @@
              (jchan (jdi:do-jstatic-call "java.nio.channels.SocketChannel"
                                          "open" sock-addr))
              (sock (jdi:do-jmethod-call jchan "socket")))
-        (describe sock)
          (setf usock
                (make-stream-socket
                 :socket jchan
@@ -424,10 +423,10 @@
 
 (defun %setup-wait-list (wl)
   (setf (wait-list-%wait wl)
-        (make-hash-table :rehash-size 1.3d0)))
+        (make-hash-table :test #'equal :rehash-size 1.3d0)))
 
 (defun %add-waiter (wl w)
-  (setf (gethash (socket w) (wait-list-%wait wl))
+  (setf (gethash (jdi:jop-deref (socket w)) (wait-list-%wait wl))
         w))
 
 (defun %remove-waiter (wl w)