r10284: * sql/utils.lisp: Fix unnecessary consing noted by Fred Gilham.

[clsql.git] / sql / expressions.lisp

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 88293b30d360e24207e187e85c54e12bac7d99dd..96013deaae1a25883dbb497cd7a3e5138907ad57 100644 (file)
--- 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*)