X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fforeign-glue.lisp;h=b205364e950e94ede23de75c491207b86e7c90d9;hb=a0a413499415738d23cc40baa44e9c404af54a94;hp=446b5d2ad202bb07c3ac08cb7c79543f5f89b0f9;hpb=10d2c05ea44ca0837091434fe2223c0c31687615;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/foreign-glue.lisp b/contrib/sb-bsd-sockets/foreign-glue.lisp
index 446b5d2..b205364 100644
--- a/contrib/sb-bsd-sockets/foreign-glue.lisp
+++ b/contrib/sb-bsd-sockets/foreign-glue.lisp
@@ -49,10 +49,14 @@
       `(progn
 	;;(declaim (inline ,el (setf ,el)))
 	(defun ,el (ptr &optional (index 0))
-	  ,(template 'prog1 nil))
+	  (declare (optimize (speed 3)))
+	  (sb-sys:without-gcing 
+	   ,(template 'prog1 nil)))
 	(defconstant ,(intern (format nil "OFFSET-OF-~A" el)) ,offset)
 	(defun (setf ,el) (newval ptr &optional (index 0))
-	  ,(template 'setf 'newval))))))
+	  (declare (optimize (speed 3)))
+	  (sb-sys:without-gcing 
+	   ,(template 'setf 'newval)))))))
 
 
 ;;; make memory allocator for appropriately-sized block of memory, and