/[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.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    

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

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