Matrix' print-object does not work

[mgi]

Here is an old patch I found on my drive that still stand (I can't find a way to do pull request without forking clem in github and I don't want that for such a simple patch):

From d692c95dada8caa89e14e90c8977cfbd6165a0bc Mon Sep 17 00:00:00 2001
From: Manuel Giraud <[email protected]>
Date: Fri, 30 Jul 2010 15:10:25 +0200
Subject: [PATCH] correct a typo that removed any print

---
 src/print.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/print.lisp b/src/print.lisp
index 9021032..63f8ed2 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -88,7 +88,7 @@
                               (- *matrix-print-row-limit* 2)))
                    (startc 0)
                    (endc (min (1- (cols obj))
-                              (- *matrix-print-col-limit*) 2)))
+                              (- *matrix-print-col-limit* 2))))
                (let ((val-format-spec (if *print-matrix-float-format*
                                           *print-matrix-float-format*
                                           (val-format (class-of obj))))