Skip to content

Instantly share code, notes, and snippets.

@haru01

haru01/while_macro

Created March 14, 2010 03:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save haru01/331758 to your computer and use it in GitHub Desktop.
Save haru01/331758 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
while_macro
(let ((x 0))
(do ()
((not (< x 3)))
(print x)
(setq x (1+ x))))
(defmacro while (test &body body)
`(do ()
((not ,test))
,@body))
(let ((x 0))
(while (< x 3)
(print x)
(setq x (1+ x))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment