bug in SBCL 2.4.4: type error
Since the release of 2.4.4:
↳ mbp23:fare-utils user$ git show-branch
[master] Clearly use MIT license. Small fixes.
↳ mbp23:fare-utils user$ git log -1 --format='format:%h %aN %ad'
570ea41 Francois-Rene Rideau Tue Dec 6 07:49:13 2022 -0500
↳ mbp23:fare-utils user$ git pull
Already up to date.
↳ mbp23:fare-utils user$ CL_SOURCE_REGISTRY=$PWD sbcl --script <<<'(require "asdf") (asdf:load-system "fare-utils")'
Unhandled TYPE-ERROR in thread #<SB-THREAD:THREAD tid=259 "main thread" RUNNING
{70033E0143}>:
The value
#(#<error printing a (SIMPLE-ARRAY DOUBLE-FLOAT
(NIL)): #<TYPE-ERROR expected-type: VECTOR
datum: (NIL)>>
is not of type
VECTOR)
Backtrace for: #<SB-THREAD:THREAD tid=259 "main thread" RUNNING {70033E0143}>
0: ((MACRO-FUNCTION EXPORTING-DEFINITIONS) (EXPORTING-DEFINITIONS (DEFMACRO DEFINE-EXPORTER (EXPORTER DEFINER) (SB-INT:QUASIQUOTE (DEFMACRO #S(SB-IMPL::COMMA :EXPR EXPORTER :KIND 0) (SYMBOL &REST ARGS) (SB-INT:QUASIQUOTE #)))) (DEFINE-EXPORTER DEFINE*-EXPORTER DEFINE-EXPORTER) (DEFINE-EXPORTER DEF*CLASS DEFCLASS) (DEFINE-EXPORTER DEF*CONSTANT DEFCONSTANT) (DEFINE-EXPORTER DEF*GENERIC DEFGENERIC) (DEFINE-EXPORTER DEFINE*-COMPILER-MACRO DEFINE-COMPILER-MACRO) (DEFINE-EXPORTER DEFINE*-CONDITION DEFINE-CONDITION) (DEFINE-EXPORTER DEFINE*-METHOD-COMBINATION DEFINE-METHOD-COMBINATION) (DEFINE-EXPORTER DEFINE*-MODIFY-MACRO DEFINE-MODIFY-MACRO) (DEFINE-EXPORTER DEFINE*-SETF-EXPANDER DEFINE-SETF-EXPANDER) (DEFINE-EXPORTER DEFINE*-SYMBOL-MACRO DEFINE-SYMBOL-MACRO) ...) #<unused argument>)
1: (MACROEXPAND-1 (EXPORTING-DEFINITIONS (DEFMACRO DEFINE-EXPORTER (EXPORTER DEFINER) (SB-INT:QUASIQUOTE (DEFMACRO #S(SB-IMPL::COMMA :EXPR EXPORTER :KIND 0) (SYMBOL &REST ARGS) (SB-INT:QUASIQUOTE #)))) (DEFINE-EXPORTER DEFINE*-EXPORTER DEFINE-EXPORTER) (DEFINE-EXPORTER DEF*CLASS DEFCLASS) (DEFINE-EXPORTER DEF*CONSTANT DEFCONSTANT) (DEFINE-EXPORTER DEF*GENERIC DEFGENERIC) (DEFINE-EXPORTER DEFINE*-COMPILER-MACRO DEFINE-COMPILER-MACRO) (DEFINE-EXPORTER DEFINE*-CONDITION DEFINE-CONDITION) (DEFINE-EXPORTER DEFINE*-METHOD-COMBINATION DEFINE-METHOD-COMBINATION) (DEFINE-EXPORTER DEFINE*-MODIFY-MACRO DEFINE-MODIFY-MACRO) (DEFINE-EXPORTER DEFINE*-SETF-EXPANDER DEFINE-SETF-EXPANDER) (DEFINE-EXPORTER DEFINE*-SYMBOL-MACRO DEFINE-SYMBOL-MACRO) ...) #<NULL-LEXENV>)
2: (SB-C::PREPROCESSOR-MACROEXPAND-1 (EXPORTING-DEFINITIONS (DEFMACRO DEFINE-EXPORTER (EXPORTER DEFINER) (SB-INT:QUASIQUOTE (DEFMACRO #S(SB-IMPL::COMMA :EXPR EXPORTER :KIND 0) (SYMBOL &REST ARGS) (SB-INT:QUASIQUOTE #)))) (DEFINE-EXPORTER DEFINE*-EXPORTER DEFINE-EXPORTER) (DEFINE-EXPORTER DEF*CLASS DEFCLASS) (DEFINE-EXPORTER DEF*CONSTANT DEFCONSTANT) (DEFINE-EXPORTER DEF*GENERIC DEFGENERIC) (DEFINE-EXPORTER DEFINE*-COMPILER-MACRO DEFINE-COMPILER-MACRO) (DEFINE-EXPORTER DEFINE*-CONDITION DEFINE-CONDITION) (DEFINE-EXPORTER DEFINE*-METHOD-COMBINATION DEFINE-METHOD-COMBINATION) (DEFINE-EXPORTER DEFINE*-MODIFY-MACRO DEFINE-MODIFY-MACRO) (DEFINE-EXPORTER DEFINE*-SETF-EXPANDER DEFINE-SETF-EXPANDER) (DEFINE-EXPORTER DEFINE*-SYMBOL-MACRO DEFINE-SYMBOL-MACRO) ...))
3: (SB-C::PROCESS-TOPLEVEL-FORM (EXPORTING-DEFINITIONS (DEFMACRO DEFINE-EXPORTER (EXPORTER DEFINER) (SB-INT:QUASIQUOTE (DEFMACRO #S(SB-IMPL::COMMA :EXPR EXPORTER :KIND 0) (SYMBOL &REST ARGS) (SB-INT:QUASIQUOTE #)))) (DEFINE-EXPORTER DEFINE*-EXPORTER DEFINE-EXPORTER) (DEFINE-EXPORTER DEF*CLASS DEFCLASS) (DEFINE-EXPORTER DEF*CONSTANT DEFCONSTANT) (DEFINE-EXPORTER DEF*GENERIC DEFGENERIC) (DEFINE-EXPORTER DEFINE*-COMPILER-MACRO DEFINE-COMPILER-MACRO) (DEFINE-EXPORTER DEFINE*-CONDITION DEFINE-CONDITION) (DEFINE-EXPORTER DEFINE*-METHOD-COMBINATION DEFINE-METHOD-COMBINATION) (DEFINE-EXPORTER DEFINE*-MODIFY-MACRO DEFINE-MODIFY-MACRO) (DEFINE-EXPORTER DEFINE*-SETF-EXPANDER DEFINE-SETF-EXPANDER) (DEFINE-EXPORTER DEFINE*-SYMBOL-MACRO DEFINE-SYMBOL-MACRO) ...) (SB-C::ORIGINAL-SOURCE-START 0 10) NIL)
4: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) (EXPORTING-DEFINITIONS (DEFMACRO DEFINE-EXPORTER (EXPORTER DEFINER) (SB-INT:QUASIQUOTE (DEFMACRO #S(SB-IMPL::COMMA :EXPR EXPORTER :KIND 0) (SYMBOL &REST ARGS) (SB-INT:QUASIQUOTE #)))) (DEFINE-EXPORTER DEFINE*-EXPORTER DEFINE-EXPORTER) (DEFINE-EXPORTER DEF*CLASS DEFCLASS) (DEFINE-EXPORTER DEF*CONSTANT DEFCONSTANT) (DEFINE-EXPORTER DEF*GENERIC DEFGENERIC) (DEFINE-EXPORTER DEFINE*-COMPILER-MACRO DEFINE-COMPILER-MACRO) (DEFINE-EXPORTER DEFINE*-CONDITION DEFINE-CONDITION) (DEFINE-EXPORTER DEFINE*-METHOD-COMBINATION DEFINE-METHOD-COMBINATION) (DEFINE-EXPORTER DEFINE*-MODIFY-MACRO DEFINE-MODIFY-MACRO) (DEFINE-EXPORTER DEFINE*-SETF-EXPANDER DEFINE-SETF-EXPANDER) (DEFINE-EXPORTER DEFINE*-SYMBOL-MACRO DEFINE-SYMBOL-MACRO) ...) :CURRENT-INDEX 10)
5: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) {7003817F6B}> #<SB-C::SOURCE-INFO {700540FE43}> SB-C::INPUT-ERROR-IN-COMPILE-FILE)
6: ((LAMBDA NIL :IN SB-C::SUB-COMPILE-FILE))
7: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
8: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {700540FE43}> NIL)
9: (COMPILE-FILE #P"/Users/user/code/common-lisp/fare-utils/base/utils.lisp" :OUTPUT-FILE #P"/Users/user/.cache/common-lisp/sbcl-2.4.4-macosx-arm64/Users/user/code/common-lisp/fare-utils/base/utils-tmpAAURSO1.fasl" :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :UTF-8 :PROGRESS NIL :TRACE-FILE NIL :BLOCK-COMPILE NIL :ENTRY-POINTS NIL :EMIT-CFASL NIL)
10: (CALL-WITH-MUFFLED-CONDITIONS #<FUNCTION (LAMBDA NIL :IN COMPILE-FILE*) {700543629B}> NIL)
11: (CALL-WITH-ENOUGH-PATHNAME #P"/Users/user/code/common-lisp/fare-utils/base/utils.lisp" NIL #<FUNCTION (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN COMPILE-FILE*) {700543601B}>)
12: (COMPILE-FILE* #P"/Users/user/code/common-lisp/fare-utils/base/utils.lisp" :OUTPUT-FILE #P"/Users/user/.cache/common-lisp/sbcl-2.4.4-macosx-arm64/Users/user/code/common-lisp/fare-utils/base/utils.fasl" :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL)
13: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "fare-utils" "base" "utils">)
14: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "fare-utils" "base" "utils">)
15: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
16: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "fare-utils" "base" "utils">) [fast-method]
17: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {70076683E3}>) [fast-method]
18: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
19: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {70076683E3}>) [fast-method]
20: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "fare-utils"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
21: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "fare-utils">)
22: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
23: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "fare-utils">) [fast-method]
24: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "fare-utils")
25: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
26: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "fare-utils") [fast-method]
27: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {7005A167AB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
28: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
29: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {7006ABB7CB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
30: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "fare-utils") [fast-method]
31: (ASDF/OPERATE:LOAD-SYSTEM "fare-utils")
32: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:LOAD-SYSTEM "fare-utils") #<NULL-LEXENV>)
33: (SB-EXT:EVAL-TLF (ASDF/OPERATE:LOAD-SYSTEM "fare-utils") NIL NIL)
34: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (ASDF/OPERATE:LOAD-SYSTEM "fare-utils") NIL)
35: (SB-INT:LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "standard input" {70033E0473}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading")
36: ((LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) #<SB-SYS:FD-STREAM for "standard input" {70033E0473}> NIL)
37: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) {1030809EB}> #<SB-SYS:FD-STREAM for "standard input" {70033E0473}> NIL #<SB-SYS:FD-STREAM for "standard input" {70033E0473}>)
38: (LOAD #<SB-SYS:FD-STREAM for "standard input" {70033E0473}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT)
39: ((FLET SB-IMPL::LOAD-SCRIPT :IN SB-IMPL::PROCESS-SCRIPT) #<SB-SYS:FD-STREAM for "standard input" {70033E0473}>)
40: ((FLET SB-UNIX::BODY :IN SB-IMPL::PROCESS-SCRIPT))
41: ((FLET "WITHOUT-INTERRUPTS-BODY-" :IN SB-IMPL::PROCESS-SCRIPT))
42: (SB-IMPL::PROCESS-SCRIPT T)
43: (SB-IMPL::TOPLEVEL-INIT)
44: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
45: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
46: (SB-IMPL::%START-LISP)
unhandled condition in --disable-debugger mode, quitting
;
; compilation unit aborted
; caught 2 fatal ERROR conditions
; caught 1 ERROR condition
↳ mbp23:fare-utils user$ sbcl --version
SBCL 2.4.4
I'm a bit confused by the error to be honest -- what exactly do you think the actual error is? Is there a problem printing the type, or..?