[cl-cookbook-contrib] [ cl-cookbook-Bugs-1221039 ] correction to my-getenv

[SourceForge.net <no...@so...>]

Bugs item #1221039, was opened at 2005-06-15 02:24
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=447472&aid=1221039&group_id=46815

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: Interface (example)
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Nobody/Anonymous (nobody)
Summary: correction to my-getenv

Initial Comment:

;; to work with CMU, my-getenv should be better defined as :

(defun my-getenv (name &optional default)
            #+CMU (let ((x (assoc
                            (intern name "KEYWORD")
                            ext:*environment-list*
                            :test #'string=)))
                    (if x (cdr x) default))
            #-CMU
            (or
             #+Allegro (sys:getenv name)
             #+CLISP (ext:getenv name)
             #+(or KCL GCL) (si:getenv name)
             #+ECL (si:getenv name)
             #+SBCL (sb-unix::posix-getenv name)
             #+LISPWORKS (lispworks:environment-variable name)
             default))



----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=447472&aid=1221039&group_id=46815