Vérifier le type d'entité dans une liste:


(foreach a liste
(if (=(type a) 'list)
(prompt "liste non plate..")
)
)