return
(let* ((raw-type (third field-info))
(start-length (position #\( raw-type))
- (type (string-trim '(#\space #\tab #\newline)
+ (type (string-trim clsql-sys::+whitespace-chars+
(if start-length
(subseq raw-type 0 start-length)
raw-type)))
;; 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
- ;; sbcl, allegrocl, and clisp use #\no-break_space
- ;; lispworks uses #\no-break-space
- #-lispworks #\no-break_space
- #+lispworks #\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