cl-rw

Layered streams for Common Lisp
git clone https://logand.com/git/cl-rw.git/
Log | Files | Refs

commit 2816c8c7bae0ed0bacd00b77a9c5dd5d3ed19a42
parent 646ad30cc7e11b18bb9ce3513da561797e73f244
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 31 Aug 2014 21:53:35 +0200

base64 custom suffix

Diffstat:
Mbase64.lisp | 6+++---
1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/base64.lisp b/base64.lisp @@ -27,7 +27,7 @@ (in-package :rw.base64) -(defun encode-reader (reader &key table wrap) ;; TODO wrap 76 +(defun encode-reader (reader &key table (suffix #\=)) (let (pending (table (or table "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"))) @@ -47,8 +47,8 @@ (b (%next)) (c (%next)) (x (+ (ash a 16) (ash (or b 0) 8) (or c 0)))) - (push (if c (%map x 0) #\=) pending) - (push (if b (%map x 6) #\=) pending) + (push (if c (%map x 0) suffix) pending) + (push (if b (%map x 6) suffix) pending) (push (%map x 12) pending) (%map x 18))))))))