about summary refs log tree commit diff
path: root/web/panettone/src/util.lisp
blob: 9fd9ceaa79a48dc8816b0c60f081b92927bd4d2c (plain) (blame)
1
2
3
4
5
6
7
(in-package :panettone.util)

(defun integer-env (var &key default)
  (or
   (when-let ((str (uiop:getenvp var)))
     (try-parse-integer str))
   default))