vl-catch-all-apply

(vl-catch-all-apply función lista)

Como apply, pero si hay un error no se detiene la rutina ni se llama a *error*: devuelve un objeto de error que se examina con vl-catch-all-error-p.

(setq r (vl-catch-all-apply '/ '(1 0)))
(if (vl-catch-all-error-p r) (princ (vl-catch-all-error-message r)))