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

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

Patches item #1221039, was opened at 2005-06-15 11:24
Message generated for change (Comment added) made by nhabedi
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=447474&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: None
Group: None
>Status: Closed
>Resolution: Wont Fix
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
>Assigned to: Edi Weitz (nhabedi)
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))



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

>Comment By: Edi Weitz (nhabedi)
Date: 2005-06-15 13:04

Message:
Logged In: YES 
user_id=192106

Why is that better?  It potentially creates a new keyword on
each call.

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

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