( (defmacro assert items (if (r items) (list if (f items) (c assert (r items)) (q . (x))) (f items) ) ) )