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