[parenscript-devel] Miscellaneous utils I use

(defjsmacro max (a b) `(*Math.max ,a ,b)) ; might be nice to be able to have more than two arguments (defjsmacro ceil (expr) `(*Math.ceil ,expr)) (define-js-compiler-macro timeout (form timeout) (js-compile `(set-timeout (lambda() ,form) ,timeout))) (defjsmacro make-xml-http-request () `(if (slot-value window '*X-M-L-Http-Request ) (new *X-M-L-Http-Request) (new (*Active-X-Object "Microsoft.XMLHTTP"))))