X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdefine-compiler-macro.impure.lisp;h=d0b61a3df3230008cb352a876535efdb9125bed9;hb=1d9fe1f6d7d64aa05993d414c1cd683a2ce231cc;hp=50c4fe2230e4b0767136999dbf9a36f034b794df;hpb=cca6915901ef29ada74859eefa147f6ea553fe4e;p=sbcl.git

diff --git a/tests/define-compiler-macro.impure.lisp b/tests/define-compiler-macro.impure.lisp
index 50c4fe2..d0b61a3 100644
--- a/tests/define-compiler-macro.impure.lisp
+++ b/tests/define-compiler-macro.impure.lisp
@@ -8,15 +8,15 @@
   (if (atom arg)
       `(expt ,arg 2)
       (case (car arg)
-	(square (if (= (length arg) 2)
-		    `(expt ,(nth 1 arg) 4)
-		    form))
-	(expt   (if (= (length arg) 3)
-		    (if (numberp (nth 2 arg))
-			`(expt ,(nth 1 arg) ,(* 2 (nth 2 arg)))
+        (square (if (= (length arg) 2)
+                    `(expt ,(nth 1 arg) 4)
+                    form))
+        (expt   (if (= (length arg) 3)
+                    (if (numberp (nth 2 arg))
+                        `(expt ,(nth 1 arg) ,(* 2 (nth 2 arg)))
                          `(expt ,(nth 1 arg) (* 2 ,(nth 2 arg))))
-		    form))
-	(otherwise `(expt ,arg 2)))))
+                    form))
+        (otherwise `(expt ,arg 2)))))
 
 (assert (eql 81 (square (square 3))))
 
@@ -25,18 +25,17 @@
   (assert (not expanded-p)))
 
 (assert (equal '(expt x 2)
-	       (funcall (compiler-macro-function 'square)
-			'(square x)
-			nil)))
+               (funcall (compiler-macro-function 'square)
+                        '(square x)
+                        nil)))
 
 (assert (equal '(expt x 4)
-	       (funcall (compiler-macro-function 'square)
-			'(square (square x))
-			nil)))
+               (funcall (compiler-macro-function 'square)
+                        '(square (square x))
+                        nil)))
 
 (assert (equal '(expt x 2)
-	       (funcall (compiler-macro-function 'square)
-			'(funcall #'square x)
-			nil)))
+               (funcall (compiler-macro-function 'square)
+                        '(funcall #'square x)
+                        nil)))
 
-(quit :unix-status 104)