From: David Vázquez <davazp@gmail.com>
Date: Mon, 22 Apr 2013 20:22:54 +0000 (+0100)
Subject: Print unknown objects as #<javascript object>
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=775baf9e8712e5711303e49367c72d39fb1f7f79;p=jscl.git

Print unknown objects as #<javascript object>
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 5e37e4a..fbbdbb1 100644
--- 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)