[求助]关于IF函数用法的问题

superxzg

关于IF函数用法的问题：
我在autolisp使用过程中发现，如果 if 函数不能执行两个表达式，即便是再一个括号里。
比如：
(defun test()
    (setq n  1)
    (if (= n 1)
          (
              (setq a 1)
              (princ)
          )
     )
)
这样程序就会提示：错误：函数错误。

这是怎么回事？
编程中经常出现判断后执行两个操作，如果autolisp不支持，如何解决，请高手指点。

Andyhon

progn Function

Evaluates each expression sequentially and returns the value of the last expression

(progn [expr]...)

You can use progn to evaluate several expressions where only one expression is expected.

Arguments

expr

One or more AutoLISP expressions.

Return Values

The result of the last evaluated expression.

Examples

The if function normally evaluates one then expression
if the test expression evaluates to anything but nil.
The following example uses progn to evaluate two expressions following if:

(if (= a b)
  (progn
    (princ "\nA = B ")
    (setq a (+ a 10) b (- b 10))
  )
)

oyxx1023

(defun test()
    (setq n  1)
    (if (= n 1)
          (progn
              (setq a 1)
              (princ)
          )
     )
)

superxzg

多谢楼上二位指教,完全正确!送上鲜花一朵!