(defun unpack-flag (flag-info) (destructuring-bind (name &key flag (flag-type :uint32) default flag-system) flag-info (values name flag-type flag default flag-system)))