620 |
(reader-error parse-error) |
(reader-error parse-error) |
621 |
(reader-error stream-error) |
(reader-error stream-error) |
622 |
))) |
))) |
|
#| |
|
623 |
(when (subtypep* 'character 'base-char) |
(when (subtypep* 'character 'base-char) |
624 |
(setq table |
(setq table |
625 |
(append |
(append |
626 |
'((character base-char) |
'((character base-char) |
627 |
(string base-string) |
;; (string base-string) |
628 |
(simple-string simple-base-string)) |
;; (simple-string simple-base-string) |
629 |
|
) |
630 |
table))) |
table))) |
|
|# |
|
631 |
|
|
632 |
table)) |
table)) |
633 |
|
|