cl-ipp

commit 2984496584c9e077befb37bf5b1a8727805e2d73
parent 27e26e49f891db1b5593c33ec4abe498964527c9
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 10 Aug 2013 19:06:09 +0200

fix change after introduced rw:skip

Diffstat:
M
ipp.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ipp.lisp b/ipp.lisp
@@ -276,7 +276,7 @@
            (multiple-value-bind (i all) (funcall s)
              (unless i
                (return-from found nil))
-             (let ((z (rw:till (rw:reader all (+ i n)) '(#\"))))
+             (let ((z (rw:till (rw:skip (rw:reader all) (+ i n)) '(#\"))))
                (when (and z (char/= #\? (car z)))
                  (return-from found (coerce z 'string))))))))))