diff --git a/third_party/lisp/mime4cl/default.nix b/third_party/lisp/mime4cl/default.nix index 06a20f77c..99b23c91a 100644 --- a/third_party/lisp/mime4cl/default.nix +++ b/third_party/lisp/mime4cl/default.nix @@ -9,6 +9,7 @@ depot.nix.buildLisp.library { depot.third_party.lisp.flexi-streams depot.third_party.lisp.npg depot.third_party.lisp.trivial-gray-streams + depot.third_party.lisp.qbase64 ]; srcs = [ diff --git a/third_party/lisp/mime4cl/streams.lisp b/third_party/lisp/mime4cl/streams.lisp index b1c78d6d0..d49e73824 100644 --- a/third_party/lisp/mime4cl/streams.lisp +++ b/third_party/lisp/mime4cl/streams.lisp @@ -45,7 +45,6 @@ '(unsigned-byte 8)) (defclass quoted-printable-decoder-stream (coder-input-stream-mixin quoted-printable-decoder) ()) -(defclass base64-decoder-stream (coder-input-stream-mixin base64-decoder) ()) (defclass 8bit-decoder-stream (coder-input-stream-mixin 8bit-decoder) ()) (defclass quoted-printable-encoder-stream (coder-output-stream-mixin quoted-printable-encoder) ()) @@ -262,7 +261,7 @@ be modified to match the :POSITION argument." (make-instance (ccase encoding (:quoted-printable 'quoted-printable-decoder-stream) - (:base64 'base64-decoder-stream)) + (:base64 'qbase64:decode-stream)) :underlying-stream portion-stream) portion-stream)))) diff --git a/users/sterni/mblog/config.lisp b/users/sterni/mblog/config.lisp index 08e2a872f..0d4cbfe8a 100644 --- a/users/sterni/mblog/config.lisp +++ b/users/sterni/mblog/config.lisp @@ -28,4 +28,4 @@ (setf ,name (funcall ,parser ,val-var-sym)))))))) (define-configuration-variables - *general-buffer-size* 4096 #'parse-integer) + *general-buffer-size* (min 4096 qbase64:+max-bytes-length+) #'parse-integer)