;This function creates the list of aux pegs available

(defun create_aux_list (src dest taken_aux no_pegs)
    
    (setq auxList nil)

    (dotimes (count (+ 1 no_pegs) 1)
        (cond ((not (or (= count src) (= count dest) (= count 0))) 
	       (if (null taken_aux)
		   (setq auxList (cons count auxList))
                 (cond ((not (member count taken_aux ))
		        (setq auxList (cons count auxList))
	               )
                 )	
		
               )
              )
        )
    )
(reverse (reverse auxList))
)