Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 5642:5bda701e9e7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Be more careful about non-quoted-symbol TAGs, #'byte-compile-catch lisp/ChangeLog addition: 2012-01-14 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (byte-compile-catch): Be more careful about non-quoted-symbol TAGs here; thank you Robert Pluim in CAMTcmTeLaZVrABnP-1MRUA3ZpZ=h2S_YVxKWDDNuc5bAyJD-gg@mail.gmail.com ! tests/ChangeLog addition: 2012-01-14 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Check that `byte-compile-catch' doesn't strip keyword (as such, non-quoted) TAGs.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 14 Jan 2012 12:16:05 +0000
parents 391d809fa4e9
children 289cf21be887
comparison
equal deleted inserted replaced
5641:f4d74be74462 5642:5bda701e9e7c
2909 first))))) 2909 first)))))
2910 (Known-Bug-Expect-Failure 2910 (Known-Bug-Expect-Failure
2911 (Assert (eql 0 (needs-lexical-context 2 nil nil)) 2911 (Assert (eql 0 (needs-lexical-context 2 nil nil))
2912 "the function special operator doesn't create a lexical context."))) 2912 "the function special operator doesn't create a lexical context.")))
2913 2913
2914 (Assert (eql 10 (catch ':keyword (+ (catch :keyword (throw :keyword 9)) 1)))
2915 "checking `byte-compile-catch' doesn't strip keyword TAGs")
2916
2914 ;; Test symbol-macrolet with symbols with identical string names. 2917 ;; Test symbol-macrolet with symbols with identical string names.
2915 2918
2916 (macrolet 2919 (macrolet
2917 ((test-symbol-macrolet () 2920 ((test-symbol-macrolet ()
2918 (let* ((symbol 'my-symbol) 2921 (let* ((symbol 'my-symbol)