Copia_RutaGrafos.lsp

(setq Nodos '(a b c d e f))
(setq Conexion '((i a) (i c) (a b) (a c) (c d) (b d) (d f) ) )

(defun inicia(i f)
	(when (Es_Adyacente (eval 'i) (eval 'f))
		(print 'ok)
		; cosa 1
		; cosa 2
	)
)

(defun Es_Adyacente(X Y)
 	X
	Y
	(setq Lazo (list (eval 'X) (eval 'Y)))		; se genera como lazo
	(dolist (Par Conexion lazo)
	  	(print lazo)
		(if (Iguales Par lazo) t nil)
	)
)

(defun Iguales (L1 L2)
	(if (and (or (eq (car L1) (car L2)) (eq (car L1) (cadr L2)))
	         (or (eq (cadr L1) (car L2)) (eq (cadr L1) (cadr L2)))
	    )
		t nil
	)
)