 
 (defclass slime-mold (monster) ((sliminess (randval 5)))
   "A slime mold")
-;;(defun make-slime-mold () (make-instance 'slime-mold))
 (push 'slime-mold orc-battle-monster-builders)
 
 (defmethod monster-show ((m slime-mold))


(defclass brigand (monster) nil
  "A brigand")
;;(defun make-brigand () (make-instance 'brigand))
(push 'brigand orc-battle-monster-builders)

(defmethod monster-attack ((m brigand))


(defclass hydra (monster) nil
  "An hydra")
(push 'hydra orc-battle-monster-builders)

(defmethod monster-show ((m hydra))
