r9988: Automated commit for Debian build of clsql upstream-version-3.0.4

diff --git a/ChangeLog b/ChangeLog
index fa9a562dd93654df862969b4cc345ffb03b907cc..0a6cbcdfc89dcaf773080513db6b28b1d0311e13 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+09 Sep 2004 Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 3.0.4 Release
+       * multiple: Remove superfluous quotes in UFFI def-type
+       and def-foreign-type forms.
+       
 07 Sep 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.0.3 Release
        * db-postgresql-socket/postgresql-socket-api.lisp: Commit patch

diff --git a/db-odbc/odbc-api.lisp b/db-odbc/odbc-api.lisp
index aa5bbbc822c49b5a416c37a774cda83d18e36c72..3b1beb0f167accde0c7917f45e51359dfa03fe48 100644 (file)
--- a/db-odbc/odbc-api.lisp
+++ b/db-odbc/odbc-api.lisp
@@ -576,13 +576,13 @@ as possible second argument) to the desired representation of date/time/timestam
     (#.$SQL_TINYINT $SQL_C_STINYINT)
     (#.$SQL_BIT $SQL_C_BIT)))
 
-(def-type byte-pointer-type '(* :byte))
-(def-type short-pointer-type '(* :short))
-(def-type int-pointer-type '(* :int))
-(def-type long-pointer-type '(* #.$ODBC-LONG-TYPE))
-(def-type float-pointer-type '(* :float))
-(def-type double-pointer-type '(* :double))
-(def-type string-pointer-type '(* :unsigned-char))
+(def-type byte-pointer-type (* :byte))
+(def-type short-pointer-type (* :short))
+(def-type int-pointer-type (* :int))
+(def-type long-pointer-type (* #.$ODBC-LONG-TYPE))
+(def-type float-pointer-type (* :float))
+(def-type double-pointer-type (* :double))
+(def-type string-pointer-type (* :unsigned-char))
 
 (defun get-cast-byte (ptr)
   (locally (declare (type byte-pointer-type ptr))
@@ -900,9 +900,9 @@ as possible second argument) to the desired representation of date/time/timestam
                (read-from-string str))
            str))))))
 
-(def-type c-timestamp-ptr-type '(* (:struct sql-c-timestamp)))
-(def-type c-time-ptr-type '(* (:struct sql-c-time)))
-(def-type c-date-ptr-type '(* (:struct sql-c-date)))
+(def-type c-timestamp-ptr-type (* (:struct sql-c-timestamp)))
+(def-type c-time-ptr-type (* (:struct sql-c-time)))
+(def-type c-date-ptr-type (* (:struct sql-c-date)))
 
 (defun timestamp-to-universal-time (ptr)
   (declare (type c-timestamp-ptr-type ptr))

diff --git a/db-odbc/odbc-ff-interface.lisp b/db-odbc/odbc-ff-interface.lisp
index d26648c744fa6737fb0e7be8e5d1d5918ab32bd9..00e7cd6f386b848e738bd23c00eaaaa1c0451f11 100644 (file)
--- a/db-odbc/odbc-ff-interface.lisp
+++ b/db-odbc/odbc-ff-interface.lisp
@@ -19,9 +19,9 @@
 (in-package #:odbc)
 
 (def-foreign-type sql-handle :pointer-void)
-(def-foreign-type sql-handle-ptr '(* sql-handle))
-(def-foreign-type string-ptr '(* :unsigned-char))
-(def-type long-ptr-type '(* #.$ODBC-LONG-TYPE))
+(def-foreign-type sql-handle-ptr (* sql-handle))
+(def-foreign-type string-ptr (* :unsigned-char))
+(def-type long-ptr-type (* #.$ODBC-LONG-TYPE))
 
 ;; odbc v3
 (def-function "SQLAllocHandle"

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 03480682f823b91a691533ba217c9239eca6fb5c..dc2c98bd51c7836ec6bc812e7858571851977079 100644 (file)
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -64,7 +64,7 @@ likely that we'll have to worry about the CMUCL limit."))
 ;;; database. Thus, there's no obstacle to having any number of DB
 ;;; objects referring to the same database.
 
-(uffi:def-type pointer-pointer-void '(* :pointer-void))
+(uffi:def-type pointer-pointer-void (* :pointer-void))
 
 (defclass oracle-database (database)    ; was struct db
   ((envhp
@@ -339,9 +339,9 @@ the length of that format.")
 ;; STREAM which has no more data, and QC is not a STREAM, we signal
 ;; DBI-ERROR instead.
 
-(uffi:def-type short-array '(:array :short))
-(uffi:def-type int-pointer '(* :int))
-(uffi:def-type double-pointer '(* :double))
+(uffi:def-type short-array (:array :short))
+(uffi:def-type int-pointer (* :int))
+(uffi:def-type double-pointer (* :double))
 
 ;;; the result of a database query: a cursor through a table
 (defstruct (oracle-result-set (:print-function print-query-cursor)

diff --git a/debian/changelog b/debian/changelog
index ac6919b729b55171be5e3858fdfa1878531d4d50..a03126483b1c70f780f063c0e44098d92b9f2182 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,15 @@
+cl-sql (3.0.4-2) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu,  9 Sep 2004 22:26:28 -0600
+
+cl-sql (3.0.4-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu,  9 Sep 2004 22:21:42 -0600
+
 cl-sql (3.0.3-1) unstable; urgency=low
 
   * New upstream

diff --git a/sql/generic-odbc.lisp b/sql/generic-odbc.lisp
index 5d82fdd38b81c4e0ed66a07d2a4c3d5d8146c590..eb3430f4b4d44dea933f031ba790bea31f729a2d 100644 (file)
--- a/sql/generic-odbc.lisp
+++ b/sql/generic-odbc.lisp
@@ -27,6 +27,7 @@
 
 (defmethod initialize-instance :after ((db generic-odbc-database)
                                         &rest all-keys)
+  (declare (ignore all-keys))
   (unless (slot-boundp db 'dbi-package)
     (error "dbi-package not specified."))
   (let ((pkg (slot-value db 'dbi-package)))