- 755 名前：デフォルトの名無しさん mailto:sage [04/07/05 06:28]
- こんなんじゃなかったっけ？ あと適当に defsetf とかで検索しておくれ。
(defun kar (kons)
(car kons))
(defun (setf kar) (kons obj)
(rplaca obj kons))
> (setq data '(1 2))
(1 2)
> (kar data)
1
> (setf (kar data) 3)
(3 2)
> data
(3 2)
