Fix the default value for *pgconn-port* when it comes from the environement.

This commit is contained in:
Dimitri Fontaine 2013-10-24 00:20:33 +02:00
parent 0fd3e1877f
commit 6e29957c1c

View File

@ -59,7 +59,7 @@
;;; PostgreSQL Connection Credentials and Session Settings ;;; PostgreSQL Connection Credentials and Session Settings
;;; ;;;
(defparameter *pgconn-host* "localhost") (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-user* (uiop:getenv "USER"))
(defparameter *pgconn-pass* "pgpass") (defparameter *pgconn-pass* "pgpass")
(defparameter *pg-settings* nil "An alist of GUC names and values.") (defparameter *pg-settings* nil "An alist of GUC names and values.")