Tests broken on SBCL 2.4.4

[hraban]

$ sbcl --version
SBCL 2.4.4
$ sbcl --script <<<'(load "./quicklisp/setup.lisp") (ql:quickload "flexi-streams") (asdf:test-system "flexi-streams")'
To load "flexi-streams":
  Load 1 ASDF system:
    flexi-streams
; Loading "flexi-streams"

WARNING:
   Deprecated recursive use of (ASDF/OPERATE:OPERATE 'ASDF/LISP-ACTION:LOAD-OP
   '("flexi-streams-test")) while visiting
   (ASDF/LISP-ACTION:TEST-OP "flexi-streams") - please use proper dependencies
   instead
Test suite: "Reading/writing files"
Unhandled TYPE-ERROR in thread #<SB-THREAD:THREAD tid=59625 "main thread" RUNNING
                                  {10003E8143}>:
  The value
    #<error printing a FIXNUM: #<TYPE-ERROR expected-type: REAL
                                            datum: (error printing condition)>>

  is not of type
    CONS

Backtrace for: #<SB-THREAD:THREAD tid=59625 "main thread" RUNNING {10003E8143}>
0: (FLEXI-STREAMS-TEST::CREATE-TEST-COMBINATIONS "kafka" (:UTF8 :LATIN1 :CP1252) NIL)
1: (FLEXI-STREAMS-TEST::COMPARE-FILES :VERBOSE NIL)
2: (FLEXI-STREAMS-TEST:RUN-ALL-TESTS :VERBOSE NIL)
3: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "flexi-streams">)
4: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
5: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "flexi-streams">) [fast-method]
6: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10022ED323}>) [fast-method]
7: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10022ED323}>) [fast-method]
9: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "flexi-streams"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
10: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "flexi-streams">)
11: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
12: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "flexi-streams">) [fast-method]
13: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:TEST-OP "flexi-streams")
14: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:TEST-OP "flexi-streams") [fast-method]
16: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10022D46EB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10022CA87B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
19: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:TEST-OP "flexi-streams") [fast-method]
20: (ASDF/OPERATE:TEST-SYSTEM "flexi-streams")
21: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:TEST-SYSTEM "flexi-streams") #<NULL-LEXENV>)
22: (EVAL-TLF (ASDF/OPERATE:TEST-SYSTEM "flexi-streams") NIL NIL)
23: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (ASDF/OPERATE:TEST-SYSTEM "flexi-streams") NIL)
24: (SB-INT:LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "standard input" {10003E83F3}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading")
25: ((LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) #<SB-SYS:FD-STREAM for "standard input" {10003E83F3}> NIL)
26: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) {7F3F23C6779B}> #<SB-SYS:FD-STREAM for "standard input" {10003E83F3}> NIL #<SB-SYS:FD-STREAM for "standard input" {10003E83F3}>)
27: (LOAD #<SB-SYS:FD-STREAM for "standard input" {10003E83F3}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT)
28: ((FLET SB-IMPL::LOAD-SCRIPT :IN SB-IMPL::PROCESS-SCRIPT) #<SB-SYS:FD-STREAM for "standard input" {10003E83F3}>)
29: ((FLET SB-UNIX::BODY :IN SB-IMPL::PROCESS-SCRIPT))
30: ((FLET "WITHOUT-INTERRUPTS-BODY-" :IN SB-IMPL::PROCESS-SCRIPT))
31: (SB-IMPL::PROCESS-SCRIPT T)
32: (SB-IMPL::TOPLEVEL-INIT)
33: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
34: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
35: (SB-IMPL::%START-LISP)

unhandled condition in --disable-debugger mode, quitting
;
; compilation unit aborted
;   caught 1 fatal ERROR condition

SBCL 2.4.4 and flexi-streams 4951d57

The tests pass on SBCL 2.4.3.

[hraban]

I've noticed a similar bug in fare-utils, it might or might not be related: https://gitlab.common-lisp.net/frideau/fare-utils/-/issues/1

[MIvanchev]

Seeing this in the Void Linux package as well: https://github.com/void-linux/void-packages/actions/runs/9052879599/job/24871056463?pr=49434