X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base%2Futils.lisp;h=0968f96401ad3026bd113db01866c31cd009489f;hb=7a5d4ab46618b9e80662907c852e2324021072aa;hp=9fb6e7c2b59c99af41079353a57270cc4376b186;hpb=967266c94b00f91e5967b8330fe2b9134b0c0447;p=clsql.git

diff --git a/base/utils.lisp b/base/utils.lisp
index 9fb6e7c..0968f96 100644
--- a/base/utils.lisp
+++ b/base/utils.lisp
@@ -342,7 +342,7 @@ list of characters and replacement strings."
   #+lowercase-reader
   (string-downcase str))
 
-(defmethod convert-to-db-default-case (str database)
+(defun convert-to-db-default-case (str database)
   (if database
       (case (db-type-default-case (database-underlying-type database))
 	(:upper (string-upcase str))