・ ( if ) 関数も返り値を返す、変数の既定値を設定する

(getint) 等のユーザー入力では、既定値を持たせたい場合があります

(if (= int_a nil)
  (setq int_a 4)
  )
(setq int_b (getint (strcat "\n整数を入力 <" (itoa int_a) ">:") ) )
(if (= int_b nil)
   (setq int_b int_a)
  )

とするところを、(if) 関数の返り値を利用して

(setq int_a (if int_a int_a 4))
(setq int_b (getint (strcat "\n整数を入力 <" (itoa int_a) ">:") ) )
(setq int_b (if int_b int_b int_a))

とすると、簡単でカッチョエー


参考文献：「おぉとりすぷの広場」 記事番号<16854>