X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fprint.lisp;h=7daa14330de05fee7953dd05f8710e0e004b87bd;hb=25702fbbf0ddd2e5386bbf257eee8150adfc7b47;hp=80db1f5f821cb25ed4e640ef165dbd126c330538;hpb=fac5b99539afd997da4668ea9bc8804a132ab803;p=jscl.git

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