search

brown / protobuf

Common Lisp implementation of Google's protocol buffers
http://common-lisp.net/project/protobuf/
BSD 3-Clause "New" or "Revised" License
115 stars 16 forks source link

Arithmetic error COMMON-LISP:FLOATING-POINT-INVALID-OPERATION signalled #21

Closed phoe closed 3 years ago

phoe commented 3 years ago

SBCL 2.1.0 on Linux x64 with protobuf from the current Quicklisp dist.

Compiler policy restricted to (safety 3) (debug 3).

* (ql:quickload :protobuf)
To load "protobuf":
  Load 2 ASDF systems:
    asdf nibbles
  Install 2 Quicklisp releases:
    com.google.base protobuf
Downloading http://beta.quicklisp.org/archive/com.google.base/2020-09-25/com.google.base-20200925-git.tgz
##########################################################################
Downloading http://beta.quicklisp.org/archive/protobuf/2020-12-20/protobuf-20201220-git.tgz
##########################################################################
; Loading "protobuf"
..................................................
[package com.google.base].........................
[package varint]..................................
[package protocol-buffer].........................
[package wire-format]
debugger invoked on a COMMON-LISP:FLOATING-POINT-INVALID-OPERATION in thread
#<THREAD "main thread" RUNNING {10015681E3}>:
  arithmetic error COMMON-LISP:FLOATING-POINT-INVALID-OPERATION signalled
Operation was (COMMON-LISP:> #<SINGLE-FLOAT quiet NaN> #<SINGLE-FLOAT quiet NaN>).

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

0] backtrace

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10015681E3}>
0: (SB-KERNEL:TWO-ARG-> #<SINGLE-FLOAT quiet NaN> #<SINGLE-FLOAT quiet NaN>)
1: (SB-VM::GENERIC->)
2: (SB-KERNEL:MAKE-NUMERIC-TYPE :CLASS COMMON-LISP:FLOAT :FORMAT COMMON-LISP:SINGLE-FLOAT :COMPLEXP :REAL :LOW #<SINGLE-FLOAT quiet NaN> :HIGH #<SINGLE-FLOAT quiet NaN> :ENUMERABLE COMMON-LISP:NIL)
3: ((COMMON-LISP:FLET SB-KERNEL::TRY-CACHE :IN SB-KERNEL:CTYPE-OF) #<SINGLE-FLOAT quiet NaN>)
4: (SB-KERNEL:CTYPE-OF #<SINGLE-FLOAT quiet NaN>)
5: (SB-C::MAKE-CONSTANT #<SINGLE-FLOAT quiet NaN>) [optional]
6: (SB-C::FIND-CONSTANT #<SINGLE-FLOAT quiet NaN> COMMON-LISP:NIL)
7: (SB-C::REFERENCE-CONSTANT #<SB-C::CTRAN 1 {10040A8183}> #<SB-C::CTRAN 2 {10040A8423}> #<SB-C::LVAR 3 {10040A8453}> #<SINGLE-FLOAT quiet NaN>)
8: (SB-C::IR1-CONVERT-QUOTE #<SB-C::CTRAN 1 {10040A8183}> #<SB-C::CTRAN 2 {10040A8423}> #<SB-C::LVAR 3 {10040A8453}> (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>))
9: (SB-C::IR1-CONVERT #<SB-C::CTRAN 1 {10040A8183}> #<SB-C::CTRAN 2 {10040A8423}> #<SB-C::LVAR 3 {10040A8453}> (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>))
10: (SB-C::IR1-CONVERT-COMBINATION-ARGS #<SB-C::LVAR 4 {10040A7FB3}> #<SB-C::CTRAN 5 {10040A7F83}> #<SB-C::CTRAN 6 {10040A7F43}> COMMON-LISP:NIL ((COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)))
11: (SB-C::IR1-CONVERT-COMBINATION #<SB-C::CTRAN 7 {10040A7DF3}> #<SB-C::CTRAN 6 {10040A7F43}> COMMON-LISP:NIL (SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)) #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-C::%DEFINE-SYMBOL-MACRO :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID COMMON-LISP:FUNCTION (read-only)> :DEFINED-TYPE #<SB-KERNEL:FUN-TYPE (COMMON-LISP:FUNCTION (COMMON-LISP:T COMMON-LISP:T COMMON-LISP:T) (COMMON-LISP:VALUES COMMON-LISP:SYMBOL COMMON-LISP:&OPTIONAL))> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {1004076523}>)
12: (SB-C::IR1-CONVERT-COMBINATION-CHECKING-TYPE #<SB-C::CTRAN 7 {10040A7DF3}> #<SB-C::CTRAN 6 {10040A7F43}> COMMON-LISP:NIL (SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)) #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-C::%DEFINE-SYMBOL-MACRO :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID COMMON-LISP:FUNCTION (read-only)> :DEFINED-TYPE #<SB-KERNEL:FUN-TYPE (COMMON-LISP:FUNCTION (COMMON-LISP:T COMMON-LISP:T COMMON-LISP:T) (COMMON-LISP:VALUES COMMON-LISP:SYMBOL COMMON-LISP:&OPTIONAL))> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {1004076523}>)
13: (SB-C::IR1-CONVERT #<SB-C::CTRAN 7 {10040A7DF3}> #<SB-C::CTRAN 6 {10040A7F43}> COMMON-LISP:NIL (SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)))
14: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 7 {10040A7DF3}> #<SB-C::CTRAN 8 {10040A7B73}> #<SB-C::LVAR 9 {10040A7BA3}> ((SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)) COMMON-LISP:NIL))
15: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 7 {10040A7DF3}> #<SB-C::CTRAN 8 {10040A7B73}> #<SB-C::LVAR 9 {10040A7BA3}> ((SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)) COMMON-LISP:NIL) COMMON-LISP:NIL COMMON-LISP:NIL COMMON-LISP:NIL)
16: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 7 {10040A7DF3}> #<SB-C::CTRAN 8 {10040A7B73}> #<SB-C::LVAR 9 {10040A7BA3}> ((SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)) COMMON-LISP:NIL) COMMON-LISP:NIL COMMON-LISP:NIL COMMON-LISP:NIL COMMON-LISP:NIL)
17: (SB-C::IR1-CONVERT-LAMBDA-BODY ((SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)) COMMON-LISP:NIL) COMMON-LISP:NIL :AUX-VARS COMMON-LISP:NIL :AUX-VALS COMMON-LISP:NIL :SOURCE-NAME SB-C::.ANONYMOUS. :DEBUG-NAME (SB-C::TOP-LEVEL-FORM (SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION))) :NOTE-LEXICAL-BINDINGS COMMON-LISP:T :POST-BINDING-LEXENV COMMON-LISP:NIL :SYSTEM-LAMBDA COMMON-LISP:NIL)
18: (SB-C::IR1-TOPLEVEL (SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)) (#1=(SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)) (COMMON-LISP:EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #1#) SB-C::ORIGINAL-SOURCE-START 0 12) COMMON-LISP:NIL COMMON-LISP:T)
19: (SB-C::CONVERT-AND-MAYBE-COMPILE (SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)) (#1=(SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)) (COMMON-LISP:EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #1#) SB-C::ORIGINAL-SOURCE-START 0 12) COMMON-LISP:T)
20: (SB-C::PROCESS-TOPLEVEL-FORM (SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION)) ((COMMON-LISP:EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION))) SB-C::ORIGINAL-SOURCE-START 0 12) (:COMPILE-TOPLEVEL))
21: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION))) ((COMMON-LISP:EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION))) SB-C::ORIGINAL-SOURCE-START 0 12) (:COMPILE-TOPLEVEL))
22: (SB-C::PROCESS-TOPLEVEL-FORM (COMMON-LISP:EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-C::%DEFINE-SYMBOL-MACRO (COMMON-LISP:QUOTE +SINGLE-FLOAT-NAN+) (COMMON-LISP:QUOTE #<SINGLE-FLOAT quiet NaN>) (SB-C:SOURCE-LOCATION))) (SB-C::ORIGINAL-SOURCE-START 0 12) COMMON-LISP:NIL)
23: (SB-C::PROCESS-TOPLEVEL-FORM (COMMON-LISP:DEFINE-SYMBOL-MACRO +SINGLE-FLOAT-NAN+ #<SINGLE-FLOAT quiet NaN>) (SB-C::ORIGINAL-SOURCE-START 0 12) COMMON-LISP:NIL)
24: ((COMMON-LISP:LAMBDA (SB-KERNEL:FORM COMMON-LISP:&KEY :CURRENT-INDEX COMMON-LISP:&ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) (COMMON-LISP:DEFINE-SYMBOL-MACRO +SINGLE-FLOAT-NAN+ #<SINGLE-FLOAT quiet NaN>) :CURRENT-INDEX 12)
25: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (COMMON-LISP:LAMBDA (SB-KERNEL:FORM COMMON-LISP:&KEY :CURRENT-INDEX COMMON-LISP:&ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) {5221DEAB}> #<SB-C::SOURCE-INFO {1003F63CE3}> SB-C::INPUT-ERROR-IN-COMPILE-FILE)
26: ((COMMON-LISP:FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE))
27: ((COMMON-LISP:FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
28: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<FUNCTION (COMMON-LISP:FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE) {7F43A6FF38BB}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {10015681E3}>> COMMON-LISP:T COMMON-LISP:NIL)
29: ((COMMON-LISP:FLET "LAMBDA19588" :IN "SYS:SRC;COMPILER;MAIN.LISP"))
30: ((COMMON-LISP:FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
31: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {1003F63CE3}> COMMON-LISP:NIL)
32: (COMMON-LISP:COMPILE-FILE #P"/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/protobuf-20201220-git/protocol-buffer.lisp" :OUTPUT-FILE #P"/home/phoe/.cache/common-lisp/sbcl-2.1.0-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/protobuf-20201220-git/protocol-buffer-tmpOU81XRV0.fasl" :VERBOSE COMMON-LISP:NIL :PRINT COMMON-LISP:NIL :PROGRESS COMMON-LISP:NIL :EXTERNAL-FORMAT :UTF-8 :TRACE-FILE COMMON-LISP:NIL :BLOCK-COMPILE COMMON-LISP:NIL :ENTRY-POINTS COMMON-LISP:NIL :EMIT-CFASL COMMON-LISP:NIL)
33: ((COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*))
34: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1003F624DB}> COMMON-LISP:NIL)
35: (UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1003F624DB}>)
36: ((COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*))
37: (UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1003F61F3B}> COMMON-LISP:NIL :SOURCE-NAMESTRING "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/protobuf-20201220-git/protocol-buffer.lisp")
38: ((COMMON-LISP:LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) #P"/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/protobuf-20201220-git/protocol-buffer.lisp")
39: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/protobuf-20201220-git/protocol-buffer.lisp" COMMON-LISP:NIL #<FUNCTION (COMMON-LISP:LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1003F61EFB}>)
40: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/protobuf-20201220-git/protocol-buffer.lisp" :OUTPUT-FILE #P"/home/phoe/.cache/common-lisp/sbcl-2.1.0-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/protobuf-20201220-git/protocol-buffer.fasl" :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE COMMON-LISP:NIL)
41: ((COMMON-LISP:LAMBDA (COMMON-LISP:&REST ASDF/LISP-ACTION::FLAGS) :IN ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION))
42: (UIOP/UTILITY:CALL-FUNCTION COMMON-LISP:FUNCALL #<FUNCTION (COMMON-LISP:LAMBDA (COMMON-LISP:&REST ASDF/LISP-ACTION::FLAGS) :IN ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION) {1003F54DAB}>)
43: (UIOP/LISP-BUILD:CALL-AROUND-HOOK COMMON-LISP:NIL #<FUNCTION (COMMON-LISP:LAMBDA (COMMON-LISP:&REST ASDF/LISP-ACTION::FLAGS) :IN ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION) {1003F54DAB}>)
44: ((:METHOD ASDF/LISP-ACTION:CALL-WITH-AROUND-COMPILE-HOOK (ASDF/COMPONENT:COMPONENT COMMON-LISP:T)) #<ASDF/LISP-ACTION:CL-SOURCE-FILE "protobuf" "protocol-buffer"> #<FUNCTION (COMMON-LISP:LAMBDA (COMMON-LISP:&REST ASDF/LISP-ACTION::FLAGS) :IN ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION) {1003F54DAB}>) [fast-method]
45: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "protobuf" "protocol-buffer">)
46: ((:METHOD ASDF/ACTION:PERFORM (ASDF/LISP-ACTION:COMPILE-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "protobuf" "protocol-buffer">) [fast-method]
47: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "protobuf" "protocol-buffer">)
48: ((COMMON-LISP:FLET COMMON-LISP:CALL-NEXT-METHOD :IN "/home/phoe/Projects/Lisp/asdf/build/asdf.lisp"))
49: ((COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/ACTION:PERFORM))
50: ((COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
51: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION) {1003F4F36B}> :OVERRIDE COMMON-LISP:NIL :KEY COMMON-LISP:NIL :OVERRIDE-CACHE COMMON-LISP:NIL :OVERRIDE-FORCING COMMON-LISP:NIL)
52: (ASDF/ACTION:CALL-WHILE-VISITING-ACTION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "protobuf" "protocol-buffer"> #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/ACTION:PERFORM) {1003F4F33B}>)
53: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "protobuf" "protocol-buffer">) [fast-method]
54: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (COMMON-LISP:T COMMON-LISP:T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "protobuf" "protocol-buffer">) [fast-method]
55: ((COMMON-LISP:FLET COMMON-LISP:CALL-NEXT-METHOD :IN "/home/phoe/Projects/Lisp/asdf/build/asdf.lisp"))
56: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (COMMON-LISP:T COMMON-LISP:T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "protobuf" "protocol-buffer">) [fast-method]
57: ((:METHOD ASDF/PLAN:PERFORM-PLAN (COMMON-LISP:T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10041DADE3}>) [fast-method]
58: ((COMMON-LISP:FLET COMMON-LISP:CALL-NEXT-METHOD :IN "/home/phoe/Projects/Lisp/asdf/build/asdf.lisp"))
59: ((COMMON-LISP:FLET "LAMBDA0" :IN "/home/phoe/Projects/Lisp/asdf/build/asdf.lisp"))
60: ((COMMON-LISP:FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
61: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (COMMON-LISP:T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10041DADE3}>) [fast-method]
62: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "protobuf"> :PLAN-CLASS COMMON-LISP:NIL :PLAN-OPTIONS COMMON-LISP:NIL) [fast-method]
63: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "protobuf"> :VERBOSE COMMON-LISP:NIL)
64: ((COMMON-LISP:FLET COMMON-LISP:CALL-NEXT-METHOD :IN "/home/phoe/Projects/Lisp/asdf/build/asdf.lisp"))
65: ((COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/OPERATE:OPERATE))
66: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/OPERATE:OPERATE) {10041DACAB}> :OVERRIDE COMMON-LISP:NIL :KEY COMMON-LISP:NIL :OVERRIDE-CACHE COMMON-LISP:NIL :OVERRIDE-FORCING COMMON-LISP:NIL)
67: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (COMMON-LISP:T COMMON-LISP:T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "protobuf"> :VERBOSE COMMON-LISP:NIL) [fast-method]
68: ((:METHOD ASDF/OPERATE:OPERATE (COMMON-LISP:SYMBOL COMMON-LISP:T)) ASDF/LISP-ACTION:LOAD-OP "protobuf" :VERBOSE COMMON-LISP:NIL) [fast-method]
69: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "protobuf" :VERBOSE COMMON-LISP:NIL)
70: ((COMMON-LISP:FLET COMMON-LISP:CALL-NEXT-METHOD :IN "/home/phoe/Projects/Lisp/asdf/build/asdf.lisp"))
71: ((COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/OPERATE:OPERATE))
72: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/OPERATE:OPERATE) {10015996EB}> :OVERRIDE COMMON-LISP:NIL :KEY COMMON-LISP:NIL :OVERRIDE-CACHE COMMON-LISP:NIL :OVERRIDE-FORCING COMMON-LISP:NIL)
73: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (COMMON-LISP:T COMMON-LISP:T)) ASDF/LISP-ACTION:LOAD-OP "protobuf" :VERBOSE COMMON-LISP:NIL) [fast-method]
74: ((COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/OPERATE:OPERATE))
75: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/OPERATE:OPERATE) {1001598EDB}> :OVERRIDE COMMON-LISP:T :KEY COMMON-LISP:NIL :OVERRIDE-CACHE COMMON-LISP:T :OVERRIDE-FORCING COMMON-LISP:NIL)
76: ((COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/OPERATE:OPERATE))
77: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN ASDF/OPERATE:OPERATE) {1004E5C12B}> :OVERRIDE COMMON-LISP:NIL :KEY COMMON-LISP:NIL :OVERRIDE-CACHE COMMON-LISP:NIL :OVERRIDE-FORCING COMMON-LISP:NIL)
78: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (COMMON-LISP:T COMMON-LISP:T)) ASDF/LISP-ACTION:LOAD-OP "protobuf" :VERBOSE COMMON-LISP:NIL) [fast-method]
79: (ASDF/OPERATE:LOAD-SYSTEM "protobuf" :VERBOSE COMMON-LISP:NIL)
80: (QUICKLISP-CLIENT::CALL-WITH-MACROEXPAND-PROGRESS #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY) {1004E5AA8B}>)
81: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "protobuf" :PROMPT COMMON-LISP:NIL)
82: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (COMMON-LISP:T COMMON-LISP:T)) #<unused argument> #<FUNCTION (COMMON-LISP:FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {10033B921B}>) [fast-method]
83: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION :AROUND (QL-IMPL:SBCL COMMON-LISP:T)) #<QL-IMPL:SBCL {1004F34173}> #<FUNCTION (COMMON-LISP:FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {10033B921B}>) [fast-method]
84: ((:METHOD QUICKLISP-CLIENT:QUICKLOAD (COMMON-LISP:T)) :PROTOBUF :PROMPT COMMON-LISP:NIL :SILENT COMMON-LISP:NIL :VERBOSE COMMON-LISP:NIL) [fast-method]
85: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN QUICKLISP-CLIENT:QUICKLOAD) {10033B302B}>)
86: (SB-INT:SIMPLE-EVAL-IN-LEXENV (QUICKLISP-CLIENT:QUICKLOAD :PROTOBUF) #<NULL-LEXENV>)
87: (COMMON-LISP:EVAL (QUICKLISP-CLIENT:QUICKLOAD :PROTOBUF))
88: (SB-EXT:INTERACTIVE-EVAL (QUICKLISP-CLIENT:QUICKLOAD :PROTOBUF) :EVAL COMMON-LISP:NIL)
89: (SB-IMPL::REPL-FUN COMMON-LISP:NIL)
90: ((COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN SB-IMPL::TOPLEVEL-REPL))
91: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<FUNCTION (COMMON-LISP:LAMBDA COMMON-LISP:NIL :IN SB-IMPL::TOPLEVEL-REPL) {10033B2ECB}>)
92: (SB-IMPL::TOPLEVEL-REPL COMMON-LISP:NIL)
93: (SB-IMPL::TOPLEVEL-INIT)
94: ((COMMON-LISP:FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
95: ((COMMON-LISP:FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
96: (SB-IMPL::START-LISP)
phoe commented 3 years ago

Seems like the culprits are these definitions:

https://github.com/brown/protobuf/blob/fed57f70e21eb7db01cf12584055fa293b5cd90c/protocol-buffer.lisp#L108-L122

phoe commented 3 years ago

Seems like a SBCL bug: compile-and-loading (cl:define-symbol-macro foo #.(sb-kernel:make-single-float -1)) works fine on default optimize settings but breaks on high debug/safety.

Moving it to https://bugs.launchpad.net/sbcl/+bug/1909881