X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-postgresql-socket%2Fpostgresql-socket-sql.cl;fp=db-postgresql-socket%2Fpostgresql-socket-sql.cl;h=9ca2af3f5735bcaba7cb609e3a0ad8f1db7af289;hb=a32b6934444ec02090e175c6e0ad6d84dfeb98c8;hp=4532dc24054771bb5f4165fce7a4d56a5a45f95c;hpb=d77d75d36ebcd418ce9ecbb2c40ada04d366c991;p=clsql.git

diff --git a/db-postgresql-socket/postgresql-socket-sql.cl b/db-postgresql-socket/postgresql-socket-sql.cl
index 4532dc2..9ca2af3 100644
--- a/db-postgresql-socket/postgresql-socket-sql.cl
+++ b/db-postgresql-socket/postgresql-socket-sql.cl
@@ -8,7 +8,7 @@
 ;;;;                Original code by Pierre R. Mai 
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: postgresql-socket-sql.cl,v 1.1 2002/09/18 07:43:41 kevin Exp $
+;;;; $Id: postgresql-socket-sql.cl,v 1.2 2002/09/29 18:54:17 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -176,20 +176,20 @@ doesn't depend on UFFI."
 				      :options options :tty tty
 				      :database db :user user
 				      :password password))
-      (:no-error (connection)
-	;; Success, make instance
-	(make-instance 'postgresql-socket-database
-		       :name (database-name-from-spec connection-spec
-						      database-type)
-		       :connection-spec connection-spec
-		       :connection connection))
       (postgresql-error (c)
 	;; Connect failed
 	(error 'clsql-connect-error
 	       :database-type database-type
 	       :connection-spec connection-spec
 	       :errno (type-of c)
-	       :error (postgresql-condition-message c))))))
+	       :error (postgresql-condition-message c)))
+      (:no-error (connection)
+		 ;; Success, make instance
+		 (make-instance 'postgresql-socket-database
+				:name (database-name-from-spec connection-spec
+							       database-type)
+				:connection-spec connection-spec
+				:connection connection)))))
 
 (defmethod database-disconnect ((database postgresql-socket-database))
   (close-postgresql-connection (database-connection database))