          orc-battle-monsters))
   (newline))
 
+;; monster
 (defclass monster nil ((health :initform (randval 10)))
   "A monster")
+
+(defmethod monster-dead (m)
+  (<= (monster-health m) 0))
+
+(defmethod monster-health (m)
+  (oref m health))
 
 (defmethod monster-hit (m x)
   (decf (oref m health) x)


(defmethod monster-attack (m))

(defclass orc (monster) ((club-level :initform (randval 8)))
  "An orc")
(push 'orc orc-battle-monster-builders)

                         orc-battle-monster-builders) "monster"))
             (make-vector orc-battle-monster-num nil))))

(defun monsters-dead ()
  (every 'monster-dead orc-battle-monsters))

(defun show-monsters ()
  (newline)
