Commit 2aa9cf2e authored by david's avatar david

Revision: cxml--devel--1.0--patch-61

Creator: David Lichteblau <>
Date: Thu Feb  5 23:40:01 CET 2004
Standard-date: 2004-02-05 22:40:01 GMT
Modified-files: domtest.lisp
Summary: parse-java-literal: translate \n

parse-java-literal: translate \n
parent 144601a3
......@@ -127,9 +127,16 @@
((digit-char-p (char str 0))
(parse-integer str))
((char= (char str 0) #\")
(let ((end (1- (length str))))
(assert (char= (char str end) #\"))
(subseq str 1 end)))
(with-output-to-string (out)
(with-input-from-string (in str)
(read-char in)
(for ((c = (read-char in))
:until (char= c #\"))
(if (char= c #\\)
(ecase (read-char in)
;; ...
(#\n (write-char #\newline out)))
(write-char c out))))))
(%intern str))))
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