Simplify literal object dumping

[jscl.git] / src / boot.lisp

diff --git a/src/boot.lisp b/src/boot.lisp
index de32e75..2149308 100644 (file)
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -679,7 +679,9 @@
                          `((,(ecase (car c)
                                     (integer 'integerp)
                                     (cons 'consp)
+                                    (symbol 'symbolp)
                                     (string 'stringp)
+                                    (array 'arrayp)
                                     (atom 'atom)
                                     (null 'null))
                              ,value)