From c45c309fe28b83f7ab0c59ea225084374c783931 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 30 Jan 2006 19:58:41 +0000 Subject: [PATCH] (toplevel): Remove definition of `cl-assertion-failed' condition -- it's defined in subr.el instead. --- lisp/ChangeLog | 8 ++++++++ lisp/emacs-lisp/cl.el | 3 --- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 542c951ad01..ca86a0a27b6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2006-01-30 John Paul Wallington + + * subr.el (toplevel): Define `cl-assertion-failed' condition here + because the `assert' macro signals it at runtime. + + * emacs-lisp/cl.el (toplevel): Remove definition of + `cl-assertion-failed' condition. + 2006-01-30 Nick Roberts * thumbs.el (thumbs-marked-list): Make buffer-local and diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 8875366cc9c..b7cf3ad8bcc 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -580,9 +580,6 @@ If ALIST is non-nil, the new pairs are prepended to it." ;;; Miscellaneous. -(put 'cl-assertion-failed 'error-conditions '(error)) -(put 'cl-assertion-failed 'error-message "Assertion failed") - (defvar cl-fake-autoloads nil "Non-nil means don't make CL functions autoload.") -- 2.39.2