;;;;
;;;; $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
(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)))
)))