Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
(defmacro be (&rest args)
(let* ((withs (do-window-list (window (subseq args 0 (position 'in args)) :skip 2)
(body (subseq args (1+ (position 'in args)))))
`(let* ,withs
;; maakt een alternatieve manier van variabele-binding notatie mogelijk
(be a 2
(setf a (+ a 1))
(+ a 3))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.