Gestion d\'erreur universel

[bonuscad]

Encore un code de Elpanov Evgeniy (Il me plait ce garçon, j'lui payerais bien une vodka!) ;)

 

Une fonction d'erreur simple qui répond à la plupart des besoins lors de création de routines pas trop sophistiquées. Ceci en quelques lignes ... (simple mais fallait y penser)

 

La fonction erreur

(defun *error* (msg) (MAPCAR 'eval ERROR-LST-)) 

 

Un exemple de déclaration à faire dans le code principal

(SETQ
 ERROR-LST-
            '("AUTOSNAP" "OSMODE" "APERTURE" "HPSPACE" "HPASSOC" "MIRRTEXT" "AUPREC" "LUPREC"
              "DIMZIN" "cecolor"
             )
 ERROR-LST- (mapcar (function (lambda (a) (list 'setvar a (getvar a)))) ERROR-LST-)
) 

[Tramber]

Da Dobro

 

Ja lubaliou toje

 

(oui très bien, j'aime aussi,...je vous le fais pas en cyrillique !)

 

[(gile)]

Très élégant !!!

 

En tout cas beacoup plus que mes save&set_var et restore_var...

 

... que je me suis empréssé de remanier!

 

[Edité le 13/3/2006 par (gile)]

[ElpanovEvgeniy]

Encore un code de Elpanov Evgeniy (Il me plait ce garçon, j'lui payerais bien une vodka!) ;)

 

Une fonction d'erreur simple qui répond à la plupart des besoins lors de création de routines pas trop sophistiquées. Ceci en quelques lignes ... (simple mais fallait y penser)

 

Probablement, vous pensiez, je jamais n'apprends pas cela ? :)

[(gile)]

On dirait que Bonuscad va devoir payer son coup ;)

[bonuscad]

Probablement, vous pensiez, je jamais n'apprends pas cela ?

 

Oui et Non! Après tout le language lisp et un peu comme le language des sourds, il est universel.

 

Il m'arrive d'explorer des forums étrangers sur le lisp, et si je ne comprends pas la langue, il m'arrive de comprendre ce que doit faire la routine par une lecture sommaire du code. Il est donc normal que d'autres aient la même démarche....

 

J'ai justement dans mon freezer une bonne "Zubrowska", j'adore la boire nature bien glacée. (avec modération, c'est pour ça qu'elle est encore dans mon freezer ;) )

 

Conclusion, ce sera bien volontier que j'offrirais un coup à Evgeniy.

 

Aujourd'hui il est sur le forum, demain il est chez moi à boire un verre :cool: