From: David Vazquez <davazp@gmail.com>
Date: Wed, 16 Jan 2013 02:09:41 +0000 (+0000)
Subject: New: symbol-plist
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=946fde45498b65e0883ea74403a4b7d54bf31e1d;p=jscl.git

New: symbol-plist
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 57f793b..c8049bd 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1315,6 +1315,10 @@
     "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";" *newline*
     "return func;" *newline*))
 
+(define-builtin symbol-plist (x)
+  (concat "((" x ").plist || " (ls-compile nil) ")"))
+
+
 (define-builtin eq    (x y) (js!bool (concat "(" x " === " y ")")))
 (define-builtin equal (x y) (js!bool (concat "(" x  " == " y ")")))