Commit 05a67e16 authored by Daniel Gackle's avatar Daniel Gackle
Browse files

Deprecated DEFMACRO/PS as described on parenscript-devel email list, 2009.12.28.

parent 46565f0f
......@@ -50,7 +50,7 @@ Body is evaluated."
(defun ps-inline* (form &optional (*js-string-delimiter* *js-inline-string-delimiter*))
(concatenate 'string "javascript:" (ps* form)))
(defmacro/ps ps-inline (form &optional (string-delimiter *js-inline-string-delimiter*))
(defmacro+ps ps-inline (form &optional (string-delimiter *js-inline-string-delimiter*))
`(concatenate 'string "javascript:"
,@(let ((*js-string-delimiter* string-delimiter))
(parenscript-print (ps-compile form) nil))))
......
......@@ -134,11 +134,6 @@ then that expansion is further expanded by ParenScript."
(eval `(defpsmacro ,name (&rest args)
(macroexpand `(,',name ,@args))))))
(defmacro defmacro/ps (name args &body body)
"Define a Lisp macro and import it into the ParenScript macro environment."
`(progn (defmacro ,name ,args ,@body)
(import-macros-from-lisp ',name)))
(defmacro defmacro+ps (name args &body body)
"Define a Lisp macro and a ParenScript macro with the same macro
function (ie - the same result from macroexpand-1), for cases when the
......
......@@ -68,3 +68,8 @@ is output to the OUTPUT-STREAM stream."
(defpsmacro slot-value (&rest args)
(warn-deprecated 'slot-value 'getprop)
`(getprop ,@args))
(defmacro defmacro/ps (name args &body body)
(warn-deprecated 'defmacro/ps 'defmacro+ps)
`(progn (defmacro ,name ,args ,@body)
(import-macros-from-lisp ',name)))
......@@ -22,7 +22,6 @@
#:ps-compile-stream
;; for parenscript macro definition within lisp
#:defpsmacro
#:defmacro/ps
#:defmacro+ps
#:import-macros-from-lisp
......@@ -57,6 +56,7 @@
#:symbol-to-js
#:slot-value
#:compile-script
#:defmacro/ps
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Language
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment