/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.69 by pfdietz, Wed Jun 18 13:32:39 2003 UTC revision 1.70 by pfdietz, Thu Jun 19 02:25:54 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    (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    

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26