(defgeneric (setf element) (matrix i j value)
  (:documentation "Assigns new value to matrix element, where i - row, j - column")

and

(defmethod (setf element) ((matrix matrix-r) i j value)
  (setf (aref (elements matrix) (+ j (* i (cols matrix)))) value))