From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Fri, 29 Jan 2010 15:50:33 +0000 (-0700)
Subject: Conditionalize #\no-break-space for lispworks
X-Git-Tag: v4.3.3~9
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=8456b79be8685d58e341aaadbdb9063a42729304

Conditionalize #\no-break-space for lispworks
---

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index d78e386..770bf37 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -249,7 +249,12 @@
      ;; 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 '(#\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
+                             )
 			   (with-output-to-string (*sql-stream*)
 			     (output-sql sub database)))))
        (let ((str-subs (loop for sub in sub-expressions