X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fname-service.lisp;h=46094d27a7699d342c8541a5c3f1fe837f153e4e;hb=b7eed59f1877263e1af5ad80299e641e8276f77d;hp=23f65a15d84921d9426096ca8f56364b95465111;hpb=f51d3fd40bb44b518299f0ae626583a6899f7af2;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/name-service.lisp b/contrib/sb-bsd-sockets/name-service.lisp
index 23f65a1..46094d2 100644
--- a/contrib/sb-bsd-sockets/name-service.lisp
+++ b/contrib/sb-bsd-sockets/name-service.lisp
@@ -42,7 +42,7 @@ grisly details."
     (loop for i from 0 to 3 
 	  do (setf (sockint::in-addr-addr packed-addr i) (elt address i)))
     (make-host-ent
-     (sb-sys:without-gcing
+     (sb-sys:with-pinned-objects (packed-addr)
       (sockint::gethostbyaddr (sockint::array-data-address packed-addr)
 			      4
 			      sockint::af-inet)))))