1;;;
2;;; Export a getenv feature so that we can fetch http_proxy at build time.
3;;;
4;;; We can't rely on Quicklisp to have installed a modern ASDF with UIOP yet
5;;; here: we need the feature to pass in the :proxy argument to
6;;; quicklisp-quickstart:install.
7;;;
8
9(in-package :cl-user)
10
11;;
12;; ccl provides an implementation of getenv already.
13;;
14#+sbcl
15(defun getenv (name &optional default)
16  "Return the current value for the environment variable NAME, or default
17   when unset."
18  (or (sb-ext:posix-getenv name) default))
19