Замена повторяющихся элементов в матрице

(defun overlap-a (w a &aux (v (reduce #'append w)))
  (loop for e in w collect (change-a e a v)))
 
(defun change-a (w a v)
  (loop for e in w
        if (> (count e v) 1) collect a
        else collect e))
 
> (overlap-a '((1 2 3) (4 5 6) (1 2 3)) 7)
((7 7 7) (4 5 6) (7 7 7))

(defun task (matr)
  (let* ((sm (apply 'append matr)) (l (length sm)))
    (mapcar #'(lambda (row) 
                (mapcar #'(lambda (el)
                          (if (> (- l (length (remove el sm))) 1) 1 el)) row)) matr))) 
 
==> task
 
(task '((1 2 3) (1 2 3) (5 6 1)))
 
==> ((1 1 1) (1 1 1) (5 6 1))

(defun pprint-2d-array (a)
  (dotimes (i (array-dimension a 0))
    (format t ";")
    (dotimes (j (array-dimension a 1))
      (format t " ~3d" (svref (aref a i j) 0)))
    (terpri))
  (values))
 
(defun Replace-2d-Array ()
  #'(lambda (a i j)
      (if (svref (aref a i j) 1)
          (setf (svref (aref a i j) 0) 1)
          (setf (svref (aref a i j) 1) T))))
 
(defun Replace-Matrix-Unit (x y)
  (let* ((arr (make-array (list x y)))
         (amount (array-total-size arr))
         (range (loop for i from 2 to (1+ amount) collect i))
         (vec (mapcar #'(lambda (x) (vector x nil)) range))
         (fn (Replace-2d-Array))
         (pool '()))
    (dotimes (i amount)
      (push (nth (random amount) vec) pool))
    (dotimes (i x)
      (dotimes (j y)
        (setf (aref arr i j)
              (nth (random amount) pool))))
    (pprint-2d-array arr)
    (terpri)
    (dotimes (i x)
      (dotimes (j y)
        (funcall fn arr i j)))
    (pprint-2d-array arr)))
 
> (Replace-Matrix-Unit 4 7)
;  26  24  21   5  25  10  25
;  19  26  10  28   7  21  10
;  28   7  25  19  26  10  26
;  19  21  25   9  20  13  19
 
;   1  24   1   5   1   1   1
;   1   1   1   1   1   1   1
;   1   1   1   1   1   1   1
;   1   1   1   9  20  13   1
 
> (Replace-Matrix-Unit 3 6)
;  16   2   8  19  10  16
;  18   5  16  10   8  18
;  15   2   8   9   8   8
 
;   1   1   1  19   1   1
;   1   5   1   1   1   1
;  15   1   1   9   1   1