"Comma inside backquoted structure (not a list or general vector.)"))
(*backquote-count* 0)
(body (if (char= (read-char stream t) #\( )
"Comma inside backquoted structure (not a list or general vector.)"))
(*backquote-count* 0)
(body (if (char= (read-char stream t) #\( )