gistfile1.txt

(ql:quickload :scribble)
(ql:quickload :scribble/test)
(scribble/test:test-suite)

----------------

Test assertion failed:

Binary predicate (EQUAL X Y) failed.
x: (P "      @foo{blah blah blah}") => (OO "blah blah blah")
y: '#1=(FOO "blah blah blah") => #1#
   [Condition of type HU.DWIM.STEFIL::ASSERTION-FAILED]

Restarts:
 0: [CONTINUE] Roger, go on testing...
 1: [CONTINUE] Skip the rest of the test TEST-SCRIBBLE-FROM-STRING and continue by returning (values)
 2: [RETEST] Rerun the test TEST-SCRIBBLE-FROM-STRING
 3: [CONTINUE] Skip the rest of the test TEST-SUITE and continue by returning (values)
 4: [RETEST] Rerun the test TEST-SUITE
 5: [CONTINUE-WITHOUT-DEBUGGING] Turn off debugging for this test session and invoke the first CONTINUE restart
 6: [CONTINUE-WITHOUT-DEBUGGING-ERRORS] Do not stop at unexpected errors for the rest of this test session and continue by invoking the first CONTINUE restart
 7: [CONTINUE-WITHOUT-DEBUGGING-ASSERTIONS] Do not stop at failed assertions for the rest of this test session and continue by invoking the first CONTINUE restart
 8: [ABORT-TESTING] Abort the entire test session
 9: [RETRY] Retry SLY mREPL evaluation request.
 10: [*ABORT] Return to SLY's top level.
 11: [ABORT] abort thread (#<THREAD "sly-channel-1-mrepl-remote-1" RUNNING {1001878443}>)

Backtrace:
 0: (HU.DWIM.STEFIL::RECORD/FAILURE* HU.DWIM.STEFIL::FAILED-ASSERTION :SIGNAL-ASSERTION-FAILED T :DESCRIPTION-INITARGS (:FORM (IS (EQUAL #1=# #2=#)) :FORMAT-CONTROL "Binary predicate ~A failed.~%~ ..)
 1: ((LABELS TEST-SCRIBBLE-FROM-STRING :IN TEST-SCRIBBLE-FROM-STRING))
 2: ((LAMBDA NIL :IN HU.DWIM.STEFIL::RUN-TEST-BODY-IN-HANDLERS))
 3: (HU.DWIM.STEFIL::CALL-WITH-TEST-HANDLERS #<FUNCTION (LAMBDA NIL :IN HU.DWIM.STEFIL::RUN-TEST-BODY-IN-HANDLERS) {10060A314B}>)
 4: ((LABELS HU.DWIM.STEFIL::RUN-TEST-BODY :IN HU.DWIM.STEFIL::RUN-TEST-BODY-IN-HANDLERS))
 5: ((FLET HU.DWIM.STEFIL::BODY :IN HU.DWIM.STEFIL::RUN-TEST-BODY))
 6: (HU.DWIM.STEFIL::RUN-TEST-BODY #<test TEST-SCRIBBLE-FROM-STRING> #<FUNCTION (LABELS TEST-SCRIBBLE-FROM-STRING :IN TEST-SCRIBBLE-FROM-STRING) {52DA3BFB}> NIL NIL NIL)
 7: ((LABELS TEST-SUITE :IN TEST-SUITE))
 8: ((LAMBDA NIL :IN HU.DWIM.STEFIL::RUN-TEST-BODY-IN-HANDLERS))
 9: (HU.DWIM.STEFIL::CALL-WITH-TEST-HANDLERS #<FUNCTION (LAMBDA NIL :IN HU.DWIM.STEFIL::RUN-TEST-BODY-IN-HANDLERS) {10060890CB}>)
10: ((LABELS HU.DWIM.STEFIL::RUN-TEST-BODY :IN HU.DWIM.STEFIL::RUN-TEST-BODY-IN-HANDLERS))
11: ((FLET HU.DWIM.STEFIL::BODY :IN HU.DWIM.STEFIL::RUN-TEST-BODY))
12: (HU.DWIM.STEFIL::RUN-TEST-BODY #<test TEST-SUITE :tests 4> #<FUNCTION (LABELS TEST-SUITE :IN TEST-SUITE) {52A5604B}> NIL T NIL)
13: (TEST-SUITE)
14: (SB-INT:SIMPLE-EVAL-IN-LEXENV (TEST-SUITE) #<NULL-LEXENV>)
15: (EVAL (TEST-SUITE))
16: ((LAMBDA NIL :IN SLYNK-MREPL::MREPL-EVAL-1))
17: (SLYNK::CALL-WITH-RETRY-RESTART "Retry SLY mREPL evaluation request." #<FUNCTION (LAMBDA NIL :IN SLYNK-MREPL::MREPL-EVAL-1) {1005E6FCCB}>)
18: ((LAMBDA NIL :IN SLYNK-MREPL::MREPL-EVAL-1))
19: ((LAMBDA NIL :IN SLYNK::CALL-WITH-LISTENER))
20: (SLYNK::CALL-WITH-BINDINGS ((*PACKAGE* . #<PACKAGE "COMMON-LISP-USER">) (*DEFAULT-PATHNAME-DEFAULTS* . #P"/home/alanz/") (* . #1=(:SCRIBBLE/TEST)) (** :SCRIBBLE) (***) (/ #1#) ...) #<FUNCTION (LAMBDA ..
21: (SLYNK-MREPL::MREPL-EVAL-1 #<SLYNK-MREPL::MREPL mrepl-1-1> "(scribble/test:test-suite)")
22: (SLYNK-MREPL::MREPL-EVAL #<SLYNK-MREPL::MREPL mrepl-1-1> "(scribble/test:test-suite)")
23: (SLYNK:PROCESS-REQUESTS NIL)
24: ((LAMBDA NIL :IN SLYNK::SPAWN-CHANNEL-THREAD))
25: ((LAMBDA NIL :IN SLYNK::SPAWN-CHANNEL-THREAD))
26: (SLYNK-SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SLYNK:SLYNK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SLYNK::SPAWN-CHANNEL-THREAD) {1002DD000B}>)
27: ((FLET SLYNK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/alanz/.emacs.d/elpa/sly-20210303.1148/slynk/backend/sbcl.lisp") #<FUNCTION SLYNK:SLYNK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SLYNK::SPAWN-CH..
28: ((LAMBDA NIL :IN SLYNK::CALL-WITH-LISTENER))
29: (SLYNK::CALL-WITH-BINDINGS ((*PACKAGE* . #<PACKAGE "COMMON-LISP-USER">) (*DEFAULT-PATHNAME-DEFAULTS* . #P"/home/alanz/") (* . #1=(:SCRIBBLE/TEST)) (** :SCRIBBLE) (***) (/ #1#) ...) #<FUNCTION (LAMBDA ..
30: ((LAMBDA NIL :IN SLYNK::SPAWN-CHANNEL-THREAD))
31: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
32: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::RUN))
33: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
34: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::RUN))
35: (SB-THREAD::RUN)
36: ("foreign function: call_into_lisp")
37: ("foreign function: funcall1")