X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fforeign-glue.lisp;h=958497f68f9a69abc2e5a634741d50b3ea7beed0;hb=c3699db2053ff3b5ac6a98d4431c3789496002d8;hp=b205364e950e94ede23de75c491207b86e7c90d9;hpb=3d9d3088982414ca5617caf62bd37b4fecac29b6;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/foreign-glue.lisp b/contrib/sb-bsd-sockets/foreign-glue.lisp
index b205364..958497f 100644
--- a/contrib/sb-bsd-sockets/foreign-glue.lisp
+++ b/contrib/sb-bsd-sockets/foreign-glue.lisp
@@ -50,12 +50,12 @@
 	;;(declaim (inline ,el (setf ,el)))
 	(defun ,el (ptr &optional (index 0))
 	  (declare (optimize (speed 3)))
-	  (sb-sys:without-gcing 
+	  (sb-sys:with-pinned-objects (ptr) 
 	   ,(template 'prog1 nil)))
 	(defconstant ,(intern (format nil "OFFSET-OF-~A" el)) ,offset)
 	(defun (setf ,el) (newval ptr &optional (index 0))
 	  (declare (optimize (speed 3)))
-	  (sb-sys:without-gcing 
+	  (sb-sys:with-pinned-objects (ptr) 
 	   ,(template 'setf 'newval)))))))