anchor.diff:  	       (oci-attr-get (deref-vp parmdp)
   			     +oci-dtype-param+
   			     precision
  -			     (uffi:make-null-pointer :unsigned-int)
  +			     +unsigned-int-null-pointer+
   			     +oci-attr-precision+
   			     (deref-vp errhp))
   	       (oci-attr-get (deref-vp parmdp)
   			     +oci-dtype-param+
   			     scale
  -			     (uffi:make-null-pointer :unsigned-int)
  +			     +unsigned-int-null-pointer+
   			     +oci-attr-scale+
   			     (deref-vp errhp))
   	       (let ((*scale (uffi:deref-pointer scale :byte))
  
positive.code: 				 sizeof
  				 dtype
  				 (foreign-resource-buffer indicators)
  				 (uffi:make-null-pointer :unsigned-short)
  				 (foreign-resource-buffer retcodes)
  				 +oci-default+))))))))
    
  
negative.code:   `(uffi:deref-pointer ,foreign-object :pointer-void))
  
  ;; constants - from OCI?
  
  (defvar +unsigned-char-null-pointer+
    (uffi:make-null-pointer :unsigned-char))
  (defvar +unsigned-short-null-pointer+
    (uffi:make-null-pointer :unsigned-short))
  (defvar +unsigned-int-null-pointer+
    (uffi:make-null-pointer :unsigned-int))
  
  (defconstant +var-not-in-list+       1007)
  (defconstant +no-data-found+         1403)
  