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)