MuestraLista.lsp

; MUESTRA LISTA CON CICLO Y RECURSIVO

(defun inv_ciclo (lista)
	(setq k 1)
	(dolist (elem lista)
		(setq pos (- (length lista) k))
		(print (nth pos lista))
		(setq k (+ 1 k))
	)
	'ok
)

(defun inv_rec	(lista)
	(if (equal nil lista) 'ok T)
	(if (not (equal nil lista)) (inv_rec (cdr lista)) )
	(print (car lista))
)