X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-oracle%2Foracle-sql.lisp;h=6d3211362a3e1cc19acf2b86f24cafa612fad28a;hp=222e030c9b41881c05edfb5276d0327044a8a3f8;hb=f2f838b60c580af1810e24ebc2385476370cf2e1;hpb=96952664d524cd0d9891cf5a7a93545a6a7647d3

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 222e030..6d32113 100644
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -37,8 +37,6 @@ likely that we'll have to worry about the CMUCL limit."))
 (defmacro deref-vp (foreign-object)
   `(the vp-type (uffi:deref-pointer (the vpp-type ,foreign-object) :pointer-void)))
 
-;; constants - from OCI?
-
 (defvar +unsigned-char-null-pointer+
   (uffi:make-null-pointer :unsigned-char))
 (defvar +unsigned-short-null-pointer+
@@ -46,6 +44,8 @@ likely that we'll have to worry about the CMUCL limit."))
 (defvar +unsigned-int-null-pointer+
   (uffi:make-null-pointer :unsigned-int))
 
+;; constants - from OCI?
+
 (defconstant +var-not-in-list+       1007)
 (defconstant +no-data-found+         1403)
 (defconstant +null-value-returned+   1405)
@@ -145,9 +145,9 @@ the length of that format.")
 				       (errcode :long))
 	     ;; ensure errbuf empty string
              (setf (uffi:deref-array errbuf '(:array :unsigned-char) 0)
-		   (uffi:ensure-char-storable (code-char 0)))
-
+	       (uffi:ensure-char-storable (code-char 0)))
              (setf (uffi:deref-pointer errcode :long) 0)
+	     
 	     (uffi:with-cstring (sqlstate nil)
 	       (oci-error-get (deref-vp errhp) 1
 			      sqlstate
@@ -189,7 +189,7 @@ the length of that format.")
 ;;; Enabling this can be handy for low-level debugging.
 #+nil
 (progn
-  (trace oci-initialize #+oci-8-1-5 oci-env-create oci-handle-alloc oci-logon
+  (trace #-oci7 oci-env-create oci-initialize oci-handle-alloc oci-logon
          oci-error-get oci-stmt-prepare oci-stmt-execute
          oci-param-get oci-logon oci-attr-get oci-define-by-pos oci-stmt-fetch)
   (setf debug::*debug-print-length* nil))
@@ -732,41 +732,35 @@ the length of that format.")
       ;; error-handling mechanism themselves) so we just assert they
       ;; work.
       (setf (deref-vp envhp) +null-void-pointer+)
-      #+oci-8-1-5
-      (progn
-        (oci-env-create envhp +oci-default+  +null-void-pointer+
-			+null-void-pointer+  +null-void-pointer+ 
-			+null-void-pointer+ 0 +null-void-pointer-pointer+)
-	(oci-handle-alloc envhp
-			  (deref-vp errhp)
-			  +oci-htype-error+ 0 
-			  +null-void-pointer-pointer+))
-      #-oci-8-1-5
+      #-oci7
+      (oci-env-create envhp +oci-default+ +null-void-pointer+
+		      +null-void-pointer+ +null-void-pointer+ 
+		      +null-void-pointer+ 0 +null-void-pointer-pointer+)
+      #+oci7
       (progn
 	(oci-initialize +oci-object+ +null-void-pointer+ +null-void-pointer+
 			+null-void-pointer+ +null-void-pointer-pointer+)
         (ignore-errors (oci-handle-alloc +null-void-pointer+ envhp
 					 +oci-htype-env+ 0
 					 +null-void-pointer-pointer+)) ;no testing return
-        (oci-env-init envhp +oci-default+ 0 +null-void-pointer-pointer+)
-        (oci-handle-alloc (deref-vp envhp) errhp
-			  +oci-htype-error+ 0 +null-void-pointer-pointer+)
-        (oci-handle-alloc (deref-vp envhp) srvhp
-			  +oci-htype-server+ 0 +null-void-pointer-pointer+)
-	(uffi:with-cstring (dblink nil)
-	  (oci-server-attach (deref-vp srvhp)
-			     (deref-vp errhp)
-			     dblink
-			     0 +oci-default+))
-        (oci-handle-alloc (deref-vp envhp) svchp
-			  +oci-htype-svcctx+ 0 +null-void-pointer-pointer+)
-        (oci-attr-set (deref-vp svchp)
-		      +oci-htype-svcctx+
-		      (deref-vp srvhp) 0 +oci-attr-server+ 
-		      (deref-vp errhp))
-        ;; oci-handle-alloc((dvoid *)encvhp, (dvoid **)&stmthp, OCI_HTYPE_STMT, 0, 0);
-        ;;#+nil
-	)
+        (oci-env-init envhp +oci-default+ 0 +null-void-pointer-pointer+))
+      (oci-handle-alloc (deref-vp envhp) errhp
+			+oci-htype-error+ 0 +null-void-pointer-pointer+)
+      (oci-handle-alloc (deref-vp envhp) srvhp
+			+oci-htype-server+ 0 +null-void-pointer-pointer+)
+      (uffi:with-cstring (dblink nil)
+	(oci-server-attach (deref-vp srvhp)
+			   (deref-vp errhp)
+			   dblink 
+			   0 +oci-default+))
+      (oci-handle-alloc (deref-vp envhp) svchp
+			+oci-htype-svcctx+ 0 +null-void-pointer-pointer+)
+      (oci-attr-set (deref-vp svchp)
+		    +oci-htype-svcctx+
+		    (deref-vp srvhp) 0 +oci-attr-server+ 
+		    (deref-vp errhp))
+      ;; oci-handle-alloc((dvoid *)encvhp, (dvoid **)&stmthp, OCI_HTYPE_STMT, 0, 0);
+      ;;#+nil
       ;; Actually, oci-server-version returns the client version, not the server versions
       ;; will use "SELECT VERSION FROM V$INSTANCE" to get actual server version.
       (let (db server-version client-version)