Hi Seth, FWIW, trivial-shell already has `get-env-var`. It doesn't have set-env- var though so I'll add that. (or, probably, (setf get-env-var). Maybe I'll even rename things to lose the abbreviations: get-environment- variable! thanks, On Aug 14, 2009, at 2:11 PM, Seth wrote:
Setting Environment Variables. Notice that its envget instead of getenv because lispworks already has such a exported symbol
(defun envget (var &optional (nullret "")) (let ((env #+clisp (ext:getenv (if (equalp var "") " " var)) #+sbcl (sb-posix:getenv var) #+ecl (si:getenv var) #+allegro (sys:getenv var) #+lispworks (lw:environment-variable var) #-(or clisp sbcl ecl allegro lispworks) (error "GETENV is not supported for your implementation"))) #+clisp (if (equalp env "") nullret env) #+(or sbcl allegro lispworks ecl) (if (null env) nullret env)))
(defun envset (var content) (let ((it #+clisp (setf (ext:getenv var) content) #+sbcl (sb-posix:putenv (concatenate 'string var "=" content)) #+ecl (si:setenv var content) #+allegro (setf (sys:getenv var) content) #+lispworks (setf (lw:environment-variable var) content) #-(or clisp sbcl ecl allegro lispworks) (error "SETENV is not supported for your implementation"))) #+sbcl (if (= it 0) content nil) #+(or lispworks clisp allegro ecl) (if it content)))
(defun (setf envget) (var content) (setenv var content))
---- Msg sent via WebMail
_______________________________________________ trivial-shell-devel mailing list trivial-shell-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/trivial-shell-devel
-- Gary Warren King, metabang.com Cell: (413) 559 8738 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM * gwking on twitter