Mercurial > emacs
comparison lisp/emacs-lisp/cl.el @ 68493:c120fbe75b72
(toplevel): Remove definition of `cl-assertion-failed' condition --
it's defined in subr.el instead.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Mon, 30 Jan 2006 19:56:33 +0000 |
| parents | 5b1a238fcbb4 |
| children | 067115a6e738 7432ca837c8d |
comparison
equal
deleted
inserted
replaced
| 68492:f4d24a8eaed1 | 68493:c120fbe75b72 |
|---|---|
| 577 If ALIST is non-nil, the new pairs are prepended to it." | 577 If ALIST is non-nil, the new pairs are prepended to it." |
| 578 (nconc (mapcar* 'cons keys values) alist)) | 578 (nconc (mapcar* 'cons keys values) alist)) |
| 579 | 579 |
| 580 | 580 |
| 581 ;;; Miscellaneous. | 581 ;;; Miscellaneous. |
| 582 | |
| 583 (put 'cl-assertion-failed 'error-conditions '(error)) | |
| 584 (put 'cl-assertion-failed 'error-message "Assertion failed") | |
| 585 | 582 |
| 586 (defvar cl-fake-autoloads nil | 583 (defvar cl-fake-autoloads nil |
| 587 "Non-nil means don't make CL functions autoload.") | 584 "Non-nil means don't make CL functions autoload.") |
| 588 | 585 |
| 589 ;;; Autoload the other portions of the package. | 586 ;;; Autoload the other portions of the package. |