r2012: *** empty log message ***

diff --git a/interfaces/oracle/alien-resources.cl b/interfaces/oracle/alien-resources.cl
index 2c44b22b1b09eff3d2a72cbd14b4acb14e2de7cd..c2bdf9dbf9983fd6a6c874a522c4e1d13f2fc437 100644 (file)
--- a/interfaces/oracle/alien-resources.cl
+++ b/interfaces/oracle/alien-resources.cl
@@ -1,14 +1,13 @@
 ;;; -*- Mode: Lisp -*-
-;;; $Id: alien-resources.cl,v 1.1 2002/05/13 03:52:24 kevin Exp $
+;;; $Id: alien-resources.cl,v 1.2 2002/05/13 03:57:09 kevin Exp $
 
-;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
 ;;; This is copyrighted software.  See documentation for terms.
 ;;; 
 ;;; oracle-sql.lisp --- SQL-Interface implementation for Oracle
 ;;;
 ;;; derived from postgresql.lisp
 
-(in-package :MAISQL-ORACLE)
+(in-package :clsql-oracle)
 
 (declaim (optimize (speed 3)
                   (debug 1)))

diff --git a/interfaces/oracle/clsql-oracle.system b/interfaces/oracle/clsql-oracle.system
index be78d8fc94a50365a1e8848e559926eb9cc445e4..cc6426e07f183b012070683f637356f22f2656f9 100644 (file)
--- a/interfaces/oracle/clsql-oracle.system
+++ b/interfaces/oracle/clsql-oracle.system
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp -*-
 ;;;; This is copyrighted software.  See documentation for terms.
 ;;;; 
-;;;; $Id: clsql-oracle.system,v 1.1 2002/05/13 03:52:24 kevin Exp $
+;;;; $Id: clsql-oracle.system,v 1.2 2002/05/13 03:58:01 kevin Exp $
 
 (in-package :cl-user)
 
@@ -26,7 +26,7 @@
      (:file "oracle-objects"
            :depends-on ("oracle-sql"))
      )
-    :depends-on (:uncommonsql)
+    :depends-on (:clsql-base)
     )
 
 

diff --git a/interfaces/oracle/oracle-constants.cl b/interfaces/oracle/oracle-constants.cl
index 206f08f0a6e4237dbe9686b92879a1466297b430..2c9f56c346321263f56c6a190449c939739a4180 100644 (file)
--- a/interfaces/oracle/oracle-constants.cl
+++ b/interfaces/oracle/oracle-constants.cl
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp -*-
-;;; $Id: oracle-constants.cl,v 1.1 2002/05/13 03:52:24 kevin Exp $
+;;; $Id: oracle-constants.cl,v 1.2 2002/05/13 03:57:09 kevin Exp $
 
-(in-package :MAISQL-ORACLE)
+(in-package :clsql-oracle)
 
 (defconstant +oci-default+     #x00)   ; default value for parameters and attributes
 (defconstant +oci-threaded+    #x01)   ; application is in threaded environment

diff --git a/interfaces/oracle/oracle-loader.cl b/interfaces/oracle/oracle-loader.cl
index a610d59c85441bfe486a07d9bc9ab217f20c3189..48d32465826e918ca53a62d0effb431ce1f6711e 100644 (file)
--- a/interfaces/oracle/oracle-loader.cl
+++ b/interfaces/oracle/oracle-loader.cl
@@ -1,12 +1,12 @@
 ;;; -*- Mode: Lisp -*-
-;;; $Id: oracle-loader.cl,v 1.1 2002/05/13 03:52:24 kevin Exp $
+;;; $Id: oracle-loader.cl,v 1.2 2002/05/13 03:57:09 kevin Exp $
 ;;;
 ;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
 ;;; This is copyrighted software.  See documentation for terms.
 ;;; 
 ;;; oracle-loader.cl --- Foreign Object Loader for Oracle
 
-(in-package :MAISQL-ORACLE)
+(in-package :clsql-oracle)
 
 ;; Load the foreign library
 

diff --git a/interfaces/oracle/oracle-objects.cl b/interfaces/oracle/oracle-objects.cl
index 14ecad233287f5c0718ba563aecd76b1c9a95ede..23f22d7cf48fb759dc8cf5a2f9edf05d783d179b 100644 (file)
--- a/interfaces/oracle/oracle-objects.cl
+++ b/interfaces/oracle/oracle-objects.cl
@@ -1,4 +1,4 @@
-(in-package :maisql-oracle)
+(in-package :clsql-oracle)
 
 (defparameter *oracle-default-varchar2-length* "512")
 
@@ -77,13 +77,13 @@
 
 ;;; LOCAL-TIME stuff that needs to go into hooks
 #+local-time
-(defmethod maisql-sys::database-get-type-specifier
+(defmethod clsql-sys::database-get-type-specifier
   ((type (eql 'local-time::local-time)) args (database oracle-database))
   (declare (ignore args))
   "DATE")
 
 #+local-time
-(defmethod maisql-sys::database-get-type-specifier
+(defmethod clsql-sys::database-get-type-specifier
   ((type (eql 'local-time::duration))
    args
    (database oracle-database))

diff --git a/interfaces/oracle/oracle-package.cl b/interfaces/oracle/oracle-package.cl
index 5a032897351c7ecc2b05382cf3a24b82ba723457..9dd43b0e6b7f0abaed67d1c15ac87c847510a2cd 100644 (file)
--- a/interfaces/oracle/oracle-package.cl
+++ b/interfaces/oracle/oracle-package.cl
@@ -1,18 +1,14 @@
 ;;; -*- Mode: Lisp -*-
-;;; $Id: oracle-package.cl,v 1.1 2002/05/13 03:52:24 kevin Exp $
+;;; $Id: oracle-package.cl,v 1.2 2002/05/13 03:57:09 kevin Exp $
 ;;;
-;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
 ;;; This is copyrighted software.  See documentation for terms.
-;;; 
-;;; oracle-package.lisp --- Package definition for the Oracle interface
-;;; 
 
 (in-package :cl-user)
 
-(defpackage "MAISQL-ORACLE"
-  (:nicknames "ORACLE")
-  (:use "COMMON-LISP" "MAISQL-SYS" "ALIEN" "C-CALL" "SYSTEM")
-  (:export "ORACLE-DATABASE"
-          "*ORACLE-SO-LOAD-PATH*"
-          "*ORACLE-SO-LIBRARIES*")
-  (:documentation "This is the MaiSQL interface to Oracle."))
+(defpackage :clsql-oracle
+  (:nicknames :oracle)
+  (:use :common-lisp :clsql-sys "ALIEN" "C-CALL" "SYSTEM")
+  (:export #:oracle-database
+          #:*oracle-so-load-path*
+          #:*oracle-so-libraries*)
+  (:documentation "This is the CLSQL interface to Oracle."))

diff --git a/interfaces/oracle/oracle-sql.cl b/interfaces/oracle/oracle-sql.cl
index 3a0b046d70345f3e609d74fbc15a94b8bfc8ec2f..d607ff825ff6595b3039d6554f938ab752601fa5 100644 (file)
--- a/interfaces/oracle/oracle-sql.cl
+++ b/interfaces/oracle/oracle-sql.cl
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp -*-
-;;; $Id: oracle-sql.cl,v 1.1 2002/05/13 03:52:24 kevin Exp $
+;;; $Id: oracle-sql.cl,v 1.2 2002/05/13 03:57:09 kevin Exp $
 
 ;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
 ;;; This is copyrighted software.  See documentation for terms.
@@ -8,7 +8,7 @@
 ;;;
 ;;; derived from postgresql.lisp
 
-(in-package :MAISQL-ORACLE)
+(in-package :clsql-oracle)
 
 (defmethod database-initialize-database-type
     ((database-type (eql :oracle)))
@@ -131,16 +131,16 @@ the length of that format.")))
              (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+))
-                 (error 'maisql-sql-error
+                 (error 'clsql-sql-error
                         :database database
                         :errno subcode
                         :error (cast (c-& errbuf 0) c-string)))))))
        (nulls-ok
-        (error 'maisql-sql-error
+        (error 'clsql-sql-error
                 :database database
                 :error "can't handle NULLS-OK without ERRHP"))
        (t 
-        (error 'maisql-sql-error
+        (error 'clsql-sql-error
                 :database database
                 :error "OCI Error (and no ERRHP available to find subcode)"))))
 

diff --git a/interfaces/oracle/oracle.cl b/interfaces/oracle/oracle.cl
index 16b2d4a9c4dbe821c1243a7f09d2cf04e38c27e0..eb1569c1f78e4109281404ef0f64903c6adeb05c 100644 (file)
--- a/interfaces/oracle/oracle.cl
+++ b/interfaces/oracle/oracle.cl
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp -*-
-;;; $Id: oracle.cl,v 1.1 2002/05/13 03:52:24 kevin Exp $
+;;; $Id: oracle.cl,v 1.2 2002/05/13 03:57:09 kevin Exp $
 
 ;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
 ;;; This is copyrighted software.  See documentation for terms.
@@ -9,7 +9,7 @@
 ;;; The present content of this file is orented specifically towards
 ;;; Oracle 8.0.5.1 under Linux, linking against libclntsh.so
 
-(in-package :MAISQL-ORACLE)
+(in-package :clsql-oracle)
 
 ;;