Parent Directory | Revision Log | Patch
revision 1.68 by pfdietz, Wed Jun 18 11:55:24 2003 UTC | revision 1.69 by pfdietz, Wed Jun 18 13:32:39 2003 UTC | |
---|---|---|
# | Line 620 the condition to go uncaught if it canno | Line 620 the condition to go uncaught if it canno |
620 | (reader-error parse-error) | (reader-error parse-error) |
621 | (reader-error stream-error) | (reader-error stream-error) |
622 | ))) | ))) |
623 | #| | |
624 | (when (subtypep* 'character 'base-char) | (when (subtypep* 'character 'base-char) |
625 | (setq table | (setq table |
626 | (append | (append |
# | Line 627 the condition to go uncaught if it canno | Line 628 the condition to go uncaught if it canno |
628 | (string base-string) | (string base-string) |
629 | (simple-string simple-base-string)) | (simple-string simple-base-string)) |
630 | table))) | table))) |
631 | |# | |
632 | ||
633 | table)) | table)) |
634 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |