From: Kevin M. Rosenberg Date: Wed, 16 Oct 2002 11:51:04 +0000 (+0000) Subject: r3059: *** empty log message *** X-Git-Tag: v3.8.6~905 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=33dcd7b49025344bd4c9827d1cd2b6e6857a0c03 r3059: *** empty log message *** --- diff --git a/NEWS b/NEWS index c10949f..73147ac 100644 --- a/NEWS +++ b/NEWS @@ -1,3 +1,3 @@ -Now supports SBCL & OpenMCL. +CLSQL now supports SBCL, OpenMCL, and SCL. diff --git a/base/initialize.lisp b/base/initialize.lisp index 7bb8d1b..7adf1b5 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.1 2002/09/30 10:19:01 kevin Exp $ +;;;; $Id: initialize.lisp,v 1.2 2002/10/16 11:51:04 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai @@ -23,6 +23,9 @@ (defvar *loaded-database-types* nil "Contains a list of database types which have been defined/loaded.") +(defmethod database-type-load-foreign (x) + (error "No generic function defined for database-type-load-foreign with parameters of %S" x)) + (defmethod database-type-load-foreign :after (database-type) (when (database-type-library-loaded database-type) (pushnew database-type *loaded-database-types*))) diff --git a/clsql-base.asd b/clsql-base.asd index 8d1bf0d..5ca88a0 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.16 2002/10/14 04:09:02 kevin Exp $ +;;;; $Id: clsql-base.asd,v 1.17 2002/10/16 11:51:04 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -18,7 +18,7 @@ (in-package :asdf) -#+(or allegro lispworks cmu sbcl openmcl mcl) +#+(or allegro lispworks cmu sbcl openmcl mcl scl) (defsystem :clsql-base :name "cl-sql-base" :author "Kevin M. Rosenberg " @@ -41,7 +41,7 @@ (:file "db-interface" :depends-on ("conditions")) (:file "initialize" :depends-on ("db-interface")))))) -#+(or allegro lispworks cmu sbcl openmcl mcl) +#+(or allegro lispworks cmu sbcl openmcl mcl scl) (when (ignore-errors (find-class 'load-compiled-op)) (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :clsql-base)))) (pushnew :clsql-base cl:*features*))) diff --git a/clsql-mysql.asd b/clsql-mysql.asd index f74d39c..0fa706e 100644 --- a/clsql-mysql.asd +++ b/clsql-mysql.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: clsql-mysql.asd,v 1.12 2002/10/14 04:09:02 kevin Exp $ +;;;; $Id: clsql-mysql.asd,v 1.13 2002/10/16 11:51:04 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -20,7 +20,7 @@ ;;; System definition -#+(or allegro lispworks cmu sbcl openmcl mcl) +#+(or allegro lispworks cmu sbcl openmcl mcl scl) (defsystem :clsql-mysql :name "cl-sql-mysql" :author "Kevin M. Rosenberg " diff --git a/clsql-oracle.asd b/clsql-oracle.asd index 8800008..d783457 100644 --- a/clsql-oracle.asd +++ b/clsql-oracle.asd @@ -1,13 +1,13 @@ ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;;; This is copyrighted software. See interfaces/oracle/* files for terms. ;;;; -;;;; $Id: clsql-oracle.asd,v 1.11 2002/10/14 04:09:02 kevin Exp $ +;;;; $Id: clsql-oracle.asd,v 1.12 2002/10/16 11:51:04 kevin Exp $ (in-package :asdf) ;;; System definition -#+(or allegro lispworks cmu sbcl openmcl mcl) +#+(or allegro lispworks cmu sbcl openmcl mcl scl) (defsystem :clsql-oracle :name "cl-sql-oracle" :author "Kevin M. Rosenberg " diff --git a/clsql-postgresql-socket.asd b/clsql-postgresql-socket.asd index 819d64d..466a4e4 100644 --- a/clsql-postgresql-socket.asd +++ b/clsql-postgresql-socket.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: clsql-postgresql-socket.asd,v 1.12 2002/10/14 04:09:02 kevin Exp $ +;;;; $Id: clsql-postgresql-socket.asd,v 1.13 2002/10/16 11:51:04 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -20,7 +20,7 @@ ;;; System definition -#+(or allegro lispworks cmu sbcl openmcl mcl) +#+(or allegro lispworks cmu sbcl openmcl mcl scl) (defsystem :clsql-postgresql-socket :name "cl-sql-postgresql-socket" :author "Kevin M. Rosenberg " diff --git a/clsql-postgresql.asd b/clsql-postgresql.asd index b17607b..204a59c 100644 --- a/clsql-postgresql.asd +++ b/clsql-postgresql.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: clsql-postgresql.asd,v 1.12 2002/10/14 04:09:02 kevin Exp $ +;;;; $Id: clsql-postgresql.asd,v 1.13 2002/10/16 11:51:04 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -19,7 +19,7 @@ (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))) (in-package :asdf) -#+(or allegro lispworks cmu sbcl openmcl mcl) +#+(or allegro lispworks cmu sbcl openmcl mcl scl) (defsystem :clsql-postgresql :name "cl-sql-postgresql" :author "Kevin M. Rosenberg " diff --git a/clsql-uffi.asd b/clsql-uffi.asd index 2d22cc2..21ef79a 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.13 2002/10/14 04:09:02 kevin Exp $ +;;;; $Id: clsql-uffi.asd,v 1.14 2002/10/16 11:51:04 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -22,7 +22,7 @@ ;;; System definition -#+(or allegro lispworks cmu sbcl openmcl mcl) +#+(or allegro lispworks cmu sbcl openmcl mcl scl) (defsystem :clsql-uffi :name "cl-sql-base" :author "Kevin M. Rosenberg " diff --git a/clsql.asd b/clsql.asd index 67e9b7f..36c688c 100644 --- a/clsql.asd +++ b/clsql.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: clsql.asd,v 1.14 2002/10/14 04:09:02 kevin Exp $ +;;;; $Id: clsql.asd,v 1.15 2002/10/16 11:51:04 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -18,7 +18,7 @@ (in-package :asdf) -#+(or allegro lispworks cmu sbcl openmcl mcl) +#+(or allegro lispworks cmu sbcl openmcl mcl scl) (defsystem :clsql :name "cl-sql" :author "Kevin M. Rosenberg " @@ -43,7 +43,7 @@ :depends-on (:clsql-base) ) -#+(or allegro lispworks cmu sbcl openmcl mcl) +#+(or allegro lispworks cmu sbcl openmcl mcl scl) (when (ignore-errors (find-class 'load-compiled-op)) (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :clsql)))) (pushnew :clsql cl:*features*))) diff --git a/debian/changelog b/debian/changelog index 92f8b96..ee76d86 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +cl-sql (1.1.0-1) unstable; urgency=low + + * Add SCL support. + * Fix file type in test-suite/tester-clsql.lisp + + -- Kevin M. Rosenberg Tue, 15 Oct 2002 13:34:41 -0600 + cl-sql (1.0.1-1) unstable; urgency=low * Add defgeneric for generic functions diff --git a/doc/clsql.pdf b/doc/clsql.pdf index ceff72a..d84df3a 100644 Binary files a/doc/clsql.pdf and b/doc/clsql.pdf differ diff --git a/test-suite/tester-clsql.lisp b/test-suite/tester-clsql.lisp index 914c3f6..4959580 100644 --- a/test-suite/tester-clsql.lisp +++ b/test-suite/tester-clsql.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: tester-clsql.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $ +;;;; $Id: tester-clsql.lisp,v 1.2 2002/10/16 11:51:04 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -31,8 +31,7 @@ (in-package :cl-user) (unless (find-package :util.test) - (load (make-pathname :name "acl-compat-tester" :type "cl" - :defaults *load-truename*))) + (load (make-pathname :name "acl-compat-tester" :defaults *load-truename*))) (in-package :clsql-user) (use-package :util.test)