+1 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
+ * Version 2.10.4
+ * sql/tables.lisp: Fix typo in CACHE-TABLE-QUERIES
+ [Marcus Pearce]
+ * db-postgresql/postgresql-sql.lisp: Fix foreign-string vs. cstring
+ bug on SBCL in result-field-names function as reported by Marcus Pearce
+ * db-sqlite/sqlite-sql.lisp: Fix in database-store-next-row
+ manifest in SBCL testing
+
1 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
* Version 2.10.3
* sql/database.lisp: Conform more to CommonSQL output
(let ((names '()))
(dotimes (i num-fields (nreverse names))
(declare (fixnum i))
- (push (uffi:convert-from-foreign-string (PQfname result i)) names))))
+ (push (uffi:convert-from-cstring (PQfname result i)) names))))
(defmethod database-execute-command (sql-expression
(database postgresql-database))
(:double
(when val
(coerce
- (read-from-string (sqlite:sqlite-aref row i))
+ (read-from-string val)
'double-float)))))))
(sqlite:sqlite-free-row row)
t))))
+cl-sql (2.10.4-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Sat, 1 May 2004 13:16:04 -0600
+
cl-sql (2.10.3-1) unstable; urgency=low
* New upstream
;;; Lispworks 4.2 and before requires special processing of extra slot and class options
-(defconstant +extra-slot-options+ '(:column :db-kind :db-reader :nulls-ok :db-constraints
+(defvar +extra-slot-options+ '(:column :db-kind :db-reader :nulls-ok :db-constraints
:db-writer :db-type :db-info))
-(defconstant +extra-class-options+ '(:base-table))
+(defvar +extra-class-options+ '(:base-table))
(dolist (slot-option +extra-slot-options+)
(process-slot-option standard-db-class slot-option))
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
- (setf (gethash k attribute-cache) (list t (second value))))))
+ (setf (gethash k attribute-cache) (list t (second v))))))
attribute-cache))
((eq table :default)
(maphash (lambda (k v)
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
- (setf (gethash k attribute-cache) (list t (second value)))))))
+ (setf (gethash k attribute-cache) (list t (second v)))))))
attribute-cache))))
(values))