Added ps-doc* function to PS compilation interface.

diff --git a/src/compilation-interface.lisp b/src/compilation-interface.lisp
index 6ee177d..3916528 100644 (file)
--- a/src/compilation-interface.lisp
+++ b/src/compilation-interface.lisp
@@ -11,6 +11,11 @@ to a JavaScript string at macro-expansion time."
         (*ps-special-variables* nil))
      (macroexpand-1 `(ps ,@body))))
 
+(defun ps-doc* (ps-form)
+  (let ((*ps-gensym-counter* 0)
+        (*ps-special-variables* nil))
+    (ps1* ps-form)))
+
 (defun ps1* (ps-form)
   (apply #'concatenate 'string
          (mapcar (lambda (x)

diff --git a/src/package.lisp b/src/package.lisp
index e4c3d77..7928e9f 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -199,6 +199,7 @@
       #:compile-script
       #:ps
       #:ps-doc
+      #:ps-doc*
       #:ps*
       #:ps1*
       #:ps-inline