X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fcode-extras.lisp;h=c81b365334d171de2621f09e18ebd059a2039a85;hb=9303b3dc86bdfe5193b403de7419dc5bc8cc79e4;hp=cc14fcfb6583aff974480a999575cef438c09795;hpb=18d4de696bc5063aad026ba62be613c7b07f5fc8;p=sbcl.git

diff --git a/contrib/code-extras.lisp b/contrib/code-extras.lisp
index cc14fcf..c81b365 100644
--- 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
+         ..)))