Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 5476:f2881cb841b4

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 Tue, 26 Apr 2011 23:41:47 +0200
parents ac37a5f7e5be 97ac18bd1fa3
children b908c7265a2b
comparison
equal deleted inserted replaced
5475:248176c74e6b 5476:f2881cb841b4
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 (Assert (eql 0 (needs-lexical-context 2 nil nil))))) 2913 (Assert (eql 0 (needs-lexical-context 2 nil nil)))))
2914 2914
2915 ;; Test symbol-macrolet with symbols with identical string names.
2916
2917 (macrolet
2918 ((test-symbol-macrolet ()
2919 (let* ((symbol 'my-symbol)
2920 (copy-symbol (copy-symbol symbol))
2921 (third (copy-symbol copy-symbol)))
2922 `(symbol-macrolet ((,symbol [symbol expansion])
2923 (,copy-symbol [copy expansion])
2924 (,third [third expansion]))
2925 (list ,symbol ,copy-symbol ,third)))))
2926 (Assert (equal '([symbol expansion] [copy expansion] [third expansion])
2927 (test-symbol-macrolet))))
2928
2915 ;;; end of lisp-tests.el 2929 ;;; end of lisp-tests.el