1 2 3 4 5
(lambda (list) (flet ((enable (x) (pushnew x list)) (disable (x) (setf list (remove x list))))