r8873: better generic function

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

diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp
index c268b82eb2d9463ab15c77d0b79c88f7dff7a706..394c0d629d73865d5014dba2ed16aee930b4d13b 100644 (file)
--- a/db-postgresql/postgresql-sql.lisp
+++ b/db-postgresql/postgresql-sql.lisp
@@ -216,7 +216,8 @@
   (num-fields 0 :type integer)
   (tuple-index 0 :type integer))
 
-(defmethod database-query-result-set (query-expression (database postgresql-database) 
+(defmethod database-query-result-set ((query-expression string)
+                                     (database postgresql-database) 
                                       &key full-set types)
   (let ((conn-ptr (database-conn-ptr database)))
     (declare (type pgsql-conn-def conn-ptr))