From 25cb0ad32ff197092262c74e944d254e901632bd Mon Sep 17 00:00:00 2001
From: sterni <sternenseemann@systemli.org>
Date: Wed, 19 Jan 2022 14:39:58 +0100
Subject: style(3p/lisp): expand tabs in npg, mime4cl and sclf

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>
---
 third_party/lisp/mime4cl/test/mime.lisp | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'third_party/lisp/mime4cl/test/mime.lisp')

diff --git a/third_party/lisp/mime4cl/test/mime.lisp b/third_party/lisp/mime4cl/test/mime.lisp
index 1488f927fcd3..4d5b10421873 100644
--- a/third_party/lisp/mime4cl/test/mime.lisp
+++ b/third_party/lisp/mime4cl/test/mime.lisp
@@ -25,9 +25,9 @@
 
 (defvar *samples-directory*
   (merge-pathnames (make-pathname :directory '(:relative "samples"))
-		   #.(or *compile-file-pathname*
-			 *load-pathname*
-			 #P"")))
+                   #.(or *compile-file-pathname*
+                         *load-pathname*
+                         #P"")))
 
 (defvar *sample1-file* (make-pathname :defaults #.(or *compile-file-pathname*
                                                       *load-pathname*)
@@ -36,21 +36,21 @@
 
 (deftest mime.1
     (let* ((orig (mime-message *sample1-file*))
-	   (dup (mime-message (with-output-to-string (out) (encode-mime-part orig out)))))
+           (dup (mime-message (with-output-to-string (out) (encode-mime-part orig out)))))
       (mime= orig dup))
   t)
 
 (deftest mime.2
     (loop
        for f in (directory (make-pathname :defaults *samples-directory*
-					  :name :wild
-					  :type "txt"))
+                                          :name :wild
+                                          :type "txt"))
        do
-	 (format t "~A:~%" f)
-	 (finish-output)
-	 (let* ((orig (mime-message f))
-		(dup (mime-message (with-output-to-string (out) (encode-mime-part orig out)))))
-	   (unless (mime= orig dup)
-	     (return nil)))
+         (format t "~A:~%" f)
+         (finish-output)
+         (let* ((orig (mime-message f))
+                (dup (mime-message (with-output-to-string (out) (encode-mime-part orig out)))))
+           (unless (mime= orig dup)
+             (return nil)))
        finally (return t))
   t)
-- 
cgit 1.4.1