;team class - a team consists of a name, a list of players a captain and  
;  a record of the wins and losses  
  
( defclass team()  
  (  
   ( name :accessor team-name :initarg :name )  
   ( roster :accessor team-roster :initarg :roster :initform () )  
   ( captain :accessor team-captain :initarg :captain )  
   ( history :accessor team-history :initarg :history )  
   )  
)  
  
  
; history class - history has 2 properties number of wins and losses  
  
( defclass history()  
  (  
   ( wins :accessor history-wins :initarg :wins )  
   ( losses :accessor history-losses :initarg :losses )  
  )  
)