From 33dcd7b49025344bd4c9827d1cd2b6e6857a0c03 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 16 Oct 2002 11:51:04 +0000 Subject: [PATCH 1/1] r3059: *** empty log message *** --- NEWS | 2 +- base/initialize.lisp | 5 ++++- clsql-base.asd | 6 +++--- clsql-mysql.asd | 4 ++-- clsql-oracle.asd | 4 ++-- clsql-postgresql-socket.asd | 4 ++-- clsql-postgresql.asd | 4 ++-- clsql-uffi.asd | 4 ++-- clsql.asd | 6 +++--- debian/changelog | 7 +++++++ doc/clsql.pdf | Bin 314107 -> 314106 bytes test-suite/tester-clsql.lisp | 5 ++--- 12 files changed, 30 insertions(+), 21 deletions(-) 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 ceff72a43bcc242195e0ae021dcd7441a4897844..d84df3a9241b866139deca0a8ed6beef6e9c574c 100644 GIT binary patch delta 2040 zcmZXQc{J3E8^-U~e8;{sC@w?ER+`1knCvv7Xb_jUmPmt0gdsA?)DUvK0$^0WCj=Tps@a%y{unFQO? zJhupj-jcL%T+C&6OtyiChZOvIv|8?(RJSfMw@D5w?e7J=b>S8;qdQ1pU8b+*3$B5J zn9n0Oc+n~G7tr&_?#em9)MrJO?QT&w3%py^nt)MU)py< z^|jpCijw}TrNPhQk)`CeQgJ9~Q#K9r*d2~AH}`e05Qp>=tbzrSJ_Zdfl~svme)2Vy z*>m;T^+`)gz4%I42|-orf%)&6H{r6*<@Cf$Ha;!3rQZaJN~X<7a%f{qZ>watfMcEm z{Op7@$}Cyv>|lFNvQ0vJB5Gg$OWJ8i%h`?UWThyEqWV5`UJ}qPEcB-+yqt;F(W8LC z_5GLSlv0II1p;S!MVv?>fHSHhf$rQZcrLRA6xVUq6{>$oZfYLMPbEi$PXSsKdX0a$ z%rjC}#g@Lf`Vu0D%M+2FQqhm?c5wHtwFE@od|0&7{K{l}a4wZ@vqIDCsVVXeCHiBL zzJ9hfuBSGDOR*)SsIb{umU1U+ggeh4*@xGD$Vp_nKraO|CZlKQp@;sJM59FdeWR`v zMi3o4-kxutsQG+){VCBhar)EhlK({<94c@7XZf|-%w6`&TFIW=;QCzGf;VQLw&<-R zl)>BR@`=^TQM2^%!2wz=H#N!+FV)B-$vc0eJa4^~+tj$WP$qTKW_FchC($!gFmMlB zQBU2opg0~pIwkPDqirt6#4l_0bGkP#;P3a3X6k!GW4uK@B@P&}>#Gh&ffEC&L9E>? zby{45bZyWJT zH(vb(IRdHEFPyW}8H`~C$FVf~h;F+8_S+LdZ+j4@shx2*GfqBVj95RnIpN}vg`5SY2>LCWO$u_ySDy#INZ@hdV-?pX2>FAigGGKJR?TO-`NJLJ}R&0 zxv9*tK3r(4@hrycQ17_Aj1IAIk};mAhUYfo2DWna(JOV9W| zr&kpz@%O9&v&uPu(`>&Q-k~$qoD)Z!zMJFM29Uu>R<-@`SkDPEi zY;6Gz=EH*j+u1e+u(((l7Ket~cYz!L1r_cFwGcQY>c=3@Aw_>E25X2xqoLv5AQiwu zCzL@y0L5l2gQkE0mdNI-fMWoFhB&HVJ7CBzR0I8X0S0Us5u^zLXm+AGm>~{e*oyX` zp7i#el_!XWZ7bCW+!6tB5H$$Y+Kv?lfm`4Si2suTs>yD9UJ0lr zwe96o zQBx5)b#f@0(?mtip`6C3N7waS?;myl^S!^H>w90L6#e_*hI%s{JfUoebBnxDtCZgtMWvq;bJ=z$`h9RtI3ygR4()$f1xs;`%g9I? z(kzVff9qAzV2zsp2n4@8(RC{HfP#$MN6n8HOW7F6?`w=|rKjGOj#CYzk2OwtfQ9{{ z(uXTtKD@=E{l<^~q4`Pl={9r(mM8+0rYGWFS!WOvGZjWiMTM}Zu5i&mX*!lDSF09u z+S?#qWJAP#xXrVZH`&_ZCGW9NveZ48Y)WyCq7*{76<5UGtN`Wq4r#Ha3Tbb@C3M2w)UhGcswk@1K{$^YeE(8lqfOlv z5oN36vquRyn(}CQuF+5QSV^imOXPS$M*w7gEyuH*WMPG07m_6E?rE7QqEo(-AjfVz z!=IboSH{S9VAQ6oNKNrEdQrr~6)e7M)`;y~?KGjtrLYbOmY;Pb z?zYcpLhVI1>XdFhhC^%j%*q%X!AjrX>M>e2)L>+FV*Cz!zazIZceVbuGz-r|)4x*-%=aYNd%x887R z`de)&S%TvHh@4@{G^T6#s>siD2ov~rc9Na6@m{-O6Z2=CCpvEzCx*IR)m=JC(=ILh zTlhU;;(GhL@vQF|e>HE*yOwjKS9a)4uJxJD|4vl*9SJmfp*VWxHL?I@m^?JG{9f?# zb==ajO04DM&jo)`kC+qa&|W@DMp@eVrqM=j&ze1T>hXAxdQM9?EDBdfu z8W%Ls(>&wD6<$}{I_tuUmFJyT@QbcB_b%nPE{E03_Y51_4MyZfF6s*x z*LhST6z0@^a+2RWD`=WrLv4N1-&a&NRaM_^<}KrQKOCuEsGSX!NH2=3QoEScHu06X zTwj)uoe-M_ja{tHlN@M=S)Uu%uYP2J8jSfMnWg+ZN=v!&3!Bg~%CVpKs-*CwU!W;2 z-txB}cs{k*nMx!{@hgjBD0A0Rr!G9d7rL_jn`(wTlE{kZU}#BiZ(Mb@RV25ymBhr& zl-3g3xSZ!~C+KSSp4=tXv-vW4Gsl>-`(qZ?+1CHth$r81;`jzc&*v4liC(Kq@Qd@w zjt#bKuA38F*1$yT-+$Qptm|DK16%0Y5%K`hLd#a`edrOZ+i&tc@+Bf`?8HKKdRgPk zexJRvP8G7gWtI7QRd)jGqvmc^TMP@OyueH-GYwpc=TlzLHLh1 z)E&8D&NRziyx8;{=F#kV?keB81W^C{hu0To)g6r^P+ZsQqOO*nkae&Nxv zI?yU!!PkW5vZ<|$>r48LLB}5jU9c;wFW?@K=D`x5(tv}f#WX3wH3Q2?HWVAnGrajIP5#F{pV(=`> zkq9Zw(&;k+-Qofn*cj<)W-JptE8$NkRHpYfAww5${ z!fdrGq^Xc6d?J;jC6|1;4HCThZY(&oJ*`N_t=L|kHob3g^8 z14hilJ3tD6