X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Futils.lisp;h=e498f16888e52b07d56ddc80ce65195fe7907f75;hb=2e0b55b85284a3019b5c81bb97ec17da1604e5e4;hp=d5b31ed4fd1678862294132dfd7bee98e95c6ee8;hpb=ab6923bf84f595fb61eb0107f97ce143ca92db57;p=clsql.git

diff --git a/sql/utils.lisp b/sql/utils.lisp
index d5b31ed..e498f16 100644
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -16,6 +16,17 @@
 
 (in-package #:clsql-sys)
 
+(defun %get-int (v)
+  (etypecase v
+    (string (parse-integer v :junk-allowed t))
+    (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