+2010-04-16 Kevin Rosenberg <kevin@rosenberg.net>
+ * Version 5.0.6
+ * db-postgresql.lisp, sql/fddl.lisp: Fix typos [Thanks to
+ Walter C. Pelissero]
+ * sql/metaclasses.lisp: Work around type-check-function being set
+ during defclass expansion in SBCL [Thanks to Walter C. Pelissero]
+ * uffi/clsql-uffi.lisp: In call to uffi:convert-from-foreign-string,
+ Set null-terminated-p to T when length not specified.
+ [Thanks to Walter C. Pelissero]
+
2010-03-21 Kevin Rosenberg <kevin@rosenberg.net>
* Version 5.0.5
* sql/fdml.lisp: Fix DO-QUERY to actually return the last value of
:database database
:expression sql-expression
:message (tidy-error-message (PQerrorMessage conn-ptr)
- (encoding databse))))
+ (encoding database))))
(unwind-protect
(case (PQresultStatus result)
(#.pgsql-exec-status-type#command-ok
(defun set-sequence-position (name position &key (database *default-database*))
"Explicitly set the the position of the sequence called NAME in
-DATABASE, which defaults to *DEFAULT-DATABSE*, to POSITION which
+DATABASE, which defaults to *DEFAULT-DATABASE*, to POSITION which
is returned."
(database-set-sequence-position (database-identifier name database)
position database))
(setf (specified-type esd)
(delistify-dsd (specified-type dsd)))
+ ;; The type-check-function is computed at defclass expansion,
+ ;; which is too early for the CLSQL type conversion to take
+ ;; place. This gets rid of it. It's ugly but it's better
+ ;; than nothing -wcp10/4/10.
+ #+sbcl (setf (slot-value esd 'sb-pcl::%type-check-function) nil)
)
;; all other slots
(error "Can't return blob since length is not specified.")))
(t
(uffi:convert-from-foreign-string char-ptr
- :null-terminated-p nil
+ :null-terminated-p (not length)
:length length
:encoding encoding))))))