Plaster
New
List
Login
common-lisp
default
anonymous
2022.11.19 10:11:10
(defmacro nest (&rest args) `',(car (reduce (lambda (&optional a b) (list (append (uiop:ensure-list a) (uiop:ensure-list b)))) args :from-end t))) (nest (foo 1 2) (bar 3) 4) ; => (foo 1 2 (bar 3 4))
Raw
Annotate
Repaste
Edit