Function: DEF-FLAG-SYSTEM

Documentation

flag systems may be children of other flag systems

Source

(defun def-flag-system (name &optional parent)
  "flag systems may be children of other flag systems"
  (if (not (keywordp name))
    (error "flag-system name must be a keyword, but found: ~A" name)
    (if-bind old-system (find-flag-system name)
	     (update-flag-system old-system parent)
	     (setf (find-flag-system name)
		   (make-flag-system parent)))))