r8873: better generic function

[clsql.git] / db-oracle / oracle-sql.lisp

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 7d605933c1953ea32be291a9f560f3f3579e5141..3a898e176c1b4cc25df0ad3fbfdd1f2e7d6643c1 100644 (file)
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -797,7 +797,9 @@ the length of that format.")))
     (prin1 (qc-db qc) stream)))
 
 
-(defmethod database-query-result-set (query-expression (database oracle-database) &optional full-set)
+(defmethod database-query-result-set ((query-expression string)
+                                     (database oracle-database) 
+                                     &key full-set types)
   )
 
 (defmethod database-dump-result-set (result-set (database oracle-database))