Migrate SYMBOL-PLIST

[jscl.git] / src / compiler.lisp

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