CLでSRFI-98 — #:g1

Posted 2011-05-25 12:19:00 GMT

なんとなくぼんやりとSRFIを移植していますが、今回は、moshのhigepon氏でおなじみのSRFI-98です。
CLではget-environment-variableはGETENVという名前で大抵の処理系にあり、get-environment-valiablesは、ENVIRONMENTのような名前で存在することが多いようです。
- srfi-98.
- (http://srfi.schemers.org/srfi-98/srfi-98.html)
使い方は、

(use-package :srfi-98)

(get-environment-variable "SHELL") ;=> "/usr/bin/zsh"

(get-environment-variables) ;=> (("STY" . "1896.pts-0.setq") ("TERM" . "vt100") ; ......

のようなところ。
CLのGETENVの場合、SETFメソッドも付いてくることが多いのでついでに拡張してみました
(setf (get-environment-variable "FOO") "1234")

(get-environment-variable "FOO") ;=> "1234"


comments powered by Disqus