From 02908554038f29722744260d0ebb3306e745a659 Mon Sep 17 00:00:00 2001
From: Mike Cifelli <michael.cifelli@gmail.com>
Date: Mon, 12 Feb 2018 18:36:15 -0500
Subject: [PATCH] Add global eval function

---
 lisp/lang/functions.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/lang/functions.lisp b/lisp/lang/functions.lisp
index d222b99..c984c47 100644
--- 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))))