summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
5161f6d)
It's now in ROM.
Signed-off-by: Keith Packard <keithp@keithp.com>
#include <time.h>
#define AO_LISP_POOL_TOTAL 3072
#include <time.h>
#define AO_LISP_POOL_TOTAL 3072
extern int ao_lisp_getc(void);
extern int ao_lisp_getc(void);
-(defun nth (list n)
- (cond ((= n 0) (car list))
- ((nth (cdr list) (1- n)))
- )
- )
-
; Replace a stack in the list of stacks
; with a new value
; Replace a stack in the list of stacks
; with a new value