| Line | |
|---|
| 1 | (in-package :system/posix-syscalls) |
|---|
| 2 | |
|---|
| 3 | ;;; Currently unused, but save original symbol functions |
|---|
| 4 | (defvar *ext--getenv* |
|---|
| 5 | #'ext:getenv) |
|---|
| 6 | (defvar *uiop/os--getenv* |
|---|
| 7 | #'uiop/os:getenv) |
|---|
| 8 | |
|---|
| 9 | (eval-when (:load-toplevel) |
|---|
| 10 | (when |
|---|
| 11 | (c-library-reference) |
|---|
| 12 | (defun ext:getenv (variable) |
|---|
| 13 | (getenv variable)) |
|---|
| 14 | (defsetf ext:getenv (variable) (value) |
|---|
| 15 | `(progn |
|---|
| 16 | (when (= (putenv ,variable ,value) |
|---|
| 17 | 0) |
|---|
| 18 | ,value))) |
|---|
| 19 | (setf (symbol-function 'uiop/os:getenv) |
|---|
| 20 | 'getenv) |
|---|
| 21 | ;;; XXX figure out how to reuse the ext:getenv expander? |
|---|
| 22 | (defsetf uiop/os:getenv (variable) (value) |
|---|
| 23 | `(progn |
|---|
| 24 | (when (= (putenv ,variable ,value) |
|---|
| 25 | 0) |
|---|
| 26 | ,value))))) |
|---|
| 27 | |
|---|
| 28 | |
|---|
| 29 | |
|---|
| 30 | |
|---|
| 31 | |
|---|
| 32 | |
|---|
| 33 | |
|---|
| 34 | |
|---|
| 35 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
