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>

1 files changed, 22 insertions, 22 deletions

diff --git a/third_party/lisp/sclf/serial.lisp b/third_party/lisp/sclf/serial.lisp
index 936c61606386..41d32e4c49fd 100644
--- a/third_party/lisp/sclf/serial.lisp
+++ b/third_party/lisp/sclf/serial.lisp
@@ -33,28 +33,28 @@
   (be class (class-of object)
     (pprint-logical-block (stream (copy-list (class-slots class)) :prefix "#.(" :suffix ")")
       (flet ((spc ()
-	       (write-char #\space stream)))
-	(write 'reconstruct-object :stream stream)
-	(spc)
-	(write (class-name class) :stream stream :escape t :readably t :pretty t)
-	(pprint-exit-if-list-exhausted)
-	(spc)
-	(loop
-	   (be* slot (pprint-pop)
-		slot-name (slot-definition-name slot)
-		initarg (car (slot-definition-initargs slot))
-	     (when (and initarg
-			(slot-boundp object slot-name))
-	       (write initarg :stream stream)
-	       (spc)
-	       (when *print-pretty*
-		 (pprint-newline :miser stream))
-	       (write (slot-value object slot-name)
-		      :stream stream)
-	       (pprint-exit-if-list-exhausted)
-	       (if *print-pretty*
-		   (pprint-newline :linear stream)
-		   (spc)))))))))
+               (write-char #\space stream)))
+        (write 'reconstruct-object :stream stream)
+        (spc)
+        (write (class-name class) :stream stream :escape t :readably t :pretty t)
+        (pprint-exit-if-list-exhausted)
+        (spc)
+        (loop
+           (be* slot (pprint-pop)
+                slot-name (slot-definition-name slot)
+                initarg (car (slot-definition-initargs slot))
+             (when (and initarg
+                        (slot-boundp object slot-name))
+               (write initarg :stream stream)
+               (spc)
+               (when *print-pretty*
+                 (pprint-newline :miser stream))
+               (write (slot-value object slot-name)
+                      :stream stream)
+               (pprint-exit-if-list-exhausted)
+               (if *print-pretty*
+                   (pprint-newline :linear stream)
+                   (spc)))))))))
 
 (defmethod print-object ((object printable-object-mixin) stream)
   (if *print-readably*