r3059: *** empty log message ***
authorKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 16 Oct 2002 11:51:04 +0000 (11:51 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 16 Oct 2002 11:51:04 +0000 (11:51 +0000)
12 files changed:
NEWS
base/initialize.lisp
clsql-base.asd
clsql-mysql.asd
clsql-oracle.asd
clsql-postgresql-socket.asd
clsql-postgresql.asd
clsql-uffi.asd
clsql.asd
debian/changelog
doc/clsql.pdf
test-suite/tester-clsql.lisp

diff --git a/NEWS b/NEWS
index c10949f..73147ac 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,3 @@
-Now supports SBCL & OpenMCL.
+CLSQL now supports SBCL, OpenMCL, and SCL.
 
 
index 7bb8d1b..7adf1b5 100644 (file)
@@ -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*)))
index 8d1bf0d..5ca88a0 100644 (file)
@@ -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 <kmr@debian.org>"
@@ -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*)))
index f74d39c..0fa706e 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg\r
 ;;;; Date Started:  Aug 2002\r
 ;;;;\r
-;;;; $Id: clsql-mysql.asd,v 1.12 2002/10/14 04:09:02 kevin Exp $\r
+;;;; $Id: clsql-mysql.asd,v 1.13 2002/10/16 11:51:04 kevin Exp $\r
 ;;;;\r
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
 ;;;;\r
@@ -20,7 +20,7 @@
 \r
 ;;; System definition\r
 \r
-#+(or allegro lispworks cmu sbcl openmcl mcl)\r
+#+(or allegro lispworks cmu sbcl openmcl mcl scl)\r
 (defsystem :clsql-mysql\r
   :name "cl-sql-mysql"\r
   :author "Kevin M. Rosenberg <kmr@debian.org>"\r
index 8800008..d783457 100644 (file)
@@ -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 <kmr@debian.org>"
index 819d64d..466a4e4 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg\r
 ;;;; Date Started:  Aug 2002\r
 ;;;;\r
-;;;; $Id: clsql-postgresql-socket.asd,v 1.12 2002/10/14 04:09:02 kevin Exp $\r
+;;;; $Id: clsql-postgresql-socket.asd,v 1.13 2002/10/16 11:51:04 kevin Exp $\r
 ;;;;\r
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
 ;;;;\r
@@ -20,7 +20,7 @@
 \r
 ;;; System definition\r
 \r
-#+(or allegro lispworks cmu sbcl openmcl mcl)\r
+#+(or allegro lispworks cmu sbcl openmcl mcl scl)\r
 (defsystem :clsql-postgresql-socket\r
   :name "cl-sql-postgresql-socket"\r
   :author "Kevin M. Rosenberg <kmr@debian.org>"\r
index b17607b..204a59c 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg\r
 ;;;; Date Started:  Aug 2002\r
 ;;;;\r
-;;;; $Id: clsql-postgresql.asd,v 1.12 2002/10/14 04:09:02 kevin Exp $\r
+;;;; $Id: clsql-postgresql.asd,v 1.13 2002/10/16 11:51:04 kevin Exp $\r
 ;;;;\r
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
 ;;;;\r
@@ -19,7 +19,7 @@
 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))\r
 (in-package :asdf)\r
 \r
-#+(or allegro lispworks cmu sbcl openmcl mcl)\r
+#+(or allegro lispworks cmu sbcl openmcl mcl scl)\r
 (defsystem :clsql-postgresql\r
   :name "cl-sql-postgresql"\r
   :author "Kevin M. Rosenberg <kmr@debian.org>"\r
index 2d22cc2..21ef79a 100644 (file)
@@ -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 <kmr@debian.org>"
index 67e9b7f..36c688c 100644 (file)
--- 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 <kmr@debian.org>"
@@ -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*)))
index 92f8b96..ee76d86 100644 (file)
@@ -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 <kmr@debian.org>  Tue, 15 Oct 2002 13:34:41 -0600
+
 cl-sql (1.0.1-1) unstable; urgency=low
 
   * Add defgeneric for generic functions
index ceff72a..d84df3a 100644 (file)
Binary files a/doc/clsql.pdf and b/doc/clsql.pdf differ
index 914c3f6..4959580 100644 (file)
@@ -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)