From 4daf8b344a9642f8c3367cada3e9b887a348577d Mon Sep 17 00:00:00 2001
From: "Paul M. Rodriguez" <prodriguez@grammatech.com>
Date: Sat, 21 Sep 2024 01:59:18 -0500
Subject: [PATCH] Use atomic increments on CCL (#61)

---
 Code/port.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Code/port.lisp b/Code/port.lisp
index cd9ab1c..b068169 100644
--- 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)))))