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

```
; 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 #

Backtrace for: #
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK # # :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #)
2: (INVOKE-DEBUGGER #)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((# . #)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((# . #)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) # # # #)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) # #) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) # # :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) # # # # :VERBOSE NIL)
...
```