ABCL steram-fd

gistfile1.txt

#+abcl
(progn
  (require :abcl-contrib)
  (require :jss))

#+abcl
(defun get-java-fields (object fields)
  (reduce (lambda (x y)
            (jss:get-java-field x y t))
          fields
          :initial-value object))

#+abcl
(defmethod stream-fd ((stream system::socket-stream))
  (get-java-fields (#"getWrappedInputStream" (two-way-stream-input-stream stream))
                   '("in" "ch" "fdVal")))