Fix make-array transforms.

[sbcl.git] / contrib / code-extras.lisp

diff --git a/contrib/code-extras.lisp b/contrib/code-extras.lisp
index cc14fcf..c81b365 100644 (file)
--- a/contrib/code-extras.lisp
+++ b/contrib/code-extras.lisp
@@ -9,11 +9,11 @@
 #+nil
 (defun replace (..)
   (cond ((and (typep seq1 'simple-vector)
-             (typep seq2 'simple-vector))
-        (%replace-vector-vector ..))
-       ((and (typep seq1 'simple-string)
-             (typep seq2 'simple-string))
-        (%replace-vector-vector ..))
-       (t
-        ..)))
+              (typep seq2 'simple-vector))
+         (%replace-vector-vector ..))
+        ((and (typep seq1 'simple-string)
+              (typep seq2 'simple-string))
+         (%replace-vector-vector ..))
+        (t
+         ..)))