New function gen-js-name-string

This allows you to get a unique javascript name as a string and not
just as a symbol.

diff --git a/js.lisp b/js.lisp
index afe63a8..7754ccf 100644 (file)
--- a/js.lisp
+++ b/js.lisp
@@ -1296,10 +1296,14 @@ this macro."
 
 (defvar *gen-js-name-counter* 0)
 
+(defun gen-js-name-string (&key (prefix "parenscript_"))
+  "Generates a unique valid javascript identifier ()"
+  (concatenate 'string
+               prefix (princ-to-string (incf *gen-js-name-counter*))))
+
 (defun gen-js-name (&key (prefix "parenscript_"))
   "Generate a new javascript identifier."
-  (intern (concatenate 'string
-                       prefix (princ-to-string (incf *gen-js-name-counter*)))
+  (intern (gen-js-name-string :prefix prefix)
           (find-package :js)))
 
 (defmacro with-unique-js-names (symbols &body body)

diff --git a/package.lisp b/package.lisp
index ea11f9a..03564d8 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -132,6 +132,7 @@
    ;; util
    #:with-unique-js-names
    #:gen-js-name
+   #:gen-js-name-string
    
    ;; CSS
    #:css