commit/XEmacs: kehoea: Be more careful about non-quoted-symbol TAGs, #'byte-compile-catch

1 new commit in XEmacs: https://bitbucket.org/xemacs/xemacs/changeset/5bda701e9e7c/ changeset: 5bda701e9e7c user: kehoea date: 2012-01-14 13:16:05 summary: Be more careful about non-quoted-symbol TAGs, #'byte-compile-catch lisp/ChangeLog addition: 2012-01-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * bytecomp.el (byte-compile-catch): Be more careful about non-quoted-symbol TAGs here; thank you Robert Pluim in CAMTcmTeLaZVrABnP-1MRUA3ZpZ=h2S_YVxKWDDNuc5bAyJD-gg(a)mail.gmail.com ! tests/ChangeLog addition: 2012-01-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/lisp-tests.el: Check that `byte-compile-catch' doesn't strip keyword (as such, non-quoted) TAGs. affected #: 4 files diff -r f4d74be744622833a2a78e5e2eebcac7f849be93 -r 5bda701e9e7c0dff05fa01010e151be8e0c0dd10 lisp/ChangeLog --- a/lisp/ChangeLog +++ b/lisp/ChangeLog ＠＠ -1,4 +1,11 ＠＠ - 2012-01-08 Vin Shelton <acs(a)xemacs.org&gt; +2012-01-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * bytecomp.el (byte-compile-catch): + Be more careful about non-quoted-symbol TAGs here; thank you + Robert Pluim in + CAMTcmTeLaZVrABnP-1MRUA3ZpZ=h2S_YVxKWDDNuc5bAyJD-gg(a)mail.gmail.com ! + +2012-01-08 Vin Shelton <acs(a)xemacs.org&gt; * cus-face.el: autoload custom-set-face-bold. diff -r f4d74be744622833a2a78e5e2eebcac7f849be93 -r 5bda701e9e7c0dff05fa01010e151be8e0c0dd10 lisp/bytecomp.el --- a/lisp/bytecomp.el +++ b/lisp/bytecomp.el ＠＠ -4382,8 +4382,9 ＠＠ optimized away--just byte compile and return the BODY." (let* ((symbol (car-safe (cdr-safe (nth 1 form)))) (not-present '#:not-present) - (block (and symbol (symbolp symbol) - (get symbol 'cl-block-name not-present))) + (block (cond ((null symbol) not-present) + ((not (symbolp symbol)) not-present) + (t (get symbol 'cl-block-name not-present)))) (elt (and (not (eq block not-present)) (list block))) (byte-compile-active-blocks (if elt diff -r f4d74be744622833a2a78e5e2eebcac7f849be93 -r 5bda701e9e7c0dff05fa01010e151be8e0c0dd10 tests/ChangeLog --- a/tests/ChangeLog +++ b/tests/ChangeLog ＠＠ -1,3 +1,9 ＠＠ +2012-01-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * automated/lisp-tests.el: + Check that `byte-compile-catch' doesn't strip keyword (as such, + non-quoted) TAGs. + 2012-01-01 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/completion-tests.el: New. diff -r f4d74be744622833a2a78e5e2eebcac7f849be93 -r 5bda701e9e7c0dff05fa01010e151be8e0c0dd10 tests/automated/lisp-tests.el --- a/tests/automated/lisp-tests.el +++ b/tests/automated/lisp-tests.el ＠＠ -2911,6 +2911,9 ＠＠ (Assert (eql 0 (needs-lexical-context 2 nil nil)) "the function special operator doesn't create a lexical context."))) +(Assert (eql 10 (catch ':keyword (+ (catch :keyword (throw :keyword 9)) 1))) + "checking `byte-compile-catch' doesn't strip keyword TAGs") + ;; Test symbol-macrolet with symbols with identical string names. (macrolet Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches