Author: ehuelsmann Date: Mon Sep 17 15:09:50 2007 New Revision: 289
Modified: usocket/trunk/backend/clisp.lisp Log: Fix CLISP error: *Dont* resolve the hostname.
Reported by Chandler Escude (chandler at reduct dash intact dot org). "
Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Mon Sep 17 15:09:50 2007 @@ -107,13 +107,13 @@ (defmethod get-local-name ((usocket usocket)) (multiple-value-bind (address port) - (socket:socket-stream-local (socket usocket) nil) + (socket:socket-stream-local (socket usocket) t) (values (dotted-quad-to-vector-quad address) port)))
(defmethod get-peer-name ((usocket stream-usocket)) (multiple-value-bind (address port) - (socket:socket-stream-peer (socket usocket) nil) + (socket:socket-stream-peer (socket usocket) t) (values (dotted-quad-to-vector-quad address) port)))
(defmethod get-local-address ((usocket usocket))