Mercurial > hg > xemacs-beta

comparison lisp/cl.el @ 5318:203dcac81dae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Provide some milquetoast compatibility in our errors, type-error, program-error 2010-12-30 Aidan Kehoe <kehoea@parhasard.net> * cl.el: Provde the Common Lisp program-error, type-error as error symbols. This doesn't nearly go far enough for anyone using the Common Lisp errors.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 30 Dec 2010 00:15:37 +0000
parents bbff29a01820
children d1b17a33450b 6506fcb40fcf
comparison
equal deleted inserted replaced
5317:8aa511adfad6 5318:203dcac81dae
600 600
601 ;;; Miscellaneous. 601 ;;; Miscellaneous.
602 602
603 ;; XEmacs change 603 ;; XEmacs change
604 (define-error 'cl-assertion-failed "Assertion failed") 604 (define-error 'cl-assertion-failed "Assertion failed")
605
606 ;; XEmacs; provide a milquetoast amount of compatibility in our error symbols.
607 (define-error 'type-error "Wrong type" 'wrong-type-argument)
608 (define-error 'program-error "Error in your program" 'invalid-argument)
609
610 (map-plist
611 #'(lambda (key value)
612 (mapc #'(lambda (error)
613 (put error 'error-conditions
614 (cons key (get error 'error-conditions))))
615 value))
616 '(program-error (wrong-number-of-arguments invalid-keyword-argument)
617 type-error (wrong-type-argument malformed-list circular-list)))
605 618
606 ;; XEmacs change: omit the autoload rules; we handle those a different way 619 ;; XEmacs change: omit the autoload rules; we handle those a different way
607 620
608 ;;; Define data for indentation and edebug. 621 ;;; Define data for indentation and edebug.
609 (mapc 622 (mapc