mirror of
https://github.com/dimitri/pgloader.git
synced 2026-03-16 09:31:33 +01:00
17 lines
501 B
Common Lisp
17 lines
501 B
Common Lisp
;;;
|
|
;;; Export a getenv feature so that we can fetch http_proxy at build time.
|
|
;;;
|
|
;;; We can't rely on Quicklisp to have installed a modern ASDF with UIOP yet
|
|
;;; here: we need the feature to pass in the :proxy argument to
|
|
;;; quicklisp-quickstart:install.
|
|
;;;
|
|
|
|
(in-package :cl-user)
|
|
|
|
(defun getenv (name &optional default)
|
|
"Return the current value for the environment variable NAME, or default
|
|
when unset."
|
|
(or #+sbcl (sb-ext:posix-getenv name)
|
|
#+ccl (ccl:getenv name)
|
|
default))
|