Hi.
How to define a macro to give me this code:
(defun xhr-func () (setf (@ xhr onreadystatechange) (lambda () (if (= (@ xhr ready-state) 4) (progn (setf ime (@ xhr response-text)) (alert ime))) 0)) (chain xhr (open "GET" "/value.lisp" true)) (chain xhr (send null)))
I tried:
(defmacro xhr-macro () `(defun xhr-func () (setf (@ xhr onreadystatechange) (lambda () (if (= (@ xhr ready-state) 4) (progn (setf ime (@ xhr response-text)) (alert ime))) 0)) (chain xhr (open "GET" "/value.lisp" true)) (chain xhr (send null))))
Lispworks inserts lots of its code when trying macroexpand so it doesn't work. I would latter give arguments to the macro, ofcourse. What are defmacro/ps and defmacro+ps for ?
Thanks