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

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))