(defmethod display ((map dungeon-map) stream)
  (let ((display-map (concatenate 'string (dotimes (y (height map))
                                            (dotimes (x (width map))
                                              (format stream "~a" (visibility/character (get-cell x y map))))
                                            (format stream "~%")))))
    display-map))