Compile error: Cannot use COMPARE-AND-SWAP with structure accessor for a typed slot

[Sod-Almighty]

; file: /root/quicklisp/dists/ultralisp/software/sionescu-bordeaux-threads-20220204061622/apiv2/atomics.lisp
; in: DEFUN ATOMIC-INTEGER-CAS
;     (BORDEAUX-THREADS-2::ATOMIC-CAS
;      (BORDEAUX-THREADS-2::ATOMIC-INTEGER-CELL BORDEAUX-THREADS-2::ATOMIC-INTEGER)
;      BORDEAUX-THREADS-2::OLD BORDEAUX-THREADS-2::NEW)
; --> LET EQL IF EQL COMPARE-AND-SWAP
; ==>
;   (CAS
;    (BORDEAUX-THREADS-2::ATOMIC-INTEGER-CELL BORDEAUX-THREADS-2::ATOMIC-INTEGER)
;    BORDEAUX-THREADS-2::OLD BORDEAUX-THREADS-2::NEW)
;
; caught ERROR:
;   during macroexpansion of
;   (SB-EXT:CAS (ATOMIC-INTEGER-CELL ATOMIC-INTEGER) OLD ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;
;    Cannot use COMPARE-AND-SWAP with structure accessor for a typed slot: (ATOMIC-INTEGER-CELL
;                                                                           ATOMIC-INTEGER)
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR:
  COMPILE-FILE-ERROR while
  compiling #<CL-SOURCE-FILE "bordeaux-threads" "api-v2" "atomics">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {50E069F1}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {5205F821}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {5205F821}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {5205F821}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "bordeaux-threads" "api-v2" "atomics">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "bordeaux-threads" "api-v2" "atomics">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "bordeaux-threads" "api-v2" "atomics">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "bordeaux-threads" "api-v2" "atomics">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {51B9F469}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {51B9F469}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-fad"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-fad"> :VERBOSE NIL)
...