或者可以尝试:
(defun MyFunction(input)
(let ((NEWNUM (find input num)))
(if (find input num) //if this
(setq num NEWNUM) (FUNCT2) //then execute both of these
(list 'not found)))) //else output this
可以向上表示任意数量的语句:
(when pred (thunk))
就像
(if pred (thunk))
或者尝试
(defmacro if/seq (cond then else)
`(if ,cond (progn ,@then) (progn ,@else)))
应能做到这一点:
(if/seq (find input num) //if this
((setq num NEWNUM) (FUNCT2)) //then execute both of these
((list 'not found)))))
一般的格式是:
(if/seq *condition* (x y ... z) (a b ... c))
可以选择:
(defun MyFunction(input)
(let ((NEWNUM (find input num)))
(if (find input num) //if this
(progn
(setq num NEWNUM)
(FUNCT2)) //then execute both of these
(list 'not found)))) //else output this