Added a mechanism for expanding parenscript forms in a clean environment.

diff --git a/extras/js-expander.el b/extras/js-expander.el
index 05b6f6b..114d6c1 100644 (file)
--- a/extras/js-expander.el
+++ b/extras/js-expander.el
@@ -45,3 +45,4 @@
 
 ;;; This actually defines the expander. If the code above belongs in slime.el, the code below would go into .emacs
 (slime-add-custom-expander "j" 'ps:ps "*ParenScript generated Javascript*" 'c-mode #'read)
+(slime-add-custom-expander "d" 'ps:ps-doc "*ParenScript generated Javascript*" 'c-mode #'read)

diff --git a/src/compilation-interface.lisp b/src/compilation-interface.lisp
index 4817370..96b4cff 100644 (file)
--- a/src/compilation-interface.lisp
+++ b/src/compilation-interface.lisp
@@ -11,6 +11,12 @@ is output to the OUTPUT-STREAM stream."
 compiles those forms to a JavaScript string."
   `(ps* '(progn ,@body)))
 
+(defmacro ps-doc (&body body)
+  "Expands Parenscript forms in a clean environment."
+  `(let ((*ps-gensym-counter* 0)
+         (*ps-special-variables* nil))
+     (ps ,@body)))
+
 (defun ps* (&rest body)
   "Compiles BODY to a JavaScript string.
 Body is evaluated."

diff --git a/src/package.lisp b/src/package.lisp
index 933aa64..779fc4d 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -193,6 +193,7 @@
    ;; compiler
    #:compile-script
    #:ps
+   #:ps-doc
    #:ps*
    #:ps-inline
    #:ps-inline*