From 981c14d37d3c6b4037df4a2e43a4a2be5f8b358a Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 23 May 2004 04:51:10 +0000 Subject: [PATCH] r9436: relax declarations for sbcl --- db-oracle/oracle-sql.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp index 79ba68e..3598dc9 100644 --- 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) - (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 @@ -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))) - (declare (type short-array arb)) + ;; b(declare (type short-array arb)) (unless (= indicator -1) (ecase (cd-oci-data-type cd) (#.SQLT-STR -- 2.34.1