Gestione errori

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
Salve a tutti,
durante l'esecuzione del codice, un file è sempre aperto in attesa di inserimenti di record.
Vorrei poter gestire un errore qualsiasi in modo che al suo verificarsi, il file venga chiuso.
Grazie.
 

x11start

Utente Standard
Professione: Disegnatore prefabbricati
Software: Autocad
Regione: Piemonte
Io uso:

----------------------------------
; Error handler (gestione errore)
; ----------------------------------
(defun b_err (st)
(setq *error* olderr) ; Restore old *error* handler

;;;; Inserire qui altre variabili di sistema o comandi da eseguire prima dell'uscita

(princ) ; Esce senza nil
)