X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsysmacs.lisp;h=dc1358edc7c5f63a9703752e84bab162721acc32;hb=98a76d4426660876dec6649b1e228d2e5b47f579;hp=558eac16a5945eb29e8fdc8d2af3d8726681d4c2;hpb=d61775ee52828f379eb6acedca421d5a55bfa2bd;p=sbcl.git

diff --git a/src/code/sysmacs.lisp b/src/code/sysmacs.lisp
index 558eac1..dc1358e 100644
--- a/src/code/sysmacs.lisp
+++ b/src/code/sysmacs.lisp
@@ -10,26 +10,31 @@
 ;;;; files for more information.
 
 (in-package "SB!IMPL")
-
-
-#!-sb-thread
-(defmacro atomic-incf (symbol-name &optional (delta 1))
-  `(incf ,symbol-name ,delta))
 
-(defmacro atomic-decf (place &optional (delta 1))
-  `(atomic-incf ,place ,(- delta)))
+;;; FIXME Not the most sensible way to do this: we could just use
+;;; LOCK ADD, given that we don't need the old version.  This will
+;;; do until we get around to writing new VOPs
+;;; FIXME in fact we're not SMP-safe without LOCK anyway, but
+;;; this will do us for UP systems
 
+(defmacro atomic-incf/symbol (symbol-name &optional (delta 1))
+  #!-sb-thread
+  `(incf ,symbol-name ,delta)
+  #!+sb-thread
+  `(locally
+    (declare (optimize (safety 0) (speed 3)))
+    (sb!vm::locked-symbol-global-value-add ',symbol-name ,delta)))
 
 (defmacro without-gcing (&rest body)
   #!+sb-doc
   "Executes the forms in the body without doing a garbage collection."
   `(unwind-protect
     (progn
-      (atomic-incf *gc-inhibit*)
+      (atomic-incf/symbol *gc-inhibit*)
       ,@body)
-    (atomic-decf *gc-inhibit*)
+    (atomic-incf/symbol *gc-inhibit* -1)
     (when (and *need-to-collect-garbage* (zerop *gc-inhibit*))
-      (maybe-gc nil))))
+      (sub-gc))))
 
 
 ;;; EOF-OR-LOSE is a useful macro that handles EOF.