Implemented LET and LET* by variable renaming, which provides the

[clinton/parenscript.git] / src / namespace.lisp

diff --git a/src/namespace.lisp b/src/namespace.lisp
index 4bc2798..37b5b0d 100644 (file)
--- a/src/namespace.lisp
+++ b/src/namespace.lisp
@@ -29,8 +29,11 @@
 designated package when translating ParenScript code."
   `(gethash (find-package ,package) *package-prefix-table*))
 
-(defun symbol-to-js-string (symbol)
-  (let ((symbol-name (symbol-name-to-js-string (maybe-obfuscate-symbol symbol))))
+(defun symbol-to-js-string (symbol &optional (mangle-symbol-name t))
+  (let ((symbol-name (funcall (if mangle-symbol-name
+                                  #'symbol-name-to-js-string
+                                  #'symbol-name)
+                              (maybe-obfuscate-symbol symbol))))
     (aif (ps-package-prefix (symbol-package symbol))
          (format nil "~A~A" it symbol-name)
          symbol-name)))