X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Ftest%2Fhanoi.lisp;h=01398d9121029dba270802d9362e687bb3e9c888;hb=8f2d60b4c029bffaa559bd1f31f5b15230dfa674;hp=93594c434339654961362b4d7f79087d562caf51;hpb=f5a36c15f894803f8804bbc3daf105eed53d5ff6;p=fw%2Faltos

diff --git a/src/test/hanoi.lisp b/src/test/hanoi.lisp
index 93594c43..01398d91 100644
--- a/src/test/hanoi.lisp
+++ b/src/test/hanoi.lisp
@@ -60,8 +60,8 @@
 
 (defun display ()
   (display-stacks 0 20 stacks)
-  (move-to 1 1)
-  (patom "\n")
+  (move-to 1 21)
+  (flush)
   )
 
 (defun length (l)
@@ -100,7 +100,7 @@
     (setq stacks (replace stacks from from-stack))
     (setq stacks (replace stacks to to-stack))
     (display)
-    (delay 500)
+    (delay 100)
     )
   )