anchor.diff:  	 (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+))
  +    (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)
  
positive.code:     (unwind-protect
  	 (with-mapped-conditions ()
  	   (dolist (channel channels)
  	     (jcall $@configureBlocking/1 channel +java-false+)
  	     (jcall $@register/2 channel selector (logand ops (jcall $@validOps/0 channel))))
  	   (let ((ready-count (if timeout
  				  (jcall $@select/1 selector (truncate (* timeout 1000)))
  
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
  