fix tests broken in "make STRINGs start with alphanumeric chars"

[melisgl]

No description provided.

[hraban]

Thanks for fixing. For context, tests are broken since 92389e6 with:

WARNING: System definition file #P"/nix/store/7nqqqm2qr248h8pvqdl9qbwmzh2ighsa-system-fiasco/fiasco.asd" contains definition for system "fiasco-self-tests". Please only define "fiasco" and secondary systems with a name starting with "fiasco/" (e.g. "fiasco/test") in that file.
3BMD-TABLE-TESTS (Suite)
  TABLES-1................................................................[ OK ]
  TABLES-2................................................................[ OK ]
  TABLES-3................................................................[FAIL]
  TABLES-4................................................................[ OK ]
  TABLES-5................................................................[ OK ]
  TABLES-6................................................................[ OK ]


Test run had 1 failure:

  Failure 1: FAILED-ASSERTION when running 3BMD-TABLE-TESTS::TABLES-3
    Binary predicate (EQUALP X Y) failed.
    x: 3BMD-TESTS::RESULT => (3BMD::TABLE :HEAD
                              (((3BMD-GRAMMAR::TH (:PLAIN "Left-Aligned")
                                 3BMD-GRAMMAR::LEFT)
                                (3BMD-GRAMMAR::TH (:PLAIN "Center" " " "Aligned")
                                 3BMD-GRAMMAR::CENTER)
                                (3BMD-GRAMMAR::TH (:PLAIN "Right" " " "Aligned")
                                 3BMD-GRAMMAR::RIGHT)))
                              :BODY
                              (((3BMD-GRAMMAR::TD
                                 (:PLAIN "col" " " (:CODE "3") " " "is")
                                 3BMD-GRAMMAR::LEFT)
                                (3BMD-GRAMMAR::TD
                                 (:PLAIN "some" " " "wordy" " " "text")
                                 3BMD-GRAMMAR::CENTER)
                                (3BMD-GRAMMAR::TD (:PLAIN "$" "1600")
                                 3BMD-GRAMMAR::RIGHT))
                               ((3BMD-GRAMMAR::TD (:PLAIN "col" " " "2" " " "is")
                                 3BMD-GRAMMAR::LEFT)
                                (3BMD-GRAMMAR::TD (:PLAIN "centered")
                                 3BMD-GRAMMAR::CENTER)
                                (3BMD-GRAMMAR::TD (:PLAIN "$" "12")
                                 3BMD-GRAMMAR::RIGHT))
                               ((3BMD-GRAMMAR::TD (:PLAIN "zebra" " " "stripes")
                                 3BMD-GRAMMAR::LEFT)
                                (3BMD-GRAMMAR::TD (:PLAIN "are" " " "neat")
                                 3BMD-GRAMMAR::CENTER)
                                (3BMD-GRAMMAR::TD (:PLAIN "$" "1")
                                 3BMD-GRAMMAR::RIGHT))))
    y: 3BMD-TESTS::EXPECTED => (3BMD::TABLE :HEAD
                                (((3BMD-GRAMMAR::TH (:PLAIN "Left-Aligned")
                                   3BMD-GRAMMAR::LEFT)
                                  (3BMD-GRAMMAR::TH (:PLAIN "Center" " " "Aligned")
                                   3BMD-GRAMMAR::CENTER)
                                  (3BMD-GRAMMAR::TH (:PLAIN "Right" " " "Aligned")
                                   3BMD-GRAMMAR::RIGHT)))
                                :BODY
                                (((3BMD-GRAMMAR::TD
                                   (:PLAIN "col" " " (:CODE "3") " " "is")
                                   3BMD-GRAMMAR::LEFT)
                                  (3BMD-GRAMMAR::TD
                                   (:PLAIN "some" " " "wordy" " " "text")
                                   3BMD-GRAMMAR::CENTER)
                                  (3BMD-GRAMMAR::TD (:PLAIN "$1600")
                                   3BMD-GRAMMAR::RIGHT))
                                 ((3BMD-GRAMMAR::TD (:PLAIN "col" " " "2" " " "is")
                                   3BMD-GRAMMAR::LEFT)
                                  (3BMD-GRAMMAR::TD (:PLAIN "centered")
                                   3BMD-GRAMMAR::CENTER)
                                  (3BMD-GRAMMAR::TD (:PLAIN "$12")
                                   3BMD-GRAMMAR::RIGHT))
                                 ((3BMD-GRAMMAR::TD (:PLAIN "zebra" " " "stripes")
                                   3BMD-GRAMMAR::LEFT)
                                  (3BMD-GRAMMAR::TD (:PLAIN "are" " " "neat")
                                   3BMD-GRAMMAR::CENTER)
                                  (3BMD-GRAMMAR::TD (:PLAIN "$1")
                                   3BMD-GRAMMAR::RIGHT))))
Unhandled SIMPLE-ERROR in thread #<SB-THREAD:THREAD tid=259 "main thread" RUNNING
                                    {7004E00003}>:
  tests failed

Backtrace for: #<SB-THREAD:THREAD tid=259 "main thread" RUNNING {7004E00003}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-ERROR "tests failed" {700B07B603}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SIMPLE-ERROR "tests failed" {700B07B603}>)
2: (INVOKE-DEBUGGER #<SIMPLE-ERROR "tests failed" {700B07B603}>)
3: (ERROR "tests failed")
4: ((:METHOD ASDF/ACTION:PERFORM (ASDF/LISP-ACTION:TEST-OP (EQL #<ASDF/SYSTEM:SYSTEM "3bmd-ext-tables/tests">))) #<unused argument> #<unused argument>) [fast-method]
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "3bmd-ext-tables/tests">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "3bmd-ext-tables/tests">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {70058CB2C3}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {70058CB2C3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "3bmd-ext-tables"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "3bmd-ext-tables">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "3bmd-ext-tables">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:TEST-OP "3bmd-ext-tables")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:TEST-OP "3bmd-ext-tables") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {7007EEF12B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {700728FDCB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:TEST-OP "3bmd-ext-tables") [fast-method]
22: (ASDF/OPERATE:TEST-SYSTEM "3bmd-ext-tables")
23: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:TEST-SYSTEM "3bmd-ext-tables") #<NULL-LEXENV>)
24: (EVAL-TLF (ASDF/OPERATE:TEST-SYSTEM "3bmd-ext-tables") 1 NIL)
25: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (ASDF/OPERATE:TEST-SYSTEM "3bmd-ext-tables") 1)
26: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) (ASDF/OPERATE:TEST-SYSTEM "3bmd-ext-tables") :CURRENT-INDEX 1)
27: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) {109170E0B}> #<SB-C::SOURCE-INFO {7004E49443}> SB-C::INPUT-ERROR-IN-LOAD)
28: (SB-INT:LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /nix/store/irhnf4r6q7bpglbam4vf57b9cqn1123x-asdf-build-3bmd_3bmd-ext-tables.lisp" {7004E013C3}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading")
29: ((LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) #<SB-SYS:FD-STREAM for "file /nix/store/irhnf4r6q7bpglbam4vf57b9cqn1123x-asdf-build-3bmd_3bmd-ext-tables.lisp" {7004E013C3}> NIL)
30: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) {1091709EB}> #<SB-SYS:FD-STREAM for "file /nix/store/irhnf4r6q7bpglbam4vf57b9cqn1123x-asdf-build-3bmd_3bmd-ext-tables.lisp" {7004E013C3}> NIL #<SB-SYS:FD-STREAM for "file /nix/store/irhnf4r6q7bpglbam4vf57b9cqn1123x-asdf-build-3bmd_3bmd-ext-tables.lisp" {7004E013C3}>)
31: (LOAD #<SB-SYS:FD-STREAM for "file /nix/store/irhnf4r6q7bpglbam4vf57b9cqn1123x-asdf-build-3bmd_3bmd-ext-tables.lisp" {7004E013C3}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT)
32: ((FLET SB-IMPL::LOAD-SCRIPT :IN SB-IMPL::PROCESS-SCRIPT) #<SB-SYS:FD-STREAM for "file /nix/store/irhnf4r6q7bpglbam4vf57b9cqn1123x-asdf-build-3bmd_3bmd-ext-tables.lisp" {7004E013C3}>)
33: ((FLET SB-UNIX::BODY :IN SB-IMPL::PROCESS-SCRIPT))
34: ((FLET "WITHOUT-INTERRUPTS-BODY-" :IN SB-IMPL::PROCESS-SCRIPT))
35: (SB-IMPL::PROCESS-SCRIPT "/nix/store/irhnf4r6q7bpglbam4vf57b9cqn1123x-asdf-build-3bmd_3bmd-ext-tables.lisp")
36: (SB-IMPL::TOPLEVEL-INIT)
37: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
38: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
39: (SB-IMPL::%START-LISP)

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