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

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 88293b3..96013de 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -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*)