1 (defun sector-info ()2 (format t "Called sector-info"))3 4 (defun scout ()5 (format t "Called scout"))6 7 (defun leave ()8 (format t "Called leave"))