* lisp/subr.el (define-error): New function.