(defun _kpblc-error-catch (protected-function on-error-function / catch_error_result)
                          ;|
*** Ôóíêöèÿ âçÿòà èç êíèæíîé âåðñèè ruCAD'a áåç êàêèõ áû òî íè áûëî ïåðåäåëîê,
*** êðîìå ïåðåèìåíîâàíèÿ.
*    Îáîëî÷êà îòëîâà îøèáîê.
*    Ïàðàìåòðû âûçîâà:
*  protected-function  - "çàùèùàåìàÿ" ôóíêöèÿ
*  on-error-function  - ôóíêöèÿ, âûïîëíÿåìàÿ â ñëó÷àå îøèáêè
|;
  (setq catch_error_result (vl-catch-all-apply protected-function))
  (if (and (vl-catch-all-error-p catch_error_result) on-error-function)
    (apply on-error-function (list (vl-catch-all-error-message catch_error_result)))
    catch_error_result
  ) ;_ end of if
) ;_ end of defun

|

_ end of if
_ end of defun

(defun _kpblc-error-catch (protected-function on-error-function / catch_error_result)
*** Ôóíêöèÿ âçÿòà èç êíèæíîé âåðñèè ruCAD'a áåç êàêèõ áû òî íè áûëî ïåðåäåëîê,
*** êðîìå ïåðåèìåíîâàíèÿ.
*    Îáîëî÷êà îòëîâà îøèáîê.
*    Ïàðàìåòðû âûçîâà:
*  protected-function  - "çàùèùàåìàÿ" ôóíêöèÿ
*  on-error-function  - ôóíêöèÿ, âûïîëíÿåìàÿ â ñëó÷àå îøèáêè
  (setq catch_error_result (vl-catch-all-apply protected-function))
  (if (and (vl-catch-all-error-p catch_error_result) on-error-function)
    (apply on-error-function (list (vl-catch-all-error-message catch_error_result)))
    catch_error_result
