Migrate SYMBOL-PLIST
authorDavid Vázquez <davazp@gmail.com>
Sun, 23 Jun 2013 19:31:32 +0000 (21:31 +0200)
committerDavid Vázquez <davazp@gmail.com>
Sun, 23 Jun 2013 19:31:32 +0000 (21:31 +0200)
src/compiler.lisp

index c118761..1a7c3ad 100644 (file)
     `(return func)))
 
 (define-builtin symbol-plist (x)
-  `(code "((" ,x ").plist || " ,(ls-compile nil) ")"))
+  `(or (get ,x "plist") ,(ls-compile nil)))
 
 (define-builtin lambda-code (x)
   `(code "make_lisp_string((" ,x ").toString())"))