X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Ftest%2Fhanoi.lisp;h=aece2ba0d5764bd1215689e6e4e7c4b3c464ad63;hp=66a8d04bc6b4dbbec4757bf7e59722424ec1e5be;hb=472ecec64213e6c37b588d69ca2e8efd5e9abe36;hpb=5161f6d78647591cc7ab8774a04edbc68a09f689

diff --git a/src/test/hanoi.lisp b/src/test/hanoi.lisp
index 66a8d04b..aece2ba0 100644
--- a/src/test/hanoi.lisp
+++ b/src/test/hanoi.lisp
@@ -106,12 +106,6 @@
 	)
   )
 
-(defun nth (list n)
-  (cond ((= n 0) (car list))
-	((nth (cdr list) (1- n)))
-	)
-  )
-
 ; Replace a stack in the list of stacks
 ; with a new value