X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fcmucl-compat.lisp;h=59443639aec85464bb7d55aa5f4bafb909351752;hp=d285788121f222fdde3d206690e560deab3cfb9a;hb=refs%2Ftags%2Fv3.8.6;hpb=8a8ee2d7d791b7a3efaed06420802a925d16fca3

diff --git a/sql/cmucl-compat.lisp b/sql/cmucl-compat.lisp
index d285788..5944363 100644
--- a/sql/cmucl-compat.lisp
+++ b/sql/cmucl-compat.lisp
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; $Id$
 ;;;;
-;;;; This file, part of CLSQL, is Copyright (c) 2002-2004 by Kevin M. Rosenberg
+;;;; This file, part of CLSQL, is Copyright (c) 2002-2006 by Kevin M. Rosenberg
 ;;;;
 ;;;; CLSQL users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
@@ -54,18 +54,18 @@ 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))) 
+       (error "Unable to shrink vector ~S which is type-of ~S" ,vec (type-of ,vec)))
        )))