(defun add_wall ()
;first row
(setf (aref labyrinth 0 3) 'X)
(setf (aref labyrinth 0 4) 'X)
(setf (aref labyrinth 0 5) 'X)

;second row
(setf (aref labyrinth 1 3) 'X)
(setf (aref labyrinth 1 4) 'X)

;third row
(setf (aref labyrinth 2 3) 'X)
(setf (aref labyrinth 2 4) 'X)
(setf (aref labyrinth 2 6) 'X)

;fourth row
(setf (aref labyrinth 3 3) 'X)
(setf (aref labyrinth 3 4) 'X)
(setf (aref labyrinth 3 5) 'X)
(setf (aref labyrinth 3 6) 'X)
(setf (aref labyrinth 3 9) '=)

;fifth row
(setf (aref labyrinth 4 5) 'X)

;sixth row
(setf (aref labyrinth 5 2) 'X)
(setf (aref labyrinth 5 5) 'X)

;7th row
(setf (aref labyrinth 6 2) 'X)
(setf (aref labyrinth 6 3) '>)
(setf (aref labyrinth 6 5) 'X)
(setf (aref labyrinth 6 7) 'X)
(setf (aref labyrinth 6 8) 'X)

;8th row
(setf (aref labyrinth 7 2) 'X)
(setf (aref labyrinth 7 3) 'X)
(setf (aref labyrinth 7 4) 'X)
(setf (aref labyrinth 7 5) 'X)
(setf (aref labyrinth 7 8) 'X)
(setf (aref labyrinth 7 9) 'X)

;9th row
(setf (aref labyrinth 8 2) 'X)
(setf (aref labyrinth 8 3) 'X)
(setf (aref labyrinth 8 4) 'X)
(setf (aref labyrinth 8 5) 'X)
(setf (aref labyrinth 8 9) 'X)

;10th row
(setf (aref labyrinth 9 9) 'X)


)