#+gcl (si:getenv (string var))
#+lispworks (lw:environment-variable (string var))
#+lucid (lcl:environment-variable (string var))
- #+mcl (ccl::getenv var)
+ #+(or openmcl digitool) (ccl::getenv var)
#+sbcl (sb-ext:posix-getenv var)
- #-(or allegro clisp cmu gcl lispworks lucid mcl sbcl)
+ #-(or allegro clisp cmu gcl lispworks lucid openmcl digitool sbcl)
(error 'not-implemented :proc (list 'getenv var)))