Plaster

(defmacro plist-nonsense (plist) (let ((prop-list (cons 'list (from-first-property plist)))) `(loop for index below (length ,prop-list) collect (enlamb-unless ,(elt plist index) #'property-key?))))