Нахождения суммы элементов, лежащих выше главной диагонали матрицы - Lisp

Формулировка задачи:

SOS! Помогите пожалуйста с написанием программы. Я видел что такую задачу выкладывали ранее но реализовать её у меня никак не получается.Дана матрица А размера 7*7. Составить программу нахождения суммы элементов, лежащих выше главной диагонали. Саму матрицу нашел как задавать рандомно, но дальше для меня абсолютно темный лес как и сам лисп в принципе

(defun random-list (size)
(let ((lst '()))
(dotimes (i size)(push (random 25) lst))lst))

(defun matr (n m)
(let ((res nil))
(dotimes (j n)
(push (random-list m) res))
(reverse res)))

(print (matr 7 7))

Решение задачи: «Нахождения суммы элементов, лежащих выше главной диагонали матрицы»

textual
                            Листинг программы 
                        

                            (defun range (n m &optional (r nil))
  (cond ((= n m) (cons m r))
        (t (range n (- m 1) (cons m r)))))
                        