[usocket-cvs] r277 - usocket/branches/0.3.x/backend

[ehuelsmann at common-lisp.net]

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