<dispatch macro> ::=
"#" (
"\\" <single escaped> <token rest>* /* character object*/
| "'" <object> /* function abbreviation*/
| '[0-9]*' "(" object* ")" /* simple vector*/
| '[0-9]*' "*" bdigit+ /* bit-vector*/
| ":" symbol /* uninterned symbol*/
| "." object /* read-time evaluation*/
| "," object /* load-time evaluation*/
| '[Bb]' <binary-rational> /* binary rational*/
| '[Oo]' <octal-rational> /* octal rational*/
| '[Xx]' <hexadecimal-rational> /* hexadecimal rational*/
| '[0-9]+' '[Rr]' '[0-9A-Za-z]+' /* radix-n rational*/
| '[0-9]+' '[Aa]' object /* array*/
| '[Ss]' object /* structure*/
| '[Pp]' <simple-string> /* pathname*/
| '[0-9]+' "=" object /* label following object*/
| '[0-9]+' "#" /* reference to #= label*/
| "+" object lws object /* read-time conditional*/
| "-" object lws object /* read-time conditional*/
| "|" ( '[^|#]' | '|[^#]' | '#[^|]' | <balanced comment> )* "|#" /* balanced comment*/
| '[Cc]' "(" lws? number lws number lws? ")" /* complex number*/
| '["$%&;>@^_`~/D-NQQ-WYZd-nqt-wyz\b]' /* undefined*/
| <user dispatch macro>
) |
