[COMMIT] Provide some milquetoast compatibility in our errors, type-error, program-error

APPROVE COMMIT NOTE: This patch has been committed. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1293668137 0 # Node ID 203dcac81daeb1697be1f3286e248846713f61de # Parent 8aa511adfad6715a23c9ac7a8372537f41f098ef Provide some milquetoast compatibility in our errors, type-error, program-error 2010-12-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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. diff -r 8aa511adfad6 -r 203dcac81dae lisp/ChangeLog --- a/lisp/ChangeLog Wed Dec 29 23:56:57 2010 +0000 +++ b/lisp/ChangeLog Thu Dec 30 00:15:37 2010 +0000 ＠＠ -1,3 +1,10 ＠＠ +2010-12-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * 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. + 2010-12-29 Aidan Kehoe <kehoea(a)parhasard.net&gt; * cl-macs.el (delete-duplicates): diff -r 8aa511adfad6 -r 203dcac81dae lisp/cl.el --- a/lisp/cl.el Wed Dec 29 23:56:57 2010 +0000 +++ b/lisp/cl.el Thu Dec 30 00:15:37 2010 +0000 ＠＠ -603,6 +603,19 ＠＠ ;; XEmacs change (define-error 'cl-assertion-failed "Assertion failed") +;; XEmacs; provide a milquetoast amount of compatibility in our error symbols. +(define-error 'type-error "Wrong type" 'wrong-type-argument) +(define-error 'program-error "Error in your program" 'invalid-argument) + +(map-plist + #'(lambda (key value) + (mapc #'(lambda (error) + (put error 'error-conditions + (cons key (get error 'error-conditions)))) + value)) + '(program-error (wrong-number-of-arguments invalid-keyword-argument) + type-error (wrong-type-argument malformed-list circular-list))) + ;; XEmacs change: omit the autoload rules; we handle those a different way ;;; Define data for indentation and edebug. -- “Apart from the nine-banded armadillo, man is the only natural host of Mycobacterium leprae, although it can be grown in the footpads of mice.” -- Kumar & Clark, Clinical Medicine, summarising improbable leprosy research _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches