projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9a78eef
)
r1649: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 24 Mar 2002 04:37:09 +0000
(
04:37
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 24 Mar 2002 04:37:09 +0000
(
04:37
+0000)
interfaces/mysql/mysql-loader.cl
patch
|
blob
|
history
interfaces/mysql/mysql-package.cl
patch
|
blob
|
history
interfaces/postgresql/postgresql-loader.cl
patch
|
blob
|
history
interfaces/postgresql/postgresql-package.cl
patch
|
blob
|
history
sql/sql.cl
patch
|
blob
|
history
diff --git
a/interfaces/mysql/mysql-loader.cl
b/interfaces/mysql/mysql-loader.cl
index ce8b7ceeb3dec44d87b68e65bc2968f739f2a983..caa8c55fa559ba80f6194e4dd62f2bb03f504f50 100644
(file)
--- a/
interfaces/mysql/mysql-loader.cl
+++ b/
interfaces/mysql/mysql-loader.cl
@@
-7,7
+7,7
@@
;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: mysql-loader.cl,v 1.
2 2002/03/24 04:01:26
kevin Exp $
+;;;; $Id: mysql-loader.cl,v 1.
3 2002/03/24 04:37:09
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-54,10
+54,10
@@
set to the right path before compiling or loading the system.")
(defvar *mysql-library-loaded* nil
"T if foreign library was able to be loaded successfully")
(defvar *mysql-library-loaded* nil
"T if foreign library was able to be loaded successfully")
-(defmethod database-type-library-loaded ((database-type (eql :mysql)))
+(defmethod
clsql-sys:
database-type-library-loaded ((database-type (eql :mysql)))
*mysql-library-loaded*)
*mysql-library-loaded*)
-(defmethod database-type-load-foreign ((database-type (eql :mysql)))
+(defmethod
clsql-sys:
database-type-load-foreign ((database-type (eql :mysql)))
(when
(and
(uffi:load-foreign-library *mysql-library-filename*
(when
(and
(uffi:load-foreign-library *mysql-library-filename*
@@
-71,6
+71,6
@@
set to the right path before compiling or loading the system.")
(setq *mysql-library-loaded* t)))
(setq *mysql-library-loaded* t)))
-(database-type-load-foreign :mysql)
+(
clsql-sys:
database-type-load-foreign :mysql)
diff --git
a/interfaces/mysql/mysql-package.cl
b/interfaces/mysql/mysql-package.cl
index 0dd231abf7e8c7f0ff8165c84d4c46889df9163e..bb737f903bbd6fdacc411a860637aec9549acced 100644
(file)
--- a/
interfaces/mysql/mysql-package.cl
+++ b/
interfaces/mysql/mysql-package.cl
@@
-7,7
+7,7
@@
;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: mysql-package.cl,v 1.
2 2002/03/24 04:01:26
kevin Exp $
+;;;; $Id: mysql-package.cl,v 1.
3 2002/03/24 04:37:09
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-20,7
+20,7
@@
(in-package :cl-user)
(defpackage :mysql
(in-package :cl-user)
(defpackage :mysql
- (:use :common-lisp
:clsql-sys
)
+ (:use :common-lisp)
(:export
#:database-library-loaded
(:export
#:database-library-loaded
diff --git
a/interfaces/postgresql/postgresql-loader.cl
b/interfaces/postgresql/postgresql-loader.cl
index a2b7988c7bb1513f02850a933c7689bf0b314210..f9d6f1cf85036dc3956520d916c330c89861a649 100644
(file)
--- a/
interfaces/postgresql/postgresql-loader.cl
+++ b/
interfaces/postgresql/postgresql-loader.cl
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: postgresql-loader.cl,v 1.
2 2002/03/24 04:01:26
kevin Exp $
+;;;; $Id: postgresql-loader.cl,v 1.
3 2002/03/24 04:37:09
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-42,10
+42,12
@@
set to the right path before compiling or loading the system.")
(defvar *postgresql-library-loaded* nil
"T if foreign library was able to be loaded successfully")
(defvar *postgresql-library-loaded* nil
"T if foreign library was able to be loaded successfully")
-(defmethod database-type-library-loaded ((database-type (eql :postgresql)))
+(defmethod clsql-sys:database-type-library-loaded ((database-type
+ (eql :postgresql)))
*postgresql-library-loaded*)
*postgresql-library-loaded*)
-(defmethod database-type-load-foreign ((database-type (eql :postgresql)))
+(defmethod clsql-sys:database-type-load-foreign ((database-type
+ (eql :postgresql)))
(when
(uffi:load-foreign-library *postgresql-library-filename*
:module "postgresql"
(when
(uffi:load-foreign-library *postgresql-library-filename*
:module "postgresql"
@@
-53,4
+55,4
@@
set to the right path before compiling or loading the system.")
*postgresql-supporting-libraries*)
(setq *postgresql-library-loaded* t)))
*postgresql-supporting-libraries*)
(setq *postgresql-library-loaded* t)))
-(database-type-load-foreign :postgresql)
+(
clsql-sys:
database-type-load-foreign :postgresql)
diff --git
a/interfaces/postgresql/postgresql-package.cl
b/interfaces/postgresql/postgresql-package.cl
index 2957cee2efc469566a192811e4ee2528eb24ae50..7991f9a5b095fd08929276ae23b97caf93922e2d 100644
(file)
--- a/
interfaces/postgresql/postgresql-package.cl
+++ b/
interfaces/postgresql/postgresql-package.cl
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: postgresql-package.cl,v 1.
2 2002/03/24 04:01:26
kevin Exp $
+;;;; $Id: postgresql-package.cl,v 1.
3 2002/03/24 04:37:09
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-21,7
+21,7
@@
(defpackage :postgresql
(:nicknames :pgsql)
(defpackage :postgresql
(:nicknames :pgsql)
- (:use :common-lisp
:clsql-sys
)
+ (:use :common-lisp)
(:export
#:pgsql-oid
#:pgsql-conn-status-type
(:export
#:pgsql-oid
#:pgsql-conn-status-type
diff --git
a/sql/sql.cl
b/sql/sql.cl
index ce3cc56376d2eca6ce991965d2442ad4b2d28259..06431e401edfcd75d87f348bedc317d02a4c61f8 100644
(file)
--- a/
sql/sql.cl
+++ b/
sql/sql.cl
@@
-8,7
+8,7
@@
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: sql.cl,v 1.
2 2002/03/24 04:01:26
kevin Exp $
+;;;; $Id: sql.cl,v 1.
3 2002/03/24 04:37:09
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@
-148,10
+148,6
@@
although there is an existing connection (~A)."
(defvar *loaded-database-types* nil
"Contains a list of database types which have been defined/loaded.")
(defvar *loaded-database-types* nil
"Contains a list of database types which have been defined/loaded.")
-(defvar *library-loaded-database-types* nil
- "Contains a list of database types which have had their
-foreign libraries loaded successfully.")
-
(defun reload-database-types ()
"Reloads any foreign code for the loaded database types after a dump."
(mapc #'database-type-load-foreign *loaded-database-types*))
(defun reload-database-types ()
"Reloads any foreign code for the loaded database types after a dump."
(mapc #'database-type-load-foreign *loaded-database-types*))
@@
-165,9
+161,7
@@
foreign libraries loaded successfully.")
(defgeneric database-type-library-loaded (database-type)
(:documentation
"The internal generic implementation for checking if
(defgeneric database-type-library-loaded (database-type)
(:documentation
"The internal generic implementation for checking if
-database type library loaded successfully.")
- (:method :after (database-type)
- (pushnew database-type *library-loaded-database-types*)))
+database type library loaded successfully."))
(defvar *default-database-type* nil
"Specifies the default type of database. Currently only :mysql is
(defvar *default-database-type* nil
"Specifies the default type of database. Currently only :mysql is