From 20cb49ec1efd56b4e9d686611fa3849b0c89fc9c Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 15:36:54 +0200 Subject: [PATCH] Migrate DUMP-SYMBOL --- src/compiler.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 1.7.10.4