X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-postgresql%2Fpostgresql-sql.lisp;h=394c0d629d73865d5014dba2ed16aee930b4d13b;hb=02c30e92614a52c892cc678933586f71c76fcf30;hp=c268b82eb2d9463ab15c77d0b79c88f7dff7a706;hpb=e2c86e8c664d8b3ecfd215843a9a1fbf5fa83693;p=clsql.git

diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp
index c268b82..394c0d6 100644
--- 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))