(make-thread :name common-lisp :part 5)
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
50:デフォルトの名無しさん 08/07/17 22:06:46 (setq x 'ringo) (setf (symbol-value x) '(a b c)) 51:デフォルトの名無しさん 08/07/17 22:30:25 (setq x 'ringo) (set x '(a b c)) 52:48 08/07/17 23:46:08 >>49-51 ありがとうございます 参考にして (defun make-group (x y) (if (boundp x) (setq x (append x y)) (progn (setq x nil) (setq x (append x y))))) (format t "何か知りたいな:") (setq kotoba (read)) (format t "それは何？:") (setq group (read)) (eval `(make-group ,group '(,kotoba))) とやってみたのですが *** - EVAL: variable KUDAMONO has no value (group にはkudamonoを入れました) と成ってしまいます。 どのようにすれば良いか教えて頂けないでしょうかよろしくお願いします。 行いたい処理はgroupに何か束縛されていればkotobaをリストに追加 束縛されていなければ普通に代入としたいのでmake-groupと言う関数を作ってみました。 よろしくお願いします。
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4055日前に更新/237 KB
担当:undef