projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9169: allow :metaclass in def-view-class
[clsql.git]
/
base
/
utils.lisp
diff --git
a/base/utils.lisp
b/base/utils.lisp
index 9fb6e7c2b59c99af41079353a57270cc4376b186..0968f96401ad3026bd113db01866c31cd009489f 100644
(file)
--- a/
base/utils.lisp
+++ b/
base/utils.lisp
@@
-342,7
+342,7
@@
list of characters and replacement strings."
#+lowercase-reader
(string-downcase str))
#+lowercase-reader
(string-downcase str))
-(def
method
convert-to-db-default-case (str database)
+(def
un
convert-to-db-default-case (str database)
(if database
(case (db-type-default-case (database-underlying-type database))
(:upper (string-upcase str))
(if database
(case (db-type-default-case (database-underlying-type database))
(:upper (string-upcase str))