anchor.diff:          (oci-attr-get (deref-vp stmthp) 
   		      +oci-htype-stmt+ 
                         stmttype
  -		      (uffi:make-null-pointer :unsigned-int)
  +		      +unsigned-int-null-pointer+
   		      +oci-attr-stmt-type+ 
                         (deref-vp errhp)
   		      :database db)
  
positive.code: 	  (oci-attr-get (deref-vp parmdp)
  			+oci-dtype-param+ 
  			dtype-foreign
  			(uffi:make-null-pointer :unsigned-int)
  			+oci-attr-data-type+
  			(deref-vp errhp))
  	  (let ((dtype (uffi:deref-pointer dtype-foreign :unsigned-short)))
  
negative.code: 		    (value
  		     (let* ((arb (foreign-resource-buffer (cd-indicators cd)))
  			    (indicator (uffi:deref-array arb '(:array :short) irow)))
  		       ;;(declare (type short-array arb))
  		       (unless (= indicator -1)
  			 (ecase (cd-oci-data-type cd)
  			   (#.SQLT-STR  
  