(let ((package (symbol-package symbol)))
(if (eq package (find-package "KEYWORD"))
(code "(new Symbol(" (dump-string (symbol-name symbol)) ", " (dump-string (package-name package)) "))")
(let ((package (symbol-package symbol)))
(if (eq package (find-package "KEYWORD"))
(code "(new Symbol(" (dump-string (symbol-name symbol)) ", " (dump-string (package-name package)) "))")