;;; -*- Mode: Lisp; Syntax: Common-Lisp; -*- Author: Peter Norvig

(defstruct (garbage-agent-body 
	    (:include agent-body (max-contents 5))))

(defstruct (garbage-agent 
	    (:include agent (body (make-garbage-agent-body)))))