For those at the back of the class:
(format nil "~@<~A~@<~;~A~:@>~:@>" "<outer-block-prefix>" "<inner-block-body>")
=> "<outer-block-prefix><inner-block-body>" SHOULD be an error
...add a space at the start of the inner block prefix, and:
(format nil "~@<~A~@< ~;~A~:@>~:@>" "<outer-block-prefix>" "<inner-block-body>")
=| ERROR, which is right
For those at the back of the class:
(format nil "~@<~A~ @<~;~A~ :@>~:@> " "<outer- block-prefix> " "<inner- block-body> ")
=> "<outer- block-prefix> <inner- block-body> "
SHOULD be an error
...add a space at the start of the inner block prefix, and:
(format nil "~@<~A~@< ~;~A~:@>~:@>" "<outer- block-prefix> " "<inner- block-body> ")
=| ERROR, which is right