Function: CREATE-FLAG-CALL

Source

(defun create-flag-call (flag)
  (multiple-value-bind (name type flags default flag-system)
      (unpack-flag flag)
    (with-flag-system (if flag-system
			  flag-system
			  *current-flag-system*)
      (macroexpand-1 ;;nice hack huh
       `(flags
	 ,@(nconc (mappend (rcurry #'list t) default)
		  (mappend (lambda (flag)
			     `(,flag ,(keyword->symbol flag)))
			   flags)))))))