Add global eval function

2018-02-12 18:36:15 -05:00 · 2018-02-12 18:36:15 -05:00 · 0290855403
parent 62f351ec62
commit 0290855403
1 changed files with 4 additions and 0 deletions
--- a/lisp/lang/functions.lisp
+++ b/lisp/lang/functions.lisp
@ -64,3 +64,7 @@
  (cond
   ((equal 0 n) (first listA))
   (t (nth (- n 1) (rest listA)))))
+
+(eval
+  (let ((expr (gensym)))
+    `(defun global-eval (,expr) (eval ,expr))))