From: Kevin M. Rosenberg Date: Tue, 9 Nov 2004 04:24:15 +0000 (+0000) Subject: r10145: add patch for collect-table-refs X-Git-Tag: v3.8.6~209 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=aa707c93f55554dc5447c58f24e1b3ad4c01f0b9;hp=f7ffd9617ac7b70d330add3ad409128a9dec266f r10145: add patch for collect-table-refs --- diff --git a/ChangeLog b/ChangeLog index 912680e..5743b75 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +08 Nov 2004 Kevin Rosenberg + * sql/expressions.lisp: Fix slot name [thanks to + Daniel Lowe] + 31 Oct 2004 Kevin Rosenberg * clsql-sqlite3, db-sqlite3/*: NEW BACKEND contributed by Aurelio Bignoli diff --git a/sql/expressions.lisp b/sql/expressions.lisp index 3a2532a..88293b3 100644 --- a/sql/expressions.lisp +++ b/sql/expressions.lisp @@ -356,7 +356,7 @@ (defmethod collect-table-refs ((sql sql-function-exp)) (let ((tabs nil)) - (dolist (exp (slot-value sql 'components)) + (dolist (exp (slot-value sql 'args)) (let ((refs (collect-table-refs exp))) (if refs (setf tabs (append refs tabs))))) (remove-duplicates tabs @@ -830,8 +830,8 @@ uninclusive, and the args from that keyword to the end." ;; (defmethod database-output-sql ((str string) database) - (declare (ignore database) - (optimize (speed 3) (safety 1) #+cmu (extensions:inhibit-warnings 3)) + (declare (optimize (speed 3) (safety 1) + #+cmu (extensions:inhibit-warnings 3)) (simple-string str)) (let ((len (length str))) (declare (type fixnum len))