X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Ftest%2Fhanoi.lisp;h=2b614829a8f85ec6ce3e844b022fccc76b4dd11e;hb=33aeffc123af1f9063969acf585f1caac885ced4;hp=09a3611ca58f93ff5b201bb1d281edacc0daa3fd;hpb=00827a0ffe30938c26be216369fd2d8f8946d2c4;p=fw%2Faltos

diff --git a/src/test/hanoi.lisp b/src/test/hanoi.lisp
index 09a3611c..2b614829 100644
--- 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)