projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3160a42
)
fix spelling of no-break-space
author
Kevin Rosenberg
<kevin@rosenberg.net>
Fri, 29 Jan 2010 06:50:27 +0000
(23:50 -0700)
committer
Kevin Rosenberg
<kevin@rosenberg.net>
Fri, 29 Jan 2010 06:50:27 +0000
(23:50 -0700)
Signed-off-by: Kevin Rosenberg <kevin@rosenberg.net>
sql/expressions.lisp
patch
|
blob
|
history
diff --git
a/sql/expressions.lisp
b/sql/expressions.lisp
index 2cb7339251b6d425b20c7a362f88a1a3bac9d866..d78e3860ff930bde4ec35c8a859593efa2118404 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 '(#\space #\newline #\return #\tab #\no-break
-
space)
(with-output-to-string (*sql-stream*)
(output-sql sub database)))))
(let ((str-subs (loop for sub in sub-expressions