X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=interfaces%2Foracle%2Foracle-sql.cl;h=d607ff825ff6595b3039d6554f938ab752601fa5;hb=42a951e9f7152e7c145958f4dfed41d4e865c9fd;hp=3a0b046d70345f3e609d74fbc15a94b8bfc8ec2f;hpb=14a0957718757b2b08ca6d901fbb935f1d67939d;p=clsql.git

diff --git a/interfaces/oracle/oracle-sql.cl b/interfaces/oracle/oracle-sql.cl
index 3a0b046..d607ff8 100644
--- 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)"))))