Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

  • Loading branch information...
commit 387acf617859f5aaab730c3682ad267ec8e08290 1 parent d772144
Kazuo Koga authored committed
Showing with 4 additions and 3 deletions.
  1. +4 −3 uri-template.lisp
View
7 uri-template.lisp
@@ -208,8 +208,8 @@
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)
@@ -217,7 +217,8 @@
(#\})
(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))))
Please sign in to comment.
Something went wrong with that request. Please try again.