Author: ehuelsmann Date: Wed Jul 25 15:28:12 2007 New Revision: 277

Modified: usocket/branches/0.3.x/backend/clisp.lisp Log: Merge r276 from trunk (fix clisp get-host-name).

Modified: usocket/branches/0.3.x/backend/clisp.lisp ============================================================================== --- usocket/branches/0.3.x/backend/clisp.lisp (original) +++ usocket/branches/0.3.x/backend/clisp.lisp Wed Jul 25 15:28:12 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)))