clsql/db-postgresql-socket postgresql-socket-sql.lisp,1.2,1.3

Update of /pubcvs/clsql/db-postgresql-socket
In directory boa.b9.com:/tmp/cvs-serv30023/db-postgresql-socket

Modified Files:
	postgresql-socket-sql.lisp 
Log Message:


Index: postgresql-socket-sql.lisp
===================================================================
RCS file: /pubcvs/clsql/db-postgresql-socket/postgresql-socket-sql.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** postgresql-socket-sql.lisp	2 May 2003 03:05:54 -0000	1.2
--- postgresql-socket-sql.lisp	31 Aug 2003 08:22:16 -0000	1.3
***************
*** 151,155 ****
        connection-spec
      (declare (ignore password options tty))
!     (concatenate 'string host (if port ":") (if port port) "/" db "/" user)))
  
  (defmethod database-connect (connection-spec 
--- 151,164 ----
        connection-spec
      (declare (ignore password options tty))
!     (concatenate 'string 
!       (etypecase host
! 	(pathname (namestring host))
! 	(string host))
!       (when port 
! 	(concatenate ":"
! 	  (etypecase port
! 	    (integer (write-to-string port))
! 	    (string port))))
!       "/" db "/" user)))
  
  (defmethod database-connect (connection-spec