X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fexpressions.lisp;h=96013deaae1a25883dbb497cd7a3e5138907ad57;hp=3a2532aafbb18e8c8e8d7ef502583deb42ab50a9;hb=8be012819c4ecad867ac6f1b0f476116dc14fc15;hpb=44c87a075cbe29141d90dc49c501f382a6d81fbe

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 3a2532a..96013de 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
@@ -694,7 +694,7 @@ uninclusive, and the args from that keyword to the end."
     stmt
     (write-string "DELETE FROM " *sql-stream*)
     (typecase from
-      (symbol (write-string (sql-escape from) *sql-stream*))
+      ((or symbol string) (write-string (sql-escape from) *sql-stream*))
       (t  (output-sql from database)))
     (when where
       (write-string " WHERE " *sql-stream*)
@@ -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))