(defun mydo (initvalue step pre result)
(if (funcall pre initvalue)
(funcall result initvalue)
(mydo (funcall step initvalue) step pre result)
)
)
(mydo 1
(lambda(x)(+ x 1) )
(lambda(x)(> x 2000) )
(lambda(x) (print x) ) )
(defun mydo (initvalue step pre result)
(if (funcall pre initvalue)
(funcall result initvalue)
(mydo (funcall step initvalue) step pre result)
)
)
(mydo 1
(lambda(x)(+ x 1) )
(lambda(x)(> x 2000) )
(lambda(x) (print x) ) )