From 1f5f0638f283fbb784021873c649109d4ed0257c Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Sun, 2 Apr 2017 15:53:17 -0700
Subject: cortexelf: Add lisp interpreter

Signed-off-by: Keith Packard <keithp@keithp.com>
---
 src/cortexelf-v1/ao_cortexelf.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/cortexelf-v1/ao_cortexelf.c')

diff --git a/src/cortexelf-v1/ao_cortexelf.c b/src/cortexelf-v1/ao_cortexelf.c
index 0c6852d9..1dc0a4be 100644
--- a/src/cortexelf-v1/ao_cortexelf.c
+++ b/src/cortexelf-v1/ao_cortexelf.c
@@ -27,6 +27,7 @@
 #include <ao_console.h>
 #include <ao_sdcard.h>
 #include <ao_fat.h>
+#include <ao_lisp.h>
 
 struct ao_task ball_task;
 
@@ -182,11 +183,16 @@ ao_console_send(void)
 	}
 }
 
+static void lisp_cmd() {
+	ao_lisp_read_eval_print();
+}
+
 __code struct ao_cmds ao_demo_cmds[] = {
 	{ ao_video_toggle, "V\0Toggle video" },
 	{ ao_ball_toggle, "B\0Toggle ball" },
 	{ ao_ps2_read_keys, "K\0Read keys from keyboard" },
 	{ ao_console_send, "C\0Send data to console, end with ~" },
+	{ lisp_cmd, "l\0Run lisp interpreter" },
 	{ 0, NULL }
 };
 
-- 
cgit v1.2.3