; game  
  
( defclass game()  
  (   
   ( pitch :accessor game-pitch :initarg :pitch )  
   ( teams :accessor game-teams :initarg :teams ) 
   ( balls :accessor game-balls :initarg :balls ) 
   ( score :accessor game-score :initarg :score :initform '() )  
   ( north :accessor game-north :initarg :north :initform '() )  
   ( south :accessor game-south :initarg :south :initform '() )  
  )  
)