From: David Vázquez <davazp@gmail.com>
Date: Sun, 23 Jun 2013 19:31:32 +0000 (+0200)
Subject: Migrate SYMBOL-PLIST
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4f8c6b0c4c609c7120c6850b7be29241fed1df22;p=jscl.git

Migrate SYMBOL-PLIST
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index c118761..1a7c3ad 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1154,7 +1154,7 @@
     `(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())"))