Scriba tries to parse content of the code block and sometimes fails

[svetlyak40wt]

For example, it can fail if the code snippet contains a document in Scriba syntax with unknown tags.

Here is a minimal code to reproduce this problem:

CL-USER> (scriba::string-to-common-doc "
@begin[lang=lisp](code)

This is an example of Scriba markup:

@twitter(Bob)

@end(code)
")

The result is the error:

No node with name twitter
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [RETRY] Retry SLY mREPL evaluation request.
 1: [*ABORT] Return to SLY's top level.
 2: [ABORT] abort thread (#<THREAD "sly-channel-1-mrepl-remote-1" RUNNING {10036BD7C3}>)

Backtrace:
 0: ((:METHOD COMMON-DOC-PLUMP.PARSER:PARSE (PLUMP-DOM:ELEMENT)) #<PLUMP-DOM:ELEMENT twitter {10070BAE73}>) [fast-method]
      Locals:
        COMMON-DOC-PLUMP.PARSER::NODE = #<PLUMP-DOM:ELEMENT twitter {10070BAE73}>
 1: ((:METHOD COMMON-DOC-PLUMP.PARSER:PARSE (VECTOR)) #(#<PLUMP-DOM:TEXT-NODE {10070BABC3}> #<PLUMP-DOM:ELEMENT twitter {10070BAE73}> #<PLUMP-DOM:TEXT-NODE {10070BAF63}>)) [fast-method]
      Locals:
        COMMON-DOC-PLUMP.PARSER::VEC = #(#<PLUMP-DOM:TEXT-NODE {10070BABC3}> #<PLUMP-DOM:ELEMENT twitter {10070BAE73}> #<PLUMP-DOM:TEXT-NODE {10070BAF63}>)
 2: ((:METHOD COMMON-DOC-PLUMP.PARSER:PARSE (PLUMP-DOM:ELEMENT)) #<PLUMP-DOM:ELEMENT code {10070BAAA3}>) [fast-method]
      Locals:
        COMMON-DOC-PLUMP.PARSER::ATTRIBUTES = #<HASH-TABLE :TEST EQUALP :COUNT 1 {10070BA9E3}>
        COMMON-DOC-PLUMP.PARSER::NODE = #<PLUMP-DOM:ELEMENT code {10070BAAA3}>
 3: ((:METHOD COMMON-DOC-PLUMP.PARSER:PARSE (LIST)) (#<PLUMP-DOM:TEXT-NODE {10070BA7F3}> #<PLUMP-DOM:ELEMENT code {10070BAAA3}> #<PLUMP-DOM:TEXT-NODE {10070BAFE3}>)) [fast-method]
      Locals:
        LIST = (#<PLUMP-DOM:TEXT-NODE {10070BA7F3}> #<PLUMP-DOM:ELEMENT code {10070BAAA3}> #<PLUMP-DOM:TEXT-NODE {10070BAFE3}>)
 4: ((:METHOD COMMON-DOC-PLUMP.PARSER:PARSE (PLUMP-DOM:ROOT)) #<PLUMP-DOM:ROOT {10070BB043}>) [fast-method]
      Locals:
        COMMON-DOC-PLUMP.PARSER::ROOT = #<PLUMP-DOM:ROOT {10070BB043}>
 5: (COMMON-DOC-PLUMP.PARSER:PARSE-DOCUMENT #<PLUMP-DOM:ROOT {10070BB043}>)
 6: (SCRIBA::STRING-TO-COMMON-DOC " ..)
 7: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SCRIBA::STRING-TO-COMMON-DOC " ..)
 8: (EVAL (SCRIBA::STRING-TO-COMMON-DOC " ..)

if we call the scriba.parser:parse-string, it will return @twitter(Bob as parsed entity, not ass part of the code block:

CL-USER> (scriba.parser:parse-string "
@begin[lang=lisp](code)

This is an example of Scriba markup:

@twitter(Bob)

@end(code)
")
(:DOCUMENT "
"
 (:NAME "begin" :ATTRS (("lang" . "lisp")) :BODY ("code")) "

This is an example of scriba markup:

"
 (:NAME "twitter" :ATTRS NIL :BODY ("Bob")) "

"
 (:NAME "end" :ATTRS NIL :BODY ("code")) "
")
NIL
T