Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 5471:00e79bbbe48f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Mon, 14 Feb 2011 22:43:46 +0100
parents 0af042a0c116 70b15ac66ee5
children ac37a5f7e5be
comparison
equal deleted inserted replaced
5470:0af042a0c116 5471:00e79bbbe48f
1041 "Devious evil mapping function" 1041 "Devious evil mapping function"
1042 (when (eq (car y) 1) 1042 (when (eq (car y) 1)
1043 (setcdr (cdr x) 42)) ; drop a brick wall onto the freeway 1043 (setcdr (cdr x) 42)) ; drop a brick wall onto the freeway
1044 (car y)) 1044 (car y))
1045 x))) 1045 x)))
1046
1047 (Assert
1048 (equal
1049 (let ((list (list pi))) (mapcar* #'cons [1 2 3 4] (nconc list list)))
1050 `((1 . ,pi) (2 . ,pi) (3 . ,pi) (4 . ,pi)))
1051 "checking mapcar* behaves correctly when only one arg is circular")
1046 1052
1047 (Assert (eql 1053 (Assert (eql
1048 (length (multiple-value-list 1054 (length (multiple-value-list
1049 (car (mapcar #'(lambda (argument) (floor argument)) (list pi e))))) 1055 (car (mapcar #'(lambda (argument) (floor argument)) (list pi e)))))
1050 1) 1056 1)