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

diff --git a/src/code/specializable-array.lisp b/src/code/specializable-array.lisp
index 886133c..d0d349f 100644
--- a/src/code/specializable-array.lisp
+++ b/src/code/specializable-array.lisp
@@ -12,9 +12,6 @@
 
 (in-package "SB!KERNEL")
 
-(file-comment
-  "$Header$")
-
 ;;; It's hard to dump specialized vectors portably, because ANSI
 ;;; doesn't guarantee much about what specialized vectors exist.
 ;;; Thus, if we do
@@ -40,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