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

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*)