Permalink
Browse files

Clozure CL refuse unread-char to stream that is eof state.

  • Loading branch information...
1 parent d772144 commit 387acf617859f5aaab730c3682ad267ec8e08290 Kazuo Koga committed with Aug 30, 2010
Showing with 4 additions and 3 deletions.
  1. +4 −3 uri-template.lisp
View
@@ -208,16 +208,17 @@
token-accumulator)
(setf string-accumulator ()))))
(loop
- for next-char = (read-char stream nil #\Space recursive-p)
- until (member next-char '(#\Space \#Tab #\Newline #\)))
+ for next-char = (read-char stream nil nil recursive-p)
+ until (member next-char '(nil #\Space \#Tab #\Newline #\)))
do (case next-char
(#\{ (collect-string)
(push (read-expansion stream)
token-accumulator))
(#\})
(t (push next-char string-accumulator)))
finally
- (unread-char next-char stream)
+ (if next-char
+ (unread-char next-char stream))
(collect-string))
(reverse token-accumulator))))

0 comments on commit 387acf6

Please sign in to comment.