X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql-socket%2Fpostgresql-socket-sql.lisp;h=5546017682ecd16497dfd1fe52b6a22d7da955f2;hp=cdaa9e80e5d19523439d54b861cd533fea17197d;hb=02c30e92614a52c892cc678933586f71c76fcf30;hpb=4c8798b240b899e6737b765983de0fb254560bae

diff --git a/db-postgresql-socket/postgresql-socket-sql.lisp b/db-postgresql-socket/postgresql-socket-sql.lisp
index cdaa9e8..5546017 100644
--- a/db-postgresql-socket/postgresql-socket-sql.lisp
+++ b/db-postgresql-socket/postgresql-socket-sql.lisp
@@ -265,9 +265,9 @@ doesn't depend on UFFI."
   (cursor nil)
   (types nil))
 
-(defmethod database-query-result-set (expression (database postgresql-socket-database) 
-				      &key full-set types
-     )
+(defmethod database-query-result-set ((expression string)
+				      (database postgresql-socket-database) 
+				      &key full-set types)
   (declare (ignore full-set))
   (let ((connection (database-connection database)))
     (with-postgresql-handlers (database expression)