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

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

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

Index: postgresql-socket-sql.lisp
===================================================================
RCS file: /pubcvs/clsql/db-postgresql-socket/postgresql-socket-sql.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** postgresql-socket-sql.lisp	31 Aug 2003 08:22:16 -0000	1.3
--- postgresql-socket-sql.lisp	3 Sep 2003 18:23:57 -0000	1.4
***************
*** 156,163 ****
  	(string host))
        (when port 
! 	(concatenate ":"
! 	  (etypecase port
! 	    (integer (write-to-string port))
! 	    (string port))))
        "/" db "/" user)))
  
--- 156,164 ----
  	(string host))
        (when port 
! 	(concatenate 'string
! 		     ":"
! 		     (etypecase port
! 		       (integer (write-to-string port))
! 		       (string port))))
        "/" db "/" user)))