r11859: Canonicalize whitespace

[clsql.git] / sql / cmucl-compat.lisp

diff --git a/sql/cmucl-compat.lisp b/sql/cmucl-compat.lisp
index 9853ab8b8f6e68a76feee9f9fbddd018f02dd417..59443639aec85464bb7d55aa5f4bafb909351752 100644 (file)
--- a/sql/cmucl-compat.lisp
+++ b/sql/cmucl-compat.lisp
@@ -54,16 +54,16 @@ Needs to be a macro to overwrite value of VEC."
        (adjust-array ,vec ,len))
       ((typep ,vec 'simple-array)
        (let ((,new-vec (make-array ,len :element-type
-                                  (array-element-type ,vec))))
-        (check-type ,len fixnum)
-        (locally (declare (optimize (speed 3) (safety 0) (space 0)) )
-          (dotimes (i ,len)
-            (declare (fixnum i))
-            (setf (aref ,new-vec i) (aref ,vec i))))
-        (setq ,vec ,new-vec)))
+                                   (array-element-type ,vec))))
+         (check-type ,len fixnum)
+         (locally (declare (optimize (speed 3) (safety 0) (space 0)) )
+           (dotimes (i ,len)
+             (declare (fixnum i))
+             (setf (aref ,new-vec i) (aref ,vec i))))
+         (setq ,vec ,new-vec)))
       ((typep ,vec 'vector)
-       (setf (fill-pointer ,vec) ,len)
-       ,vec)
+        (setf (fill-pointer ,vec) ,len)
+        ,vec)
       (t
        (error "Unable to shrink vector ~S which is type-of ~S" ,vec (type-of ,vec)))
        )))