# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1138650929 0
# Node ID f4d24a8eaed11b96c8d85827f145b70c5b127b92
# Parent  b58a494227b0117d8271da9def86bb08a1e8f4da
(toplevel): Define `cl-assertion-failed' condition here because the
`assert' macro from the cl package signals it at runtime.

diff -r b58a494227b0 -r f4d24a8eaed1 lisp/subr.el
--- a/lisp/subr.el	Mon Jan 30 16:15:20 2006 +0000
+++ b/lisp/subr.el	Mon Jan 30 19:55:29 2006 +0000
@@ -1831,6 +1831,12 @@
 This variable is meaningful on MS-DOG and Windows NT.
 On those systems, it is automatically local in every buffer.
 On other systems, this variable is normally always nil.")
+
+;; The `assert' macro from the cl package signals
+;; `cl-assertion-failed' at runtime so always define it.
+(put 'cl-assertion-failed 'error-conditions '(error))
+(put 'cl-assertion-failed 'error-message "Assertion failed")
+
 
 ;;;; Misc. useful functions.