Q: while loop in impl of error and user-error

["T.V. Raman" <tv.raman.tv@gmail.com>]

I was surprized to see the while loop in the body of function
'error and 'user-error

why is the call to signal enclosed in a (while t ...) loop?

(defun user-error (format &rest args)
  "Signal a pilot error, making error message by passing all args to `format'.
In Emacs, the convention is that error messages start with a capital
letter but *do not* end with a period.  Please follow this convention
for the sake of consistency.
This is just like `error' except that `user-error's are expected to be the
result of an incorrect manipulation on the part of the user, rather than the
result of an actual problem."
  (while t
    (signal 'user-error (list (apply #'format format args)))))
-- 

--