anchor.diff:      (unwind-protect
   	 (with-mapped-conditions ()
   	   (dolist (channel channels)
  -	     (jcall $@configureBlocking/1 channel +java-false+)
  +	     (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)))
  
positive.code: (defvar $+op-read (jfield $*SelectionKey "OP_READ"))
  (defvar $+op-write (jfield $*SelectionKey "OP_WRITE"))
  
  (defconstant +java-true+ (make-immediate-object t :boolean))
  (defconstant +java-false+ (make-immediate-object nil :boolean))
  
  ;;; Wrapper functions (return-type: java-object)
  (defun %get-address (address)
  
negative.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)
  