Ротирање матрица / испит

(defun rotiraj (lista broj)
 (cond
  ((null lista) nil)
  (t(cons(pomosna_rotacija(car lista) broj)(rotiraj(cdr lista) broj)))
 )
)
(defun pomosna_rotacija (lista broj)
 (cond
  ((eq broj 0) lista)
  (t(pomosna_rotacija(append(cdr lista)(list (car lista)))(- broj 1))
  )
 ))
(print (rotiraj '((1 2 3 4 5 6)(1 2 3)(1 2 3 4 5 6 7 8 9)) 3))