andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(toplevel): Define `cl-assertion-failed' condition here because the

Browse source 
`assert' macro from the cl package signals it at runtime.
This commit is contained in:
John Paul Wallington 2006-01-30 19:55:29 +00:00
parent a3bc032f5c
commit 28ac46f87d
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/subr.el
View file

@ -1831,6 +1831,12 @@ mode.")
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.