diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-11 23:34:54 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-02-20 11:16:50 -0800 |
| commit | 33aeffc123af1f9063969acf585f1caac885ced4 (patch) | |
| tree | bf4f87c83c46ce815070933b947ba27fa65724c8 /src/test/hanoi.lisp | |
| parent | 8f2d60b4c029bffaa559bd1f31f5b15230dfa674 (diff) | |
altos/lisp: Append a CRC to the saved image to validate on restore
The CRC is actually of the ROM bits, so we can tell if the restored
image relates to the currently running code.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/test/hanoi.lisp')
| -rw-r--r-- | src/test/hanoi.lisp | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/test/hanoi.lisp b/src/test/hanoi.lisp index 01398d91..2b614829 100644 --- a/src/test/hanoi.lisp +++ b/src/test/hanoi.lisp @@ -6,20 +6,12 @@ (patom "\033[2J" nil) ) -(defun test () - (clear) - (move-to 30 12) - (patom "hello, world") - (move-to 0 19) - ) - (setq stack '("*" "**" "***" "****" "*****" "******" "*******")) (setq stacks nil) (defun display-string (x y str) (move-to x y) - (move-to x y) (patom str) ) |