X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Futils.lisp;h=e498f16888e52b07d56ddc80ce65195fe7907f75;hb=3b7cb72a2117fe5e4599da811c9e2821de02824b;hp=52ee019943c3250946d6d465bbb3ca94210aaf43;hpb=30186614582039bdc3d3f86bc5165ef300c5d3e0;p=clsql.git

diff --git a/sql/utils.lisp b/sql/utils.lisp
index 52ee019..e498f16 100644
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -22,6 +22,11 @@
     (integer v)
     (number (truncate v))))
 
+(defun dequote (it)
+  (if (and (listp it) (eql (first it) 'quote))
+      (second it)
+      it))
+
 (defvar +whitespace-chars+
   '(#\space #\tab #\newline #\return
     ;; Tested: sbcl unicode, allegrocl, openmcl,clisp use #\no-break_space