Function: CONCAT-FLAGS

Documentation

creates an integer using logior using a list of flags: e.g. (concat-flags '(:append :create <more-symbols>))

Source

(defun concat-flags (flag-list &optional (fs *current-flag-system*))
  "creates an integer using logior using a list of flags:
   e.g. (concat-flags '(:append :create <more-symbols>))"
  (reduce (lambda (cur flag)
	    (logior cur
		    (if-bind val (flag-value flag fs)
			     val
			     (error "unknown flag: ~A" flag))))
	  flag-list
	  :initial-value 0))