r10145: add patch for collect-table-refs

diff --git a/ChangeLog b/ChangeLog
index 912680ebbbb26af7b0b40245f10fabe654a9ce90..5743b754184fc5102d18e33ed527e2a6676fe935 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+08 Nov 2004 Kevin Rosenberg <kevin@rosenberg.net>
+       * sql/expressions.lisp: Fix slot name [thanks to
+       Daniel Lowe]
+

 31 Oct 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * clsql-sqlite3, db-sqlite3/*: NEW BACKEND
        contributed by Aurelio Bignoli
 31 Oct 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * clsql-sqlite3, db-sqlite3/*: NEW BACKEND
        contributed by Aurelio Bignoli

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 3a2532aafbb18e8c8e8d7ef502583deb42ab50a9..88293b30d360e24207e187e85c54e12bac7d99dd 100644 (file)
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -356,7 +356,7 @@
 
 (defmethod collect-table-refs ((sql sql-function-exp))
   (let ((tabs nil))
 
 (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
       (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)
 ;; 
 
 (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))
            (simple-string str))
   (let ((len (length str)))
     (declare (type fixnum len))