;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of CLSQL, is Copyright (c) 2002-2004 by Kevin M. Rosenberg
+;;;; This file, part of CLSQL, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
(in-package #:clsql-sys)
+(defvar +whitespace-chars+
+ '(#\space #\tab #\newline #\return
+ ;; Tested: sbcl unicode, allegrocl, openmcl,clisp use #\no-break_space
+ ;; lispworks uses #\no-break-space
+ ;; sbcl non-unicode doesn't support no break space
+ ;; AllegroCL 8-bit strings don't fail on reading #\no-break_space,
+ ;; but can't represent such a character
+ ;; CMUCL errors when trying to read #\no-break_space
+ #+(and lispworks unicode) #\no-break-space
+ #+(or (and sbcl sb-unicode) (and allegro ics) (and clisp i18n)
+ (and openmcl openmcl-unicode-strings))
+ #\no-break_space
+ )
+ "List of whitespace characters for this lisp implementation.")
+
(defun number-to-sql-string (num)
(etypecase num
(integer
(string-upcase str)))
(defun ensure-keyword (name)
- "Returns keyword for a name"
+ "Returns keyword for a name."
(etypecase name
(keyword name)
(string (nth-value 0 (intern (symbol-name-default-case name) :keyword)))