Using the new clsql-sys::+whitespace-chars+ param.

[clsql.git] / sql / expressions.lisp

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index d78e3860ff930bde4ec35c8a859593efa2118404..b54029e4b727121c4d299ab888f00cd4f5950eb6 100644 (file)
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -249,7 +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 #\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