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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Jun 20 19:26:28 2008
New Revision: 349

Modified:
   usocket/branches/0.3.x/backend/sbcl.lisp
Log:
Fix the fix (ecl coding hints).

Modified: usocket/branches/0.3.x/backend/sbcl.lisp
==============================================================================
--- usocket/branches/0.3.x/backend/sbcl.lisp	(original)
+++ usocket/branches/0.3.x/backend/sbcl.lisp	Fri Jun 20 19:26:28 2008
@@ -52,7 +52,7 @@
      "{ char *buf = cl_alloc_atomic(257);
 
         if (gethostname(buf,256) == 0)
-           @(return) = make_simple_base_string(strndup(&buf,255));
+           @(return) = make_simple_base_string(buf);
         else
            @(return) = Cnil;
       }" :one-liner nil :side-effects nil)))