X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fexpressions.lisp;h=b54029e4b727121c4d299ab888f00cd4f5950eb6;hp=770bf379a69c1e74ecd9a51e0204d81107e2e6db;hb=709d415122d04713da58a7c6d7ee10162c386a56;hpb=0966d90d9877fea4ac7e43f198c581d325314cfb

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 770bf37..b54029e 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -249,12 +249,7 @@
      ;; the next loop simply emits each sub-expression with the appropriate number of
      ;; parens and operators
      (flet ((trim (sub)
-	      (string-trim '(#\space #\newline #\return #\tab
-                             ;; sbcl, allegrocl, and clisp use #\no-break_space
-                             ;; lispworks uses #\no-break-space
-                             #-lispworks #\no-break_space
-                             #+lispworks #\no-break-space
-                             )
+	      (string-trim +whitespace-chars+
 			   (with-output-to-string (*sql-stream*)
 			     (output-sql sub database)))))
        (let ((str-subs (loop for sub in sub-expressions