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