eval-when special form
[clinton/parenscript.git] / src / deprecated-interface.lisp
CommitLineData
9da682ca
RD
1(in-package :parenscript)
2
3;;; DEPRECATED INTERFACE ;;;
4(defun js-equal (a b) (script-equal a b))
5
6(defun js-compile (form)
7 (compile-script form :output-spec :javascript))
8
9(defun js-compile-list (form)
10 (compile-script form :output-spec :javascript))
11
12(defun js-gensym (&rest args)
13 (apply #'script-gensym args))
14
15(defmacro defjsmacro (name args &rest body)
16 "Define a ParenScript macro, and store it in the toplevel ParenScript macro environment.
17
18DEPRECATED"
19 `(defscriptmacro ,name ,args ,@body))