Changed process-html-forms-lhtml loop in lib/ps-html.lisp from 'loop'

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

diff --git a/src/namespace.lisp b/src/namespace.lisp
index dfeba9d..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 js-translate-symbol (symbol)
-  (let ((possibly-obfuscated-symbol (maybe-obfuscate-symbol symbol)))
-    (if (ps-package-prefix (symbol-package symbol))
-        (format nil "~A~A" (ps-package-prefix (symbol-package symbol)) (symbol-to-js-string possibly-obfuscated-symbol))
-        (symbol-to-js-string possibly-obfuscated-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)))