PRINT-MATRIX - распечатка матриц

С помощью стандартной функции pprint определим простую функцию, которая улучшит печатный вид двумерных массивов.

(defun print-matrix (matrix &optional (chars 3) stream)
  ;; Предполагаем, что требуется
  ;;  3 знака по умолчанию на каждый элемент,
  ;;  6 знаков на #2A и скобки.
  (let ((*print-right-margin* (+ 6 (* (1+ chars) ; плюс пробел
                                      (array-dimension matrix 1)))))
    (pprint matrix stream)
    (values)))

Примеры

(print-matrix #2A((1 2 3) (4 5 6) (7 8 9)) 1)
#2A((1 2 3)
    (4 5 6)
    (7 8 9))