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

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