From 8456b79be8685d58e341aaadbdb9063a42729304 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Fri, 29 Jan 2010 08:50:33 -0700 Subject: [PATCH] Conditionalize #\no-break-space for lispworks --- sql/expressions.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 -- 2.34.1