projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
52ecc15
)
r9436: relax declarations for sbcl
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 23 May 2004 04:51:10 +0000
(
04:51
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 23 May 2004 04:51:10 +0000
(
04:51
+0000)
db-oracle/oracle-sql.lisp
patch
|
blob
|
history
diff --git
a/db-oracle/oracle-sql.lisp
b/db-oracle/oracle-sql.lisp
index 79ba68e4bb30e20d71621266aca2c10103711550..3598dc93f628953edad15e9c753d83d6eaa5dd16 100644
(file)
--- a/
db-oracle/oracle-sql.lisp
+++ b/
db-oracle/oracle-sql.lisp
@@
-204,7
+204,7
@@
the length of that format.")
(uffi:def-type string-array (:array :unsigned-char))
(defun deref-oci-string (arrayptr string-index size)
(uffi:def-type string-array (:array :unsigned-char))
(defun deref-oci-string (arrayptr string-index size)
- (declare (type string-array arrayptr))
+
;;
(declare (type string-array arrayptr))
(declare (type (mod #.+n-buf-rows+) string-index))
(declare (type (and unsigned-byte fixnum) size))
(let* ((raw (uffi:convert-from-foreign-string
(declare (type (mod #.+n-buf-rows+) string-index))
(declare (type (and unsigned-byte fixnum) size))
(let* ((raw (uffi:convert-from-foreign-string
@@
-414,7
+414,7
@@
the length of that format.")
(value
(let* ((arb (foreign-resource-buffer (cd-indicators cd)))
(indicator (uffi:deref-array arb '(:array :short) irow)))
(value
(let* ((arb (foreign-resource-buffer (cd-indicators cd)))
(indicator (uffi:deref-array arb '(:array :short) irow)))
- (declare (type short-array arb))
+
;; b
(declare (type short-array arb))
(unless (= indicator -1)
(ecase (cd-oci-data-type cd)
(#.SQLT-STR
(unless (= indicator -1)
(ecase (cd-oci-data-type cd)
(#.SQLT-STR