[usocket-devel] allegro.lisp

[Erik Huelsmann]

On 3/18/07, Erik Huelsmann <ehuels at gmail.com> wrote:
> On 3/15/07, Paul O'Rorke <paul at ororke.com> wrote:
> > 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...
>
> Yes, you're right, the functions have been specialized on the wrong
> type. It should have been stream-usocket. You're proposing to
> specialize on usocket in general, but I think that's not a good idea:
> the only type of socket (currently supported) which has a peer is the
> stream-socket. That also explains the difference with the local
> versions of the functions: all supported sockets have local
> properties.
>
>
> I'm currently booted into windows, but when I get back to my
> development environment, I'll commit the change to stream-usocket.
>
> Thanks for your report!
>
>
> bye,
>
>
> Erik.
>
>
> > ; 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)))

Committed in r220. Thanks again!

bye,

Erik.