clsql/base cmucl-compat.lisp,1.4,1.5

Update of /pubcvs/clsql/base
In directory boa.b9.com:/tmp/cvs-serv28943/base

Modified Files:
	cmucl-compat.lisp 
Log Message:
Auto commit for Debian build

Index: cmucl-compat.lisp
===================================================================
RCS file: /pubcvs/clsql/base/cmucl-compat.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** cmucl-compat.lisp	2 May 2003 03:05:54 -0000	1.4
--- cmucl-compat.lisp	6 May 2003 02:29:46 -0000	1.5
***************
*** 57,61 ****
  				   (array-element-type ,vec))))
  	 (check-type ,len fixnum)
! 	 (locally (declare (speed 3) (safety 0) (space 0)) 
  	   (dotimes (i ,len)
  	     (declare (fixnum i))
--- 57,61 ----
  				   (array-element-type ,vec))))
  	 (check-type ,len fixnum)
! 	 (locally (declare (optimize (speed 3) (safety 0) (space 0)) )
  	   (dotimes (i ,len)
  	     (declare (fixnum i))