(defun sector-info () (format t "Called sector-info")) (defun scout () (format t "Called scout")) (defun leave () (format t "Called leave"))
