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>2017-02-20 11:16:49 -0800
commitd2408e72d1e0d3459918601712b09860ab17e200 (patch)
tree5405e41249373e4d174e61e157ee30d00f145c8d /src/lisp/ao_lisp_const.lisp
parente2f4d25cd6f6f3787d4ee99264732d5b2ce23d4c (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)))