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
_______________________________________________
parenscript-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
