19 Jun
2007
19 Jun
'07
11:30 a.m.
(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"))))