projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e7a577d
)
Add implementation-specific +whitespace-chars+ variable
author
Kevin Rosenberg
<kevin@rosenberg.net>
Fri, 29 Jan 2010 19:52:32 +0000
(12:52 -0700)
committer
Kevin Rosenberg
<kevin@rosenberg.net>
Fri, 29 Jan 2010 19:52:32 +0000
(12:52 -0700)
sql/utils.lisp
patch
|
blob
|
history
diff --git
a/sql/utils.lisp
b/sql/utils.lisp
index fe5a24ce63aa930444708a10bbc233d929b49c67..9a554cb7def4837c9de48eafdc26deefd7eaf503 100644
(file)
--- a/
sql/utils.lisp
+++ b/
sql/utils.lisp
@@
-7,9
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
;;;; 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
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
@@
-18,6
+16,15
@@
(in-package #:clsql-sys)
(in-package #:clsql-sys)
+(defvar +whitespace-chars+
+ '(#\space #\tab #\newline #\return
+ ;; Tested: sbcl, allegrocl, and clisp use #\no-break_space
+ ;; lispworks uses #\no-break-space
+ #+lispworks #\no-break-space
+ #-lispworks #\no-break_space
+ )
+ "List of whitespace characters for this lisp implementation.")
+
(defun number-to-sql-string (num)
(etypecase num
(integer
(defun number-to-sql-string (num)
(etypecase num
(integer
@@
-353,7
+360,7
@@
list of characters and replacement strings."
(string-upcase str)))
(defun ensure-keyword (name)
(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)))
(etypecase name
(keyword name)
(string (nth-value 0 (intern (symbol-name-default-case name) :keyword)))