/[gcl]/gcl/ansi-tests/set-syntax-from-char.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/set-syntax-from-char.lsp

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

revision 1.6 by pfdietz, Mon Feb 7 03:09:11 2005 UTC revision 1.7 by pfdietz, Mon Feb 7 11:43:53 2005 UTC
# Line 226  Line 226 
226                     (set-syntax-from-char c #\")                     (set-syntax-from-char c #\")
227                     (handler-case                     (handler-case
228                      (read-from-string                      (read-from-string
229                       (concatenate 'string (list c c2 #\")))                       (concatenate 'string (list c c2 c)))
230                      (error (c) c))                      (error (c) c))
231                     (handler-case                     (handler-case
232                      (read-from-string                      (read-from-string
233                       (concatenate 'string (list c c2 #\" #\2)))                       (concatenate 'string (list c c2 c #\2)))
234                      (error (c) c))                      (error (c) c))
235                     (handler-case                     (handler-case
236                      (read-from-string (concatenate 'string (list c c2) "\")"))                      (read-from-string (concatenate 'string (list c c2 c) ")"))
237                      (error (c) c)))))                      (error (c) c)))))
238               (unless (equal results (list t expected expected expected))               (unless (equal results (list t expected expected expected))
239                 (list (list c results)))))))                 (list (list c results)))))))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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