-(defun find-restart-or-lose (restart-designator)
- (let ((real-restart (find-restart restart-designator)))
- (unless real-restart
+;;; helper for the various functions which are ANSI-spec'ed to do
+;;; something with a restart or signal CONTROL-ERROR if there is none
+(defun find-restart-or-control-error (identifier &optional condition)
+ (or (find-restart identifier condition)