Topic: vl-catch-all-apply within error function

[Joe Burke]

While working on an updated version of SupperFlatten, I found a call to vl-catch-all-apply within an *error* function seems to behave in an unexpected manor.

IOW, if vl-catch-all-apply retruns an error, the *error* function reports an error in the *error* function at the command line.

This leads me to think use of vl-catch-all-apply within an error handler does not behave the same as use of that function elsewhere.

Any thoughts on this?

[Lee Mac]

Everything seems to work as expected for me: the vl-catch-all-apply traps the error within the *error* function and the error message you describe isn't displayed.

This was my quick test code:

Code: [Select]

(defun c:test ( / *error* )

  (defun *error* ( msg )
    (print (vl-catch-all-apply 'rtos nil))
    (princ)
  )

  (rtos (getreal "\nHit Enter to Force Error: "))
  (princ)
)
(Was the first thing I could think of to force an error)

Returns (after hitting enter):

Code: [Select]

Hit Enter to Force Error:

#<%catch-all-apply-error%>
As expected.

Perhaps there is an error elsewhere in your *error* function 

[cadabyss]

Not sure if this helps but sometimes an error in the *error* function can be caused by the user hitting the escape key repeatably.  The first time the escape key is hit causes the *error* function to run.  The second time the escape key is hit causes the error in the *error* function.