darabi / cl-base64 Goto Github PK

git clone http://git.kpe.io/cl-base64.git

> (defmacro define-base64-decoder (hose sink)
>   `(defun ,(intern (format nil "~A-~A-~A-~A" '#:base64 hose '#:to sink))


< (defmacro def-base64-stream-to-* (output-type)
<   `(defun ,(intern (concatenate 'string (symbol-name :base64-stream-to-)
<                                 (symbol-name output-type)))

cl-user> (lspack :cl-base64 t)

CL-BASE64
   Symbols:         24 exported, 1098 total.
   Nicknames:     BASE64 
   Uses:          COMMON-LISP 
   Exported:      *URI-DECODE-TABLE* *URI-ENCODE-TABLE* 
                  +DECODE-TABLE+ +URI-DECODE-TABLE+ 
                  BAD-BASE64-CHARACTER BASE64-ERROR 
                  BASE64-STREAM-TO-INTEGER BASE64-STREAM-TO-STREAM 
                  BASE64-STREAM-TO-STRING BASE64-STREAM-TO-USB8-ARRAY 
                  BASE64-STRING-TO-INTEGER BASE64-STRING-TO-STREAM 
                  BASE64-STRING-TO-STRING BASE64-STRING-TO-USB8-ARRAY 
                  INCOMPLETE-BASE64-DATA INTEGER-TO-BASE64-STREAM 
                  INTEGER-TO-BASE64-STRING MAKE-DECODE-TABLE 
                  STREAM-TO-BASE64-STREAM STREAM-TO-BASE64-STRING 
                  STRING-TO-BASE64-STREAM STRING-TO-BASE64-STRING 
                  USB8-ARRAY-TO-BASE64-STREAM 
                  USB8-ARRAY-TO-BASE64-STRING
nil
cl-user> (apropos "BASE64-STRING-TO-STRING")
cl-base64:base64-string-to-string        
cl-base64::|base64-string-to-string|   F 
         :base64-string-to-string     V  :base64-string-to-string
; No value
cl-user>