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:   `(uffi:deref-pointer ,foreign-object :pointer-void))
  
  ;; constants - from OCI?
  
  (defconstant +var-not-in-list+       1007)
  (defconstant +no-data-found+         1403)
  
negative.code: 	       (oci-attr-get (deref-vp parmdp)
  			     +oci-dtype-param+
  			     precision
  			     +unsigned-int-null-pointer+
  			     +oci-attr-precision+
  			     (deref-vp errhp))
  	       (oci-attr-get (deref-vp parmdp)
  			     +oci-dtype-param+
  			     scale
  			     +unsigned-int-null-pointer+
  			     +oci-attr-scale+
  			     (deref-vp errhp))
  	       (let ((*scale (uffi:deref-pointer scale :byte))
  