Btw, eval (ed "wecl.lisp") to see some interesting function definitions, like canvas or webgl access drafts.