X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Futils.lisp;h=4ecf757e0bcf2a93c096d0e9ed78f15144a9a7bb;hp=e6176cbb0a18f110620931938172e74b91472d3b;hb=6d643c3749b77b6e6207871f0cf40f135094f457;hpb=c685739c44da76247ab1c88405cfb913b0cdc55e

diff --git a/sql/utils.lisp b/sql/utils.lisp
index e6176cb..4ecf757 100644
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -52,10 +52,9 @@
 
 (defun sql-escape (identifier)
   "Change hyphens to underscores, ensure string"
-  (let ((unescaped (etypecase identifier
-                     (symbol (symbol-name identifier))
-                     (string identifier))))
-    (substitute #\_ #\- unescaped)))
+  (etypecase identifier
+    (symbol (substitute #\_ #\- (symbol-name identifier)))
+    (string identifier)))
 
 (defmacro without-interrupts (&body body)
   #+allegro `(mp:without-scheduling ,@body)