about summary refs log tree commit diff
path: root/third_party/lisp/mime4cl/endec.lisp
diff options
context:
space:
mode:
authorsterni <sternenseemann@systemli.org>2022-01-19T13·39+0100
committersterni <sternenseemann@systemli.org>2022-01-26T17·43+0000
commit25cb0ad32ff197092262c74e944d254e901632bd (patch)
tree68b70050e7ea3fd7912849292be03d289864acd3 /third_party/lisp/mime4cl/endec.lisp
parent40014c70b3b3545d2304411cb91b176d1a3e22d2 (diff)
style(3p/lisp): expand tabs in npg, mime4cl and sclf r/3675
Done using

    find third_party/lisp/{sclf,mime4cl,npg} \
      -name '*.lisp' -or -name '*.asd' \
      -exec bash -c 'expand -i -t 8 "$0" | sponge "$0"' {} \;

Change-Id: If84afac9c1d5cbc74e137a5aa0ae61472f0f1e90
Reviewed-on: https://cl.tvl.fyi/c/depot/+/5066
Tested-by: BuildkiteCI
Reviewed-by: sterni <sternenseemann@systemli.org>
Diffstat (limited to 'third_party/lisp/mime4cl/endec.lisp')
-rw-r--r--third_party/lisp/mime4cl/endec.lisp540
1 files changed, 270 insertions, 270 deletions
diff --git a/third_party/lisp/mime4cl/endec.lisp b/third_party/lisp/mime4cl/endec.lisp
index f63eb3c22e1d..9f2f9c51c260 100644
--- a/third_party/lisp/mime4cl/endec.lisp
+++ b/third_party/lisp/mime4cl/endec.lisp
@@ -33,7 +33,7 @@
     da))
 
 (declaim (type (simple-array (unsigned-byte 8)) +base64-decode-table+)
-	 (type simple-string +base64-encode-table+))
+         (type simple-string +base64-encode-table+))
 
 (defvar *base64-line-length* 76
   "Maximum length of the encoded base64 line.  NIL means it can
@@ -49,39 +49,39 @@ by the encoding function).")
 
 (defclass decoder ()
   ((input-function :initarg :input-function
-		   :reader decoder-input-function
-		   :type function
-		   :documentation
-		   "Function is called repeatedly by the decoder methods to get the next character.
+                   :reader decoder-input-function
+                   :type function
+                   :documentation
+                   "Function is called repeatedly by the decoder methods to get the next character.
 It should return a character os NIL (indicating EOF)."))
   (:documentation
    "Abstract base class for decoders."))
 
 (defclass parsing-decoder (decoder)
   ((parser-errors :initform nil
-		  :initarg :parser-errors
-		  :reader decoder-parser-errors
-		  :type boolean))
+                  :initarg :parser-errors
+                  :reader decoder-parser-errors
+                  :type boolean))
   (:documentation
    "Abstract base class for decoders that do parsing."))
 
 (defclass encoder ()
   ((output-function :initarg :output-function
-		    :reader encoder-output-function
-		    :type function
-		    :documentation
-		    "Function is called repeatedly by the encoder methods to output a character.
+                    :reader encoder-output-function
+                    :type function
+                    :documentation
+                    "Function is called repeatedly by the encoder methods to output a character.
 It should expect a character as its only argument."))
   (:documentation
    "Abstract base class for encoders."))
 
 (defclass line-encoder (encoder)
   ((column :initform 0
-	   :type fixnum)
+           :type fixnum)
    (line-length :initarg :line-length
-		:initform nil
-		:reader encoder-line-length
-		:type (or fixnum null)))
+                :initform nil
+                :reader encoder-line-length
+                :type (or fixnum null)))
   (:documentation
    "Abstract base class for line encoders."))
 
@@ -126,7 +126,7 @@ It should expect a character as its only argument."))
 
 (defmethod encoder-write-byte ((encoder 8bit-encoder) byte)
   (funcall (slot-value encoder 'output-function)
-	   (code-char byte))
+           (code-char byte))
   (values))
 
 (defmethod decoder-read-byte ((decoder 8bit-decoder))
@@ -135,7 +135,7 @@ It should expect a character as its only argument."))
 
 (defmethod encoder-write-byte ((encoder 7bit-encoder) byte)
   (funcall (slot-value encoder 'output-function)
-	   (code-char (logand #x7F byte)))
+           (code-char (logand #x7F byte)))
   (values))
 
 (defmethod decoder-read-byte ((decoder 7bit-decoder))
@@ -146,8 +146,8 @@ It should expect a character as its only argument."))
 
 (defun decoder-read-sequence (sequence decoder &key (start 0) (end (length sequence)))
   (declare (optimize (speed 3) (safety 0) (debug 0))
-	   (type fixnum start end)
-	   (type vector sequence))
+           (type fixnum start end)
+           (type vector sequence))
   (loop
      for i fixnum from start below end
      for byte = (decoder-read-byte decoder)
@@ -162,14 +162,14 @@ It should expect a character as its only argument."))
        unless byte
        do (return-from decoder-read-line nil)
        do (be c (code-char byte)
-	    (cond ((char= c #\return)
-		   ;; skip the newline
-		   (decoder-read-byte decoder)
-		   (return nil))
-		  ((char= c #\newline)
-		   ;; the #\return was missing
-		   (return nil))
-		  (t (write-char c str)))))))
+            (cond ((char= c #\return)
+                   ;; skip the newline
+                   (decoder-read-byte decoder)
+                   (return nil))
+                  ((char= c #\newline)
+                   ;; the #\return was missing
+                   (return nil))
+                  (t (write-char c str)))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
@@ -178,10 +178,10 @@ It should expect a character as its only argument."))
   "Parse two characters as hexadecimal and return their combined
 value."
   (declare (optimize (speed 3) (safety 0) (debug 0))
-	   (type character c1 c2))
+           (type character c1 c2))
   (flet ((digit-value (char)
-	   (or (position char "0123456789ABCDEF")
-	       (return-from parse-hex nil))))
+           (or (position char "0123456789ABCDEF")
+               (return-from parse-hex nil))))
     (+ (* 16 (digit-value c1))
        (digit-value c2))))
 
@@ -193,91 +193,91 @@ value."
   (with-slots (input-function saved-bytes parser-errors) decoder
     (declare (type function input-function))
     (labels ((saveb (b)
-	       (queue-append saved-bytes b)
-	       (values))
-	     (save (c)
-	       (saveb (char-code c)))
-	     (push-next ()
-	       (be c (funcall input-function)
-		 (declare (type (or null character) c))
-		 (cond ((not c))
-		       ((or (char= c #\space)
-			    (char= c #\tab))
-			(save c)
-			(push-next))
-		       ((char= c #\=)
-			(be c1 (funcall input-function)
-			  (cond ((not c1)
-				 (save #\=))
-				((char= c1 #\return)
-				 ;; soft line break: skip the next
-				 ;; character which we assume to be a
-				 ;; newline (pity if it isn't)
-				 (funcall input-function)
-				 (push-next))
-				((char= c1 #\newline)
-				 ;; soft line break: the #\return is
-				 ;; missing, but we are tolerant
-				 (push-next))
-				(t
-				 ;; hexadecimal sequence: get the 2nd digit
-				 (be c2 (funcall input-function)
-				   (if c2
-				       (aif (parse-hex c1 c2)
-					    (saveb it)
-					    (if parser-errors
-						(error "invalid hex sequence ~A~A" c1 c2)
-						(progn
-						  (save #\=)
-						  (save c1)
-						  (save c2))))
-				       (progn
-					 (save c)
-					 (save c1))))))))
-		       (t
-			(save c))))))
+               (queue-append saved-bytes b)
+               (values))
+             (save (c)
+               (saveb (char-code c)))
+             (push-next ()
+               (be c (funcall input-function)
+                 (declare (type (or null character) c))
+                 (cond ((not c))
+                       ((or (char= c #\space)
+                            (char= c #\tab))
+                        (save c)
+                        (push-next))
+                       ((char= c #\=)
+                        (be c1 (funcall input-function)
+                          (cond ((not c1)
+                                 (save #\=))
+                                ((char= c1 #\return)
+                                 ;; soft line break: skip the next
+                                 ;; character which we assume to be a
+                                 ;; newline (pity if it isn't)
+                                 (funcall input-function)
+                                 (push-next))
+                                ((char= c1 #\newline)
+                                 ;; soft line break: the #\return is
+                                 ;; missing, but we are tolerant
+                                 (push-next))
+                                (t
+                                 ;; hexadecimal sequence: get the 2nd digit
+                                 (be c2 (funcall input-function)
+                                   (if c2
+                                       (aif (parse-hex c1 c2)
+                                            (saveb it)
+                                            (if parser-errors
+                                                (error "invalid hex sequence ~A~A" c1 c2)
+                                                (progn
+                                                  (save #\=)
+                                                  (save c1)
+                                                  (save c2))))
+                                       (progn
+                                         (save c)
+                                         (save c1))))))))
+                       (t
+                        (save c))))))
       (or (queue-pop saved-bytes)
-	  (progn
-	    (push-next)
-	    (queue-pop saved-bytes))))))
+          (progn
+            (push-next)
+            (queue-pop saved-bytes))))))
 
 (defmacro make-encoder-loop (encoder-class input-form output-form)
   (with-gensyms (encoder byte)
     `(loop
-	with ,encoder = (make-instance ',encoder-class
-				       :output-function #'(lambda (char) ,output-form))
-	for ,byte = ,input-form
-	while ,byte
-	do (encoder-write-byte ,encoder ,byte)
-	finally (encoder-finish-output ,encoder))))
+        with ,encoder = (make-instance ',encoder-class
+                                       :output-function #'(lambda (char) ,output-form))
+        for ,byte = ,input-form
+        while ,byte
+        do (encoder-write-byte ,encoder ,byte)
+        finally (encoder-finish-output ,encoder))))
 
 (defmacro make-decoder-loop (decoder-class input-form output-form &key parser-errors)
   (with-gensyms (decoder)
     `(loop
-	with ,decoder = (make-instance ',decoder-class
-				       :input-function #'(lambda () ,input-form)
-				       :parser-errors ,parser-errors)
-	for byte = (decoder-read-byte ,decoder)
-	while byte
-	do ,output-form)))
+        with ,decoder = (make-instance ',decoder-class
+                                       :input-function #'(lambda () ,input-form)
+                                       :parser-errors ,parser-errors)
+        for byte = (decoder-read-byte ,decoder)
+        while byte
+        do ,output-form)))
 
 (defun decode-quoted-printable-stream (in out &key parser-errors)
   "Read from stream IN a quoted printable text and write to
 binary output OUT the decoded stream of bytes."
   (make-decoder-loop quoted-printable-decoder
-		     (read-byte in nil) (write-byte byte out)
-		     :parser-errors parser-errors))
+                     (read-byte in nil) (write-byte byte out)
+                     :parser-errors parser-errors))
 
 (defmacro make-stream-to-sequence-decoder (decoder-class input-form &key parser-errors)
   "Decode the character stream STREAM and return a sequence of bytes."
   (with-gensyms (output-sequence)
     `(be ,output-sequence (make-array 0
-				      :element-type '(unsigned-byte 8)
-				      :fill-pointer 0
-				      :adjustable t)
+                                      :element-type '(unsigned-byte 8)
+                                      :fill-pointer 0
+                                      :adjustable t)
        (make-decoder-loop ,decoder-class ,input-form
-			  (vector-push-extend byte ,output-sequence)
-			  :parser-errors ,parser-errors)
+                          (vector-push-extend byte ,output-sequence)
+                          :parser-errors ,parser-errors)
        ,output-sequence)))
 
 (defun decode-quoted-printable-stream-to-sequence (stream &key parser-errors)
@@ -295,84 +295,84 @@ return a decoded sequence of bytes."
 
 (defclass quoted-printable-encoder (line-encoder)
   ((line-length :initform *quoted-printable-line-length*
-		:type (or fixnum null))
+                :type (or fixnum null))
    (pending-space :initform nil
-		  :type boolean)))
+                  :type boolean)))
 
 (defmethod encoder-write-byte ((encoder quoted-printable-encoder) byte)
   (declare (optimize (speed 3) (safety 0) (debug 0))
-	   (type (unsigned-byte 8) byte))
+           (type (unsigned-byte 8) byte))
   (with-slots (output-function column pending-space line-length) encoder
     (declare (type function output-function)
-	     (type fixnum column)
-	     (type (or fixnum null) line-length)
-	     (type boolean pending-space))
+             (type fixnum column)
+             (type (or fixnum null) line-length)
+             (type boolean pending-space))
     (labels ((out (c)
-	       (funcall output-function c)
-	       (values))
-	     (outs (str)
-	       (declare (type simple-string str))
-	       (loop
-		  for c across str
-		  do (out c))
-	       (values))
-	     (out2hex (x)
-	       (declare (type fixnum x))
-	       (multiple-value-bind (a b) (truncate x 16)
-		 (out (digit-char a 16))
-		 (out (digit-char b 16)))))
+               (funcall output-function c)
+               (values))
+             (outs (str)
+               (declare (type simple-string str))
+               (loop
+                  for c across str
+                  do (out c))
+               (values))
+             (out2hex (x)
+               (declare (type fixnum x))
+               (multiple-value-bind (a b) (truncate x 16)
+                 (out (digit-char a 16))
+                 (out (digit-char b 16)))))
       (cond ((= byte #.(char-code #\newline))
-	     (when pending-space
-	       (outs "=20")
-	       (setf pending-space nil))
-	     (out #\newline)
-	     (setf column 0))
-	    ((= byte #.(char-code #\space))
-	     (if pending-space
-		 (progn
-		   (out #\space)
-		   (f++ column))
-		 (setf pending-space t)))
-	    (t
-	     (when pending-space
-	       (out #\space)
-	       (f++ column)
-	       (setf pending-space nil))
-	     (cond ((or (< byte 32)
-			(= byte #.(char-code #\=))
-			(> byte 126))
-		    (out #\=)
-		    (out2hex byte)
-		    (f++ column 3))
-		   (t
-		    (out (code-char byte))
-		    (f++ column)))))
+             (when pending-space
+               (outs "=20")
+               (setf pending-space nil))
+             (out #\newline)
+             (setf column 0))
+            ((= byte #.(char-code #\space))
+             (if pending-space
+                 (progn
+                   (out #\space)
+                   (f++ column))
+                 (setf pending-space t)))
+            (t
+             (when pending-space
+               (out #\space)
+               (f++ column)
+               (setf pending-space nil))
+             (cond ((or (< byte 32)
+                        (= byte #.(char-code #\=))
+                        (> byte 126))
+                    (out #\=)
+                    (out2hex byte)
+                    (f++ column 3))
+                   (t
+                    (out (code-char byte))
+                    (f++ column)))))
       (when (and line-length
-		 (>= column line-length))
-	;; soft line break
-	(outs #.(coerce '(#\= #\newline) 'string))
-	(setf column 0)))))
+                 (>= column line-length))
+        ;; soft line break
+        (outs #.(coerce '(#\= #\newline) 'string))
+        (setf column 0)))))
 
 (defmethod encoder-finish-output ((encoder quoted-printable-encoder))
   (declare (optimize (speed 3) (safety 0) (debug 0)))
   (with-slots (pending-space output-function) encoder
     (declare (type boolean pending-space)
-	     (type function output-function))
+             (type function output-function))
     (when pending-space
       (flet ((outs (s)
-	       (declare (type simple-string s))
-	       (loop
-		  for c across s
-		  do (funcall output-function c))))
-	(setf pending-space nil)
-	(outs "=20")))))
+               (declare (type simple-string s))
+               (loop
+                  for c across s
+                  do (funcall output-function c))))
+        (setf pending-space nil)
+        (outs "=20")))))
 
 (defun encode-quoted-printable-stream (in out)
   "Read from IN a stream of bytes and write to OUT a stream of
 characters quoted printables encoded."
   (make-encoder-loop quoted-printable-encoder
-		     (read-byte in nil)
-		     (write-char char out)))
+                     (read-byte in nil)
+                     (write-char char out)))
 
 (defun encode-quoted-printable-sequence-to-stream (sequence stream &key (start 0) (end (length sequence)))
   "Encode the sequence of bytes SEQUENCE and write to STREAM a
@@ -381,7 +381,7 @@ quoted printable sequence of characters."
     (make-encoder-loop quoted-printable-encoder
      (when (< i end)
        (prog1 (elt sequence i)
-	 (f++ i)))
+         (f++ i)))
      (write-char char stream))))
 
 (defun encode-quoted-printable-sequence (sequence &key (start 0) (end (length sequence)))
@@ -395,9 +395,9 @@ string and return it."
 (defclass base64-encoder (line-encoder)
   ((line-length :initform *base64-line-length*)
    (bitstore :initform 0
-	     :type fixnum)
+             :type fixnum)
    (bytecount :initform 0
-	      :type fixnum))
+              :type fixnum))
   (:documentation
    "Class for Base64 encoder output streams."))
 
@@ -406,76 +406,76 @@ string and return it."
   (unless (> most-positive-fixnum (expt 2 (* 8 3)))))
 
 (macrolet ((with-encoder (encoder &body forms)
-	     `(with-slots (bitstore line-length column bytecount output-function) ,encoder
-		(declare (type fixnum column)
-			 (type fixnum bitstore bytecount)
-			 (type (or fixnum null) line-length)
-			 (type function output-function))
-		(labels ((emitr (i b)
-			   (declare (type fixnum i b))
-			   (unless (zerop i)
-			     (emitr (1- i) (ash b -6)))
-			   (emitc
-			    (char +base64-encode-table+ (logand b #x3F)))
-			   (values))
-			 (out (c)
-			   (funcall output-function c))
-			 (eol ()
-			   (progn
-			     (out #\return)
-			     (out #\newline)))
-			 (emitc (char)
-			   (out char)
-			   (f++ column)
-			   (when (and line-length
-				      (>= column line-length))
-			     (setf column 0)
-			     (eol))))
-		  (declare (inline out eol emitc)
-			   (ignorable (function emitr) (function out) (function eol) (function emitc)))
-		  ,@forms))))
+             `(with-slots (bitstore line-length column bytecount output-function) ,encoder
+                (declare (type fixnum column)
+                         (type fixnum bitstore bytecount)
+                         (type (or fixnum null) line-length)
+                         (type function output-function))
+                (labels ((emitr (i b)
+                           (declare (type fixnum i b))
+                           (unless (zerop i)
+                             (emitr (1- i) (ash b -6)))
+                           (emitc
+                            (char +base64-encode-table+ (logand b #x3F)))
+                           (values))
+                         (out (c)
+                           (funcall output-function c))
+                         (eol ()
+                           (progn
+                             (out #\return)
+                             (out #\newline)))
+                         (emitc (char)
+                           (out char)
+                           (f++ column)
+                           (when (and line-length
+                                      (>= column line-length))
+                             (setf column 0)
+                             (eol))))
+                  (declare (inline out eol emitc)
+                           (ignorable (function emitr) (function out) (function eol) (function emitc)))
+                  ,@forms))))
   ;; For this function to work correctly, the FIXNUM must be at least
   ;; 24 bits.
   (defmethod encoder-write-byte ((encoder base64-encoder) byte)
     (declare (optimize (speed 3) (safety 0) (debug 0))
-	     (type (unsigned-byte 8) byte))
+             (type (unsigned-byte 8) byte))
     (with-encoder encoder
       (setf bitstore (logior byte (the fixnum (ash bitstore 8))))
       (f++ bytecount)
       (when (= 3 bytecount)
-	(emitr 3 bitstore)
-	(setf bitstore 0
-	      bytecount 0)))
+        (emitr 3 bitstore)
+        (setf bitstore 0
+              bytecount 0)))
     (values))
 
   (defmethod encoder-finish-output ((encoder base64-encoder))
     (with-encoder encoder
       (unless (zerop bytecount)
-	(multiple-value-bind (saved6 rest) (truncate (* bytecount 8) 6)
-	  (setf bitstore (ash bitstore (- 6 rest)))
-	  (emitr saved6 bitstore)
-	  (dotimes (x (- 3 saved6))
-	    (emitc #\=))))
+        (multiple-value-bind (saved6 rest) (truncate (* bytecount 8) 6)
+          (setf bitstore (ash bitstore (- 6 rest)))
+          (emitr saved6 bitstore)
+          (dotimes (x (- 3 saved6))
+            (emitc #\=))))
       (when (and line-length
-		 (not (zerop column)))
-	(eol)))
+                 (not (zerop column)))
+        (eol)))
     (values)))
 
 (defun encode-base64-stream (in out)
   "Read a byte stream from IN and write to OUT the encoded Base64
 character stream."
   (make-encoder-loop base64-encoder (read-byte in nil)
-		     (write-char char out)))
+                     (write-char char out)))
 
 (defun encode-base64-sequence-to-stream (sequence stream &key (start 0) (end (length sequence)))
   "Encode the sequence of bytes SEQUENCE and write to STREAM the
 Base64 character sequence."
   (be i start
     (make-encoder-loop base64-encoder
-		       (when (< i end)
-			 (prog1 (elt sequence i)
-			   (incf i)))
-		       (write-char char stream))))
+                       (when (< i end)
+                         (prog1 (elt sequence i)
+                           (incf i)))
+                       (write-char char stream))))
 
 (defun encode-base64-sequence (sequence &key (start 0) (end (length sequence)))
   "Encode the sequence of bytes SEQUENCE into a Base64 string and
@@ -485,7 +485,7 @@ return it."
 
 (defclass base64-decoder (parsing-decoder)
   ((bitstore :initform 0
-	     :type fixnum)
+             :type fixnum)
    (bytecount :initform 0 :type fixnum))
   (:documentation
    "Class for Base64 decoder input streams."))
@@ -494,45 +494,45 @@ return it."
   (declare (optimize (speed 3) (safety 0) (debug 0)))
   (with-slots (bitstore bytecount input-function) decoder
     (declare (type fixnum bitstore bytecount)
-	     (type function input-function))
+             (type function input-function))
     (labels ((in6 ()
-	       (loop
-		  for c = (funcall input-function)
-		  when (or (not c) (char= #\= c))
-		  do (return-from decoder-read-byte nil)
-		  do (be sextet (aref +base64-decode-table+ (char-code c))
-		       (unless (= sextet 65) ; ignore unrecognised characters
-			 (return sextet)))))
-	     (push6 (sextet)
-	       (declare (type fixnum sextet))
-	       (setf bitstore
-		     (logior sextet (the fixnum (ash bitstore 6))))))
+               (loop
+                  for c = (funcall input-function)
+                  when (or (not c) (char= #\= c))
+                  do (return-from decoder-read-byte nil)
+                  do (be sextet (aref +base64-decode-table+ (char-code c))
+                       (unless (= sextet 65) ; ignore unrecognised characters
+                         (return sextet)))))
+             (push6 (sextet)
+               (declare (type fixnum sextet))
+               (setf bitstore
+                     (logior sextet (the fixnum (ash bitstore 6))))))
       (case bytecount
-	(0
-	 (setf bitstore (in6))
-	 (push6 (in6))
-	 (setf bytecount 1)
-	 (ash bitstore -4))
-	(1
-	 (push6 (in6))
-	 (setf bytecount 2)
-	 (logand #xFF (ash bitstore -2)))
-	(2
-	 (push6 (in6))
-	 (setf bytecount 0)
-	 (logand #xFF bitstore))))))
+        (0
+         (setf bitstore (in6))
+         (push6 (in6))
+         (setf bytecount 1)
+         (ash bitstore -4))
+        (1
+         (push6 (in6))
+         (setf bytecount 2)
+         (logand #xFF (ash bitstore -2)))
+        (2
+         (push6 (in6))
+         (setf bytecount 0)
+         (logand #xFF bitstore))))))
 
 (defun decode-base64-stream (in out &key parser-errors)
   "Read from IN a stream of characters Base64 encoded and write
 to OUT a stream of decoded bytes."
   (make-decoder-loop base64-decoder
-		     (read-byte in nil) (write-byte byte out)
-		     :parser-errors parser-errors))
+                     (read-byte in nil) (write-byte byte out)
+                     :parser-errors parser-errors))
 
 (defun decode-base64-stream-to-sequence (stream &key parser-errors)
   (make-stream-to-sequence-decoder base64-decoder
-				   (read-char stream nil)
-				   :parser-errors parser-errors))
+                                   (read-char stream nil)
+                                   :parser-errors parser-errors))
 
 (defun decode-base64-string (string &key (start 0) (end (length string)) parser-errors)
   (with-input-from-string (in string :start start :end end)
@@ -551,10 +551,10 @@ to OUT a stream of decoded bytes."
   (gcase (encoding string-equal)
     (:quoted-printable
      (decode-quoted-printable-stream in out
-				     :parser-errors parser-errors-p))
+                                     :parser-errors parser-errors-p))
     (:base64
      (decode-base64-stream in out
-			   :parser-errors parser-errors-p))
+                           :parser-errors parser-errors-p))
     (otherwise
      (dump-stream-binary in out))))
 
@@ -562,10 +562,10 @@ to OUT a stream of decoded bytes."
   (gcase (encoding string-equal)
     (:quoted-printable
      (decode-quoted-printable-string string
-				     :parser-errors parser-errors-p))
+                                     :parser-errors parser-errors-p))
     (:base64
      (decode-base64-string string
-			   :parser-errors parser-errors-p))
+                           :parser-errors parser-errors-p))
     (otherwise
      (map '(vector (unsigned-byte 8)) #'char-code string))))
 
@@ -573,19 +573,19 @@ to OUT a stream of decoded bytes."
   (gcase (encoding string-equal)
     (:quoted-printable
      (decode-quoted-printable-stream-to-sequence stream
-						 :parser-errors parser-errors-p))
+                                                 :parser-errors parser-errors-p))
     (:base64
      (decode-base64-stream-to-sequence stream
-				       :parser-errors parser-errors-p))
+                                       :parser-errors parser-errors-p))
     (otherwise
      (loop
-	with output-sequence = (make-array 0 :fill-pointer 0
-					   :element-type '(unsigned-byte 8)
-					   :adjustable t)
-	for c = (read-char stream nil)
-	while c
-	do (vector-push-extend (char-code c) output-sequence)
-	finally (return output-sequence)))))
+        with output-sequence = (make-array 0 :fill-pointer 0
+                                           :element-type '(unsigned-byte 8)
+                                           :adjustable t)
+        for c = (read-char stream nil)
+        while c
+        do (vector-push-extend (char-code c) output-sequence)
+        finally (return output-sequence)))))
 
 (defun encode-stream (in out encoding)
   (gcase (encoding string-equal)
@@ -595,9 +595,9 @@ to OUT a stream of decoded bytes."
      (encode-base64-stream in out))
     (otherwise
      (loop
-	for byte = (read-byte in nil)
-	while byte
-	do (write-char (code-char byte) out)))))
+        for byte = (read-byte in nil)
+        while byte
+        do (write-char (code-char byte) out)))))
 
 (defun encode-sequence-to-stream (sequence out encoding)
   (gcase (encoding string-equal)
@@ -607,8 +607,8 @@ to OUT a stream of decoded bytes."
      (encode-base64-sequence-to-stream sequence out))
     (otherwise
      (loop
-	for byte across sequence
-	do (write-char (code-char byte) out)))))
+        for byte across sequence
+        do (write-char (code-char byte) out)))))
 
 (defun encode-sequence (sequence encoding)
   (gcase (encoding string-equal)
@@ -625,23 +625,23 @@ to OUT a stream of decoded bytes."
   "Decode a string encoded according to the quoted printable
 method of RFC2047 and return a sequence of bytes."
   (declare (optimize (speed 3) (debug 0) (safety 0))
-	   (type simple-string string))
+           (type simple-string string))
   (loop
      with output-sequence = (make-array (length string)
-					:element-type '(unsigned-byte 8)
-					:fill-pointer 0)
+                                        :element-type '(unsigned-byte 8)
+                                        :fill-pointer 0)
      for i fixnum from start by 1 below end
      for c = (char string i)
      do (case c
-	  (#\=
-	   (vector-push-extend (or (parse-hex (char string (1+ i)) (char string (+ 2 i)))
-				   ;; the char code was malformed
-				   #.(char-code #\?))
-			       output-sequence)
-	   (f++ i 2))
-	  (#\_ (vector-push-extend #.(char-code #\space) output-sequence))
-	  (otherwise
-	   (vector-push-extend (char-code c) output-sequence)))
+          (#\=
+           (vector-push-extend (or (parse-hex (char string (1+ i)) (char string (+ 2 i)))
+                                   ;; the char code was malformed
+                                   #.(char-code #\?))
+                               output-sequence)
+           (f++ i 2))
+          (#\_ (vector-push-extend #.(char-code #\space) output-sequence))
+          (otherwise
+           (vector-push-extend (char-code c) output-sequence)))
        finally (return output-sequence)))
 
 (defun decode-RFC2047-string (encoding string &key (start 0) (end (length string)))
@@ -669,15 +669,15 @@ sequence, a charset string indicating the original coding."
      for end = (search "?=" text :start2 (1+ second-?))
      while end
      do (let ((charset (string-upcase (subseq text (+ 2 start) first-?)))
-	      (encoding (subseq text (1+ first-?) second-?)))
-	  (unless (= previous-end start)
-	    (push (subseq text previous-end start)
-		  result))
-	  (setf previous-end (+ end 2))
-	  (push (cons (decode-RFC2047-string encoding text :start (1+ second-?) :end end)
-		      charset)
-		result))
+              (encoding (subseq text (1+ first-?) second-?)))
+          (unless (= previous-end start)
+            (push (subseq text previous-end start)
+                  result))
+          (setf previous-end (+ end 2))
+          (push (cons (decode-RFC2047-string encoding text :start (1+ second-?) :end end)
+                      charset)
+                result))
      finally (unless (= previous-end (length text))
-	       (push (subseq text previous-end (length text))
-		     result))
+               (push (subseq text previous-end (length text))
+                     result))
        (return (nreverse result))))