Mercurial > hg > xemacs-beta

comparison lisp/cl.el @ 5445:6506fcb40fcf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged with trunk.
author Mats Lidell <matsl@xemacs.org>
date Fri, 31 Dec 2010 00:27:29 +0100
parents b9167d522a9a 203dcac81dae
children 89331fa1c819
comparison
equal deleted inserted replaced
5444:388762703a21 5445:6506fcb40fcf
598 598
599 ;;; Miscellaneous. 599 ;;; Miscellaneous.
600 600
601 ;; XEmacs change 601 ;; XEmacs change
602 (define-error 'cl-assertion-failed "Assertion failed") 602 (define-error 'cl-assertion-failed "Assertion failed")
603
604 ;; XEmacs; provide a milquetoast amount of compatibility in our error symbols.
605 (define-error 'type-error "Wrong type" 'wrong-type-argument)
606 (define-error 'program-error "Error in your program" 'invalid-argument)
607
608 (map-plist
609 #'(lambda (key value)
610 (mapc #'(lambda (error)
611 (put error 'error-conditions
612 (cons key (get error 'error-conditions))))
613 value))
614 '(program-error (wrong-number-of-arguments invalid-keyword-argument)
615 type-error (wrong-type-argument malformed-list circular-list)))
603 616
604 ;; XEmacs change: omit the autoload rules; we handle those a different way 617 ;; XEmacs change: omit the autoload rules; we handle those a different way
605 618
606 ;;; Define data for indentation and edebug. 619 ;;; Define data for indentation and edebug.
607 (mapc 620 (mapc