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

uri-template.lisp

@@ -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))))