X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fexpressions.lisp;h=7389d1c06470690d04943ffa8b077d8bf1cb08e2;hb=406feeb749bb475bec8077a2716a5b6089bd9072;hp=2cb7339251b6d425b20c7a362f88a1a3bac9d866;hpb=49718a027333775f28d463d4e80d5e5238ef68a3;p=clsql.git

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 2cb7339..7389d1c 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -1,8 +1,6 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id$
-;;;;
 ;;;; Classes defining SQL expressions and methods for formatting the
 ;;;; appropriate SQL commands.
 ;;;;
@@ -249,7 +247,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