From 6e29957c1c0784d6df9ee1a699ba9d27ed03dea5 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Thu, 24 Oct 2013 00:20:33 +0200 Subject: [PATCH] Fix the default value for *pgconn-port* when it comes from the environement. --- src/params.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/params.lisp b/src/params.lisp index b0659ba..9f5472c 100644 --- a/src/params.lisp +++ b/src/params.lisp @@ -59,7 +59,7 @@ ;;; PostgreSQL Connection Credentials and Session Settings ;;; (defparameter *pgconn-host* "localhost") -(defparameter *pgconn-port* (or (uiop:getenv "PGPORT") 5432)) +(defparameter *pgconn-port* (or (parse-integer (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.")