(oci-error-get (deref errhp) 1 "" (c-& errcode 0) (c-& errbuf 0) +errbuf-len+ +oci-htype-error+)
(let ((subcode (deref errcode 0)))
(unless (and nulls-ok (= subcode +null-value-returned+))
(oci-error-get (deref errhp) 1 "" (c-& errcode 0) (c-& errbuf 0) +errbuf-len+ +oci-htype-error+)
(let ((subcode (deref errcode 0)))
(unless (and nulls-ok (= subcode +null-value-returned+))