common lisp 的访问器 GET

get.txt

语法
  get symbol indicator &optional default => value
  (setf (get symbol indicator &optional default) new-value)

参数和值
  symbol --- 一个 symbol
  indicator --- 一个 object
  default --- 一个 object, 默认为 nil
  value --- 如果 指定的属性存在, 则返回该属性的值. 否则返回 default 的值
  new-value --- 一个 object

描述
  返回 symbol 的属性的值

代码
  * (setf test (make-symbol "test"))
  #:|test|

  * (get test 'age)
  NIL

  * (get test 'age 18)
  18

  * (setf (get test 'age) 25)
  25

  * (get test 'age 18)
  25