gistfile1.txt

(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))
|#