projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f8a2aab
)
r2051: Debian build
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 15 May 2002 17:23:59 +0000
(17:23 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 15 May 2002 17:23:59 +0000
(17:23 +0000)
base/utils.cl
patch
|
blob
|
history
diff --git
a/base/utils.cl
b/base/utils.cl
index a33fb41cfa121f46577dde15450cd5e5e9b84934..b64824c971b29a61d858280eb1c664cd5f15b57d 100644
(file)
--- a/
base/utils.cl
+++ b/
base/utils.cl
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: utils.cl,v 1.
1 2002/05/15 17:19:42
kevin Exp $
+;;;; $Id: utils.cl,v 1.
2 2002/05/15 17:23:59
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-32,7
+32,7
@@
"Convert exponent character for SQL"
(substitute #\e #\f (substitute #\e #\d (write-to-string num :readably t))))
"Convert exponent character for SQL"
(substitute #\e #\f (substitute #\e #\d (write-to-string num :readably t))))
-(defun sql-escape
-quotes
(s)
+(defun sql-escape (s)
"Escape single quotes for SQL"
(substitute-string-for-char s #\' "''"))
"Escape single quotes for SQL"
(substitute-string-for-char s #\' "''"))