;;;; Programmer: Kevin M. Rosenberg\r
;;;; Date Started: Feb 2002\r
;;;;\r
-;;;; $Id: clsql-mysql.system,v 1.12 2002/05/14 16:23:37 kevin Exp $\r
+;;;; $Id: clsql-mysql.system,v 1.13 2002/05/14 16:25:29 kevin Exp $\r
;;;;\r
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
;;;;\r
\r
;;; System definition\r
\r
-(mk:load-system :uffi)\r
-(mk:load-system :clsql-base)\r
-(mk:load-system :clsql-uffi)\r
-\r
(mk:defsystem :clsql-mysql\r
:source-pathname "CL-LIBRARY:clsql;interfaces;mysql;"\r
:source-extension "cl"\r
;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: clsql-uffi-loader.cl,v 1.8 2002/05/14 16:10:55 kevin Exp $
+;;;; $Id: clsql-uffi-loader.cl,v 1.9 2002/05/14 16:27:42 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(uffi:find-foreign-library
"clsql-uffi"
`(,(translate-logical-pathname
- "CL-LIBRARY:clsql;interfaces;clsql-mysql;")
- "/usr/share/common-lisp/source/clsql/interfaces/clsql-mysql/")))
+ "CL-LIBRARY:clsql;interfaces;clsql-uffi;")
+ "/usr/share/common-lisp/source/clsql/interfaces/clsql-uffi/")))
(defvar *clsql-uffi-supporting-libraries* '("c")
"Used only by CMU. List of library flags needed to be passed to ld to
;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: mysql-loader.cl,v 1.12 2002/05/14 16:19:11 kevin Exp $
+;;;; $Id: mysql-loader.cl,v 1.13 2002/05/14 16:29:53 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(clsql-sys:database-type-load-foreign :mysql)
-(when (clsql-sys:database-type-library-loaded :mysql)
- (clsql-sys:initialize-database-type :database-type :mysql)
- (setq clsql:*default-database-type* :mysql)
- (pushnew :mysql cl:*features*))
+
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: mysql-sql.cl,v 1.19 2002/04/27 20:58:11 kevin Exp $
+;;;; $Id: mysql-sql.cl,v 1.20 2002/05/14 16:29:53 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
list)))
+(when (clsql-sys:database-type-library-loaded :mysql)
+ (clsql-sys:initialize-database-type :database-type :mysql)
+ (setq clsql:*default-database-type* :mysql)
+ (pushnew :mysql cl:*features*))
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: postgresql-loader.cl,v 1.7 2002/05/13 22:05:21 kevin Exp $
+;;;; $Id: postgresql-loader.cl,v 1.8 2002/05/14 16:29:53 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(setq *postgresql-library-loaded* t)))
(clsql-sys:database-type-load-foreign :postgresql)
-(when (clsql-sys:database-type-library-loaded :postgresql)
- (clsql-sys:initialize-database-type :database-type :postgresql)
- (pushnew :postgresql cl:*features*))
+
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: postgresql-sql.cl,v 1.16 2002/05/10 08:05:48 marc.battyani Exp $
+;;;; $Id: postgresql-sql.cl,v 1.17 2002/05/14 16:29:53 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
(defmethod database-delete-large-object (object-id (database postgresql-database))
(lo-unlink (database-conn-ptr database) object-id))
+
+(when (clsql-sys:database-type-library-loaded :postgresql)
+ (clsql-sys:initialize-database-type :database-type :postgresql)
+ (pushnew :postgresql cl:*features*))