From 74ecb381a3562fbd14ab89b2c099f5b5724ecacf Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 9 Apr 2004 01:45:39 +0000 Subject: [PATCH] r8894: tested good --- clsql-classic-tests.asd | 2 +- db-postgresql-socket/postgresql-socket-api.lisp | 8 +++----- 2 files changed, 4 insertions(+), 6 deletions(-) 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) -- 2.34.1