projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9345: * LATEST-TEST-RESULTS: Run on all platforms, add AMD64
[clsql.git]
/
uffi
/
clsql-uffi.lisp
diff --git
a/uffi/clsql-uffi.lisp
b/uffi/clsql-uffi.lisp
index e1f687b53494cd28b2f9471bff3d0a444e49207e..63267022dc7ce8c7710b36edee0c395907ce35d8 100644
(file)
--- a/
uffi/clsql-uffi.lisp
+++ b/
uffi/clsql-uffi.lisp
@@
-21,14
+21,14
@@
(defun canonicalize-type-list (types auto-list)
"Ensure a field type list meets expectations"
(defun canonicalize-type-list (types auto-list)
"Ensure a field type list meets expectations"
- (decla
im
(optimize (speed 3) (safety 0)))
+ (decla
re
(optimize (speed 3) (safety 0)))
(do ((i 0 (1+ i))
(new-types '())
(length-types (length types))
(length-auto-list (length auto-list)))
((= i length-auto-list)
(nreverse new-types))
(do ((i 0 (1+ i))
(new-types '())
(length-types (length types))
(length-auto-list (length auto-list)))
((= i length-auto-list)
(nreverse new-types))
- (decla
im
(fixnum length-types length-auto-list i))
+ (decla
re
(fixnum length-types length-auto-list i))
(if (>= i length-types)
(push t new-types) ;; types is shorted than num-fields
(push
(if (>= i length-types)
(push t new-types) ;; types is shorted than num-fields
(push