本帖最后由 vitalgg 于 2022-6-2 07:11 编辑
可以
见 http://bbs.mjtd.com/thread-185610-1-1.html?_dsign=418a8997
 - ;; 以expr3 的求值结果为依据, T 继续 ,nil 跳出。
- (while (progn expr1 expr2 expr3)
- ....
- )
- ;; 示例
- (setq i 0)
- (while (progn (princ i)(princ "\n") (< i 10))
- (princ "aaa\n")
- (setq i (1+ i))
- )
|