(cdr (assoc (string var) ext:*environment-list* :test #'equalp
:key #'string))
#+lispworks (lw:environment-variable (string var))
(cdr (assoc (string var) ext:*environment-list* :test #'equalp
:key #'string))
#+lispworks (lw:environment-variable (string var))