cl-rw

commit 646ad30cc7e11b18bb9ce3513da561797e73f244
parent dd8ce8d50c2042bf76dc54e4c66529c27c1c47e6
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 30 Aug 2014 16:36:32 +0200

remove unnecessary code

Diffstat:
M
base64.lisp
 | 
4
+---

1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/base64.lisp b/base64.lisp
@@ -65,9 +65,7 @@
          (let ((x (rw:peek reader)))
            (when (and x (position x table))
              (flet ((%next ()
-                      (let ((x (rw:next reader)))
-                        (unless (eql #\= x)
-                          (position x table))))
+                      (position (rw:next reader) table))
                     (%map (x n)
                       (ldb (byte 8 n) x)))
                (let* ((a (%next))