一般GOTO
来源：互联网 发布：织梦dedecs 城市分站 编辑：程序博客网 时间：2024/04/29 16:01
(defun mydo (initvalue step pre body result)
(if (funcall pre initvalue)
(funcall result initvalue)
(progn
(funcall body initvalue)
(mydo (funcall step initvalue) step pre body result)
)
)
)
(mydo 1
(lambda(x)(+ x 1) )
(lambda(x)(> x 200000) )
(lambda(x) (print x) )
(lambda(x)(print 'chenbing))
