X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fcmucl-compat.lisp;h=9853ab8b8f6e68a76feee9f9fbddd018f02dd417;hp=d285788121f222fdde3d206690e560deab3cfb9a;hb=f10c3dcbe75b5532d6646e24ecd25f5651a0c3a9;hpb=7a4e06f13e1668c9dbf0ce7f288c6d9347a34b81

diff --git a/sql/cmucl-compat.lisp b/sql/cmucl-compat.lisp
index d285788..9853ab8 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
@@ -65,7 +65,7 @@ Needs to be a macro to overwrite value of 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)))
        )))