Comment 2 for bug 494761

Revision history for this message
Nikodemus Siivola (nikodemus) wrote :

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