lisp-to-js and js-to-lisp wrappers
authorDavid Vázquez <davazp@gmail.com>
Tue, 4 Jun 2013 17:59:17 +0000 (18:59 +0100)
committerDavid Vázquez <davazp@gmail.com>
Tue, 4 Jun 2013 17:59:17 +0000 (18:59 +0100)
src/compiler.lisp

index 449bb3e..0ad7637 100644 (file)
 (define-builtin objectp (x)
   (js!bool (code "(typeof (" x ") === 'object')")))
 
+(define-builtin lisp-to-js (x) (code "lisp_to_js(" x ")"))
+(define-builtin js-to-lisp (x) (code "js_to_lisp(" x ")"))
+
 (define-builtin oget (object key)
   (js!selfcall
     "var tmp = " "(" object ")[xstring(" key ")];" *newline*