altos/lisp: Append a CRC to the saved image to validate on restore

[fw/altos] / src / test / hanoi.lisp

diff --git a/src/test/hanoi.lisp b/src/test/hanoi.lisp
index 09a3611ca58f93ff5b201bb1d281edacc0daa3fd..2b614829a8f85ec6ce3e844b022fccc76b4dd11e 100644 (file)
--- a/src/test/hanoi.lisp
+++ b/src/test/hanoi.lisp
@@ -6,19 +6,11 @@
   (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)
   )
@@ -125,5 +117,3 @@
   (clear)
   (_hanoi len 0 1 2)
   )
-
-(hanoi)