From 946fde45498b65e0883ea74403a4b7d54bf31e1d Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Wed, 16 Jan 2013 02:09:41 +0000 Subject: [PATCH] New: symbol-plist --- ecmalisp.lisp | 4 ++++ 1 file changed, 4 insertions(+) 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 ")"))) -- 1.7.10.4