about summary refs log tree commit diff
path: root/third_party/lisp/mime4cl/test/mime.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/test/mime.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/test/mime.lisp')
-rw-r--r--third_party/lisp/mime4cl/test/mime.lisp24
1 files changed, 12 insertions, 12 deletions
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)