[usocket-devel] allegro.lisp

[Paul O'Rorke]

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)))