原程序
(defun c:test()
(setq a 1)
(setq b (+ a 2))
(print b)
(print 123)
)
特殊手法1:前后加双引号(仅限于没有字符串的代码)
(defun c:test()
"
(setq a 1)
(setq b (+ a 2))
(print b)
"
(print 123)
)
特殊手法2:
(defun c:test() (defun c:test()
(and nil (cond (1)
(setq a 1) (setq a 1)
(setq b (+ a 2)) (setq b (+ a 2))
(print b) (print b)
) )
(print 123) (print 123)
) ) |