X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=ecmalisp.lisp;h=bbc6340f6a15f6606276dd83b3c1808a405b9ddd;hb=a9426a807b6ea5adc09a1eadecb7233337b5aa6a;hp=dc694a663a77ac61f456673359bced532c8313f7;hpb=169f160f33fc72e2e6ee4442d8cb544304fb0f79;p=jscl.git

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index dc694a6..bbc6340 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -954,7 +954,9 @@
                      (concat (prin1-to-string (car last)) " . " (prin1-to-string (cdr last)))))
                ")"))
       ((arrayp form)
-       (concat "#" (prin1-to-string (vector-to-list form))))
+       (concat "#" (if (zerop (length form))
+                       "()"
+                       (prin1-to-string (vector-to-list form)))))
       ((packagep form)
        (concat "#<PACKAGE " (package-name form) ">"))))