+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
+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:
,c-parms
:returning ,c-return)))
(defun ,lisp-oci-fn (,@ll &key database nulls-ok)
+ (declare (ignore database nulls-ok))
(funcall %lisp-oci-fn ,@ll)))))
(colname '(* :unsigned-char))
(colnamelen 'ub4)
(colsize 'ub2)
- (colsizesize 'ub4)
(defnp ':pointer-void))
(let ((buffer nil)
(sizeof nil))
;;;; (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
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(in-package #:postgresql)
+(in-package #:pgsql)
(defvar *postgresql-supporting-libraries* '("crypt" "c")
(in-package #:cl-user)
-(defpackage #:postgresql
- (:nicknames #:pgsql)
+(defpackage #:pgsql
+ #-(and :lispworks (not :lispworks4))
+ (:nicknames #:postgresql)
(:use #:cl #:clsql-uffi)
(:export
#:pgsql-oid
(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
+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
(: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*)
(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