cl-rw

commit b5ce3d503365b9ab2de67c8d6b264e974b515483
parent 901ea48d109e9ffe053ae5401cf5271014918b66
Author: Tomas Hlavaty <tom@logand.com>
Date:   Thu,  8 May 2014 21:53:04 +0200

fix type #'\newline

Diffstat:
M
http.lisp
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/http.lisp b/http.lisp
@@ -25,12 +25,12 @@
     x))
 
 (defun next-status (reader)
-  (unless (member (rw:peek reader) '(#\return #'\newline))
+  (unless (member (rw:peek reader) '(#\return #\newline))
     (values (prog1 (next-protocol reader)
               (rw:skip reader))
             (prog1 (rw:next-z0 reader)
               (rw:skip reader))
-            (prog1 (coerce (rw:till reader '(#\return #'\newline)) 'string)
+            (prog1 (coerce (rw:till reader '(#\return #\newline)) 'string)
               (next-eol reader)))))
 
 (defun header-part-reader (reader)
@@ -170,7 +170,7 @@
     x))
 
 (defun next-query (reader)
-  (unless (member (rw:peek reader) '(#\return #'\newline))
+  (unless (member (rw:peek reader) '(#\return #\newline))
     (flet ((str (y)
              (when y
                (coerce y 'string))))