projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8260: Automated commit for Debian build of clsql upstream-version-1.8.6
[clsql.git]
/
base
/
cmucl-compat.lisp
diff --git
a/base/cmucl-compat.lisp
b/base/cmucl-compat.lisp
index 8e7df718a3ce1b5a0c9538c56abb2976e67dcdef..61b9ad089a12bf1a55d1c75c54ce0eb7662426aa 100644
(file)
--- a/
base/cmucl-compat.lisp
+++ b/
base/cmucl-compat.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; 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
;;;;
;;;;
;;;; 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)
(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))))
(dotimes (i ,len)
(declare (fixnum i))
(setf (aref ,new-vec i) (aref ,vec i))))