altos/lisp: remove nth from hanoi.lisp

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

diff --git a/src/test/hanoi.lisp b/src/test/hanoi.lisp
index 66a8d04bc6b4dbbec4757bf7e59722424ec1e5be..aece2ba0d5764bd1215689e6e4e7c4b3c464ad63 100644 (file)
--- 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