X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=ecmalisp.lisp;h=c8049bdac56123d5f52f00c0c737f02b07bd89df;hb=946fde45498b65e0883ea74403a4b7d54bf31e1d;hp=57f793b32b404895865df91e17c90f713df122d7;hpb=c277546f4ba4aaeee4bc3b25facef9e42582011b;p=jscl.git

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 ")")))