From bada52b7a8fd2cc484dee33cccd64ca09a52ec3d Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 7 Sep 2003 06:34:45 +0000 Subject: [PATCH] r7061: initial property settings --- Makefile | 2 +- base/classes.lisp | 2 +- base/cmucl-compat.lisp | 2 +- base/conditions.lisp | 2 +- base/db-interface.lisp | 2 +- base/initialize.lisp | 2 +- base/package.lisp | 2 +- base/utils.lisp | 2 +- clsql-aodbc.asd | 2 +- clsql-base.asd | 2 +- clsql-mysql.asd | 82 +++---- clsql-oracle.asd | 2 +- clsql-postgresql-socket.asd | 82 +++---- clsql-postgresql.asd | 78 +++---- clsql-tests.asd | 2 +- clsql-uffi.asd | 2 +- clsql.asd | 2 +- db-aodbc/aodbc-package.lisp | 2 +- db-aodbc/aodbc-sql.lisp | 2 +- db-mysql/Makefile | 2 +- db-mysql/clsql-mysql.c | 2 +- db-mysql/mysql-api.lisp | 2 +- db-mysql/mysql-loader.lisp | 2 +- db-mysql/mysql-package.lisp | 2 +- db-mysql/mysql-sql.lisp | 2 +- db-mysql/mysql-usql.lisp | 208 +++++++++--------- db-oracle/alien-resources.lisp | 2 +- db-oracle/oracle-constants.lisp | 2 +- db-oracle/oracle-loader.lisp | 2 +- db-oracle/oracle-package.lisp | 2 +- db-oracle/oracle-sql.lisp | 2 +- db-oracle/oracle.lisp | 2 +- .../postgresql-socket-api.lisp | 2 +- .../postgresql-socket-package.lisp | 2 +- .../postgresql-socket-sql.lisp | 2 +- db-postgresql/postgresql-api.lisp | 2 +- db-postgresql/postgresql-loader.lisp | 2 +- db-postgresql/postgresql-package.lisp | 2 +- db-postgresql/postgresql-sql.lisp | 2 +- db-postgresql/postgresql-usql.lisp | 2 +- doc/Makefile | 2 +- sql/functional.lisp | 2 +- sql/loop-extension.lisp | 2 +- sql/package.lisp | 2 +- sql/pool.lisp | 2 +- sql/sql.lisp | 2 +- sql/transactions.lisp | 2 +- sql/usql.lisp | 2 +- tests/old-tests/xptest-clsql.lisp | 2 +- tests/package.lisp | 2 +- tests/tables.lisp | 2 +- tests/tests.lisp | 2 +- uffi/Makefile | 2 +- uffi/clsql-uffi-loader.lisp | 2 +- uffi/clsql-uffi-package.lisp | 2 +- uffi/clsql-uffi.c | 2 +- uffi/clsql-uffi.lisp | 2 +- 57 files changed, 278 insertions(+), 278 deletions(-) diff --git a/Makefile b/Makefile index 675bc26..564b092 100644 --- a/Makefile +++ b/Makefile @@ -5,7 +5,7 @@ # Programer: Kevin M. Rosenberg # Date Started: Mar 2002 # -# CVS Id: $Id: Makefile,v 1.24 2002/09/18 07:51:22 kevin Exp $ +# CVS Id: $Id$ # # This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg # diff --git a/base/classes.lisp b/base/classes.lisp index aa61ce6..104c7b6 100644 --- a/base/classes.lisp +++ b/base/classes.lisp @@ -8,7 +8,7 @@ ;;;; original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: classes.lisp,v 1.1 2002/09/30 10:19:01 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/base/cmucl-compat.lisp b/base/cmucl-compat.lisp index bdabf57..61b9ad0 100644 --- a/base/cmucl-compat.lisp +++ b/base/cmucl-compat.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: cmucl-compat.lisp,v 1.5 2003/05/06 02:29:46 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/base/conditions.lisp b/base/conditions.lisp index d1280dc..228ed36 100644 --- a/base/conditions.lisp +++ b/base/conditions.lisp @@ -8,7 +8,7 @@ ;;;; Original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: conditions.lisp,v 1.2 2002/10/21 07:45:50 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/base/db-interface.lisp b/base/db-interface.lisp index ce1b068..8b60847 100644 --- a/base/db-interface.lisp +++ b/base/db-interface.lisp @@ -9,7 +9,7 @@ ;;;; onShoreD to support UncommonSQL front-end ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: db-interface.lisp,v 1.1 2002/09/30 10:19:01 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai, and onShoreD diff --git a/base/initialize.lisp b/base/initialize.lisp index 7adf1b5..8548460 100644 --- a/base/initialize.lisp +++ b/base/initialize.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: May 2002 ;;;; -;;;; $Id: initialize.lisp,v 1.2 2002/10/16 11:51:04 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/base/package.lisp b/base/package.lisp index b0cd10b..3211598 100644 --- a/base/package.lisp +++ b/base/package.lisp @@ -8,7 +8,7 @@ ;;;; Original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: package.lisp,v 1.2 2003/05/07 02:45:08 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/base/utils.lisp b/base/utils.lisp index f0530fb..879c675 100644 --- a/base/utils.lisp +++ b/base/utils.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: utils.lisp,v 1.2 2002/10/21 07:45:50 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/clsql-aodbc.asd b/clsql-aodbc.asd index d593596..775e2b4 100644 --- a/clsql-aodbc.asd +++ b/clsql-aodbc.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: clsql-aodbc.asd,v 1.13 2003/05/07 02:45:08 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/clsql-base.asd b/clsql-base.asd index 534f2a5..51fbfe8 100644 --- a/clsql-base.asd +++ b/clsql-base.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: clsql-base.asd,v 1.19 2003/05/07 02:45:08 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/clsql-mysql.asd b/clsql-mysql.asd index 00982cc..06d9750 100644 --- a/clsql-mysql.asd +++ b/clsql-mysql.asd @@ -1,41 +1,41 @@ -;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- -;;;; ************************************************************************* -;;;; FILE IDENTIFICATION -;;;; -;;;; Name: clsql-mysql.asd -;;;; Purpose: ASDF definition file for CLSQL MySQL backend -;;;; Programmer: Kevin M. Rosenberg -;;;; Date Started: Aug 2002 -;;;; -;;;; $Id: clsql-mysql.asd,v 1.14 2003/05/07 02:45:08 kevin Exp $ -;;;; -;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg -;;;; -;;;; CLSQL users are granted the rights to distribute and use this software -;;;; as governed by the terms of the Lisp Lesser GNU Public License -;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. -;;;; ************************************************************************* - -(defpackage #:clsql-mysql-system (:use #:asdf #:cl)) -(in-package #:clsql-mysql-system) - -;;; System definition - -#+(or allegro lispworks cmu sbcl openmcl mcl scl) -(defsystem :clsql-mysql - :name "cl-sql-mysql" - :author "Kevin M. Rosenberg " - :maintainer "Kevin M. Rosenberg " - :licence "Lessor Lisp General Public License" - :description "Common Lisp SQL MySQL Driver" - :long-description "cl-sql-mysql package provides a database driver to the MySQL database system." - - :components - ((:module :db-mysql - :components - ((:file "mysql-package") - (:file "mysql-loader" :depends-on ("mysql-package")) - (:file "mysql-api" :depends-on ("mysql-loader")) - (:file "mysql-sql" :depends-on ("mysql-api")) - (:file "mysql-usql" :depends-on ("mysql-sql"))))) - :depends-on (:uffi :clsql-base :clsql-uffi)) +;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;;; ************************************************************************* +;;;; FILE IDENTIFICATION +;;;; +;;;; Name: clsql-mysql.asd +;;;; Purpose: ASDF definition file for CLSQL MySQL backend +;;;; Programmer: Kevin M. Rosenberg +;;;; Date Started: Aug 2002 +;;;; +;;;; $Id$ +;;;; +;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; +;;;; CLSQL users are granted the rights to distribute and use this software +;;;; as governed by the terms of the Lisp Lesser GNU Public License +;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. +;;;; ************************************************************************* + +(defpackage #:clsql-mysql-system (:use #:asdf #:cl)) +(in-package #:clsql-mysql-system) + +;;; System definition + +#+(or allegro lispworks cmu sbcl openmcl mcl scl) +(defsystem :clsql-mysql + :name "cl-sql-mysql" + :author "Kevin M. Rosenberg " + :maintainer "Kevin M. Rosenberg " + :licence "Lessor Lisp General Public License" + :description "Common Lisp SQL MySQL Driver" + :long-description "cl-sql-mysql package provides a database driver to the MySQL database system." + + :components + ((:module :db-mysql + :components + ((:file "mysql-package") + (:file "mysql-loader" :depends-on ("mysql-package")) + (:file "mysql-api" :depends-on ("mysql-loader")) + (:file "mysql-sql" :depends-on ("mysql-api")) + (:file "mysql-usql" :depends-on ("mysql-sql"))))) + :depends-on (:uffi :clsql-base :clsql-uffi)) diff --git a/clsql-oracle.asd b/clsql-oracle.asd index 00e09e5..628fd61 100644 --- a/clsql-oracle.asd +++ b/clsql-oracle.asd @@ -1,7 +1,7 @@ ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;;; This is copyrighted software. See interfaces/oracle/* files for terms. ;;;; -;;;; $Id: clsql-oracle.asd,v 1.13 2003/05/07 02:45:08 kevin Exp $ +;;;; $Id$ (defpackage #:clsql-oracle-system (:use #:asdf #:cl)) (in-package #:clsql-oracle-system) diff --git a/clsql-postgresql-socket.asd b/clsql-postgresql-socket.asd index eb39db3..3955adc 100644 --- a/clsql-postgresql-socket.asd +++ b/clsql-postgresql-socket.asd @@ -1,41 +1,41 @@ -;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- -;;;; ************************************************************************* -;;;; FILE IDENTIFICATION -;;;; -;;;; Name: clsql-postgresql-socket.asd -;;;; Purpose: ASDF file for CLSQL PostgresSQL socket backend -;;;; Programmer: Kevin M. Rosenberg -;;;; Date Started: Aug 2002 -;;;; -;;;; $Id: clsql-postgresql-socket.asd,v 1.16 2003/05/07 02:45:08 kevin Exp $ -;;;; -;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg -;;;; -;;;; CLSQL users are granted the rights to distribute and use this software -;;;; as governed by the terms of the Lisp Lesser GNU Public License -;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. -;;;; ************************************************************************* - -(defpackage #:clsql-postgresql-socket-system (:use #:asdf #:cl)) -(in-package #:clsql-postgresql-socket-system) - -;;; System definition - -#+(or allegro lispworks cmu sbcl openmcl mcl scl) -(defsystem clsql-postgresql-socket - :name "cl-sql-postgresql-socket" - :author "Kevin M. Rosenberg " - :maintainer "Kevin M. Rosenberg " - :licence "Lessor Lisp General Public License" - :description "Common Lisp SQL PostgreSQL Socket Driver" - :long-description "cl-sql-postgresql-socket package provides a database driver to the PostgreSQL database via a socket interface." - - :components - ((:module :db-postgresql-socket - :components - ((:file "postgresql-socket-package") - (:file "postgresql-socket-api" - :depends-on ("postgresql-socket-package")) - (:file "postgresql-socket-sql" - :depends-on ("postgresql-socket-api"))))) - :depends-on (:clsql-base :uffi :md5)) +;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;;; ************************************************************************* +;;;; FILE IDENTIFICATION +;;;; +;;;; Name: clsql-postgresql-socket.asd +;;;; Purpose: ASDF file for CLSQL PostgresSQL socket backend +;;;; Programmer: Kevin M. Rosenberg +;;;; Date Started: Aug 2002 +;;;; +;;;; $Id$ +;;;; +;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; +;;;; CLSQL users are granted the rights to distribute and use this software +;;;; as governed by the terms of the Lisp Lesser GNU Public License +;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. +;;;; ************************************************************************* + +(defpackage #:clsql-postgresql-socket-system (:use #:asdf #:cl)) +(in-package #:clsql-postgresql-socket-system) + +;;; System definition + +#+(or allegro lispworks cmu sbcl openmcl mcl scl) +(defsystem clsql-postgresql-socket + :name "cl-sql-postgresql-socket" + :author "Kevin M. Rosenberg " + :maintainer "Kevin M. Rosenberg " + :licence "Lessor Lisp General Public License" + :description "Common Lisp SQL PostgreSQL Socket Driver" + :long-description "cl-sql-postgresql-socket package provides a database driver to the PostgreSQL database via a socket interface." + + :components + ((:module :db-postgresql-socket + :components + ((:file "postgresql-socket-package") + (:file "postgresql-socket-api" + :depends-on ("postgresql-socket-package")) + (:file "postgresql-socket-sql" + :depends-on ("postgresql-socket-api"))))) + :depends-on (:clsql-base :uffi :md5)) diff --git a/clsql-postgresql.asd b/clsql-postgresql.asd index 33f485d..b2e33c9 100644 --- a/clsql-postgresql.asd +++ b/clsql-postgresql.asd @@ -1,39 +1,39 @@ -;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- -;;;; ************************************************************************* -;;;; FILE IDENTIFICATION -;;;; -;;;; Name: clsql-postgresql.asd -;;;; Purpose: ASDF file for CLSQL PostgresSQL backend -;;;; Programmer: Kevin M. Rosenberg -;;;; Date Started: Aug 2002 -;;;; -;;;; $Id: clsql-postgresql.asd,v 1.14 2003/05/07 02:45:08 kevin Exp $ -;;;; -;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg -;;;; -;;;; CLSQL users are granted the rights to distribute and use this software -;;;; as governed by the terms of the Lisp Lesser GNU Public License -;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. -;;;; ************************************************************************* - -(defpackage #:clsql-postgresql-system (:use #:asdf #:cl)) -(in-package #:clsql-postgresql-system) - -#+(or allegro lispworks cmu sbcl openmcl mcl scl) -(defsystem clsql-postgresql - :name "cl-sql-postgresql" - :author "Kevin M. Rosenberg " - :maintainer "Kevin M. Rosenberg " - :licence "Lessor Lisp General Public License" - :description "Common Lisp PostgreSQL API Driver" - :long-description "cl-sql-postgresql package provides a the database driver for the PostgreSQL API." - - :components - ((:module :db-postgresql - :components - ((:file "postgresql-package") - (:file "postgresql-loader" :depends-on ("postgresql-package")) - (:file "postgresql-api" :depends-on ("postgresql-loader")) - (:file "postgresql-sql" :depends-on ("postgresql-api")) - (:file "postgresql-usql" :depends-on ("postgresql-sql"))))) - :depends-on (:uffi :clsql-base :clsql-uffi)) +;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;;; ************************************************************************* +;;;; FILE IDENTIFICATION +;;;; +;;;; Name: clsql-postgresql.asd +;;;; Purpose: ASDF file for CLSQL PostgresSQL backend +;;;; Programmer: Kevin M. Rosenberg +;;;; Date Started: Aug 2002 +;;;; +;;;; $Id$ +;;;; +;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; +;;;; CLSQL users are granted the rights to distribute and use this software +;;;; as governed by the terms of the Lisp Lesser GNU Public License +;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. +;;;; ************************************************************************* + +(defpackage #:clsql-postgresql-system (:use #:asdf #:cl)) +(in-package #:clsql-postgresql-system) + +#+(or allegro lispworks cmu sbcl openmcl mcl scl) +(defsystem clsql-postgresql + :name "cl-sql-postgresql" + :author "Kevin M. Rosenberg " + :maintainer "Kevin M. Rosenberg " + :licence "Lessor Lisp General Public License" + :description "Common Lisp PostgreSQL API Driver" + :long-description "cl-sql-postgresql package provides a the database driver for the PostgreSQL API." + + :components + ((:module :db-postgresql + :components + ((:file "postgresql-package") + (:file "postgresql-loader" :depends-on ("postgresql-package")) + (:file "postgresql-api" :depends-on ("postgresql-loader")) + (:file "postgresql-sql" :depends-on ("postgresql-api")) + (:file "postgresql-usql" :depends-on ("postgresql-sql"))))) + :depends-on (:uffi :clsql-base :clsql-uffi)) diff --git a/clsql-tests.asd b/clsql-tests.asd index de68088..78ba676 100644 --- a/clsql-tests.asd +++ b/clsql-tests.asd @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2003 ;;;; -;;;; $Id: clsql-tests.asd,v 1.4 2003/07/20 18:31:22 kevin Exp $ +;;;; $Id$ ;;;; ************************************************************************* (in-package #:cl-user) diff --git a/clsql-uffi.asd b/clsql-uffi.asd index c633488..9cbfd70 100644 --- a/clsql-uffi.asd +++ b/clsql-uffi.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: clsql-uffi.asd,v 1.15 2003/05/07 02:45:08 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/clsql.asd b/clsql.asd index 03faf1a..7ad36fa 100644 --- a/clsql.asd +++ b/clsql.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: clsql.asd,v 1.18 2003/05/07 02:45:08 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/db-aodbc/aodbc-package.lisp b/db-aodbc/aodbc-package.lisp index aa7cca8..32882cf 100644 --- a/db-aodbc/aodbc-package.lisp +++ b/db-aodbc/aodbc-package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: aodbc-package.lisp,v 1.4 2003/05/07 02:45:08 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/db-aodbc/aodbc-sql.lisp b/db-aodbc/aodbc-sql.lisp index ed7bb24..b55cb41 100644 --- a/db-aodbc/aodbc-sql.lisp +++ b/db-aodbc/aodbc-sql.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: aodbc-sql.lisp,v 1.2 2003/05/02 03:05:54 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/db-mysql/Makefile b/db-mysql/Makefile index 6e3f029..728c5ee 100644 --- a/db-mysql/Makefile +++ b/db-mysql/Makefile @@ -7,7 +7,7 @@ # Programer: Kevin M. Rosenberg # Date Started: Mar 2002 # -# CVS Id: $Id: Makefile,v 1.2 2002/12/09 10:34:16 kevin Exp $ +# CVS Id: $Id$ # # This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg # diff --git a/db-mysql/clsql-mysql.c b/db-mysql/clsql-mysql.c index abe70b1..ea11686 100644 --- a/db-mysql/clsql-mysql.c +++ b/db-mysql/clsql-mysql.c @@ -6,7 +6,7 @@ * Programmer: Kevin M. Rosenberg * Date Started: Mar 2002 * - * $Id: clsql-mysql.c,v 1.2 2002/12/09 10:34:16 kevin Exp $ + * $Id$ * * This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg * diff --git a/db-mysql/mysql-api.lisp b/db-mysql/mysql-api.lisp index cff8da4..d49a089 100644 --- a/db-mysql/mysql-api.lisp +++ b/db-mysql/mysql-api.lisp @@ -8,7 +8,7 @@ ;;;; Original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: mysql-api.lisp,v 1.6 2003/07/21 01:45:45 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/db-mysql/mysql-loader.lisp b/db-mysql/mysql-loader.lisp index e5f377f..1dc903d 100644 --- a/db-mysql/mysql-loader.lisp +++ b/db-mysql/mysql-loader.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: mysql-loader.lisp,v 1.10 2003/05/17 07:02:00 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/db-mysql/mysql-package.lisp b/db-mysql/mysql-package.lisp index 7c74f09..b841443 100644 --- a/db-mysql/mysql-package.lisp +++ b/db-mysql/mysql-package.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: mysql-package.lisp,v 1.3 2003/05/07 02:45:08 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp index 16f1925..e933498 100644 --- a/db-mysql/mysql-sql.lisp +++ b/db-mysql/mysql-sql.lisp @@ -8,7 +8,7 @@ ;;;; Original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: mysql-sql.lisp,v 1.8 2003/07/21 01:45:45 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/db-mysql/mysql-usql.lisp b/db-mysql/mysql-usql.lisp index 3d3a5dc..06f574c 100644 --- a/db-mysql/mysql-usql.lisp +++ b/db-mysql/mysql-usql.lisp @@ -1,104 +1,104 @@ -;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- -;;;; ************************************************************************* -;;;; FILE IDENTIFICATION -;;;; -;;;; Name: mysql-usql.cl -;;;; Purpose: MySQL interface functions to support UncommonSQL -;;;; Programmers: Kevin M. Rosenberg and onShore Development Inc -;;;; Date Started: Mar 2002 -;;;; -;;;; $Id: mysql-usql.lisp,v 1.2 2003/06/26 15:27:07 kevin Exp $ -;;;; -;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg -;;;; and by onShore Development Inc. -;;;; -;;;; CLSQL users are granted the rights to distribute and use this software -;;;; as governed by the terms of the Lisp Lesser GNU Public License -;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. -;;;; ************************************************************************* - -(in-package #:clsql-mysql) - -;; Table and attribute introspection - -(defmethod database-list-tables ((database mysql-database) - &key (system-tables nil)) - (declare (ignore system-tables)) - (mapcar #'car (database-query "show tables" database :auto))) - - -(defmethod database-list-attributes ((table string) (database mysql-database)) - (mapcar #'car - (database-query - (format nil "SHOW COLUMNS FROM ~A" table) - database nil))) - -(defmethod database-attribute-type (attribute (table string) - (database mysql-database)) - (let ((result - (mapcar #'cadr - (database-query - (format nil - "SHOW COLUMNS FROM ~A LIKE '~A'" table attribute) - database nil)))) - (let* ((str (car result)) - (end-str (position #\( str)) - (substr (subseq str 0 end-str))) - (if substr - (intern (string-upcase substr) :keyword) nil)))) - -;;; Sequence functions - -(defun %sequence-name-to-table (sequence-name) - (concatenate 'string "_usql_seq_" (sql-escape sequence-name))) - -(defmethod database-create-sequence (sequence-name - (database mysql-database)) - (let ((table-name (%sequence-name-to-table sequence-name))) - (database-execute-command - (concatenate 'string "CREATE TABLE " table-name - " (id int NOT NULL PRIMARY KEY AUTO_INCREMENT)") - database) - (database-execute-command - (concatenate 'string "INSERT INTO " table-name - " VALUES (-1)") - database))) - -(defmethod database-drop-sequence (sequence-name - (database mysql-database)) - (database-execute-command - (concatenate 'string "DROP TABLE " (%sequence-name-to-table sequence-name)) - database)) - -(defmethod database-sequence-next (sequence-name (database mysql-database)) - (database-execute-command - (concatenate 'string "UPDATE " (%sequence-name-to-table sequence-name) - " SET id=LAST_INSERT_ID(id+1)") - database) - (mysql:mysql-insert-id (clsql-mysql::database-mysql-ptr database))) - -;; Misc USQL functions - -#| -#+ignore -(defmethod database-output-sql ((expr clsql-sys::sql-typecast-exp) - (database mysql-database)) - (with-slots (clsql-sys::modifier clsql-sys::components) - expr - (if clsql-sys::modifier - (progn - (clsql-sys::output-sql clsql-sys::components database) - (write-char #\: sql-sys::*sql-stream*) - (write-char #\: sql-sys::*sql-stream*) - (write-string (symbol-name clsql-sys::modifier) - clsql-sys::*sql-stream*))))) - -#+ignore -(defmethod database-output-sql-as-type ((type (eql 'integer)) val - (database mysql-database)) - ;; typecast it so it uses the indexes - (when val - (make-instance 'clsql-sys::sql-typecast-exp - :modifier 'int8 - :components val))) -|# +;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;;; ************************************************************************* +;;;; FILE IDENTIFICATION +;;;; +;;;; Name: mysql-usql.cl +;;;; Purpose: MySQL interface functions to support UncommonSQL +;;;; Programmers: Kevin M. Rosenberg and onShore Development Inc +;;;; Date Started: Mar 2002 +;;;; +;;;; $Id$ +;;;; +;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; and by onShore Development Inc. +;;;; +;;;; CLSQL users are granted the rights to distribute and use this software +;;;; as governed by the terms of the Lisp Lesser GNU Public License +;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. +;;;; ************************************************************************* + +(in-package #:clsql-mysql) + +;; Table and attribute introspection + +(defmethod database-list-tables ((database mysql-database) + &key (system-tables nil)) + (declare (ignore system-tables)) + (mapcar #'car (database-query "show tables" database :auto))) + + +(defmethod database-list-attributes ((table string) (database mysql-database)) + (mapcar #'car + (database-query + (format nil "SHOW COLUMNS FROM ~A" table) + database nil))) + +(defmethod database-attribute-type (attribute (table string) + (database mysql-database)) + (let ((result + (mapcar #'cadr + (database-query + (format nil + "SHOW COLUMNS FROM ~A LIKE '~A'" table attribute) + database nil)))) + (let* ((str (car result)) + (end-str (position #\( str)) + (substr (subseq str 0 end-str))) + (if substr + (intern (string-upcase substr) :keyword) nil)))) + +;;; Sequence functions + +(defun %sequence-name-to-table (sequence-name) + (concatenate 'string "_usql_seq_" (sql-escape sequence-name))) + +(defmethod database-create-sequence (sequence-name + (database mysql-database)) + (let ((table-name (%sequence-name-to-table sequence-name))) + (database-execute-command + (concatenate 'string "CREATE TABLE " table-name + " (id int NOT NULL PRIMARY KEY AUTO_INCREMENT)") + database) + (database-execute-command + (concatenate 'string "INSERT INTO " table-name + " VALUES (-1)") + database))) + +(defmethod database-drop-sequence (sequence-name + (database mysql-database)) + (database-execute-command + (concatenate 'string "DROP TABLE " (%sequence-name-to-table sequence-name)) + database)) + +(defmethod database-sequence-next (sequence-name (database mysql-database)) + (database-execute-command + (concatenate 'string "UPDATE " (%sequence-name-to-table sequence-name) + " SET id=LAST_INSERT_ID(id+1)") + database) + (mysql:mysql-insert-id (clsql-mysql::database-mysql-ptr database))) + +;; Misc USQL functions + +#| +#+ignore +(defmethod database-output-sql ((expr clsql-sys::sql-typecast-exp) + (database mysql-database)) + (with-slots (clsql-sys::modifier clsql-sys::components) + expr + (if clsql-sys::modifier + (progn + (clsql-sys::output-sql clsql-sys::components database) + (write-char #\: sql-sys::*sql-stream*) + (write-char #\: sql-sys::*sql-stream*) + (write-string (symbol-name clsql-sys::modifier) + clsql-sys::*sql-stream*))))) + +#+ignore +(defmethod database-output-sql-as-type ((type (eql 'integer)) val + (database mysql-database)) + ;; typecast it so it uses the indexes + (when val + (make-instance 'clsql-sys::sql-typecast-exp + :modifier 'int8 + :components val))) +|# diff --git a/db-oracle/alien-resources.lisp b/db-oracle/alien-resources.lisp index 97dafb6..14d765b 100644 --- a/db-oracle/alien-resources.lisp +++ b/db-oracle/alien-resources.lisp @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp -*- -;;; $Id: alien-resources.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $ +;;; $Id$ ;;; This is copyrighted software. See documentation for terms. ;;; diff --git a/db-oracle/oracle-constants.lisp b/db-oracle/oracle-constants.lisp index a7c3cfa..ae139aa 100644 --- a/db-oracle/oracle-constants.lisp +++ b/db-oracle/oracle-constants.lisp @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp -*- -;;; $Id: oracle-constants.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $ +;;; $Id$ (in-package :clsql-oracle) diff --git a/db-oracle/oracle-loader.lisp b/db-oracle/oracle-loader.lisp index b7f3b84..2d5b513 100644 --- a/db-oracle/oracle-loader.lisp +++ b/db-oracle/oracle-loader.lisp @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp -*- -;;; $Id: oracle-loader.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $ +;;; $Id$ ;;; ;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases ;;; This is copyrighted software. See documentation for terms. diff --git a/db-oracle/oracle-package.lisp b/db-oracle/oracle-package.lisp index 2d78a05..1dbbde9 100644 --- a/db-oracle/oracle-package.lisp +++ b/db-oracle/oracle-package.lisp @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp -*- -;;; $Id: oracle-package.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $ +;;; $Id$ ;;; ;;; This is copyrighted software. See documentation for terms. diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp index 072465e..7d60593 100644 --- a/db-oracle/oracle-sql.lisp +++ b/db-oracle/oracle-sql.lisp @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp -*- -;;; $Id: oracle-sql.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $ +;;; $Id$ ;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases ;;; This is copyrighted software. See documentation for terms. diff --git a/db-oracle/oracle.lisp b/db-oracle/oracle.lisp index 1e0ed79..a243c58 100644 --- a/db-oracle/oracle.lisp +++ b/db-oracle/oracle.lisp @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp -*- -;;; $Id: oracle.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $ +;;; $Id$ ;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases ;;; This is copyrighted software. See documentation for terms. diff --git a/db-postgresql-socket/postgresql-socket-api.lisp b/db-postgresql-socket/postgresql-socket-api.lisp index 9e9b10e..8e8cb3d 100644 --- a/db-postgresql-socket/postgresql-socket-api.lisp +++ b/db-postgresql-socket/postgresql-socket-api.lisp @@ -9,7 +9,7 @@ ;;;; ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: postgresql-socket-api.lisp,v 1.4 2003/05/02 03:05:54 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/db-postgresql-socket/postgresql-socket-package.lisp b/db-postgresql-socket/postgresql-socket-package.lisp index 2dbcf4c..fa4062b 100644 --- a/db-postgresql-socket/postgresql-socket-package.lisp +++ b/db-postgresql-socket/postgresql-socket-package.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: postgresql-socket-package.lisp,v 1.4 2003/05/07 02:45:08 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/db-postgresql-socket/postgresql-socket-sql.lisp b/db-postgresql-socket/postgresql-socket-sql.lisp index da84c94..176dfcb 100644 --- a/db-postgresql-socket/postgresql-socket-sql.lisp +++ b/db-postgresql-socket/postgresql-socket-sql.lisp @@ -8,7 +8,7 @@ ;;;; Original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: postgresql-socket-sql.lisp,v 1.4 2003/09/03 18:23:57 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/db-postgresql/postgresql-api.lisp b/db-postgresql/postgresql-api.lisp index f7ca361..06aedc6 100644 --- a/db-postgresql/postgresql-api.lisp +++ b/db-postgresql/postgresql-api.lisp @@ -8,7 +8,7 @@ ;;;; Original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: postgresql-api.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/db-postgresql/postgresql-loader.lisp b/db-postgresql/postgresql-loader.lisp index cfb9a36..9a3539e 100644 --- a/db-postgresql/postgresql-loader.lisp +++ b/db-postgresql/postgresql-loader.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: postgresql-loader.lisp,v 1.2 2002/11/23 18:00:26 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/db-postgresql/postgresql-package.lisp b/db-postgresql/postgresql-package.lisp index 60c6571..32ea77d 100644 --- a/db-postgresql/postgresql-package.lisp +++ b/db-postgresql/postgresql-package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: postgresql-package.lisp,v 1.2 2003/05/07 02:45:08 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp index ac13a30..09b72e7 100644 --- a/db-postgresql/postgresql-sql.lisp +++ b/db-postgresql/postgresql-sql.lisp @@ -8,7 +8,7 @@ ;;;; Original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: postgresql-sql.lisp,v 1.3 2003/07/21 01:45:45 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/db-postgresql/postgresql-usql.lisp b/db-postgresql/postgresql-usql.lisp index 0eccd45..b42438b 100644 --- a/db-postgresql/postgresql-usql.lisp +++ b/db-postgresql/postgresql-usql.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg and onShore Development Inc ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: postgresql-usql.lisp,v 1.2 2003/06/26 15:27:07 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and by onShore Development Inc. diff --git a/doc/Makefile b/doc/Makefile index c23967b..aef678e 100644 --- a/doc/Makefile +++ b/doc/Makefile @@ -5,7 +5,7 @@ # Programer: Kevin M. Rosenberg # Date Started: Mar 2002 # -# CVS Id: $Id: Makefile,v 1.17 2002/10/14 07:16:04 kevin Exp $ +# CVS Id: $Id$ # # This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg # diff --git a/sql/functional.lisp b/sql/functional.lisp index 125bb71..4222f8f 100644 --- a/sql/functional.lisp +++ b/sql/functional.lisp @@ -8,7 +8,7 @@ ;;;; ;;;; Copyright (c) 1999-2001 Pierre R. Mai ;;;; -;;;; $Id: functional.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file is part of CLSQL. ;;;; diff --git a/sql/loop-extension.lisp b/sql/loop-extension.lisp index 343acba..6eb9d3a 100644 --- a/sql/loop-extension.lisp +++ b/sql/loop-extension.lisp @@ -8,7 +8,7 @@ ;;;; ;;;; Copyright (c) 1999-2001 Pierre R. Mai ;;;; -;;;; $Id: loop-extension.lisp,v 1.2 2002/10/21 07:45:50 kevin Exp $ +;;;; $Id$ ;;;; ;;;; The functions in this file were orignally distributed in the ;;;; MaiSQL package in the file sql/sql.cl diff --git a/sql/package.lisp b/sql/package.lisp index 5ee3037..3f8d191 100644 --- a/sql/package.lisp +++ b/sql/package.lisp @@ -8,7 +8,7 @@ ;;;; Original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: package.lisp,v 1.5 2003/07/23 19:33:38 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/sql/pool.lisp b/sql/pool.lisp index 64aa796..f58e752 100644 --- a/sql/pool.lisp +++ b/sql/pool.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg, Marc Battyani ;;;; Date Started: Apr 2002 ;;;; -;;;; $Id: pool.lisp,v 1.5 2003/08/08 09:04:13 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002-2003 by Kevin M. Rosenberg ;;;; diff --git a/sql/sql.lisp b/sql/sql.lisp index 515ed83..e1492a5 100644 --- a/sql/sql.lisp +++ b/sql/sql.lisp @@ -7,7 +7,7 @@ ;;;; Authors: Kevin M. Rosenberg based on code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: sql.lisp,v 1.6 2003/07/23 19:33:38 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai diff --git a/sql/transactions.lisp b/sql/transactions.lisp index f710741..582e837 100644 --- a/sql/transactions.lisp +++ b/sql/transactions.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Marc Battyani ;;;; Date Started: Apr 2002 ;;;; -;;;; $Id: transactions.lisp,v 1.2 2002/10/14 15:25:15 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/sql/usql.lisp b/sql/usql.lisp index 984dce0..7a7420c 100644 --- a/sql/usql.lisp +++ b/sql/usql.lisp @@ -8,7 +8,7 @@ ;;;; Programmers: Kevin M. Rosenberg and onShore Development Inc ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: usql.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and onShore Development Inc diff --git a/tests/old-tests/xptest-clsql.lisp b/tests/old-tests/xptest-clsql.lisp index c37e49a..51fad13 100644 --- a/tests/old-tests/xptest-clsql.lisp +++ b/tests/old-tests/xptest-clsql.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: xptest-clsql.lisp,v 1.1 2003/05/02 03:08:58 kevin Exp $ +;;;; $Id$ ;;;; ;;;; The XPTest package can be downloaded from ;;;; http://alpha.onshored.com/lisp-software/ diff --git a/tests/package.lisp b/tests/package.lisp index 816c60a..619b8b0 100644 --- a/tests/package.lisp +++ b/tests/package.lisp @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2003 ;;;; -;;;; $Id: package.lisp,v 1.4 2003/07/20 18:31:22 kevin Exp $ +;;;; $Id$ ;;;; ************************************************************************* (in-package #:cl-user) diff --git a/tests/tables.lisp b/tests/tables.lisp index 92ff34f..1a003be 100644 --- a/tests/tables.lisp +++ b/tests/tables.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: tables.lisp,v 1.1 2003/05/02 03:08:58 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/tests.lisp b/tests/tests.lisp index 2480821..5cb93e7 100644 --- a/tests/tests.lisp +++ b/tests/tests.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: tests.lisp,v 1.3 2003/05/02 03:29:28 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/uffi/Makefile b/uffi/Makefile index 48507a6..c2d1b3d 100644 --- a/uffi/Makefile +++ b/uffi/Makefile @@ -7,7 +7,7 @@ # Programer: Kevin M. Rosenberg # Date Started: Mar 2002 # -# CVS Id: $Id: Makefile,v 1.3 2002/12/09 10:34:16 kevin Exp $ +# CVS Id: $Id$ # # This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg # diff --git a/uffi/clsql-uffi-loader.lisp b/uffi/clsql-uffi-loader.lisp index fc9f3d8..c667746 100644 --- a/uffi/clsql-uffi-loader.lisp +++ b/uffi/clsql-uffi-loader.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: clsql-uffi-loader.lisp,v 1.5 2003/07/08 20:15:13 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/uffi/clsql-uffi-package.lisp b/uffi/clsql-uffi-package.lisp index f9c313c..e216601 100644 --- a/uffi/clsql-uffi-package.lisp +++ b/uffi/clsql-uffi-package.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: clsql-uffi-package.lisp,v 1.3 2003/05/07 02:45:08 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/uffi/clsql-uffi.c b/uffi/clsql-uffi.c index 385df49..f1cfe08 100644 --- a/uffi/clsql-uffi.c +++ b/uffi/clsql-uffi.c @@ -6,7 +6,7 @@ * Programmer: Kevin M. Rosenberg * Date Started: Mar 2002 * - * $Id: clsql-uffi.c,v 1.1 2002/09/18 07:50:01 kevin Exp $ + * $Id$ * * This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg * diff --git a/uffi/clsql-uffi.lisp b/uffi/clsql-uffi.lisp index 1d072ed..da5276a 100644 --- a/uffi/clsql-uffi.lisp +++ b/uffi/clsql-uffi.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: clsql-uffi.lisp,v 1.32 2003/06/23 19:25:30 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -- 2.34.1