mike
/
transcendental-lisp
1
1
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity

Add global eval function

This commit is contained in:
Mike Cifelli 2018-02-12 18:36:15 -05:00
parent 62f351ec62
commit 0290855403
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/lang/functions.lisp
View File

@ -64,3 +64,7 @@
(cond (cond
((equal 0 n) (first listA)) ((equal 0 n) (first listA))
(t (nth (- n 1) (rest listA))))) (t (nth (- n 1) (rest listA)))))
(eval
(let ((expr (gensym)))
`(defun global-eval (,expr) (eval ,expr))))