【入門】Common Lisp その４【質問よろず】at TECH【入門】Common Lisp その４【質問よろず】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト901:デフォルトの名無しさん 08/06/17 07:19:49 time の結果なら (with-output-to-string (*trace-output*) (time ...)) print した値なら (with-output-to-string (*standard-output*) (time ...)) でどうだろう。 902:デフォルトの名無しさん 08/06/19 22:01:53 マクロで(newaddres x y z)と入力すると (setf (get 'x 'y) 'z)と属性リストに代入することができるようにする マクロはどのように実現すれば良いのでしょうか 903:デフォルトの名無しさん 08/06/19 22:24:32 (defmacro newaddres (x y z) `(setf (get ',x ',y) ',z)) だが、本当にあなたがやりたい事はマクロが必要なのかな？ (defun f (x y z) (setf (get x y) z)) でもいいんじゃないの？ 904:デフォルトの名無しさん 08/06/19 23:11:17 >>903 >(defmacro newaddres (x y z) `(setf (get ',x ',y) ',z)) ありがとうございます。 ',の部分がわからなかったので助かりました。 >(defun newaddres (name title contents) (setf (get name title) contents)) としたのですが 定義した後(newaddres tanaka live yokohama)とするとTANAKA has no value と言うエラーが出てしまいます。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch