From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 9 Apr 2004 01:45:39 +0000 (+0000)
Subject: r8894: tested good
X-Git-Tag: v3.8.6~699
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=74ecb381a3562fbd14ab89b2c099f5b5724ecacf

r8894: tested good
---

diff --git a/clsql-classic-tests.asd b/clsql-classic-tests.asd
index 4d04a2c..74f2dfb 100644
--- a/clsql-classic-tests.asd
+++ b/clsql-classic-tests.asd
@@ -23,7 +23,7 @@
 
   :depends-on (clsql #-clisp clsql-mysql 
 		     #-clisp clsql-postgresql
-		     #-(or clisp openmcl) clsql-postgresql-socket
+		     #-clisp clsql-postgresql-socket
 		     ptester
 		     #+(and allegro (not allegro-cl-trial)) clsql-aodbc
 		     clsql-sqlite)
diff --git a/db-postgresql-socket/postgresql-socket-api.lisp b/db-postgresql-socket/postgresql-socket-api.lisp
index a128395..40c904f 100644
--- a/db-postgresql-socket/postgresql-socket-api.lisp
+++ b/db-postgresql-socket/postgresql-socket-api.lisp
@@ -386,11 +386,9 @@ socket interface"
 			:connect :active
 			:remote-filename path :local-filename path)))
     (string
-     (socket:with-pending-connect
-	 (mp:with-timeout (*postgresql-server-socket-timeout* (error "connect failed"))
-	   (ccl:make-socket :type :stream :address-family :internet
-			    :remote-port port :remote-host host
-			    :connect :active :nodelay t))))))
+     (ccl:make-socket :type :stream :address-family :internet
+		      :remote-port port :remote-host host
+		      :connect :active :nodelay t))))
 
 #+lispworks
 (defun open-postgresql-socket-stream (host port)