r3002: sbcl additions
authorKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 14 Oct 2002 04:09:02 +0000 (04:09 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 14 Oct 2002 04:09:02 +0000 (04:09 +0000)
13 files changed:
base/cmucl-compat.lisp
clsql-base.asd
clsql-mysql.asd
clsql-oracle.asd
clsql-postgresql-socket.asd
clsql-postgresql.asd
clsql-uffi.asd
clsql.asd
db-mysql/mysql-package.lisp
db-mysql/mysql-sql.lisp
db-postgresql-socket/postgresql-socket-package.lisp
debian/changelog
uffi/clsql-uffi-package.lisp

index a479bc1..3da7694 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: cmucl-compat.lisp,v 1.1 2002/09/30 10:19:01 kevin Exp $
+;;;; $Id: cmucl-compat.lisp,v 1.2 2002/10/14 04:09:02 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -20,6 +20,7 @@
 (in-package :cl-user)
 
 (defpackage :cmucl-compat
+  (:use #:common-lisp)
   (:export
    #:shrink-vector
    #:make-sequence-of-type
 (defmacro shrink-vector (vec len)
   `(lisp::shrink-vector ,vec ,len))
 
-#-cmu
+#+sbcl
+(defmacro shrink-vector (vec len)
+  `(sb-kernel::shrink-vector ,vec ,len))
+
+#-(or cmu sbcl)
 (defmacro shrink-vector (vec len)
   "Shrinks a vector. Optimized if vector has a fill pointer.
 Needs to be a macro to overwrite value of VEC."
@@ -64,7 +69,7 @@ Needs to be a macro to overwrite value of VEC."
 
 
 
-#-cmu
+#-(or cmu sbcl)
 (defun make-sequence-of-type (type length)
   "Returns a sequence of the given TYPE and LENGTH."
   (declare (fixnum length))
@@ -91,9 +96,12 @@ Needs to be a macro to overwrite value of VEC."
       (lisp::make-sequence-of-type type len))
   (defun make-sequence-of-type (type len)
     (system::make-sequence-of-type type len)))
-  
 
-#-cmu
+#+sbcl
+(defun make-sequence-of-type (type len)
+  (sb-impl::make-sequence-of-type type len))
+
+#-(or cmu sbcl)
 (defun result-type-or-lose (type nil-ok)
   (unless (or type nil-ok)
     (error "NIL output type invalid for this sequence function"))
@@ -113,3 +121,7 @@ Needs to be a macro to overwrite value of VEC."
 #+cmu
 (defun result-type-or-lose (type nil-ok)
   (lisp::result-type-or-lose type nil-ok))
+
+#+sbcl
+(defun result-type-or-lose (type nil-ok)
+  (sb-impl::result-type-or-lose type nil-ok))
index dcb0e28..8d1bf0d 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: clsql-base.asd,v 1.15 2002/09/30 10:19:23 kevin Exp $
+;;;; $Id: clsql-base.asd,v 1.16 2002/10/14 04:09:02 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 openmcl mcl)
+#+(or allegro lispworks cmu sbcl openmcl mcl)
 (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 openmcl mcl)
+#+(or allegro lispworks cmu sbcl openmcl mcl)
 (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 8b440c1..f74d39c 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg\r
 ;;;; Date Started:  Aug 2002\r
 ;;;;\r
-;;;; $Id: clsql-mysql.asd,v 1.11 2002/09/30 10:19:23 kevin Exp $\r
+;;;; $Id: clsql-mysql.asd,v 1.12 2002/10/14 04:09:02 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 openmcl mcl)\r
+#+(or allegro lispworks cmu sbcl openmcl mcl)\r
 (defsystem :clsql-mysql\r
   :name "cl-sql-mysql"\r
   :author "Kevin M. Rosenberg <kmr@debian.org>"\r
index 56707a0..8800008 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.10 2002/09/30 10:19:23 kevin Exp $
+;;;; $Id: clsql-oracle.asd,v 1.11 2002/10/14 04:09:02 kevin Exp $
 
 (in-package :asdf)
 
 ;;; System definition
 
-#+(or allegro lispworks cmu openmcl mcl)
+#+(or allegro lispworks cmu sbcl openmcl mcl)
 (defsystem :clsql-oracle
   :name "cl-sql-oracle"
   :author "Kevin M. Rosenberg <kmr@debian.org>"
index 4504817..819d64d 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg\r
 ;;;; Date Started:  Aug 2002\r
 ;;;;\r
-;;;; $Id: clsql-postgresql-socket.asd,v 1.11 2002/09/30 10:19:23 kevin Exp $\r
+;;;; $Id: clsql-postgresql-socket.asd,v 1.12 2002/10/14 04:09:02 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 openmcl mcl)\r
+#+(or allegro lispworks cmu sbcl openmcl mcl)\r
 (defsystem :clsql-postgresql-socket\r
   :name "cl-sql-postgresql-socket"\r
   :author "Kevin M. Rosenberg <kmr@debian.org>"\r
index f377ddd..b17607b 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg\r
 ;;;; Date Started:  Aug 2002\r
 ;;;;\r
-;;;; $Id: clsql-postgresql.asd,v 1.11 2002/09/30 10:19:23 kevin Exp $\r
+;;;; $Id: clsql-postgresql.asd,v 1.12 2002/10/14 04:09:02 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 openmcl mcl)\r
+#+(or allegro lispworks cmu sbcl openmcl mcl)\r
 (defsystem :clsql-postgresql\r
   :name "cl-sql-postgresql"\r
   :author "Kevin M. Rosenberg <kmr@debian.org>"\r
index e5e726d..2d22cc2 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: clsql-uffi.asd,v 1.12 2002/09/30 10:19:23 kevin Exp $
+;;;; $Id: clsql-uffi.asd,v 1.13 2002/10/14 04:09:02 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 openmcl mcl)
+#+(or allegro lispworks cmu sbcl openmcl mcl)
 (defsystem :clsql-uffi
   :name "cl-sql-base"
   :author "Kevin M. Rosenberg <kmr@debian.org>"
index f4a609d..67e9b7f 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.13 2002/09/30 10:19:23 kevin Exp $
+;;;; $Id: clsql.asd,v 1.14 2002/10/14 04:09:02 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 openmcl mcl)
+#+(or allegro lispworks cmu sbcl openmcl mcl)
 (defsystem :clsql
   :name "cl-sql"
   :author "Kevin M. Rosenberg <kmr@debian.org>"
@@ -43,7 +43,7 @@
   :depends-on (:clsql-base)
   )
 
-#+(or allegro lispworks cmu openmcl mcl)
+#+(or allegro lispworks cmu sbcl openmcl mcl)
 (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 95499be..12d6bef 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: mysql-package.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $
+;;;; $Id: mysql-package.lisp,v 1.2 2002/10/14 04:09:02 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -20,7 +20,7 @@
 (in-package :cl-user)
 
 (defpackage :mysql
-    (:use :common-lisp :clsql-uffi)
+    (:use #:common-lisp #:clsql-uffi)
     (:export 
      #:database-library-loaded
      
index 472d810..4011692 100644 (file)
@@ -8,7 +8,7 @@
 ;;;;                Original code by Pierre R. Mai 
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: mysql-sql.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $
+;;;; $Id: mysql-sql.lisp,v 1.2 2002/10/14 04:09:02 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -33,7 +33,7 @@
 ;;;; Added field types
 
 (defpackage :clsql-mysql
-    (:use :common-lisp :clsql-base-sys :mysql :clsql-uffi)
+    (:use #:common-lisp #:clsql-base-sys #:mysql #:clsql-uffi)
     (:export #:mysql-database)
     (:documentation "This is the CLSQL interface to MySQL."))
 
index 04b08a9..7898830 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: postgresql-socket-package.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $
+;;;; $Id: postgresql-socket-package.lisp,v 1.2 2002/10/14 04:09:02 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -22,7 +22,7 @@
 #+lispworks (require "comm")
 
 (defpackage :postgresql-socket
-  (:use :common-lisp)
+  (:use #:common-lisp)
   (:export #:pgsql-ftype
           #:pgsql-ftype#bytea
           #:pgsql-ftype#int2
index feee5b8..c5e2b59 100644 (file)
@@ -1,3 +1,9 @@
+cl-sql (1.0.0-1) unstable; urgency=low
+
+  * Add SBCL support
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Sun, 13 Oct 2002 20:52:41 -0600
+
 cl-sql (0.9.9-1) unstable; urgency=high
 
   * Add version depends for common-lisp-controller
index 9e39e03..c2eb33d 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: clsql-uffi-package.lisp,v 1.1 2002/09/30 10:19:24 kevin Exp $
+;;;; $Id: clsql-uffi-package.lisp,v 1.2 2002/10/14 04:09:02 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -20,6 +20,7 @@
 (in-package :cl-user)
 
 (defpackage :clsql-uffi
+  (:use #:common-lisp)
   (:export
    #:canonicalize-type-list
    #:convert-raw-field