+31 Aug 2009 Kevin Rosenberg <kevin@rosenberg.net>
+ * Version 4.0.6
+ * sql/database.lisp: Fix syntax on process-lock (thanks to
+ Stian Sletner)
+ * db-mysql/mysql-sql.lisp: Allow use of database parameter
+ in database-list function (thanks to Michael Pheasant)
+ * sql/oodml.lisp: Allow NULL values for floating-point fields
+ (thanks to Jan Rychter)
+
02 Jun 2009 Kevin Rosenberg <kevin@rosenberg.net>
* Version 4.0.5
* sql/database.lisp: Add process-lock for deleting database from
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;; This file, part of CLSQL, is Copyright (c) 2002-2009 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
(string-equal "4.1" *mysql-client-info* :end2 3))
(pushnew :mysql-client-v4.1 cl:*features*)))
((eql (schar *mysql-client-info* 0) #\5)
- (pushnew :mysql-client-v5 cl:*features*))
+ (pushnew :mysql-client-v5 cl:*features*)
+ (when (and (>= (length *mysql-client-info*) 3)
+ (string-equal "5.1" *mysql-client-info* :end2 3))
+ (pushnew :mysql-client-v5.1 cl:*features*)))
(t
(error "Unknown mysql client version '~A'." *mysql-client-info*)))))
(defmethod database-list (connection-spec (type (eql :mysql)))
(destructuring-bind (host name user password &optional port) connection-spec
- (declare (ignore name))
- (let ((database (database-connect (list host "mysql" user password port) type)))
+ (let ((database (database-connect (list host (or name "mysql")
+ user password port) type)))
(unwind-protect
(progn
(setf (slot-value database 'clsql-sys::state) :open)
+cl-sql (4.0.6-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 31 Aug 2009 14:36:30 -0600
+
cl-sql (4.0.5-5) unstable; urgency=low
* debian/rules: Fix bug introduced by change to dh-lisp (closes:540816)
(let ((database (find-database database :errorp (and database error))))
(when database
(if (conn-pool database)
- (with-process-lock ((conn-pool-lock pool) "Delete from pool")
+ (with-process-lock ((conn-pool-lock (conn-pool database)) "Delete from pool")
(when (release-to-pool database)
(setf *connected-databases* (delete database *connected-databases*))
(when (eq database *default-database*)
(defmethod database-output-sql-as-type ((type (eql 'float)) val database db-type)
(declare (ignore database db-type))
- (let ((*read-default-float-format* (type-of val)))
- (format nil "~F" val)))
+ (if (eq (type-of val) 'null)
+ nil
+ (let ((*read-default-float-format* (type-of val)))
+ (format nil "~F" val))))
(defmethod read-sql-value (val type database db-type)
(declare (ignore type database db-type))