Seminario_TP3_EJ02

(defun listar_alum_mat (listamat materia)
    (defun pertenece (atomo lista)
        (if (null lista) nil
            (if (string= atomo (car lista)) t
                (pertenece atomo (cdr lista))
            )
        )
    )
    (if (null listamat) nil
        (if (pertenece materia (car listamat))
            (append (list (caar listamat)) (listar_alum_mat (cdr listamat) materia))
            (listar_alum_mat (cdr listamat) materia)
        )
    )
)