r9137: add defgenerics

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