Print unknown objects as #<javascript object>

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 5e37e4a..fbbdbb1 100644 (file)
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -966,7 +966,9 @@
                        "()"
                        (prin1-to-string (vector-to-list form)))))
       ((packagep form)
-       (concat "#<PACKAGE " (package-name form) ">"))))
+       (concat "#<PACKAGE " (package-name form) ">"))
+      (t
+       (concat "#<javascript object>"))))
 
   (defun write-line (x)
     (write-string x)