Hola a todos, quería comentaros el siguiente problema que me ha surgido al programar las torres de hanoi en lisp.

Usando el siguiente código consigo obtener el resultado final, pero no los intermedios, los cuales me gustaria ver.

(defun mover-disco (origen destino estado)
  (let
      ((disco (primero-estado-torre estado origen))
      (estadoaux (eliminar-disco-torre estado origen)))
  (aniadir-disco-torre estadoaux destino disco)))
 
(defun mover-torre (num origen estadoaux destino estado)
  (if (= num 1)
    (mover-disco origen destino estado)
   (mover-torre (- num 1) estadoaux origen destino 
                 (mover-disco origen destino
                              (mover-torre (- num 1) origen destino estadoaux estado)))))

Tendría que modificar la funcion mover-disco para que cada vez que se invoque saque por pantalla "estado" que es una lista de listas.
A ver si me podeis sugerir alguna solucion  

Gracias y un saludo

Buenas a todos, quería plantearos una duda a ver si podeis respondermela:

En una solución de visual studio tengo 2 proyectos, uno contiene un Form y el otro un control de usuario.(Ya está una referenciada con la otra)

La cuestión es:
Como accedo a un botón del Control de usuario desde el Form ?

public Form1()
        {
            InitializeComponent();
            this.AcceptButton = ((Button)NoseQuePonerAqui.Controls["buttoVerCiudad"]); //buttoVerCiudad es el boton del Control de usuario
            this.CancelButton = this.buttonCancelar2; //Este boton es del form, asi que no hay problema
            
        }


Un saludo y gracias