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

;;;; Elevator Simulation

(defstructure (elevator-world (:include grid-environment))
  (elevators 3)
  (floors 10))

(defstructure (elevator (:include object (name "E"))))

(defstructure (button (:include object (name ""))))

(defmethod initialize ((env elevator-world))
  ;; Place call buttons in locations (1 *)
  ;; Place elevators in locations (2n 1)
  )

(defmethod get-percept ((