Tests fail with TODO ARRAY

[Ambrevar]

Full backtrace:

Unhandled SIMPLE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
                                    {10005604C3}>:
  TODO ARRAY

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005604C3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-ERROR "TODO ~A" {10035133D3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<SIMPLE-ERROR "TODO ~A" {10035133D3}>)
2: (INVOKE-DEBUGGER #<SIMPLE-ERROR "TODO ~A" {10035133D3}>)
3: (ERROR "TODO ~A" :ARRAY)
4: (TYPE-INFO->CFFI-TYPE #<TYPE-INFO {1003513373}>)
5: ((:METHOD PP-INFO (FUNCTION-INFO)) #<FUNCTION-INFO {10031E40D3}>) [fast-method]
6: ((SB-C::TOP-LEVEL-FORM (LET ((REPO (REPOSITORY-GET-DEFAULT))) (REPOSITORY-REQUIRE REPO #1="GIRepository" "2.0") (ITER (FOR INFO IN (REPOSITORY-GET-INFOS REPO #1#)) (FOR PP = (PP-INFO INFO)) (WHEN PP (PPRINT PP)))))) [toplevel]
7: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 230) file /gnu/store/958sg7fsy9fs0kzxjya7n0z6zljm7m1h-sbcl-cl-gobject-introspection-0.3-0.7b703e2/.cache/common-lisp/sbcl-1.5.7-linux-x64/tmp/guix-build-sbcl-cl-gobject-introspection-0.3-0.7b703e2.drv-0/so... {1002E8CECF}> {1002E8D053}> :TABLE #(613 SET *PACKAGE* "GIR-TEST" #<PACKAGE "SB-IMPL"> SB-IMPL::%DEFUN #<PACKAGE "GIR-TEST"> LISPIFY-CLASS CLOSE #<PACKAGE "SB-C"> SB-C:UNWIND WRITE-CHAR ...) :STACK #(0 #<FUNCTION #1=(SB-C::TOP-LEVEL-FORM (LET (#) (REPOSITORY-REQUIRE REPO "GIRepository" "2.0") (ITER # # #))) {52DD8C5B}> 33481 PP-INFO 27465 REPOSITORY-GET-INFOS 19657 REPOSITORY-REQUIRE 13129 REPOSITORY-GET-DEFAULT 6857 #1# ...) :NAME-BUFFER #("\0" "WHENSITORY-GET-DEFAULTRCH-PATHNAME") :DEPRECATED-STUFF NIL :SKIP-UNTIL NIL) NIL)
8: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 230) file /gnu/store/958sg7fsy9fs0kzxjya7n0z6zljm7m1h-sbcl-cl-gobject-introspection-0.3-0.7b703e2/.cache/common-lisp/sbcl-1.5.7-linux-x64/tmp/guix-build-sbcl-cl-gobject-introspection-0.3-0.7b703e2.drv-0/so... {1002E8CECF}> {1002E8D053}> NIL NIL)
9: ((FLET SB-FASL::THUNK :IN LOAD))
10: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<CLOSURE (FLET SB-FASL::THUNK :IN LOAD) {7FFFF769E75B}> #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 230) file /gnu/store/958sg7fsy9fs0kzxjya7n0z6zljm7m1h-sbcl-cl-gobject-introspection-0.3-0.7b703e2/.cache/common-lisp/sbcl-1.5.7-linux-x64/tmp/guix-build-sbcl-cl-gobject-introspection-0.3-0.7b703e2.drv-0/so... {1002E8CECF}> {1002E8D053}>)
11: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 230) file /gnu/store/958sg7fsy9fs0kzxjya7n0z6zljm7m1h-sbcl-cl-gobject-introspection-0.3-0.7b703e2/.cache/common-lisp/sbcl-1.5.7-linux-x64/tmp/guix-build-sbcl-cl-gobject-introspection-0.3-0.7b703e2.drv-0/so... {1002E8CECF}> {1002E8D053}> T)
12: (LOAD #P#<(SIMPLE-ARRAY CHARACTER (225)) /gnu/store/958sg7fsy9fs0kzxjya7n0z6zljm7m1h-sbcl-cl-gobject-introspection-0.3-0.7b703e2/.cache/common-lisp/sbcl-1.5.7-linux-x64/tmp/guix-build-sbcl-cl-gobject-introspection-0.3-0.7b703e2.drv-0/source/... {1003536A6F}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
13: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:LOAD*) {1002E8B0DB}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS)))
14: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-gobject-introspection-test" "test/test-generation">)
15: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
16: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-gobject-introspection-test" "test/test-generation">) [fast-method]
17: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-gobject-introspection-test" "test/test-generation">) [fast-method]
18: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-gobject-introspection-test" "test/test-generation">) [fast-method]
19: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1001E400F3}>) [fast-method]
20: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
21: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1001E400F3}>) [fast-method]
22: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "cl-gobject-introspection"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
23: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "cl-gobject-introspection">)
24: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
25: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "cl-gobject-introspection">) [fast-method]
26: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:TEST-OP "cl-gobject-introspection")
27: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
28: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:TEST-OP "cl-gobject-introspection") [fast-method]
29: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1001E3157B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
30: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
31: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1001E2ED0B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
32: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:TEST-OP "cl-gobject-introspection") [fast-method]
33: (ASDF/OPERATE:TEST-SYSTEM "cl-gobject-introspection")
34: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:TEST-SYSTEM "cl-gobject-introspection") #<NULL-LEXENV>)
35: (EVAL (ASDF/OPERATE:TEST-SYSTEM "cl-gobject-introspection"))
36: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(require :asdf)") (:EVAL . #<(SIMPLE-ARRAY CHARACTER (233)) (asdf:load-asd (truename "/gnu/store/958sg7fsy9fs0kzxjya7n0z6zljm7m1h-sbcl-cl-gobject-introspection-0.3-0.7b703e2/share/common-lisp/sbcl-source/cl-gobject-introspection/cl-gobject-introspection.asd") ... {100182036F}>) (:EVAL . "(when (uiop:file-exists-p \"cl-gobject-introspection-tests.asd\") (asdf:load-asd (truename \"cl-gobject-introspection-tests.asd\")))") (:EVAL . "(when (uiop:file-exists-p \"cl-gobject-introspection-test.asd\") (asdf:load-asd (truename \"cl-gobject-introspection-test.asd\")))") (:EVAL . "(when (uiop:file-exists-p \"tests.asd\") (asdf:load-asd (truename \"tests.asd\")))") (:EVAL . "(when (uiop:file-exists-p \"test.asd\") (asdf:load-asd (truename \"test.asd\")))") (:EVAL . "(asdf:test-system \"cl-gobject-introspection\")") (:QUIT)))
37: (SB-IMPL::TOPLEVEL-INIT)
38: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
39: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SB-EXT:SAVE-LISP-AND-DIE))
40: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

[andy128k]

Fixed

[Ambrevar]

Thanks!