- 56 名前：デフォルトの名無しさん mailto:sage [2008/07/18(金) 02:10:49 ]
- (defun make-group (x y)
(cond ((boundp x) (set x (append (eval x) y)))
(t (set x y))))
(format t "何か知りたいな:")
(setq kotoba (read))
(format t "それは何？:")
(setq group (read))
(make-group group (list kotoba))
(format t "group=~s~%" group)
(format t "evalgroup=~s~%" (eval group))
たぶんこんな感じのことがしたいのだと予想
どうでもいいけど関数（サブルーチン）の中で破壊的に書き換えするのは趣味じゃないなぁ
関数は値だけを返してメインでその値を使って代入なりなんなりする方がいいと思う
