cl-gtk4 not working under SBCL v2.4.5

[jecars]

Hi, Sorry not sure if this is should be under SBCL, cl-gobject-introspection-wrapper, or this project.

I am unable to (ql:quickload :cl-gtk4) under SBCL 2.4.5. Everything works properly on SBCL 2.4.4.

This is SBCL 2.4.5, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (ql:quickload :cl-gtk4)
To load "cl-gtk4":
  Load 1 ASDF system:
    cl-gtk4
; Loading "cl-gtk4"
..............; 
; caught ERROR:
;   READ error during COMPILE-FILE:
;   
;     Lock on package SB-EXT violated when interning SET-FLOATING-POINT-MODES while
;     in package GIR.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;   
;     (in form starting at line: 146, column: 0, position: 4089)

debugger invoked on a UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread
#<THREAD tid=106816 "main thread" RUNNING {1003E88133}>:
  COMPILE-FILE-ERROR while
  compiling #<CL-SOURCE-FILE "cl-gobject-introspection" "src/init">

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY                        ] Retry
                                     compiling #<CL-SOURCE-FILE "cl-gobject-introspection" "src/init">.
  1: [ACCEPT                       ] Continue, treating
                                     compiling #<CL-SOURCE-FILE "cl-gobject-introspection" "src/init">
                                     as having been successful.
  2:                                 Retry ASDF operation.
  3: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the
                                     configuration.
  4:                                 Retry ASDF operation.
  5:                                 Retry ASDF operation after resetting the
                                     configuration.
  6: [ABORT                        ] Give up on "cl-gtk4"
  7: [REGISTER-LOCAL-PROJECTS      ] Register local projects and try again.
  8:                                 Exit debugger, returning to top level.

(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 "cl-gobject-introspection" "src/init">)))
   source: (ERROR 'COMPILE-FILE-ERROR :CONTEXT-FORMAT CONTEXT-FORMAT
                  :CONTEXT-ARGUMENTS CONTEXT-ARGUMENTS)
0] 

[bigos]

There is easy fix, but it was not yet pushed to quicklisp

andy128k/cl-gobject-introspection#100

you need to find your ~/quicklisp/dists/quicklisp/software/cl-gobject-introspection-20231021-git/src/init.lisp

and edit the last line to read:
#+sbcl (sb-int:set-floating-point-modes :traps nil)

[jecars]

Thanks so much, it worked!