Commit c5e2466b authored by Jan Idzikowski's avatar Jan Idzikowski
Browse files

revert the #-allegro part in base64-encode-file to use cl-base64

thanks Attila Lendvai for the patch
parent 5b45d12d
......@@ -103,16 +103,16 @@
;; encode the buffer and write out to stream
#+allegro
(write-string (excl:usb8-array-to-base64-string
(if (< byte-count max-buffer-size)
(trimmed-buffer byte-count buffer)
buffer)
wrap-at-column) sock)
(if (< byte-count max-buffer-size)
(trimmed-buffer byte-count buffer)
buffer)
wrap-at-column) sock)
#-allegro
(s-base64:encode-base64-bytes
(cl-base64:usb8-array-to-base64-stream
(if (< byte-count max-buffer-size)
(trimmed-buffer byte-count buffer)
buffer)
sock t)
sock :columns wrap-at-column)
(force-output sock)
;;-- when finished reading exit do loop
(when (< byte-count max-buffer-size)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment