From 3d9d3088982414ca5617caf62bd37b4fecac29b6 Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Tue, 25 Mar 2003 00:29:54 +0000 Subject: [PATCH] 0.pre8.3 contrib fix: sb-bsd-sockets ought to without-gcing in some places that it wasn't doing. Bug unlikely to be exposed in #-sb-thread, but showed up testing threaded araneida --- contrib/sb-bsd-sockets/foreign-glue.lisp | 8 ++++++-- version.lisp-expr | 2 +- 2 files changed, 7 insertions(+), 3 deletions(-) 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 diff --git a/version.lisp-expr b/version.lisp-expr index 55aaa35..e2bec33 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -18,4 +18,4 @@ ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.pre8.2" +"0.pre8.3" -- 1.7.10.4