SBCL 2.5.5.114-85e41f89c / ASDF 3.3.5
; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cffi-gtk/5a7e29bf280fb1e84a2c71978a74d8c12b49b6a5/cl-cffi-gtk-20250714-git/test/rtest-glib-main-loop.lisp ; in: DEFCALLBACK PREPARE ; (CFFI:DEFCALLBACK GTK-TESTSUITE::PREPARE ; :BOOLEAN ; ((GTK-TESTSUITE::SOURCE :POINTER) (BORDEAUX-THREADS:TIMEOUT :INT)) ; (DECLARE (IGNORE GTK-TESTSUITE::SOURCE)) ; (SETF BORDEAUX-THREADS:TIMEOUT -1) ; T) ; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF LET* THE LOCALLY ; ==> ; (LET ((GTK-TESTSUITE::SOURCE GTK-TESTSUITE::SOURCE) ; (BORDEAUX-THREADS:TIMEOUT BORDEAUX-THREADS:TIMEOUT)) ; (DECLARE (IGNORE GTK-TESTSUITE::SOURCE)) ; (IF (BLOCK GTK-TESTSUITE::PREPARE (SETF BORDEAUX-THREADS:TIMEOUT -1) T) ; 1 ; 0)) ; ; caught STYLE-WARNING: ; The variable TIMEOUT is assigned but never read. ; in: DEFCALLBACK DISPATCH ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK-TESTSUITE::USER-DATA)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (GLIB:GET-STABLE-POINTER-VALUE GTK-TESTSUITE::USER-DATA) ; ; note: doing SAP to pointer coercion (cost 20) WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cffi-gtk-test" "rtest-glib-main-loop"> Unhandled SB-SYS:MEMORY-FAULT-ERROR in thread #<SB-THREAD:THREAD tid=2710805 "main thread" RUNNING {1200F08003}>: Unhandled memory fault at #x18. Backtrace for: #<SB-THREAD:THREAD tid=2710805 "main thread" RUNNING {1200F08003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-SYS:MEMORY-FAULT-ERROR {12201F59F3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<SB-SYS:MEMORY-FAULT-ERROR {12201F59F3}>) 2: (INVOKE-DEBUGGER #<SB-SYS:MEMORY-FAULT-ERROR {12201F59F3}>) 3: (ERROR SB-SYS:MEMORY-FAULT-ERROR :ADDRESS 24) 4: (SB-SYS:MEMORY-FAULT-ERROR #<unused argument> #.(SB-SYS:INT-SAP #X00000018)) 5: ("foreign function: call_into_lisp_") 6: ("foreign function: funcall2") 7: ("foreign function: handle_memory_fault_emulation_trap") 8: ("foreign function: #x55A908083C11") 9: (GOBJECT::CALL-GOBJECT-CONSTRUCTOR "GtkButton" NIL NIL NIL) 10: (GOBJECT::CREATE-GOBJECT-FROM-CLASS #<GOBJECT-CLASS GTK:GTK-BUTTON> NIL) 11: ((:METHOD MAKE-INSTANCE (GOBJECT-CLASS)) #<GOBJECT-CLASS GTK:GTK-BUTTON>) [fast-method] 12: ("top level form") [toplevel] 13: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 237) file /home/quicklisp/.cache/common-lisp/sbcl-2.5.5.114-85e41f89c-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-cffi-gtk/5a7e29bf280fb1e84a2c71978a74d8c12b49b6a5/cl-cffi-gtk-2025071... {12201BF26F}> {12201BF3B3}> :TABLE #(208 #1="/home/quicklisp/quicklisp-controller/dist/build-cache/cl-cffi-gtk/5a7e29bf280fb1e84a2c71978a74d8c12b49b6a5/cl-cffi-gtk-20250714-git/test/rtest-gobject-signals.lisp" "GTK-TESTSUITE" *PACKAGE* #<PACKAGE "GTK-TESTSUITE"> GOBJECT-SIGNALS :IN GOBJECT-SUITE "Create a new suite named ~A." "Unknown suite ~A." #<PACKAGE "IT.BESE.FIVEAM"> IT.BESE.FIVEAM::*SUITE* ...) :STACK #(0 #<FUNCTION "top level form" {121E70CEDB}> SIGNAL-INFO-ID ((LET (# # # # # #) (IS #))) :DEFINITION-TIME *RUN-TEST-WHEN-DEFINED* SIGNAL-INFO-NAME ((IS (NOT #))) SIGNAL-INFO-PARAM-TYPES ((IS (EQUAL #2=# #))) SIGNAL-INFO-DETAIL ((IS (EQUAL #2# #))) ...) :NAME-BUFFER #("