Removed 'append' from runtime lib since Daniel Gackle provided a more concise macro...

[clinton/parenscript.git] / src / deprecated-interface.lisp

diff --git a/src/deprecated-interface.lisp b/src/deprecated-interface.lisp
index 85470e9..dc1f2f6 100644 (file)
--- a/src/deprecated-interface.lisp
+++ b/src/deprecated-interface.lisp
@@ -17,6 +17,10 @@
 
 ;;; DEPRECATED INTERFACE
 
+(defmacro define-script-symbol-macro (name &body body)
+  (warn-deprecated 'define-script-symbol-macro 'define-ps-symbol-macro)
+  `(define-ps-symbol-macro ,name ,@body))
+
 (defun js-equal (ps-form1 ps-form2)
   (warn-deprecated 'js-equal)
   (equalp ps-form1 ps-form2))
@@ -51,3 +55,12 @@
 
 (defun-js js* ps* (&rest args)
   (apply #'ps* args))
+
+(defun-js compile-script ps1* (ps-form &key (output-stream nil))
+  "Compiles the Parenscript form PS-FORM into Javascript.
+If OUTPUT-STREAM is NIL, then the result is a string; otherwise code
+is output to the OUTPUT-STREAM stream."
+  (format output-stream "~A" (ps1* ps-form)))
+
+(defun-js symbol-to-js symbol-to-js-string (symbol)
+  (symbol-to-js-string symbol))