From a86ff9666ee95fa1cd200403ea452c9ae87b1aa6 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Fri, 18 Oct 2013 11:38:14 +0200
Subject: [PATCH] Have *pgconn-port* default to PGPORT env it set, or 5432.

---
 params.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/params.lisp b/params.lisp
index 61d9bce..b0659ba 100644
--- a/params.lisp
+++ b/params.lisp
@@ -59,7 +59,7 @@
 ;;; PostgreSQL Connection Credentials and Session Settings
 ;;;
 (defparameter *pgconn-host* "localhost")
-(defparameter *pgconn-port* 5432)
+(defparameter *pgconn-port* (or (uiop:getenv "PGPORT") 5432))
 (defparameter *pgconn-user* (uiop:getenv "USER"))
 (defparameter *pgconn-pass* "pgpass")
 (defparameter *pg-settings* nil "An alist of GUC names and values.")