X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Ftest%2Fhanoi.lisp;fp=src%2Ftest%2Fhanoi.lisp;h=387e696ae55de1df681ce3ff0bc1bac8ed66e92b;hb=8406ddf8f0bd5453d6213973daed35991f80972a;hp=aece2ba0d5764bd1215689e6e4e7c4b3c464ad63;hpb=472ecec64213e6c37b588d69ca2e8efd5e9abe36;p=fw%2Faltos

diff --git a/src/test/hanoi.lisp b/src/test/hanoi.lisp
index aece2ba0..387e696a 100644
--- a/src/test/hanoi.lisp
+++ b/src/test/hanoi.lisp
@@ -32,9 +32,7 @@
 
 ; Here's the pieces to display
 
-(setq stack '("*" "**" "***" "****" "*****" "******" "*******"))
-
-(setq top (+ (length stack) 3))
+(setq stack '("     *     " "    ***    " "   *****   " "  *******  " " ********* " "***********"))
 
 ;
 ; Here's all of the stacks of pieces
@@ -55,7 +53,7 @@
 	       )
 	 )
 	(t (progn
-	     (display-string x y "          ")
+	     (display-string x y "                    ")
 	     (display-stack x (1+ y) (1- clear) stack)
 	     )
 	   )
@@ -94,6 +92,7 @@
 
 (defun reset-stacks ()
   (setq stacks (list stack nil nil))
+  (setq top (+ (length stack) 3))
   (length stack)
   )