Choosing and Executing Behavior
(defun find-behavior (name)
(find name *behaviors* :key 'behavior-name))
(defun choose-behavior (percept)
#'(lambda (b) (funcall (behavior-test b) percept))
(defun execute-behavior (b percept)
(funcall (behavior-action b) percept))