Author: ehuelsmann Date: Wed Jul 25 15:20:35 2007 New Revision: 276

Modified: usocket/trunk/backend/clisp.lisp Log: Fix get-host-name on clisp.

Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Wed Jul 25 15:20:35 2007 @@ -18,7 +18,7 @@

(defun get-host-name () (multiple-value-bind (retcode name) - (get-host-name-internal) + (get-host-name-internal 256) (when (= retcode 0) name)))