Fix increment-atomic-series for non-SBCL or Allegro (#59)

slburson · Sep 5, 2024 · 250b30d · 250b30d
1 parent 21d0a2e
commit 250b30d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Code/port.lisp b/Code/port.lisp
@@ -288,7 +288,7 @@
   `(1- (excl:incf-atomic (car ,name)))
   #-(or (and sbcl 64-bit) (and allegro smp-macros))
   `(with-lock ((cdr ,name))
-     (1- (incf ,(car name)))))
+     (1- (incf (car ,name)))))
 
 
 ;;; ----------------