Skip to content
This repository
Browse code

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

  • Loading branch information...
commit 387acf617859f5aaab730c3682ad267ec8e08290 1 parent d772144
Kazuo Koga authored committed

Showing 1 changed file with 4 additions and 3 deletions. Show diff stats Hide diff stats

  1. +4 3 uri-template.lisp
7 uri-template.lisp
@@ -208,8 +208,8 @@
208 208 token-accumulator)
209 209 (setf string-accumulator ()))))
210 210 (loop
211   - for next-char = (read-char stream nil #\Space recursive-p)
212   - until (member next-char '(#\Space \#Tab #\Newline #\)))
  211 + for next-char = (read-char stream nil nil recursive-p)
  212 + until (member next-char '(nil #\Space \#Tab #\Newline #\)))
213 213 do (case next-char
214 214 (#\{ (collect-string)
215 215 (push (read-expansion stream)
@@ -217,7 +217,8 @@
217 217 (#\})
218 218 (t (push next-char string-accumulator)))
219 219 finally
220   - (unread-char next-char stream)
  220 + (if next-char
  221 + (unread-char next-char stream))
221 222 (collect-string))
222 223 (reverse token-accumulator))))
223 224

0 comments on commit 387acf6

Please sign in to comment.
Something went wrong with that request. Please try again.