; from it after that..
-(defun fetch-row (qc (eof-errorp t) eof-value encoding)
+(defun fetch-row (qc &optional (eof-errorp t) eof-value encoding)
(declare (optimize (speed 3)))
(cond ((zerop (qc-n-from-oci qc))
(if eof-errorp
(unless (= indicator -1)
(ecase (cd-oci-data-type cd)
(#.SQLT-STR
- (deref-oci-string b irow (cd-sizeof cd)))
+ (deref-oci-string b irow (cd-sizeof cd) encoding))
(#.SQLT-FLT
(locally
(declare (type double-array b))
(declare (type int-array b))
(uffi:deref-array b '(:array :int) irow)))))
(#.SQLT-DATE
- (deref-oci-string b irow (cd-sizeof cd))))))))
+ (deref-oci-string b irow (cd-sizeof cd) encoding)))))))
(when (and (eq :string (cd-result-type cd))
value
(not (stringp value)))