r11418: 30 Dec 2006 Kevin Rosenberg <kevin@rosenberg.net>
authorKevin M. Rosenberg <kevin@rosenberg.net>
Sun, 31 Dec 2006 01:36:25 +0000 (01:36 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Sun, 31 Dec 2006 01:36:25 +0000 (01:36 +0000)
        * Version 3.8.0: BACKWARD INCOMPATABLE CHANGE!
        * db-postgresql/postgresql-{api,loader,sql,package}.lisp:
        Apply patch from Edi Weitz to avoid conflict with new Lispworks 5
        POSTGRESQL package name. CLSQL's new package will be PGSQL, however
        on non-Lispworks platforms, the nickname POSTGRESQL will still be
        available. Applications directly using low-level POSTGRESQL package
        are recommended to use the new PGSQL name.
        * db-oracle/oracle-{api,sql}.lisp, sql/{expressions,loop-extension}.lisp,
        Apply patch from Edi Weitz to reduce compiler warnings.

ChangeLog
NEWS
db-oracle/oracle-api.lisp
db-oracle/oracle-sql.lisp
db-postgresql/postgresql-api.lisp
db-postgresql/postgresql-loader.lisp
db-postgresql/postgresql-package.lisp
db-postgresql/postgresql-sql.lisp
debian/changelog
sql/expressions.lisp
sql/loop-extension.lisp

index c0e40cf..f936b6d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+30 Dec 2006  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 3.8.0: BACKWARD INCOMPATABLE CHANGE!
+       * db-postgresql/postgresql-{api,loader,sql,package}.lisp:
+       Apply patch from Edi Weitz to avoid conflict with new Lispworks 5
+       POSTGRESQL package name. CLSQL's new package will be PGSQL, however
+       on non-Lispworks platforms, the nickname POSTGRESQL will still be
+       available. Applications directly using low-level POSTGRESQL package
+       are recommended to use the new PGSQL name.
+       * db-oracle/oracle-{api,sql}.lisp, sql/{expressions,loop-extension}.lisp,
+       Apply patch from Edi Weitz to reduce compiler warnings.
+       
 28 Dec 2006  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.7.9
        * sql/expressions.lisp: Commit patch from Edi Weitz to
diff --git a/NEWS b/NEWS
index a640d8d..0a101de 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,11 @@
+Dec 30 2006
+-----------
+Version 3.8.0 released with incompatible backward change. See
+the ChangeLog entry for details.
+
+
+Aug 3 2006
+----------
 CLSQL 3.0 has been released. The 3.0 release of CLSQL is a major
 rewrite compared to version 2.0. New features include:
 
index 3b0a7ee..19b3f6e 100644 (file)
@@ -75,6 +75,7 @@
                             ,c-parms
                           :returning ,c-return)))
        (defun ,lisp-oci-fn (,@ll &key database nulls-ok)
+         (declare (ignore database nulls-ok))
         (funcall %lisp-oci-fn ,@ll)))))
 
 
index fc3188f..3f5cb49 100644 (file)
@@ -643,7 +643,6 @@ the length of that format.")
                                (colname '(* :unsigned-char))
                                (colnamelen 'ub4)
                                (colsize 'ub2)
-                               (colsizesize 'ub4)
                                (defnp ':pointer-void))
       (let ((buffer nil)
            (sizeof nil))
index e01828c..4789491 100644 (file)
@@ -18,7 +18,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-(in-package #:postgresql)
+(in-package #:pgsql)
 
 
 ;;;; This file implements as little of the FFI bindings to the
index 8124bb9..f98aec6 100644 (file)
@@ -16,7 +16,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-(in-package #:postgresql)
+(in-package #:pgsql)
 
 
 (defvar *postgresql-supporting-libraries* '("crypt" "c")
index 080eaf9..c6ba65b 100644 (file)
@@ -18,8 +18,9 @@
 
 (in-package #:cl-user)
 
-(defpackage #:postgresql
-    (:nicknames #:pgsql)
+(defpackage #:pgsql
+    #-(and :lispworks (not :lispworks4))
+    (:nicknames #:postgresql)
     (:use #:cl #:clsql-uffi)
     (:export
      #:pgsql-oid
index 82f03e2..a3f9b88 100644 (file)
@@ -16,7 +16,7 @@
 (in-package #:cl-user)
 
 (defpackage #:clsql-postgresql
-    (:use #:common-lisp #:clsql-sys #:postgresql #:clsql-uffi)
+    (:use #:common-lisp #:clsql-sys #:pgsql #:clsql-uffi)
     (:export #:postgresql-database)
     (:documentation "This is the CLSQL interface to PostgreSQL."))
 
 
 (defmethod database-create-large-object ((database postgresql-database))
   (lo-create (database-conn-ptr database)
-            (logior postgresql::+INV_WRITE+ postgresql::+INV_READ+)))
+            (logior pgsql::+INV_WRITE+ pgsql::+INV_READ+)))
 
 
 #+mb-original
     (with-transaction (:database database)
        (unwind-protect
          (progn 
-           (setf fd (lo-open ptr object-id postgresql::+INV_WRITE+))
+           (setf fd (lo-open ptr object-id pgsql::+INV_WRITE+))
            (when (>= fd 0)
              (when (= (lo-write ptr fd data length) length)
                (setf result t))))
     (database-execute-command "begin" database)
     (unwind-protect
        (progn 
-         (setf fd (lo-open ptr object-id postgresql::+INV_WRITE+))
+         (setf fd (lo-open ptr object-id pgsql::+INV_WRITE+))
          (when (>= fd 0)
            (when (= (lo-write ptr fd data length) length)
              (setf result t))))
     (unwind-protect
        (progn
         (database-execute-command "begin" database)
-        (setf fd (lo-open ptr object-id postgresql::+INV_READ+))
+        (setf fd (lo-open ptr object-id pgsql::+INV_READ+))
         (when (>= fd 0)
           (setf length (lo-lseek ptr fd 0 2))
           (lo-lseek ptr fd 0 0)
       (coerce-string db)
       (coerce-string user)
       (let ((connection (PQsetdbLogin host port options tty db user password)))
-        (declare (type postgresql::pgsql-conn-ptr connection))
+        (declare (type pgsql::pgsql-conn-ptr connection))
         (unless (eq (PQstatus connection)
                    pgsql-conn-status-type#connection-ok)
           ;; Connect failed
index 3d63306..c68beea 100644 (file)
@@ -1,3 +1,9 @@
+cl-sql (3.8.0-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Sat, 30 Dec 2006 18:28:40 -0700
+
 cl-sql (3.7.9-1) unstable; urgency=low
 
   * New upstream
index cd2d768..93c97d9 100644 (file)
   (:documentation "An SQL between expression."))
 
 (defmethod output-sql ((expr sql-between-exp) database)
-  (with-slots (name args)
+  (with-slots (args)
       expr
     (output-sql (first args) database)
     (write-string " BETWEEN " *sql-stream*)
index 8025330..b18447a 100644 (file)
 (defun clsql-loop-method (method-name iter-var iter-var-data-type
                          prep-phrases inclusive? allowed-preps
                          method-specific-data)
-  (declare (ignore method-name inclusive? allowed-preps method-specific-data))
+  (declare (ignore method-name iter-var-data-type inclusive? allowed-preps method-specific-data))
   (let ((in-phrase nil)
        (from-phrase nil))
     (loop for (prep . rest) in prep-phrases