(defun flag-exp-list (flag-info) (multiple-value-bind (name type flags) (unpack-flag flag-info) flags))