anchor.diff:  			    (setf (state (gethash channel %wait)) :read)))))))
         (jcall $@close/Selector/0 selector)
         (dolist (channel channels)
  -	(jcall $@configureBlocking/1 channel +java-true+)))))
  +	(jcall $@configureBlocking/1 channel java:+true+)))))
   
   ;;; WAIT-LIST
   
  
positive.code: 	 (channel (jstatic $@open/ServerSocketChannel/0 $*ServerSocketChannel))
  	 (socket (jcall $@socket/ServerSocketChannel/0 channel))
  	 (endpoint (jnew $%InetSocketAddress/2 (host-to-inet4 host) (or port 0))))
      (jcall $@setReuseAddress/1 socket (if reuseaddress +java-true+ +java-false+))
      (with-mapped-conditions (socket)
        (if backlog-supplied-p
  	  (jcall $@bind/ServerSocket/2 socket endpoint backlog)
  
negative.code: 	 (setq stream (ext:get-socket-stream socket :element-type element-type)
  	       usocket (make-stream-socket :stream stream :socket socket))
  	 (when nodelay-supplied-p
  	   (jcall $@setTcpNoDelay/1 socket (if nodelay ;; both t and :if-supported mean java:+true+
                                             java:+true+ java:+false+)))
  	 (when timeout
  	   (jcall $@setSoTimeout/Socket/1 socket (truncate (* 1000 timeout))))))
        (:datagram ; UDP
  