Commit c7c9fa73 authored by pfdietz's avatar pfdietz
Browse files

Fixed set-syntax-from-char.double-quote

parent 85dc21ea
......@@ -226,14 +226,14 @@
(set-syntax-from-char c #\")
(handler-case
(read-from-string
(concatenate 'string (list c c2 #\")))
(concatenate 'string (list c c2 c)))
(error (c) c))
(handler-case
(read-from-string
(concatenate 'string (list c c2 #\" #\2)))
(concatenate 'string (list c c2 c #\2)))
(error (c) c))
(handler-case
(read-from-string (concatenate 'string (list c c2) "\")"))
(read-from-string (concatenate 'string (list c c2 c) ")"))
(error (c) c)))))
(unless (equal results (list t expected expected expected))
(list (list c results)))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment