Progn

構文

(progn [expr]...)

機能

各式を順に評価して最後の式の値を返す。

progn 関数を使用すると、1 つの式しか指定できない箇所で複数の式を評価できる。

引数

• expr : 1 つ以上の LISP 式。

戻り値

最後に評価した式の結果。

サンプル

 (setq a 9)
 (if (>= a 8)
 (progn (setq b a)
   (setq (1+ b)
 ))
 '''10''' 

---

if 関数は通常、テスト式の評価結果が nil 以外の場合、1 つの then 式を評価する。

次の例は progn 関数を使用して、if 関数の後の 2 つの式を評価している。

 (setq a 1 b 1)
 (if (= a b) 
   (progn 
     (princ "¥nA = B ") 
     (setq a (+ a 10) b (- b 10)) 
   ) 
 ) 
 A = B
 '''-9'''

---

関連事項

• if 関数