X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fspecializable-array.lisp;h=d0d349f889362ecfabd5d94d222a7b379f4d9c79;hb=cd1b14acf6f548b28b8a14e554d779f0473122ec;hp=aac63c408ae53cd6b22a4fba4bc88bf89bc5c542;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/specializable-array.lisp b/src/code/specializable-array.lisp
index aac63c4..d0d349f 100644
--- a/src/code/specializable-array.lisp
+++ b/src/code/specializable-array.lisp
@@ -37,21 +37,21 @@
 ;;; running under the cross-compilation host ANSI Common Lisp.
 #+sb-xc-host
 (defun make-specializable-array (dimensions
-				 &rest rest
-				 &key (element-type t)
-				 &allow-other-keys)
+                                 &rest rest
+                                 &key (element-type t)
+                                 &allow-other-keys)
   (apply #'make-array
-	 dimensions
-	 (if (eq element-type t)
-	   rest
-	   (do ((reversed-modified-rest nil))
-	       ((null rest) (nreverse reversed-modified-rest))
-	     (let ((first (pop rest))
-		   (second (pop rest)))
-	       (when (eq first :element-type)
-		 (setf second t))
-	       (push first reversed-modified-rest)
-	       (push second reversed-modified-rest))))))
+         dimensions
+         (if (eq element-type t)
+           rest
+           (do ((reversed-modified-rest nil))
+               ((null rest) (nreverse reversed-modified-rest))
+             (let ((first (pop rest))
+                   (second (pop rest)))
+               (when (eq first :element-type)
+                 (setf second t))
+               (push first reversed-modified-rest)
+               (push second reversed-modified-rest))))))
 #-sb-xc-host
 (declaim #!-sb-fluid (inline make-specializable-array))
 #-sb-xc-host