summaryrefslogtreecommitdiff
path: root/src/lisp/ao_lisp_const.lisp
diff options
context:
space:
mode:
authorKeith Packard <keithp@keithp.com>2016-11-01 21:14:45 -0700
committerKeith Packard <keithp@keithp.com>2016-11-17 22:18:39 -0800
commit338723847e66f7c34a6b5e54d094ed52dc5665c3 (patch)
treec53d501a9e5f29d84c8c4ab65d7198b0e5e14b12 /src/lisp/ao_lisp_const.lisp
parent75f07353a4fad170ac1cc6af98ed1aad7d1c0c88 (diff)
altos/lisp: Change lisp objects to use ao_poly everywhere. Add const
This makes all lisp objects use 16-bit ints for references so we can hold more stuff in small amounts of memory. Also adds a separate constant pool of lisp objects for builtins, initial atoms and constant lisp code. Now builds (and runs!) on the nucleo-32 boards. Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_const.lisp')
-rw-r--r--src/lisp/ao_lisp_const.lisp1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/lisp/ao_lisp_const.lisp b/src/lisp/ao_lisp_const.lisp
new file mode 100644
index 00000000..aa356d45
--- /dev/null
+++ b/src/lisp/ao_lisp_const.lisp
@@ -0,0 +1 @@
+cadr (lambda (l) (car (cdr l)))