;;;; 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
;;;;
(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."
-#-cmu
+#-(or cmu sbcl)
(defun make-sequence-of-type (type length)
"Returns a sequence of the given TYPE and LENGTH."
(declare (fixnum length))
(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"))
#+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))
;;;; 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
;;;;
(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>"
(: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*)))
;;;; 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
\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
;;;; -*- 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>"
;;;; 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
\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
;;;; 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
(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
;;;; 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
;;;;
;;; 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>"
;;;; 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
;;;;
(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>"
: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*)))
;;;; 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
;;;;
(in-package :cl-user)
(defpackage :mysql
- (:use :common-lisp :clsql-uffi)
+ (:use #:common-lisp #:clsql-uffi)
(:export
#:database-library-loaded
;;;; 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
;;;; 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."))
;;;; 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
;;;;
#+lispworks (require "comm")
(defpackage :postgresql-socket
- (:use :common-lisp)
+ (:use #:common-lisp)
(:export #:pgsql-ftype
#:pgsql-ftype#bytea
#:pgsql-ftype#int2
+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
;;;; 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
;;;;
(in-package :cl-user)
(defpackage :clsql-uffi
+ (:use #:common-lisp)
(:export
#:canonicalize-type-list
#:convert-raw-field