septeql

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README
commit 0d8907b5e851e084ed4fc420d00d69f67df16323
parent dbae1e459aba771d9202d3bc6e32c2cd80add17e
Author: septeql <septeql@telent.net>
Date:   Tue,  7 Aug 2007 15:30:11 +0000

tighten up number trnaslation
Diffstat:

Msepteql.lisp | 4+++-


1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/septeql.lisp b/septeql.lisp
@@ -42,7 +42,9 @@ interpolated into a SQL statement as a string literal"
 (defun translate-scalar (expr)
   (typecase expr
     (string (lisp-to-sql-string expr))
-    (number (format nil "~S" expr))
+    (complex (error "Don't know how to translate complex numbers to SQL"))
+    (integer (format nil "~S" expr))
+    (real (format nil "~S" (coerce expr 'single-float)))
     (null "FALSE")
     (boolean "TRUE")
     (symbol (lisp-to-sql-name expr))