X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base%2Fcmucl-compat.lisp;h=61b9ad089a12bf1a55d1c75c54ce0eb7662426aa;hb=a1b065f5ecfab0f477dd635d701249c0854523a9;hp=8e7df718a3ce1b5a0c9538c56abb2976e67dcdef;hpb=8d558ce162d1360f92e4d65d054e2f61c786319e;p=clsql.git

diff --git a/base/cmucl-compat.lisp b/base/cmucl-compat.lisp
index 8e7df71..61b9ad0 100644
--- a/base/cmucl-compat.lisp
+++ b/base/cmucl-compat.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: cmucl-compat.lisp,v 1.4 2003/05/02 03:05:54 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -56,7 +56,7 @@ Needs to be a macro to overwrite value of VEC."
        (let ((,new-vec (make-array ,len :element-type
 				   (array-element-type ,vec))))
 	 (check-type ,len fixnum)
-	 (locally (declare (speed 3) (safety 0) (space 0)) 
+	 (locally (declare (optimize (speed 3) (safety 0) (space 0)) )
 	   (dotimes (i ,len)
 	     (declare (fixnum i))
 	     (setf (aref ,new-vec i) (aref ,vec i))))