added getenv for ABCL
Tue Mar 26 05:23:56 UTC 2013 attila.lendvai@gmail.com
* added getenv for ABCL
diff -rN -u old-cl-l10n/src/utils.lisp new-cl-l10n/src/utils.lisp
--- old-cl-l10n/src/utils.lisp 2015-04-21 23:29:01.217116565 +0000
+++ new-cl-l10n/src/utils.lisp 2015-04-21 23:29:01.221116540 +0000
@@ -242,6 +242,7 @@
"Just like cond-bind except the var is automatically IT."
`(cond-bind it ,@clauses))
+;; TODO consider using UIOP:GETENV which is shipped with recent enough ASDF's
(defun getenv (var)
#+allegro (sys:getenv var)
#+clisp (ext:getenv var)
@@ -250,6 +251,7 @@
#+lispworks (lw:environment-variable var)
#+openmcl (ccl::getenv var)
#+sbcl (sb-ext:posix-getenv var)
+ #+abcl (ext:getenv var)
- #-(or allegro clisp cmu lispworks openmcl openmcl sbcl)
+ #-(or allegro clisp cmu lispworks openmcl openmcl sbcl abcl)
(error "Could not define `getenv'."))