added getenv for ABCL
Mon Mar 25 22:23:56 PDT 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 2014-07-30 20:25:32.000000000 -0700
+++ new-cl-l10n/src/utils.lisp 2014-07-30 20:25:32.000000000 -0700
@@ -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'."))