Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(defmacro be (&rest args)
(let* ((withs (do-window-list (window (subseq args 0 (position 'in args)) :skip 2)
window))
(body (subseq args (1+ (position 'in args)))))
`(let* ,withs
,@body)))
;; maakt een alternatieve manier van variabele-binding notatie mogelijk
#|
(be a 2
in
(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.