C.I.CLを眺める(11) PLIST-GET — #:g1

Posted 2011-04-19 12:04:00 GMT

今回は、C.I.CLのlist.lispから PLIST-GET です。
前回はPUTでしたが今回はGET。
PLISTから情報を取り出す関数には標準でGETFがありますが、定義もPLIST-PUTとの整合性のために作られたエイリアスという感じです。

(DEFUN PLIST-GET (PLIST PROP)
  "
 Extract a value from a property list.
 PLIST is a property list, which is a list of the form
 (PROP1 VALUE1 PROP2 VALUE2...).  This function returns the value
 corresponding to the given PROP, or nil if PROP is not
 one of the properties on the list.
"
  (GETF PLIST PROP))
動作は、
(import 'com.informatimago.common-lisp.list:plist-get)

(plist-get '(:foo 0 :bar 1 :baz 2) :foo) ;=> 0

というところ

comments powered by Disqus