Hi: I am trying to use usocket to port some projects from CLisp to ACL and possible SBCL and hoping usocket will enable me to have something general.
In ACL, there seem to be problems in the get-XXX methods that I think are patched as follows...
; 070315 PaulO: this seems too specific and doesn't match get-local-address ; (defmethod get-peer-address ((usocket stream-server-usocket)) (defmethod get-peer-address ((usocket usocket)) (hbo-to-vector-quad (socket:remote-host (socket usocket))))
(defmethod get-local-port ((usocket usocket)) (socket:local-port (socket usocket)))
; 070315 PaulO: this seems too specific and doesn't match get-local-name ; (defmethod get-peer-port((usocket stream-server-usocket)) (defmethod get-peer-port ((usocket usocket)) (socket:remote-port (socket usocket)))
(defmethod get-local-name ((usocket usocket)) (values (get-local-address usocket) (get-local-port usocket)))
; 070315 PaulO: this seems too specific and doesn't match get-local-name ; (defmethod get-peer-name ((usocket stream-server-usocket)) (defmethod get-peer-name ((usocket usocket)) (values (get-peer-address usocket) (get-peer-port usocket)))