mark-naylor-1701

elisp until macro

Nov 15th, 2025 (edited)
531
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.18 KB | None | 0 0
  1. (defmacro until (test &rest body)
  2.   "Implement the UNTIL loop."
  3.   (let ((start (gensym)))
  4.     `(cl-tagbody
  5.       ,start
  6.       ,@body
  7.       (unless ,test
  8.         (go ,start)))))
Advertisement
Add Comment
Please, Sign In to add comment