projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7ce9554
)
r3059: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 16 Oct 2002 11:51:04 +0000
(11:51 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 16 Oct 2002 11:51:04 +0000
(11:51 +0000)
12 files changed:
NEWS
patch
|
blob
|
history
base/initialize.lisp
patch
|
blob
|
history
clsql-base.asd
patch
|
blob
|
history
clsql-mysql.asd
patch
|
blob
|
history
clsql-oracle.asd
patch
|
blob
|
history
clsql-postgresql-socket.asd
patch
|
blob
|
history
clsql-postgresql.asd
patch
|
blob
|
history
clsql-uffi.asd
patch
|
blob
|
history
clsql.asd
patch
|
blob
|
history
debian/changelog
patch
|
blob
|
history
doc/clsql.pdf
patch
|
blob
|
history
test-suite/tester-clsql.lisp
patch
|
blob
|
history
diff --git
a/NEWS
b/NEWS
index c10949fee3630a6ce9a3f92dd33973e59a4a0c30..73147ac653281891384c1a1af3e3b56498ad45ca 100644
(file)
--- a/
NEWS
+++ b/
NEWS
@@
-1,3
+1,3
@@
-
Now supports SBCL & OpenM
CL.
+
CLSQL now supports SBCL, OpenMCL, and S
CL.
diff --git
a/base/initialize.lisp
b/base/initialize.lisp
index 7bb8d1bdff9cade2310ca82b3ea30d8f11e4c2f9..7adf1b5e7ddff8c75db1ef3d5442d5b67199fb4f 100644
(file)
--- a/
base/initialize.lisp
+++ b/
base/initialize.lisp
@@
-7,7
+7,7
@@
;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: May 2002
;;;;
;;;; 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
;;;;
;;;; 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.")
(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*)))
(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 8d1bf0d5b802a4398347557b60cd94a0faaa8a04..5ca88a081ed5bfa1c5670197077f6bae4548a4d2 100644
(file)
--- a/
clsql-base.asd
+++ b/
clsql-base.asd
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: clsql-base.asd,v 1.1
6 2002/10/14 04:09:02
kevin Exp $
+;;;; $Id: clsql-base.asd,v 1.1
7 2002/10/16 11:51:04
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
;;;;
@@
-18,7
+18,7
@@
(in-package :asdf)
(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>"
(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"))))))
(: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*)))
(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 f74d39cbac4cf1ccc8b8547c99152af1b213d7c1..0fa706ec256bfe824cf64cb690a0ac2ade2e0a24 100644
(file)
--- a/
clsql-mysql.asd
+++ b/
clsql-mysql.asd
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
\r
;;;; Date Started: Aug 2002
\r
;;;;
\r
;;;; Programmer: Kevin M. Rosenberg
\r
;;;; Date Started: Aug 2002
\r
;;;;
\r
-;;;; $Id: clsql-mysql.asd,v 1.1
2 2002/10/14 04:09:02
kevin Exp $
\r
+;;;; $Id: clsql-mysql.asd,v 1.1
3 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
;;;;
\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
\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
(defsystem :clsql-mysql
\r
:name "cl-sql-mysql"
\r
:author "Kevin M. Rosenberg <kmr@debian.org>"
\r
diff --git
a/clsql-oracle.asd
b/clsql-oracle.asd
index 8800008379d6964d1a9bf22dcfa35bb184b33646..d7834573d0bacffd2a74266d34697201377bd18b 100644
(file)
--- 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.
;;;;
;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; This is copyrighted software. See interfaces/oracle/* files for terms.
;;;;
-;;;; $Id: clsql-oracle.asd,v 1.1
1 2002/10/14 04:09:02
kevin Exp $
+;;;; $Id: clsql-oracle.asd,v 1.1
2 2002/10/16 11:51:04
kevin Exp $
(in-package :asdf)
;;; System definition
(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>"
(defsystem :clsql-oracle
:name "cl-sql-oracle"
:author "Kevin M. Rosenberg <kmr@debian.org>"
diff --git
a/clsql-postgresql-socket.asd
b/clsql-postgresql-socket.asd
index 819d64d9c423675e587b7459da65c8757a24054d..466a4e4a50769817925f31b02e00763d11b92639 100644
(file)
--- a/
clsql-postgresql-socket.asd
+++ b/
clsql-postgresql-socket.asd
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
\r
;;;; Date Started: Aug 2002
\r
;;;;
\r
;;;; Programmer: Kevin M. Rosenberg
\r
;;;; Date Started: Aug 2002
\r
;;;;
\r
-;;;; $Id: clsql-postgresql-socket.asd,v 1.1
2 2002/10/14 04:09:02
kevin Exp $
\r
+;;;; $Id: clsql-postgresql-socket.asd,v 1.1
3 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
;;;;
\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
\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
(defsystem :clsql-postgresql-socket
\r
:name "cl-sql-postgresql-socket"
\r
:author "Kevin M. Rosenberg <kmr@debian.org>"
\r
diff --git
a/clsql-postgresql.asd
b/clsql-postgresql.asd
index b17607b8dcb433b28af4a71ef19534641fc4bf36..204a59c620d4be9f1e281a19011e0f71163f5e36 100644
(file)
--- a/
clsql-postgresql.asd
+++ b/
clsql-postgresql.asd
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
\r
;;;; Date Started: Aug 2002
\r
;;;;
\r
;;;; Programmer: Kevin M. Rosenberg
\r
;;;; Date Started: Aug 2002
\r
;;;;
\r
-;;;; $Id: clsql-postgresql.asd,v 1.1
2 2002/10/14 04:09:02
kevin Exp $
\r
+;;;; $Id: clsql-postgresql.asd,v 1.1
3 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
;;;;
\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
(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
(defsystem :clsql-postgresql
\r
:name "cl-sql-postgresql"
\r
:author "Kevin M. Rosenberg <kmr@debian.org>"
\r
diff --git
a/clsql-uffi.asd
b/clsql-uffi.asd
index 2d22cc2e3c15da05e46f4234a5597ea2deb8f77b..21ef79a4ac08ee3b220e5550cedafe4a680ae1da 100644
(file)
--- a/
clsql-uffi.asd
+++ b/
clsql-uffi.asd
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: clsql-uffi.asd,v 1.1
3 2002/10/14 04:09:02
kevin Exp $
+;;;; $Id: clsql-uffi.asd,v 1.1
4 2002/10/16 11:51:04
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
;;;;
@@
-22,7
+22,7
@@
;;; System definition
;;; 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>"
(defsystem :clsql-uffi
:name "cl-sql-base"
:author "Kevin M. Rosenberg <kmr@debian.org>"
diff --git
a/clsql.asd
b/clsql.asd
index 67e9b7f8dcd24a92ab43d9de18bfc08506f5f289..36c688cab3f037b22adfbffac8448760fe799d94 100644
(file)
--- a/
clsql.asd
+++ b/
clsql.asd
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: clsql.asd,v 1.1
4 2002/10/14 04:09:02
kevin Exp $
+;;;; $Id: clsql.asd,v 1.1
5 2002/10/16 11:51:04
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
;;;;
@@
-18,7
+18,7
@@
(in-package :asdf)
(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>"
(defsystem :clsql
:name "cl-sql"
:author "Kevin M. Rosenberg <kmr@debian.org>"
@@
-43,7
+43,7
@@
:depends-on (:clsql-base)
)
: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*)))
(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 92f8b96a079d11b92a0d795f06d10cb14a6248ca..ee76d86c8277fcf4e6abd0a0265effa8b3e6a5ea 100644
(file)
--- 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 <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
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 ceff72a43bcc242195e0ae021dcd7441a4897844..d84df3a9241b866139deca0a8ed6beef6e9c574c 100644
(file)
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 914c3f6246b1aa0a372811e74cf26cae469e4dcb..4959580c3a71ef9a0f01e3feb76db01c3c8e6501 100644
(file)
--- a/
test-suite/tester-clsql.lisp
+++ b/
test-suite/tester-clsql.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
;;;; 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
;;;;
;;;;
;;;; 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)
(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)
(in-package :clsql-user)
(use-package :util.test)