From: David Vázquez <davazp@gmail.com>
Date: Sun, 23 Jun 2013 13:36:54 +0000 (+0200)
Subject: Migrate DUMP-SYMBOL
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=20cb49ec1efd56b4e9d686611fa3849b0c89fc9c;p=jscl.git

Migrate DUMP-SYMBOL
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 55aae97..4510427 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -501,12 +501,12 @@
   #-jscl
   (let ((package (symbol-package symbol)))
     (if (eq package (find-package "KEYWORD"))
-        `(code "(new Symbol(" ,(dump-string (symbol-name symbol)) ", " ,(dump-string (package-name package)) "))")
-        `(code "(new Symbol(" ,(dump-string (symbol-name symbol)) "))")))
+        `(new (call |Symbol| ,(dump-string (symbol-name symbol)) ,(dump-string (package-name package))))
+        `(new (call |Symbol| ,(dump-string (symbol-name symbol))))))
   #+jscl
   (let ((package (symbol-package symbol)))
     (if (null package)
-        `(code "(new Symbol(" ,(dump-string (symbol-name symbol)) "))")
+        `(new (call |Symbol| ,(dump-string (symbol-name symbol))))
         (ls-compile `(intern ,(symbol-name symbol) ,(package-name package))))))
 
 (defun dump-cons (cons)