From df5813a90dd0ea1501d9fafe95719f7056286edd Mon Sep 17 00:00:00 2001
From: Andrea Griffini <agriff@tin.it>
Date: Mon, 6 May 2013 08:56:18 +0200
Subject: [PATCH] typo in array printing

---
 src/print.lisp |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/print.lisp b/src/print.lisp
index 80db1f5..7daa143 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -214,7 +214,7 @@
                                      (write-to-string (cdr last) known-objects object-ids))))
                        ")"))
               ((arrayp form)
-               (let ((result "(")
+               (let ((result "#(")
                      (sep ""))
                  (dotimes (i (length form))
                    (setf result (concat result sep
-- 
1.7.10.4