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))))))) |