Comments on: String parsing with the LOOP facility http://blog.viridian-project.de/2007/12/13/string-parsing-with-the-loop-facility/ Leslie P. Polzer on code, music, literature, design and free software business. Fri, 09 Dec 2011 14:52:23 +0000 hourly 1 http://wordpress.org/?v=3.0.1 By: admin http://blog.viridian-project.de/2007/12/13/string-parsing-with-the-loop-facility/comment-page-1/#comment-8 admin Thu, 13 Dec 2007 19:17:05 +0000 http://blog.viridian-project.de/2007/12/13/string-parsing-with-the-loop-facility/#comment-8 Great, thanks! Great, thanks!

]]> By: Zach Beane http://blog.viridian-project.de/2007/12/13/string-parsing-with-the-loop-facility/comment-page-1/#comment-7 Zach Beane Thu, 13 Dec 2007 16:18:28 +0000 http://blog.viridian-project.de/2007/12/13/string-parsing-with-the-loop-facility/#comment-7 LOOP's fun, but I think this particular task would look better with a simpler variation: (defun read-lisp-string (input) (with-output-to-string (output) (loop (let ((char (read-char input))) (case char (#\\ (setf char (read-char input))) (#\" (return))) (write-char char output))))) (Hope the formatting survives...) LOOP’s fun, but I think this particular task would look better with a simpler variation:

(defun read-lisp-string (input)
(with-output-to-string (output)
(loop
(let ((char (read-char input)))
(case char
(#\\
(setf char (read-char input)))
(#\”
(return)))
(write-char char output)))))

(Hope the formatting survives…)

]]>