Use atomic increments on CCL (#61)

slburson · Sep 21, 2024 · 4daf8b3 · 4daf8b3
1 parent 250b30d
commit 4daf8b3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Code/port.lisp b/Code/port.lisp
@@ -286,7 +286,9 @@
   `(sb-ext:atomic-incf ,name) ; (postincrement)
   #+(and allegro smp-macros)
   `(1- (excl:incf-atomic (car ,name)))
-  #-(or (and sbcl 64-bit) (and allegro smp-macros))
+  #+ccl
+  `(1- (ccl::atomic-incf (car ,name)))
+  #-(or (and sbcl 64-bit) (and allegro smp-macros) ccl)
   `(with-lock ((cdr ,name))
      (1- (incf (car ,name)))))