;;; -*- Mode:LISP; Package:USER; Readtable:CL -*-

(defstruct zwei-wins
  (zwei-won t))

(ZL:DEFSTRUCT zwei-loses
  (zwei-lost T))