[usocket-cvs] r363 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Jul 13 07:05:40 2008
New Revision: 363

Modified:
   usocket/trunk/backend/sbcl.lisp
Log:
Commit change to trunk which should have been there all the time, but got committed to the 0.3.x branch only, for some reason.

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Sun Jul 13 07:05:40 2008
@@ -67,7 +67,7 @@
   (defun get-host-name ()
     (ffi:c-inline
      () () :object
-     "{ char *buf = GC_malloc(256);
+     "{ char *buf = cl_alloc_atomic(257);
 
         if (gethostname(buf,256) == 0)
           @(return) = make_simple_base_string(buf);