Testing Interpreted Lisp PASS: (setq setq-test-foo) ==> error wrong-number-of-arguments, as expected PASS: (setq setq-test-foo 1 setq-test-bar) ==> error wrong-number-of-arguments, as expected PASS: (setq-default setq-test-foo) ==> error wrong-number-of-arguments, as expected PASS: (setq-default setq-test-foo 1 setq-test-bar) ==> error wrong-number-of-arguments, as expected PASS: (eq (setq) nil) PASS: (eq (setq-default) nil) PASS: (eq (setq setq-test-foo 42) 42) PASS: (eq (setq-default setq-test-foo 42) 42) PASS: (eq (setq setq-test-foo 42 setq-test-bar 99) 99) PASS: (eq (setq-default setq-test-foo 42 setq-test-bar 99) 99) PASS: (eq nil (test-setq-fun)) PASS: (eq nil (test-setq-fun)) PASS: (eq nil (test-setq-fun)) PASS: (eq nil (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (sequencep sequence) PASS: (eq 4 (length sequence)) PASS: (sequencep sequence) PASS: (eq 4 (length sequence)) PASS: (sequencep sequence) PASS: (eq 4 (length sequence)) PASS: (sequencep sequence) PASS: (eq 4 (length sequence)) PASS: (arrayp array) PASS: (arrayp array) PASS: (arrayp array) PASS: (eq (elt my-vector 0) 1) PASS: (eq (elt my-bit-vector 0) 1) PASS: (eq (elt my-string 0) ?1) PASS: (eq (elt my-list 0) 1) PASS: (eq 4 (length array)) PASS: (eq 4 (length array)) PASS: (eq (elt my-vector 0) 5) PASS: (eq (elt my-bit-vector 0) 1) PASS: (eq (elt my-string 0) ?5) PASS: (eq (elt my-vector 3) 5) PASS: (eq (elt my-bit-vector 3) 1) PASS: (eq (elt my-string 3) ?5) PASS: (eq 4 (length my-bit-vector)) PASS: (eq (elt my-bit-vector 2) 0) PASS: (nconc (quote foo) nil) ==> error wrong-type-argument, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (eq (nconc) nil) PASS: (eq (nconc nil) nil) PASS: (eq (nconc nil nil) nil) PASS: (eq (nconc nil nil nil) nil) PASS: (eq (nconc nil x) x) PASS: (eq (nconc x nil) x) PASS: (eq (nconc nil x nil) x) PASS: (eq (nconc x) x) PASS: (eq (nconc x (make-circular-list 3)) x) PASS: (equal (nconc (quote (1 3 5 . 6)) (quote (3 5 . 6)) (quote (5 . 6))) (quote (1 3 5 . 6))) PASS: (eq (length y) 6) PASS: (eq (nth 3 y) 3) PASS: (last (quote foo)) ==> error wrong-type-argument, as expected PASS: (last) ==> error wrong-number-of-arguments, as expected PASS: (last (quote (1 2)) 1 1) ==> error wrong-number-of-arguments, as expected PASS: (last (make-circular-list 1)) ==> error circular-list, as expected PASS: (last (make-circular-list 2000)) ==> error circular-list, as expected PASS: (eq (last nil) nil) PASS: (eq (last x 0) nil) PASS: (eq (last x) (cdddr x)) PASS: (eq (last x 1) (cdddr x)) PASS: (eq (last x 2) (cddr x)) PASS: (eq (last x 3) (cdr x)) PASS: (eq (last x 4) x) PASS: (eq (last x 9) x) PASS: (eq (last (quote (1 . 2)) 0) 2) PASS: (butlast (quote foo)) ==> error wrong-type-argument, as expected PASS: (nbutlast (quote foo)) ==> error wrong-type-argument, as expected PASS: (butlast) ==> error wrong-number-of-arguments, as expected PASS: (nbutlast) ==> error wrong-number-of-arguments, as expected PASS: (butlast (quote (1 2)) 1 1) ==> error wrong-number-of-arguments, as expected PASS: (nbutlast (quote (1 2)) 1 1) ==> error wrong-number-of-arguments, as expected PASS: (butlast (make-circular-list 1)) ==> error circular-list, as expected PASS: (nbutlast (make-circular-list 1)) ==> error circular-list, as expected PASS: (butlast (make-circular-list 2000)) ==> error circular-list, as expected PASS: (nbutlast (make-circular-list 2000)) ==> error circular-list, as expected PASS: (eq z x) PASS: (not (eq y x)) PASS: (equal y (quote (0 1 2))) PASS: (equal z y) PASS: (eq z x) PASS: (not (eq y x)) PASS: (equal y (quote (0 1 2))) PASS: (equal z y) PASS: (eq z x) PASS: (not (eq y x)) PASS: (equal y (quote (0 1 2 3))) PASS: (equal z y) PASS: (eq (butlast (quote (x))) nil) PASS: (eq (nbutlast (quote (x))) nil) PASS: (eq (butlast (quote nil)) nil) PASS: (eq (nbutlast (quote nil)) nil) PASS: (copy-list (quote foo)) ==> error wrong-type-argument, as expected PASS: (copy-list) ==> error wrong-number-of-arguments, as expected PASS: (copy-list (quote (1 2)) 1) ==> error wrong-number-of-arguments, as expected PASS: (copy-list (make-circular-list 1)) ==> error circular-list, as expected PASS: (copy-list (make-circular-list 2000)) ==> error circular-list, as expected PASS: (eq (quote nil) (copy-list (quote nil))) PASS: (and (equal x y) (not (eq x y))) PASS: (and (equal x y) (not (eq x y))) PASS: (and (equal x y) (not (eq x y))) PASS: (and (equal x y) (not (eq x y))) PASS: (eq (+ 1 1) 2) PASS: (= (+ 1.0 1.0) 2.0) PASS: (= (+ 1.0 3.0 0.0) 4.0) PASS: (= (+ 1 1.0) 2.0) PASS: (= (+ 1.0 1) 2.0) PASS: (= (+ 1.0 1 1) 3.0) PASS: (= (+ 1 1 1.0) 3.0) PASS: (eq (1+ most-positive-fixnum) most-negative-fixnum) PASS: (eq (+ most-positive-fixnum 1) most-negative-fixnum) PASS: (-) ==> error wrong-number-of-arguments, as expected PASS: (eq (- 0) 0) PASS: (eq (- 1) -1) PASS: (= (+ 1 one) 2) PASS: (= (+ one) 1) PASS: (= (+ one) one) PASS: (= (- one) -1) PASS: (= (- one one) 0) PASS: (= (- one one one) -1) PASS: (= (- 0 one) -1) PASS: (= (- 0 one one) -2) PASS: (= (+ one 1) 2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 one) 2) PASS: (= (+ one) 1) PASS: (= (+ one) one) PASS: (= (- one) -1) PASS: (= (- one one) 0) PASS: (= (- one one one) -1) PASS: (= (- 0 one) -1) PASS: (= (- 0 one one) -2) PASS: (= (+ one 1) 2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 one) 2) PASS: (= (+ one) 1) PASS: (= (+ one) one) PASS: (= (- one) -1) PASS: (= (- one one) 0) PASS: (= (- one one one) -1) PASS: (= (- 0 one) -1) PASS: (= (- 0 one one) -2) PASS: (= (+ one 1) 2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 one) 2) PASS: (= (+ one) 1) PASS: (= (+ one) one) PASS: (= (- one) -1) PASS: (= (- one one) 0) PASS: (= (- one one one) -1) PASS: (= (- 0 one) -1) PASS: (= (- 0 one one) -2) PASS: (= (+ one 1) 2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (- 1.5 1) 0.5) PASS: (= (- 1 1.5) (- 0.5)) PASS: (eq (1- most-negative-fixnum) most-positive-fixnum) PASS: (eq (- most-negative-fixnum 1) most-positive-fixnum) PASS: (/ zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/) ==> error wrong-number-of-arguments, as expected PASS: (= (/ (setq x 2)) 0) PASS: (= (/ (setq x 2.0)) 0.5) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ three 2.0) 1.5) PASS: (= (/ three 2.0) 1.5) PASS: (= (/ three 2.0) 1.5) PASS: (= (/ 3.0 two) 1.5) PASS: (= (/ 3.0 two) 1.5) PASS: (= (/ 3.0 two) 1.5) PASS: (= 1 (*)) PASS: (= 1 (* one)) PASS: (= 1 (* one)) PASS: (= 1 (* one)) PASS: (= 1 (* one)) PASS: (= 2 (* two)) PASS: (= 2 (* two)) PASS: (= 2 (* two)) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 0 (+)) PASS: (= 1 (+ one)) PASS: (= 1 (+ one)) PASS: (= 1 (+ one)) PASS: (= 1 (+ one)) PASS: (= 2 (+ two)) PASS: (= 2 (+ two)) PASS: (= 2 (+ two)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= one (max one)) PASS: (= one (max one one)) PASS: (= one (max one one one)) PASS: (= one (min one)) PASS: (= one (min one one)) PASS: (= one (min one one one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (max one)) PASS: (= one (max one one)) PASS: (= one (max one one one)) PASS: (= one (min one)) PASS: (= one (min one one)) PASS: (= one (min one one one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (max one)) PASS: (= one (max one one)) PASS: (= one (max one one one)) PASS: (= one (min one)) PASS: (= one (min one one)) PASS: (= one (min one one one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (max one)) PASS: (= one (max one one)) PASS: (= one (max one one one)) PASS: (= one (min one)) PASS: (= one (min one one)) PASS: (= one (min one one one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= (+ three five 1) 9) PASS: (= (+ 1 three five) 9) PASS: (= (+ three five -1) 7) PASS: (= (+ -1 three five) 7) PASS: (= (+ three 1) 4) PASS: (= (+ three -1) 2) PASS: (= (+ -1 three) 2) PASS: (= (+ -1 three) 2) PASS: (= (- three five 1) -3) PASS: (= (- 1 three five) -7) PASS: (= (- three five -1) -1) PASS: (= (- -1 three five) -9) PASS: (= (- three 1) 2) PASS: (= (- three 2 1) 0) PASS: (= (- 2 three 1) -2) PASS: (= (- three -1) 4) PASS: (= (- three 0) 3) PASS: (= (- three 0 five) -2) PASS: (= (- 0 three 0 five) -8) PASS: (= (- 0 three five) -8) PASS: (= (* three 2) 6) PASS: (= (* three -1 five) -15) PASS: (= (* three 1 five) 15) PASS: (= (* three 0 five) 0) PASS: (= (* three 2 five) 30) PASS: (= (/ three 1) 3) PASS: (= (/ three -1) -3) PASS: (= (/ (* five five) 2 2) 6) PASS: (= (/ 64 five 2) 6) PASS: (= (logxor) 0) PASS: (= (logior) 0) PASS: (= (logand) -1) PASS: (logxor 3.0) ==> error wrong-type-argument, as expected PASS: (logior 3.0) ==> error wrong-type-argument, as expected PASS: (logand 3.0) ==> error wrong-type-argument, as expected PASS: (eq 3 (logand three)) PASS: (eq 3 (logxor three)) PASS: (eq 3 (logior three)) PASS: (eq 3 (logand three three)) PASS: (eq 0 (logxor three three)) PASS: (eq 3 (logior three three)) PASS: (eq 3 (logand three)) PASS: (eq 3 (logxor three)) PASS: (eq 3 (logior three)) PASS: (eq 3 (logand three three)) PASS: (eq 0 (logxor three three)) PASS: (eq 3 (logior three three)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (%) ==> error wrong-number-of-arguments, as expected PASS: (% 1) ==> error wrong-number-of-arguments, as expected PASS: (% 1 2 3) ==> error wrong-number-of-arguments, as expected PASS: (mod) ==> error wrong-number-of-arguments, as expected PASS: (mod 1) ==> error wrong-number-of-arguments, as expected PASS: (mod 1 2 3) ==> error wrong-number-of-arguments, as expected PASS: (% 10.0 2) ==> error wrong-type-argument, as expected PASS: (% 10 2.0) ==> error wrong-type-argument, as expected PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq (% 7 2) 1) PASS: (eq (% 7 -2) 1) PASS: (eq (% (- 7) 2) -1) PASS: (eq (% (- 7) -2) -1) PASS: (eq (% 7 4) 3) PASS: (eq (% 7 -4) 3) PASS: (eq (% (- 7) 4) -3) PASS: (eq (% (- 7) -4) -3) PASS: (eq (% 35 7) 0) PASS: (eq (% -35 7) 0) PASS: (eq (% 35 (- 7)) 0) PASS: (eq (% -35 (- 7)) 0) PASS: (eq (mod 7 2) 1) PASS: (eq (mod 7 -2) -1) PASS: (eq (mod (- 7) 2) 1) PASS: (eq (mod (- 7) -2) -1) PASS: (eq (mod 7 4) 3) PASS: (eq (mod 7 -4) -1) PASS: (eq (mod (- 7) 4) 1) PASS: (eq (mod (- 7) -4) -3) PASS: (eq (mod 35 7) 0) PASS: (eq (mod -35 7) 0) PASS: (eq (mod 35 (- 7)) 0) PASS: (eq (mod -35 (- 7)) 0) PASS: (= (mod 7 2.0) 1.0) PASS: (= (mod 7 -2.0) -1.0) PASS: (= (mod (- 7) 2.0) 1.0) PASS: (= (mod (- 7) -2.0) -1.0) PASS: (= (mod 7 4.0) 3.0) PASS: (= (mod 7 -4.0) -1.0) PASS: (= (mod (- 7) 4.0) 1.0) PASS: (= (mod (- 7) -4.0) -3.0) PASS: (eq (% 0 7) 0) PASS: (eq (% 0 (- 7)) 0) PASS: (eq (mod 0 7) 0) PASS: (eq (mod 0 (- 7)) 0) PASS: (= (mod 0.0 7) 0.0) PASS: (= (mod 0.0 (- 7)) 0.0) PASS: (eq (% ?\^G 2) 1) PASS: (eq (% ?\^G -2) 1) PASS: (eq (% (- ?\^G) 2) -1) PASS: (eq (% (- ?\^G) -2) -1) PASS: (eq (% ?\^G 4) 3) PASS: (eq (% ?\^G -4) 3) PASS: (eq (% (- ?\^G) 4) -3) PASS: (eq (% (- ?\^G) -4) -3) PASS: (eq (% 35 ?\^G) 0) PASS: (eq (% -35 ?\^G) 0) PASS: (eq (% 35 (- ?\^G)) 0) PASS: (eq (% -35 (- ?\^G)) 0) PASS: (eq (mod ?\^G 2) 1) PASS: (eq (mod ?\^G -2) -1) PASS: (eq (mod (- ?\^G) 2) 1) PASS: (eq (mod (- ?\^G) -2) -1) PASS: (eq (mod ?\^G 4) 3) PASS: (eq (mod ?\^G -4) -1) PASS: (eq (mod (- ?\^G) 4) 1) PASS: (eq (mod (- ?\^G) -4) -3) PASS: (eq (mod 35 ?\^G) 0) PASS: (eq (mod -35 ?\^G) 0) PASS: (eq (mod 35 (- ?\^G)) 0) PASS: (eq (mod -35 (- ?\^G)) 0) PASS: (= (mod ?\^G 2.0) 1.0) PASS: (= (mod ?\^G -2.0) -1.0) PASS: (= (mod (- ?\^G) 2.0) 1.0) PASS: (= (mod (- ?\^G) -2.0) -1.0) PASS: (= (mod ?\^G 4.0) 3.0) PASS: (= (mod ?\^G -4.0) -1.0) PASS: (= (mod (- ?\^G) 4.0) 1.0) PASS: (= (mod (- ?\^G) -4.0) -3.0) PASS: (eq (% 0 ?\^G) 0) PASS: (eq (% 0 (- ?\^G)) 0) PASS: (eq (mod 0 ?\^G) 0) PASS: (eq (mod 0 (- ?\^G)) 0) PASS: (= (mod 0.0 ?\^G) 0.0) PASS: (= (mod 0.0 (- ?\^G)) 0.0) PASS: (eq (% (Int-to-Marker 7) 2) 1) PASS: (eq (% (Int-to-Marker 7) -2) 1) PASS: (eq (% (- (Int-to-Marker 7)) 2) -1) PASS: (eq (% (- (Int-to-Marker 7)) -2) -1) PASS: (eq (% (Int-to-Marker 7) 4) 3) PASS: (eq (% (Int-to-Marker 7) -4) 3) PASS: (eq (% (- (Int-to-Marker 7)) 4) -3) PASS: (eq (% (- (Int-to-Marker 7)) -4) -3) PASS: (eq (% 35 (Int-to-Marker 7)) 0) PASS: (eq (% -35 (Int-to-Marker 7)) 0) PASS: (eq (% 35 (- (Int-to-Marker 7))) 0) PASS: (eq (% -35 (- (Int-to-Marker 7))) 0) PASS: (eq (mod (Int-to-Marker 7) 2) 1) PASS: (eq (mod (Int-to-Marker 7) -2) -1) PASS: (eq (mod (- (Int-to-Marker 7)) 2) 1) PASS: (eq (mod (- (Int-to-Marker 7)) -2) -1) PASS: (eq (mod (Int-to-Marker 7) 4) 3) PASS: (eq (mod (Int-to-Marker 7) -4) -1) PASS: (eq (mod (- (Int-to-Marker 7)) 4) 1) PASS: (eq (mod (- (Int-to-Marker 7)) -4) -3) PASS: (eq (mod 35 (Int-to-Marker 7)) 0) PASS: (eq (mod -35 (Int-to-Marker 7)) 0) PASS: (eq (mod 35 (- (Int-to-Marker 7))) 0) PASS: (eq (mod -35 (- (Int-to-Marker 7))) 0) PASS: (= (mod (Int-to-Marker 7) 2.0) 1.0) PASS: (= (mod (Int-to-Marker 7) -2.0) -1.0) PASS: (= (mod (- (Int-to-Marker 7)) 2.0) 1.0) PASS: (= (mod (- (Int-to-Marker 7)) -2.0) -1.0) PASS: (= (mod (Int-to-Marker 7) 4.0) 3.0) PASS: (= (mod (Int-to-Marker 7) -4.0) -1.0) PASS: (= (mod (- (Int-to-Marker 7)) 4.0) 1.0) PASS: (= (mod (- (Int-to-Marker 7)) -4.0) -3.0) PASS: (eq (% 0 (Int-to-Marker 7)) 0) PASS: (eq (% 0 (- (Int-to-Marker 7))) 0) PASS: (eq (mod 0 (Int-to-Marker 7)) 0) PASS: (eq (mod 0 (- (Int-to-Marker 7))) 0) PASS: (= (mod 0.0 (Int-to-Marker 7)) 0.0) PASS: (= (mod 0.0 (- (Int-to-Marker 7))) 0.0) PASS: (=) ==> error wrong-number-of-arguments, as expected PASS: (<) ==> error wrong-number-of-arguments, as expected PASS: (>) ==> error wrong-number-of-arguments, as expected PASS: (<=) ==> error wrong-number-of-arguments, as expected PASS: (>=) ==> error wrong-number-of-arguments, as expected PASS: (/=) ==> error wrong-number-of-arguments, as expected PASS: (eq t (= x)) PASS: (eq t (< x)) PASS: (eq t (> x)) PASS: (eq t (>= x)) PASS: (eq t (<= x)) PASS: (eq t (/= x)) PASS: (eq t (= x)) PASS: (eq t (< x)) PASS: (eq t (> x)) PASS: (eq t (>= x)) PASS: (eq t (<= x)) PASS: (eq t (/= x)) PASS: (eq t (= x)) PASS: (eq t (< x)) PASS: (eq t (> x)) PASS: (eq t (>= x)) PASS: (eq t (<= x)) PASS: (eq t (/= x)) PASS: (eq t (= x)) PASS: (eq t (< x)) PASS: (eq t (> x)) PASS: (eq t (>= x)) PASS: (eq t (<= x)) PASS: (eq t (/= x)) PASS: (= (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (<= (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (>= (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (< (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (> (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (/= (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< 1 2) PASS: (< 1 2 3 4 5 6) PASS: (not (< 1 1)) PASS: (not (< 2 1)) PASS: (not (< 1 1)) PASS: (< 1 2 3 4 5 6) PASS: (<= 1 2 3 4 5 6) PASS: (<= 1 2 3 4 5 6 6) PASS: (not (< 1 2 3 4 5 6 6)) PASS: (<= 1 1) PASS: (not (eq (point) (point-marker))) PASS: (= 1 (Int-to-Marker 1)) PASS: (= (point) (point-marker)) PASS: (member) ==> error wrong-number-of-arguments, as expected PASS: (member nil) ==> error wrong-number-of-arguments, as expected PASS: (member nil 1) ==> error malformed-list, as expected PASS: (member 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (member 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (member 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-member) ==> error wrong-number-of-arguments, as expected PASS: (old-member nil) ==> error wrong-number-of-arguments, as expected PASS: (old-member nil 1) ==> error malformed-list, as expected PASS: (old-member 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-member 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-member 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (memq) ==> error wrong-number-of-arguments, as expected PASS: (memq nil) ==> error wrong-number-of-arguments, as expected PASS: (memq nil 1) ==> error malformed-list, as expected PASS: (memq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (memq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (memq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-memq) ==> error wrong-number-of-arguments, as expected PASS: (old-memq nil) ==> error wrong-number-of-arguments, as expected PASS: (old-memq nil 1) ==> error malformed-list, as expected PASS: (old-memq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-memq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-memq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (assoc) ==> error wrong-number-of-arguments, as expected PASS: (assoc nil) ==> error wrong-number-of-arguments, as expected PASS: (assoc nil 1) ==> error malformed-list, as expected PASS: (assoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (assoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (assoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-assoc) ==> error wrong-number-of-arguments, as expected PASS: (old-assoc nil) ==> error wrong-number-of-arguments, as expected PASS: (old-assoc nil 1) ==> error malformed-list, as expected PASS: (old-assoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-assoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-assoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (rassoc) ==> error wrong-number-of-arguments, as expected PASS: (rassoc nil) ==> error wrong-number-of-arguments, as expected PASS: (rassoc nil 1) ==> error malformed-list, as expected PASS: (rassoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (rassoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (rassoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-rassoc) ==> error wrong-number-of-arguments, as expected PASS: (old-rassoc nil) ==> error wrong-number-of-arguments, as expected PASS: (old-rassoc nil 1) ==> error malformed-list, as expected PASS: (old-rassoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-rassoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-rassoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (rassq) ==> error wrong-number-of-arguments, as expected PASS: (rassq nil) ==> error wrong-number-of-arguments, as expected PASS: (rassq nil 1) ==> error malformed-list, as expected PASS: (rassq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (rassq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (rassq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-rassq) ==> error wrong-number-of-arguments, as expected PASS: (old-rassq nil) ==> error wrong-number-of-arguments, as expected PASS: (old-rassq nil 1) ==> error malformed-list, as expected PASS: (old-rassq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-rassq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-rassq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (delete) ==> error wrong-number-of-arguments, as expected PASS: (delete nil) ==> error wrong-number-of-arguments, as expected PASS: (delete nil 1) ==> error malformed-list, as expected PASS: (delete 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (delete 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (delete 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-delete) ==> error wrong-number-of-arguments, as expected PASS: (old-delete nil) ==> error wrong-number-of-arguments, as expected PASS: (old-delete nil 1) ==> error malformed-list, as expected PASS: (old-delete 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-delete 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-delete 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (delq) ==> error wrong-number-of-arguments, as expected PASS: (delq nil) ==> error wrong-number-of-arguments, as expected PASS: (delq nil 1) ==> error malformed-list, as expected PASS: (delq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (delq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (delq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-delq) ==> error wrong-number-of-arguments, as expected PASS: (old-delq nil) ==> error wrong-number-of-arguments, as expected PASS: (old-delq nil 1) ==> error malformed-list, as expected PASS: (old-delq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-delq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-delq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (remassoc) ==> error wrong-number-of-arguments, as expected PASS: (remassoc nil) ==> error wrong-number-of-arguments, as expected PASS: (remassoc nil 1) ==> error malformed-list, as expected PASS: (remassoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (remassoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (remassoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (remassq) ==> error wrong-number-of-arguments, as expected PASS: (remassq nil) ==> error wrong-number-of-arguments, as expected PASS: (remassq nil 1) ==> error malformed-list, as expected PASS: (remassq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (remassq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (remassq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (remrassoc) ==> error wrong-number-of-arguments, as expected PASS: (remrassoc nil) ==> error wrong-number-of-arguments, as expected PASS: (remrassoc nil 1) ==> error malformed-list, as expected PASS: (remrassoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (remrassoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (remrassoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (remrassq) ==> error wrong-number-of-arguments, as expected PASS: (remrassq nil) ==> error wrong-number-of-arguments, as expected PASS: (remrassq nil 1) ==> error malformed-list, as expected PASS: (remrassq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (remrassq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (remrassq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (eq (assoc 1 x) (car x)) PASS: (eq (assq 1 x) (car x)) PASS: (eq (rassoc 1 x) nil) PASS: (eq (rassq 1 x) nil) PASS: (eq (assoc 2 x) nil) PASS: (eq (assq 2 x) nil) PASS: (eq (rassoc 2 x) (car x)) PASS: (eq (rassq 2 x) (car x)) PASS: (eq (assoc 3 x) nil) PASS: (eq (assq 3 x) nil) PASS: (eq (rassoc 3 x) nil) PASS: (eq (rassq 3 x) nil) PASS: (eq (assoc 4 x) (caddr x)) PASS: (eq (assq 4 x) (caddr x)) PASS: (eq (rassoc 4 x) nil) PASS: (eq (rassq 4 x) nil) PASS: (eq (assoc 5 x) nil) PASS: (eq (assq 5 x) nil) PASS: (eq (rassoc 5 x) (caddr x)) PASS: (eq (rassq 5 x) (caddr x)) PASS: (eq (assoc 6 x) nil) PASS: (eq (assq 6 x) nil) PASS: (eq (rassoc 6 x) nil) PASS: (eq (rassq 6 x) nil) PASS: (eq (assoc "1" x) (car x)) PASS: (eq (assq "1" x) nil) PASS: (eq (rassoc "1" x) nil) PASS: (eq (rassq "1" x) nil) PASS: (eq (assoc "2" x) nil) PASS: (eq (assq "2" x) nil) PASS: (eq (rassoc "2" x) (car x)) PASS: (eq (rassq "2" x) nil) PASS: (eq (assoc "3" x) nil) PASS: (eq (assq "3" x) nil) PASS: (eq (rassoc "3" x) nil) PASS: (eq (rassq "3" x) nil) PASS: (eq (assoc "4" x) (caddr x)) PASS: (eq (assq "4" x) nil) PASS: (eq (rassoc "4" x) nil) PASS: (eq (rassq "4" x) nil) PASS: (eq (assoc "5" x) nil) PASS: (eq (assq "5" x) nil) PASS: (eq (rassoc "5" x) (caddr x)) PASS: (eq (rassq "5" x) nil) PASS: (eq (assoc "6" x) nil) PASS: (eq (assq "6" x) nil) PASS: (eq (rassoc "6" x) nil) PASS: (eq (rassq "6" x) nil) PASS: (let* ((x (a)) (y (remassoc 1 x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (remassq 1 x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (remrassoc 1 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq 1 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc 2 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq 2 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc 2 x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (remrassq 2 x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (remassoc 3 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq 3 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc 3 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq 3 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc 4 x))) (and (eq x y) (equal y (quote ((1 . 2) 3))))) PASS: (let* ((x (a)) (y (remassq 4 x))) (and (eq x y) (equal y (quote ((1 . 2) 3))))) PASS: (let* ((x (a)) (y (remrassoc 4 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq 4 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc 5 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq 5 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc 5 x))) (and (eq x y) (equal y (quote ((1 . 2) 3))))) PASS: (let* ((x (a)) (y (remrassq 5 x))) (and (eq x y) (equal y (quote ((1 . 2) 3))))) PASS: (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq 6 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc 6 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq 6 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (delete 3 x))) (and (eq x y) (equal y (quote ((1 . 2) (4 . 5)))))) PASS: (let* ((x (a)) (y (delq 3 x))) (and (eq x y) (equal y (quote ((1 . 2) (4 . 5)))))) PASS: (let* ((x (a)) (y (old-delete 3 x))) (and (eq x y) (equal y (quote ((1 . 2) (4 . 5)))))) PASS: (let* ((x (a)) (y (old-delq 3 x))) (and (eq x y) (equal y (quote ((1 . 2) (4 . 5)))))) PASS: (let* ((x (a)) (y (delete (quote (1 . 2)) x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (delq (quote (1 . 2)) x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (old-delete (quote (1 . 2)) x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (old-delq (quote (1 . 2)) x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "1" x))) (and (not (eq x y)) (equal y (quote ("3" ("4" . "5")))))) PASS: (let* ((x (a)) (y (remassq "1" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "1" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq "1" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "2" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq "2" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "2" x))) (and (not (eq x y)) (equal y (quote ("3" ("4" . "5")))))) PASS: (let* ((x (a)) (y (remrassq "2" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "3" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq "3" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "3" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq "3" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "4" x))) (and (eq x y) (equal y (quote (("1" . "2") "3"))))) PASS: (let* ((x (a)) (y (remassq "4" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "4" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq "4" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "5" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq "5" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "5" x))) (and (eq x y) (equal y (quote (("1" . "2") "3"))))) PASS: (let* ((x (a)) (y (remrassq "5" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "6" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq "6" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "6" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq "6" x))) (and (eq x y) (equal y (a)))) PASS: (eq (function-min-args (quote prog1)) 1) PASS: (eq (function-max-args (quote prog1)) nil) PASS: (eq (function-min-args (quote command-execute)) 1) PASS: (eq (function-max-args (quote command-execute)) 3) PASS: (eq (function-min-args (quote funcall)) 1) PASS: (eq (function-max-args (quote funcall)) nil) PASS: (eq (function-min-args (quote garbage-collect)) 0) PASS: (eq (function-max-args (quote garbage-collect)) 0) PASS: (eq (function-min-args (quote (lambda (arg1 arg2 &rest args) nil))) 2) PASS: (eq (function-max-args (quote (lambda (arg1 arg2 &rest args) nil))) nil) PASS: (eq (function-min-args (byte-compile (quote (lambda (arg1 arg2 &rest args) nil)))) 2) PASS: (eq (function-max-args (byte-compile (quote (lambda (arg1 arg2 &rest args) nil)))) nil) PASS: (eq (function-min-args (quote (lambda (arg1 arg2 &optional arg3 arg4) nil))) 2) PASS: (eq (function-max-args (quote (lambda (arg1 arg2 &optional arg3 arg4) nil))) 4) PASS: (eq (function-min-args (byte-compile (quote (lambda (arg1 arg2 &optional arg3 arg4) nil)))) 2) PASS: (eq (function-max-args (byte-compile (quote (lambda (arg1 arg2 &optional arg3 arg4) nil)))) 4) PASS: (eq (function-min-args (quote (lambda (arg1 arg2 &optional arg3 arg4 &rest args) nil))) 2) PASS: (eq (function-max-args (quote (lambda (arg1 arg2 &optional arg3 arg4 &rest args) nil))) nil) PASS: (eq (function-min-args (byte-compile (quote (lambda (arg1 arg2 &optional arg3 arg4 &rest args) nil)))) 2) PASS: (eq (function-max-args (byte-compile (quote (lambda (arg1 arg2 &optional arg3 arg4 &rest args) nil)))) nil) PASS: (eq (function-min-args (quote (lambda nil nil))) 0) PASS: (eq (function-max-args (quote (lambda nil nil))) 0) PASS: (eq (function-min-args (byte-compile (quote (lambda nil nil)))) 0) PASS: (eq (function-max-args (byte-compile (quote (lambda nil nil)))) 0) PASS: (test-sym1) ==> error cyclic-function-indirection, as expected PASS: (test-sym1) ==> error cyclic-function-indirection, as expected PASS: (eq (type-of load-path) (quote cons)) PASS: (eq (type-of obarray) (quote vector)) PASS: (eq (type-of 42) (quote integer)) PASS: (eq (type-of ?z) (quote character)) PASS: (eq (type-of "42") (quote string)) PASS: (eq (type-of (quote foo)) (quote symbol)) PASS: (eq (type-of (selected-device)) (quote device)) PASS: (mapcar (function identity) (current-buffer)) ==> error wrong-type-argument, as expected PASS: (equal (mapcar (function identity) load-path) load-path) PASS: (equal (mapcar (function identity) (quote (1 2 3))) (quote (1 2 3))) PASS: (equal (mapcar (function identity) "123") (quote (?1 ?2 ?3))) PASS: (equal (mapcar (function identity) [1 2 3]) (quote (1 2 3))) PASS: (equal (mapcar (function identity) #*010) (quote (0 1 0))) PASS: (eq 1000 z) PASS: (mapvector (function identity) (current-buffer)) ==> error wrong-type-argument, as expected PASS: (equal (mapvector (function identity) (quote (1 2 3))) [1 2 3]) PASS: (equal (mapvector (function identity) "123") [?1 ?2 ?3]) PASS: (equal (mapvector (function identity) [1 2 3]) [1 2 3]) PASS: (equal (mapvector (function identity) #*010) [0 1 0]) PASS: (mapconcat (function identity) (current-buffer) "foo") ==> error wrong-type-argument, as expected PASS: (equal (mapconcat (function identity) (quote ("1" "2" "3")) "|") "1|2|3") PASS: (equal (mapconcat (function identity) ["1" "2" "3"] "|") "1|2|3") PASS: (let ((x (list (cons 1 1) (cons 2 2) (cons 3 3)))) (mapcar (lambda (y) "Devious evil mapping function" (when (eq (car y) 2) (setcdr x nil) (garbage-collect)) (car y)) x)) PASS: (let ((x (list (cons 1 1) (cons 2 2) (cons 3 3)))) (mapcar (lambda (y) "Devious evil mapping function" (when (eq (car y) 1) (setcdr (cdr x) 42)) (car y)) x)) PASS: (equal [1 2 3] [1 2 3]) PASS: (equal [] []) PASS: (not (equal [1 2 3] [])) PASS: (not (equal [1 2 3] [1 2 4])) PASS: (not (equal [0 2 3] [1 2 3])) PASS: (not (equal [1 2 3] [1 2 3 4])) PASS: (not (equal [1 2 3 4] [1 2 3])) PASS: (equal (vector 1 2 3) [1 2 3]) PASS: (equal (make-vector 3 1) [1 1 1]) PASS: (equal #*010 #*010) PASS: (equal #* #*) PASS: (not (equal #*010 #*011)) PASS: (not (equal #*010 #*)) PASS: (not (equal #*110 #*010)) PASS: (not (equal #*010 #*0100)) PASS: (not (equal #*0101 #*010)) PASS: (equal (bit-vector 0 1 0) #*010) PASS: (equal (make-bit-vector 3 1) #*111) PASS: (equal (make-bit-vector 3 0) #*000) PASS: (equal (split-string "foo,bar" ",") (quote ("foo" "bar"))) PASS: (equal (split-string ",foo,bar," ",") (quote ("" "foo" "bar" ""))) PASS: (equal (split-string ",foo,bar," "^,") (quote ("" "foo,bar,"))) PASS: (equal (split-string ",foo,bar," ",$") (quote (",foo,bar" ""))) PASS: (equal (split-string ",foo,,bar," ",") (quote ("" "foo" "" "bar" ""))) PASS: (equal (split-string "foo,,,bar" ",") (quote ("foo" "" "" "bar"))) PASS: (equal (split-string "foo,,bar,," ",") (quote ("foo" "" "bar" "" ""))) PASS: (equal (split-string "foo,,bar" ",+") (quote ("foo" "bar"))) PASS: (equal (split-string ",foo,,bar," ",+") (quote ("" "foo" "bar" ""))) PASS: (not (string-match "\\(\\.\\=\\)" ".")) PASS: (string= "" (let ((str "test string")) (if (string-match "^.*$" str) (replace-match "\\U" t nil str)))) PASS: (and (bobp) (eobp)) PASS: (eq (char-before) nil) PASS: (eq (char-before (point)) nil) PASS: (eq (char-before (point-marker)) nil) PASS: (eq (char-before (point) (current-buffer)) nil) PASS: (eq (char-before (point-marker) (current-buffer)) nil) PASS: (eq (char-after) nil) PASS: (eq (char-after (point)) nil) PASS: (eq (char-after (point-marker)) nil) PASS: (eq (char-after (point) (current-buffer)) nil) PASS: (eq (char-after (point-marker) (current-buffer)) nil) PASS: (eq (preceding-char) 0) PASS: (eq (preceding-char (current-buffer)) 0) PASS: (eq (following-char) 0) PASS: (eq (following-char (current-buffer)) 0) PASS: (eq (char-before) ?r) PASS: (eq (char-after) nil) PASS: (eq (preceding-char) ?r) PASS: (eq (following-char) 0) PASS: (eq (char-before) nil) PASS: (eq (char-after) ?f) PASS: (eq (preceding-char) 0) PASS: (eq (following-char) ?f) PASS: (eq t (get* sym t t)) PASS: (eq t (get sym t t)) PASS: (eq t (getf nil t t)) PASS: (eq t (plist-get nil t t)) PASS: (eq (quote baz) (get sym (quote bar))) PASS: (eq (quote baz) (getf (quote (bar baz)) (quote bar))) PASS: (eq (quote baz) (getf (symbol-plist sym) (quote bar))) PASS: (eq 2 (getf (quote (1 2)) 1)) PASS: (eq 4 (put sym 3 4)) PASS: (eq 4 (get sym 3)) PASS: (eq t (remprop sym 3)) PASS: (eq nil (remprop sym 3)) PASS: (eq 5 (get sym 3 5)) PASS: (eq 2 (get obj ?1 2)) PASS: (eq 4 (put obj ?3 4)) PASS: (eq 4 (get obj ?3)) PASS: (equal (quote (?3 4)) (object-plist obj)) PASS: (eq t (remprop obj ?3)) PASS: (eq (quote nil) (object-plist obj)) PASS: (eq nil (remprop obj ?3)) PASS: (eq (quote nil) (object-plist obj)) PASS: (eq 5 (get obj ?3 5)) PASS: (eq 2 (get obj ?1 2)) PASS: (eq 4 (put obj ?3 4)) PASS: (eq 4 (get obj ?3)) PASS: (equal (quote (?3 4)) (object-plist obj)) PASS: (eq t (remprop obj ?3)) PASS: (eq (quote nil) (object-plist obj)) PASS: (eq nil (remprop obj ?3)) PASS: (eq (quote nil) (object-plist obj)) PASS: (eq 5 (get obj ?3 5)) PASS: (eq 2 (get obj ?1 2)) PASS: (eq 4 (put obj ?3 4)) PASS: (eq 4 (get obj ?3)) PASS: (eq t (remprop obj ?3)) PASS: (eq nil (remprop obj ?3)) PASS: (eq 5 (get obj ?3 5)) PASS: (eq 2 (get obj ?1 2)) PASS: (eq 4 (put obj ?3 4)) PASS: (eq 4 (get obj ?3)) PASS: (eq t (remprop obj ?3)) PASS: (eq nil (remprop obj ?3)) PASS: (eq 5 (get obj ?3 5)) PASS: (get 2 (quote property)) ==> error "Object type has no properties" error, as expected PASS: (put (current-buffer) (quote property) (quote value)) ==> error "Object type has no settable properties" error, as expected PASS: (remprop ?3 (quote property)) ==> error "Object type has no removable properties" error, as expected PASS: (object-plist (symbol-function (quote car))) ==> error "Object type has no properties" error, as expected PASS: (remprop (make-extent nil nil nil) (quote detachable)) ==> error "Can't remove property from object" error, as expected PASS: (equal (subseq nil 0) nil) PASS: (equal (subseq [1 2 3] 0) [1 2 3]) PASS: (equal (subseq [1 2 3] 1 -1) [2]) PASS: (equal (subseq "123" 0) "123") PASS: (equal (subseq "1234" -3 -1) "23") PASS: (equal (subseq #*0011 0) #*0011) PASS: (equal (subseq #*0011 -3 3) #*01) PASS: (equal (subseq (quote (1 2 3)) 0) (quote (1 2 3))) PASS: (equal (subseq (quote (1 2 3 4)) -3 nil) (quote (2 3 4))) PASS: (subseq 3 2) ==> error wrong-type-argument, as expected PASS: (subseq [1 2 3] -42) ==> error args-out-of-range, as expected PASS: (subseq [1 2 3] 0 42) ==> error args-out-of-range, as expected PASS: (= (length (current-time-string)) 24) PASS: (string= (format "%d" 10) "10") PASS: (string= (format "%o" 8) "10") PASS: (string= (format "%x" 31) "1f") PASS: (string= (format "%X" 31) "1F") FAIL: Assertion failed: (string= (format "%e" 100) "1.000000e+02") FAIL: Assertion failed: (string= (format "%E" 100) "1.000000E+02") PASS: (string= (format "%f" 100) "100.000000") PASS: (string= (format "%7.3f" 12.12345) " 12.123") PASS: (string= (format "%07.3f" 12.12345) "012.123") PASS: (string= (format "%-7.3f" 12.12345) "12.123 ") PASS: (string= (format "%-07.3f" 12.12345) "12.123 ") PASS: (string= (format "%g" 100.0) "100") FAIL: Assertion failed: (string= (format "%g" 1e-006) "1e-06") PASS: (string= (format "%g" 0.0001) "0.0001") PASS: (string= (format "%G" 100.0) "100") FAIL: Assertion failed: (string= (format "%G" 1e-006) "1E-06") PASS: (string= (format "%G" 0.0001) "0.0001") PASS: (string= (format "%2$d%1$d" 10 20) "2010") PASS: (string= (format "%-d" 10) "10") PASS: (string= (format "%-4d" 10) "10 ") PASS: (string= (format "%+d" 10) "+10") PASS: (string= (format "%+d" -10) "-10") PASS: (string= (format "%+4d" 10) " +10") PASS: (string= (format "%+4d" -10) " -10") PASS: (string= (format "% d" 10) " 10") PASS: (string= (format "% d" -10) "-10") PASS: (string= (format "% 4d" 10) " 10") PASS: (string= (format "% 4d" -10) " -10") PASS: (string= (format "%0d" 10) "10") PASS: (string= (format "%0d" -10) "-10") PASS: (string= (format "%04d" 10) "0010") PASS: (string= (format "%04d" -10) "-010") PASS: (string= (format "%*d" 4 10) " 10") PASS: (string= (format "%*d" 4 -10) " -10") PASS: (string= (format "%*d" -4 10) "10 ") PASS: (string= (format "%*d" -4 -10) "-10 ") PASS: (string= (format "%#d" 10) "10") PASS: (string= (format "%#o" 8) "010") PASS: (string= (format "%#x" 16) "0x10") FAIL: Assertion failed: (string= (format "%#e" 100) "1.000000e+02") FAIL: Assertion failed: (string= (format "%#E" 100) "1.000000E+02") PASS: (string= (format "%#f" 100) "100.000000") PASS: (string= (format "%#g" 100.0) "100.000") FAIL: Assertion failed: (string= (format "%#g" 1e-006) "1.00000e-06") PASS: (string= (format "%#g" 0.0001) "0.000100000") PASS: (string= (format "%#G" 100.0) "100.000") FAIL: Assertion failed: (string= (format "%#G" 1e-006) "1.00000E-06") PASS: (string= (format "%#G" 0.0001) "0.000100000") PASS: (string= (format "%.1d" 10) "10") PASS: (string= (format "%.4d" 10) "0010") PASS: (string= (format "%-04d" 10) "10 ") PASS: (string= (format "%-*d" 4 10) "10 ") PASS: (string= (format "%-*d" -4 10) "10 ") PASS: (string= (format "%01.1d" 10) "10") PASS: (string= (format "%03.1d" 10) " 10") PASS: (string= (format "%01.3d" 10) "010") PASS: (string= (format "%1.3d" 10) "010") PASS: (string= (format "%3.1d" 10) " 10") PASS: (= 102 (length (format "%.100f" 3.14))) PASS: (= 100 (length (format "%100f" 3.14))) PASS: (= (read (format "%d" most-positive-fixnum)) most-positive-fixnum) PASS: (= (read (format "%ld" most-positive-fixnum)) most-positive-fixnum) PASS: (= (read (format "%u" most-positive-fixnum)) most-positive-fixnum) PASS: (= (read (format "%lu" most-positive-fixnum)) most-positive-fixnum) PASS: (= (read (format "%d" most-negative-fixnum)) most-negative-fixnum) PASS: (= (read (format "%ld" most-negative-fixnum)) most-negative-fixnum) PASS: (read (format "%u" most-negative-fixnum)) ==> error invalid-read-syntax, as expected PASS: (read (format "%u" -1)) ==> error invalid-read-syntax, as expected PASS: (not (all-completions "" (quote ((" hidden" . "object"))))) PASS: (all-completions " " (quote ((" hidden" . "object")))) Testing Compiled Lisp PASS: (setq setq-test-foo) ==> error wrong-number-of-arguments, as expected PASS: (setq setq-test-foo 1 setq-test-bar) ==> error wrong-number-of-arguments, as expected PASS: (setq-default setq-test-foo) ==> error wrong-number-of-arguments, as expected PASS: (setq-default setq-test-foo 1 setq-test-bar) ==> error wrong-number-of-arguments, as expected PASS: (eq (setq) nil) PASS: (eq (setq-default) nil) PASS: (eq (setq setq-test-foo 42) 42) PASS: (eq (setq-default setq-test-foo 42) 42) PASS: (eq (setq setq-test-foo 42 setq-test-bar 99) 99) PASS: (eq (setq-default setq-test-foo 42 setq-test-bar 99) 99) PASS: (eq nil (test-setq-fun)) PASS: (eq nil (test-setq-fun)) PASS: (eq nil (test-setq-fun)) PASS: (eq nil (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (eq 42 (test-setq-fun)) PASS: (sequencep sequence) PASS: (eq 4 (length sequence)) PASS: (sequencep sequence) PASS: (eq 4 (length sequence)) PASS: (sequencep sequence) PASS: (eq 4 (length sequence)) PASS: (sequencep sequence) PASS: (eq 4 (length sequence)) PASS: (arrayp array) PASS: (arrayp array) PASS: (arrayp array) PASS: (eq (elt my-vector 0) 1) PASS: (eq (elt my-bit-vector 0) 1) PASS: (eq (elt my-string 0) ?1) PASS: (eq (elt my-list 0) 1) PASS: (eq 4 (length array)) PASS: (eq 4 (length array)) PASS: (eq (elt my-vector 0) 5) PASS: (eq (elt my-bit-vector 0) 1) PASS: (eq (elt my-string 0) ?5) PASS: (eq (elt my-vector 3) 5) PASS: (eq (elt my-bit-vector 3) 1) PASS: (eq (elt my-string 3) ?5) PASS: (eq 4 (length my-bit-vector)) PASS: (eq (elt my-bit-vector 2) 0) PASS: (nconc (quote foo) nil) ==> error wrong-type-argument, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (nconc (quote (1 3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (quote (3 you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike ... )) (make-circular-list length) (quote foo)) ==> error circular-list, as expected PASS: (eq (nconc) nil) PASS: (eq (nconc nil) nil) PASS: (eq (nconc nil nil) nil) PASS: (eq (nconc nil nil nil) nil) PASS: (eq (nconc nil x) x) PASS: (eq (nconc x nil) x) PASS: (eq (nconc nil x nil) x) PASS: (eq (nconc x) x) PASS: (eq (nconc x (make-circular-list 3)) x) PASS: (equal (nconc (quote (1 3 5 . 6)) (quote (3 5 . 6)) (quote (5 . 6))) (quote (1 3 5 . 6))) PASS: (eq (length y) 6) PASS: (eq (nth 3 y) 3) PASS: (last (quote foo)) ==> error wrong-type-argument, as expected PASS: (last) ==> error wrong-number-of-arguments, as expected PASS: (last (quote (1 2)) 1 1) ==> error wrong-number-of-arguments, as expected PASS: (last (make-circular-list 1)) ==> error circular-list, as expected PASS: (last (make-circular-list 2000)) ==> error circular-list, as expected PASS: (eq (last nil) nil) PASS: (eq (last x 0) nil) PASS: (eq (last x) (cdddr x)) PASS: (eq (last x 1) (cdddr x)) PASS: (eq (last x 2) (cddr x)) PASS: (eq (last x 3) (cdr x)) PASS: (eq (last x 4) x) PASS: (eq (last x 9) x) PASS: (eq (last (quote (1 . 2)) 0) 2) PASS: (butlast (quote foo)) ==> error wrong-type-argument, as expected PASS: (nbutlast (quote foo)) ==> error wrong-type-argument, as expected PASS: (butlast) ==> error wrong-number-of-arguments, as expected PASS: (nbutlast) ==> error wrong-number-of-arguments, as expected PASS: (butlast (quote (1 2)) 1 1) ==> error wrong-number-of-arguments, as expected PASS: (nbutlast (quote (1 2)) 1 1) ==> error wrong-number-of-arguments, as expected PASS: (butlast (make-circular-list 1)) ==> error circular-list, as expected PASS: (nbutlast (make-circular-list 1)) ==> error circular-list, as expected PASS: (butlast (make-circular-list 2000)) ==> error circular-list, as expected PASS: (nbutlast (make-circular-list 2000)) ==> error circular-list, as expected PASS: (eq z x) PASS: (not (eq y x)) PASS: (equal y (quote (0 1 2))) PASS: (equal z y) PASS: (eq z x) PASS: (not (eq y x)) PASS: (equal y (quote (0 1 2))) PASS: (equal z y) PASS: (eq z x) PASS: (not (eq y x)) PASS: (equal y (quote (0 1 2 3))) PASS: (equal z y) PASS: (eq (butlast (quote (x))) nil) PASS: (eq (nbutlast (quote (x))) nil) PASS: (eq (butlast (quote nil)) nil) PASS: (eq (nbutlast (quote nil)) nil) PASS: (copy-list (quote foo)) ==> error wrong-type-argument, as expected PASS: (copy-list) ==> error wrong-number-of-arguments, as expected PASS: (copy-list (quote (1 2)) 1) ==> error wrong-number-of-arguments, as expected PASS: (copy-list (make-circular-list 1)) ==> error circular-list, as expected PASS: (copy-list (make-circular-list 2000)) ==> error circular-list, as expected PASS: (eq (quote nil) (copy-list (quote nil))) PASS: (and (equal x y) (not (eq x y))) PASS: (and (equal x y) (not (eq x y))) PASS: (and (equal x y) (not (eq x y))) PASS: (and (equal x y) (not (eq x y))) PASS: (eq (+ 1 1) 2) PASS: (= (+ 1.0 1.0) 2.0) PASS: (= (+ 1.0 3.0 0.0) 4.0) PASS: (= (+ 1 1.0) 2.0) PASS: (= (+ 1.0 1) 2.0) PASS: (= (+ 1.0 1 1) 3.0) PASS: (= (+ 1 1 1.0) 3.0) PASS: (eq (1+ most-positive-fixnum) most-negative-fixnum) PASS: (eq (+ most-positive-fixnum 1) most-negative-fixnum) PASS: (-) ==> error wrong-number-of-arguments, as expected PASS: (eq (- 0) 0) PASS: (eq (- 1) -1) PASS: (= (+ 1 one) 2) PASS: (= (+ one) 1) PASS: (= (+ one) one) PASS: (= (- one) -1) PASS: (= (- one one) 0) PASS: (= (- one one one) -1) PASS: (= (- 0 one) -1) PASS: (= (- 0 one one) -2) PASS: (= (+ one 1) 2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 one) 2) PASS: (= (+ one) 1) PASS: (= (+ one) one) PASS: (= (- one) -1) PASS: (= (- one one) 0) PASS: (= (- one one one) -1) PASS: (= (- 0 one) -1) PASS: (= (- 0 one one) -2) PASS: (= (+ one 1) 2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 one) 2) PASS: (= (+ one) 1) PASS: (= (+ one) one) PASS: (= (- one) -1) PASS: (= (- one one) 0) PASS: (= (- one one one) -1) PASS: (= (- 0 one) -1) PASS: (= (- 0 one one) -2) PASS: (= (+ one 1) 2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 one) 2) PASS: (= (+ one) 1) PASS: (= (+ one) one) PASS: (= (- one) -1) PASS: (= (- one one) 0) PASS: (= (- one one one) -1) PASS: (= (- 0 one) -1) PASS: (= (- 0 one one) -2) PASS: (= (+ one 1) 2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (+ 1 zero) 1) PASS: (= (+ zero 1) 1) PASS: (= (- zero) zero) PASS: (= (- zero) 0) PASS: (= (- zero zero) 0) PASS: (= (- zero one one) -2) PASS: (= (- 1.5 1) 0.5) PASS: (= (- 1 1.5) (- 0.5)) PASS: (eq (1- most-negative-fixnum) most-positive-fixnum) PASS: (eq (- most-negative-fixnum 1) most-positive-fixnum) PASS: (/ zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/ n1 n2 zero) ==> error arith-error, as expected PASS: (/) ==> error wrong-number-of-arguments, as expected PASS: (= (/ (setq x 2)) 0) PASS: (= (/ (setq x 2.0)) 0.5) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ six two) three) PASS: (= (/ three 2.0) 1.5) PASS: (= (/ three 2.0) 1.5) PASS: (= (/ three 2.0) 1.5) PASS: (= (/ 3.0 two) 1.5) PASS: (= (/ 3.0 two) 1.5) PASS: (= (/ 3.0 two) 1.5) PASS: (= 1 (*)) PASS: (= 1 (* one)) PASS: (= 1 (* one)) PASS: (= 1 (* one)) PASS: (= 1 (* one)) PASS: (= 2 (* two)) PASS: (= 2 (* two)) PASS: (= 2 (* two)) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* three two) six) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= (* 1.5 two) three) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 30 (* five two three)) PASS: (= 0 (+)) PASS: (= 1 (+ one)) PASS: (= 1 (+ one)) PASS: (= 1 (+ one)) PASS: (= 1 (+ one)) PASS: (= 2 (+ two)) PASS: (= 2 (+ two)) PASS: (= 2 (+ two)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= (+ three two) five) PASS: (= 10 (+ five two three)) PASS: (= one (max one)) PASS: (= one (max one one)) PASS: (= one (max one one one)) PASS: (= one (min one)) PASS: (= one (min one one)) PASS: (= one (min one one one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (max one)) PASS: (= one (max one one)) PASS: (= one (max one one one)) PASS: (= one (min one)) PASS: (= one (min one one)) PASS: (= one (min one one one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (max one)) PASS: (= one (max one one)) PASS: (= one (max one one one)) PASS: (= one (min one)) PASS: (= one (min one one)) PASS: (= one (min one one one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (max one)) PASS: (= one (max one one)) PASS: (= one (max one one one)) PASS: (= one (min one)) PASS: (= one (min one one)) PASS: (= one (min one one one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= one (min one two)) PASS: (= one (min one two two)) PASS: (= one (min two two one)) PASS: (= two (max one two)) PASS: (= two (max one two two)) PASS: (= two (max two two one)) PASS: (= (+ three five 1) 9) PASS: (= (+ 1 three five) 9) PASS: (= (+ three five -1) 7) PASS: (= (+ -1 three five) 7) PASS: (= (+ three 1) 4) PASS: (= (+ three -1) 2) PASS: (= (+ -1 three) 2) PASS: (= (+ -1 three) 2) PASS: (= (- three five 1) -3) PASS: (= (- 1 three five) -7) PASS: (= (- three five -1) -1) PASS: (= (- -1 three five) -9) PASS: (= (- three 1) 2) PASS: (= (- three 2 1) 0) PASS: (= (- 2 three 1) -2) PASS: (= (- three -1) 4) PASS: (= (- three 0) 3) PASS: (= (- three 0 five) -2) PASS: (= (- 0 three 0 five) -8) PASS: (= (- 0 three five) -8) PASS: (= (* three 2) 6) PASS: (= (* three -1 five) -15) PASS: (= (* three 1 five) 15) PASS: (= (* three 0 five) 0) PASS: (= (* three 2 five) 30) PASS: (= (/ three 1) 3) PASS: (= (/ three -1) -3) PASS: (= (/ (* five five) 2 2) 6) PASS: (= (/ 64 five 2) 6) PASS: (= (logxor) 0) PASS: (= (logior) 0) PASS: (= (logand) -1) PASS: (logxor 3.0) ==> error wrong-type-argument, as expected PASS: (logior 3.0) ==> error wrong-type-argument, as expected PASS: (logand 3.0) ==> error wrong-type-argument, as expected PASS: (eq 3 (logand three)) PASS: (eq 3 (logxor three)) PASS: (eq 3 (logior three)) PASS: (eq 3 (logand three three)) PASS: (eq 0 (logxor three three)) PASS: (eq 3 (logior three three)) PASS: (eq 3 (logand three)) PASS: (eq 3 (logxor three)) PASS: (eq 3 (logior three)) PASS: (eq 3 (logand three three)) PASS: (eq 0 (logxor three three)) PASS: (eq 3 (logior three three)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 0 (logand one two)) PASS: (eq 3 (logior one two)) PASS: (eq 3 (logxor one two)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (eq 1 (logand one three)) PASS: (eq 3 (logior one three)) PASS: (eq 2 (logxor one three)) PASS: (%) ==> error wrong-number-of-arguments, as expected PASS: (% 1) ==> error wrong-number-of-arguments, as expected PASS: (% 1 2 3) ==> error wrong-number-of-arguments, as expected PASS: (mod) ==> error wrong-number-of-arguments, as expected PASS: (mod 1) ==> error wrong-number-of-arguments, as expected PASS: (mod 1 2 3) ==> error wrong-number-of-arguments, as expected PASS: (% 10.0 2) ==> error wrong-type-argument, as expected PASS: (% 10 2.0) ==> error wrong-type-argument, as expected PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq x (+ (% x 17) (* (/ x 17) 17))) PASS: (eq (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) PASS: (eq (% x -17) (- (% (- x) 17))) PASS: (eq (% 7 2) 1) PASS: (eq (% 7 -2) 1) PASS: (eq (% (- 7) 2) -1) PASS: (eq (% (- 7) -2) -1) PASS: (eq (% 7 4) 3) PASS: (eq (% 7 -4) 3) PASS: (eq (% (- 7) 4) -3) PASS: (eq (% (- 7) -4) -3) PASS: (eq (% 35 7) 0) PASS: (eq (% -35 7) 0) PASS: (eq (% 35 (- 7)) 0) PASS: (eq (% -35 (- 7)) 0) PASS: (eq (mod 7 2) 1) PASS: (eq (mod 7 -2) -1) PASS: (eq (mod (- 7) 2) 1) PASS: (eq (mod (- 7) -2) -1) PASS: (eq (mod 7 4) 3) PASS: (eq (mod 7 -4) -1) PASS: (eq (mod (- 7) 4) 1) PASS: (eq (mod (- 7) -4) -3) PASS: (eq (mod 35 7) 0) PASS: (eq (mod -35 7) 0) PASS: (eq (mod 35 (- 7)) 0) PASS: (eq (mod -35 (- 7)) 0) PASS: (= (mod 7 2.0) 1.0) PASS: (= (mod 7 -2.0) -1.0) PASS: (= (mod (- 7) 2.0) 1.0) PASS: (= (mod (- 7) -2.0) -1.0) PASS: (= (mod 7 4.0) 3.0) PASS: (= (mod 7 -4.0) -1.0) PASS: (= (mod (- 7) 4.0) 1.0) PASS: (= (mod (- 7) -4.0) -3.0) PASS: (eq (% 0 7) 0) PASS: (eq (% 0 (- 7)) 0) PASS: (eq (mod 0 7) 0) PASS: (eq (mod 0 (- 7)) 0) PASS: (= (mod 0.0 7) 0.0) PASS: (= (mod 0.0 (- 7)) 0.0) PASS: (eq (% ?\^G 2) 1) PASS: (eq (% ?\^G -2) 1) PASS: (eq (% (- ?\^G) 2) -1) PASS: (eq (% (- ?\^G) -2) -1) PASS: (eq (% ?\^G 4) 3) PASS: (eq (% ?\^G -4) 3) PASS: (eq (% (- ?\^G) 4) -3) PASS: (eq (% (- ?\^G) -4) -3) PASS: (eq (% 35 ?\^G) 0) PASS: (eq (% -35 ?\^G) 0) PASS: (eq (% 35 (- ?\^G)) 0) PASS: (eq (% -35 (- ?\^G)) 0) PASS: (eq (mod ?\^G 2) 1) PASS: (eq (mod ?\^G -2) -1) PASS: (eq (mod (- ?\^G) 2) 1) PASS: (eq (mod (- ?\^G) -2) -1) PASS: (eq (mod ?\^G 4) 3) PASS: (eq (mod ?\^G -4) -1) PASS: (eq (mod (- ?\^G) 4) 1) PASS: (eq (mod (- ?\^G) -4) -3) PASS: (eq (mod 35 ?\^G) 0) PASS: (eq (mod -35 ?\^G) 0) PASS: (eq (mod 35 (- ?\^G)) 0) PASS: (eq (mod -35 (- ?\^G)) 0) PASS: (= (mod ?\^G 2.0) 1.0) PASS: (= (mod ?\^G -2.0) -1.0) PASS: (= (mod (- ?\^G) 2.0) 1.0) PASS: (= (mod (- ?\^G) -2.0) -1.0) PASS: (= (mod ?\^G 4.0) 3.0) PASS: (= (mod ?\^G -4.0) -1.0) PASS: (= (mod (- ?\^G) 4.0) 1.0) PASS: (= (mod (- ?\^G) -4.0) -3.0) PASS: (eq (% 0 ?\^G) 0) PASS: (eq (% 0 (- ?\^G)) 0) PASS: (eq (mod 0 ?\^G) 0) PASS: (eq (mod 0 (- ?\^G)) 0) PASS: (= (mod 0.0 ?\^G) 0.0) PASS: (= (mod 0.0 (- ?\^G)) 0.0) PASS: (eq (% (Int-to-Marker 7) 2) 1) PASS: (eq (% (Int-to-Marker 7) -2) 1) PASS: (eq (% (- (Int-to-Marker 7)) 2) -1) PASS: (eq (% (- (Int-to-Marker 7)) -2) -1) PASS: (eq (% (Int-to-Marker 7) 4) 3) PASS: (eq (% (Int-to-Marker 7) -4) 3) PASS: (eq (% (- (Int-to-Marker 7)) 4) -3) PASS: (eq (% (- (Int-to-Marker 7)) -4) -3) PASS: (eq (% 35 (Int-to-Marker 7)) 0) PASS: (eq (% -35 (Int-to-Marker 7)) 0) PASS: (eq (% 35 (- (Int-to-Marker 7))) 0) PASS: (eq (% -35 (- (Int-to-Marker 7))) 0) PASS: (eq (mod (Int-to-Marker 7) 2) 1) PASS: (eq (mod (Int-to-Marker 7) -2) -1) PASS: (eq (mod (- (Int-to-Marker 7)) 2) 1) PASS: (eq (mod (- (Int-to-Marker 7)) -2) -1) PASS: (eq (mod (Int-to-Marker 7) 4) 3) PASS: (eq (mod (Int-to-Marker 7) -4) -1) PASS: (eq (mod (- (Int-to-Marker 7)) 4) 1) PASS: (eq (mod (- (Int-to-Marker 7)) -4) -3) PASS: (eq (mod 35 (Int-to-Marker 7)) 0) PASS: (eq (mod -35 (Int-to-Marker 7)) 0) PASS: (eq (mod 35 (- (Int-to-Marker 7))) 0) PASS: (eq (mod -35 (- (Int-to-Marker 7))) 0) PASS: (= (mod (Int-to-Marker 7) 2.0) 1.0) PASS: (= (mod (Int-to-Marker 7) -2.0) -1.0) PASS: (= (mod (- (Int-to-Marker 7)) 2.0) 1.0) PASS: (= (mod (- (Int-to-Marker 7)) -2.0) -1.0) PASS: (= (mod (Int-to-Marker 7) 4.0) 3.0) PASS: (= (mod (Int-to-Marker 7) -4.0) -1.0) PASS: (= (mod (- (Int-to-Marker 7)) 4.0) 1.0) PASS: (= (mod (- (Int-to-Marker 7)) -4.0) -3.0) PASS: (eq (% 0 (Int-to-Marker 7)) 0) PASS: (eq (% 0 (- (Int-to-Marker 7))) 0) PASS: (eq (mod 0 (Int-to-Marker 7)) 0) PASS: (eq (mod 0 (- (Int-to-Marker 7))) 0) PASS: (= (mod 0.0 (Int-to-Marker 7)) 0.0) PASS: (= (mod 0.0 (- (Int-to-Marker 7))) 0.0) PASS: (=) ==> error wrong-number-of-arguments, as expected PASS: (<) ==> error wrong-number-of-arguments, as expected PASS: (>) ==> error wrong-number-of-arguments, as expected PASS: (<=) ==> error wrong-number-of-arguments, as expected PASS: (>=) ==> error wrong-number-of-arguments, as expected PASS: (/=) ==> error wrong-number-of-arguments, as expected PASS: (eq t (= x)) PASS: (eq t (< x)) PASS: (eq t (> x)) PASS: (eq t (>= x)) PASS: (eq t (<= x)) PASS: (eq t (/= x)) PASS: (eq t (= x)) PASS: (eq t (< x)) PASS: (eq t (> x)) PASS: (eq t (>= x)) PASS: (eq t (<= x)) PASS: (eq t (/= x)) PASS: (eq t (= x)) PASS: (eq t (< x)) PASS: (eq t (> x)) PASS: (eq t (>= x)) PASS: (eq t (<= x)) PASS: (eq t (/= x)) PASS: (eq t (= x)) PASS: (eq t (< x)) PASS: (eq t (> x)) PASS: (eq t (>= x)) PASS: (eq t (<= x)) PASS: (eq t (/= x)) PASS: (= (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (<= (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (>= (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (< (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (> (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (/= (quote foo) 1) ==> error wrong-type-argument, as expected PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< one two) PASS: (<= one two) PASS: (<= two two) PASS: (> two one) PASS: (>= two one) PASS: (>= two two) PASS: (/= one two) PASS: (not (/= two two)) PASS: (not (< one one)) PASS: (not (> one one)) PASS: (<= one one two two) PASS: (not (< one one two two)) PASS: (>= two two one one) PASS: (not (> two two one one)) PASS: (= one one one) PASS: (not (= one one one two)) PASS: (not (/= one two one)) PASS: (< 1 2) PASS: (< 1 2 3 4 5 6) PASS: (not (< 1 1)) PASS: (not (< 2 1)) PASS: (not (< 1 1)) PASS: (< 1 2 3 4 5 6) PASS: (<= 1 2 3 4 5 6) PASS: (<= 1 2 3 4 5 6 6) PASS: (not (< 1 2 3 4 5 6 6)) PASS: (<= 1 1) PASS: (not (eq (point) (point-marker))) PASS: (= 1 (Int-to-Marker 1)) PASS: (= (point) (point-marker)) PASS: (member) ==> error wrong-number-of-arguments, as expected PASS: (member nil) ==> error wrong-number-of-arguments, as expected PASS: (member nil 1) ==> error malformed-list, as expected PASS: (member 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (member 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (member 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-member) ==> error wrong-number-of-arguments, as expected PASS: (old-member nil) ==> error wrong-number-of-arguments, as expected PASS: (old-member nil 1) ==> error malformed-list, as expected PASS: (old-member 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-member 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-member 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (memq) ==> error wrong-number-of-arguments, as expected PASS: (memq nil) ==> error wrong-number-of-arguments, as expected PASS: (memq nil 1) ==> error malformed-list, as expected PASS: (memq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (memq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (memq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-memq) ==> error wrong-number-of-arguments, as expected PASS: (old-memq nil) ==> error wrong-number-of-arguments, as expected PASS: (old-memq nil 1) ==> error malformed-list, as expected PASS: (old-memq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-memq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-memq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (assoc) ==> error wrong-number-of-arguments, as expected PASS: (assoc nil) ==> error wrong-number-of-arguments, as expected PASS: (assoc nil 1) ==> error malformed-list, as expected PASS: (assoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (assoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (assoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-assoc) ==> error wrong-number-of-arguments, as expected PASS: (old-assoc nil) ==> error wrong-number-of-arguments, as expected PASS: (old-assoc nil 1) ==> error malformed-list, as expected PASS: (old-assoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-assoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-assoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (rassoc) ==> error wrong-number-of-arguments, as expected PASS: (rassoc nil) ==> error wrong-number-of-arguments, as expected PASS: (rassoc nil 1) ==> error malformed-list, as expected PASS: (rassoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (rassoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (rassoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-rassoc) ==> error wrong-number-of-arguments, as expected PASS: (old-rassoc nil) ==> error wrong-number-of-arguments, as expected PASS: (old-rassoc nil 1) ==> error malformed-list, as expected PASS: (old-rassoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-rassoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-rassoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (rassq) ==> error wrong-number-of-arguments, as expected PASS: (rassq nil) ==> error wrong-number-of-arguments, as expected PASS: (rassq nil 1) ==> error malformed-list, as expected PASS: (rassq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (rassq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (rassq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-rassq) ==> error wrong-number-of-arguments, as expected PASS: (old-rassq nil) ==> error wrong-number-of-arguments, as expected PASS: (old-rassq nil 1) ==> error malformed-list, as expected PASS: (old-rassq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-rassq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-rassq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (delete) ==> error wrong-number-of-arguments, as expected PASS: (delete nil) ==> error wrong-number-of-arguments, as expected PASS: (delete nil 1) ==> error malformed-list, as expected PASS: (delete 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (delete 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (delete 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-delete) ==> error wrong-number-of-arguments, as expected PASS: (old-delete nil) ==> error wrong-number-of-arguments, as expected PASS: (old-delete nil 1) ==> error malformed-list, as expected PASS: (old-delete 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-delete 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-delete 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (delq) ==> error wrong-number-of-arguments, as expected PASS: (delq nil) ==> error wrong-number-of-arguments, as expected PASS: (delq nil 1) ==> error malformed-list, as expected PASS: (delq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (delq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (delq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (old-delq) ==> error wrong-number-of-arguments, as expected PASS: (old-delq nil) ==> error wrong-number-of-arguments, as expected PASS: (old-delq nil 1) ==> error malformed-list, as expected PASS: (old-delq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (old-delq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (old-delq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (remassoc) ==> error wrong-number-of-arguments, as expected PASS: (remassoc nil) ==> error wrong-number-of-arguments, as expected PASS: (remassoc nil 1) ==> error malformed-list, as expected PASS: (remassoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (remassoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (remassoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (remassq) ==> error wrong-number-of-arguments, as expected PASS: (remassq nil) ==> error wrong-number-of-arguments, as expected PASS: (remassq nil 1) ==> error malformed-list, as expected PASS: (remassq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (remassq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (remassq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (remrassoc) ==> error wrong-number-of-arguments, as expected PASS: (remrassoc nil) ==> error wrong-number-of-arguments, as expected PASS: (remrassoc nil 1) ==> error malformed-list, as expected PASS: (remrassoc 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (remrassoc 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (remrassoc 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (remrassq) ==> error wrong-number-of-arguments, as expected PASS: (remrassq nil) ==> error wrong-number-of-arguments, as expected PASS: (remrassq nil 1) ==> error malformed-list, as expected PASS: (remrassq 1 (make-circular-list 1)) ==> error circular-list, as expected PASS: (remrassq 1 (make-circular-list 2)) ==> error circular-list, as expected PASS: (remrassq 1 (make-circular-list 2000)) ==> error circular-list, as expected PASS: (eq (assoc 1 x) (car x)) PASS: (eq (assq 1 x) (car x)) PASS: (eq (rassoc 1 x) nil) PASS: (eq (rassq 1 x) nil) PASS: (eq (assoc 2 x) nil) PASS: (eq (assq 2 x) nil) PASS: (eq (rassoc 2 x) (car x)) PASS: (eq (rassq 2 x) (car x)) PASS: (eq (assoc 3 x) nil) PASS: (eq (assq 3 x) nil) PASS: (eq (rassoc 3 x) nil) PASS: (eq (rassq 3 x) nil) PASS: (eq (assoc 4 x) (caddr x)) PASS: (eq (assq 4 x) (caddr x)) PASS: (eq (rassoc 4 x) nil) PASS: (eq (rassq 4 x) nil) PASS: (eq (assoc 5 x) nil) PASS: (eq (assq 5 x) nil) PASS: (eq (rassoc 5 x) (caddr x)) PASS: (eq (rassq 5 x) (caddr x)) PASS: (eq (assoc 6 x) nil) PASS: (eq (assq 6 x) nil) PASS: (eq (rassoc 6 x) nil) PASS: (eq (rassq 6 x) nil) PASS: (eq (assoc "1" x) (car x)) PASS: (eq (assq "1" x) nil) PASS: (eq (rassoc "1" x) nil) PASS: (eq (rassq "1" x) nil) PASS: (eq (assoc "2" x) nil) PASS: (eq (assq "2" x) nil) PASS: (eq (rassoc "2" x) (car x)) PASS: (eq (rassq "2" x) nil) PASS: (eq (assoc "3" x) nil) PASS: (eq (assq "3" x) nil) PASS: (eq (rassoc "3" x) nil) PASS: (eq (rassq "3" x) nil) PASS: (eq (assoc "4" x) (caddr x)) PASS: (eq (assq "4" x) nil) PASS: (eq (rassoc "4" x) nil) PASS: (eq (rassq "4" x) nil) PASS: (eq (assoc "5" x) nil) PASS: (eq (assq "5" x) nil) PASS: (eq (rassoc "5" x) (caddr x)) PASS: (eq (rassq "5" x) nil) PASS: (eq (assoc "6" x) nil) PASS: (eq (assq "6" x) nil) PASS: (eq (rassoc "6" x) nil) PASS: (eq (rassq "6" x) nil) PASS: (let* ((x (a)) (y (remassoc 1 x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (remassq 1 x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (remrassoc 1 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq 1 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc 2 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq 2 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc 2 x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (remrassq 2 x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (remassoc 3 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq 3 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc 3 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq 3 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc 4 x))) (and (eq x y) (equal y (quote ((1 . 2) 3))))) PASS: (let* ((x (a)) (y (remassq 4 x))) (and (eq x y) (equal y (quote ((1 . 2) 3))))) PASS: (let* ((x (a)) (y (remrassoc 4 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq 4 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc 5 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq 5 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc 5 x))) (and (eq x y) (equal y (quote ((1 . 2) 3))))) PASS: (let* ((x (a)) (y (remrassq 5 x))) (and (eq x y) (equal y (quote ((1 . 2) 3))))) PASS: (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq 6 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc 6 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq 6 x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (delete 3 x))) (and (eq x y) (equal y (quote ((1 . 2) (4 . 5)))))) PASS: (let* ((x (a)) (y (delq 3 x))) (and (eq x y) (equal y (quote ((1 . 2) (4 . 5)))))) PASS: (let* ((x (a)) (y (old-delete 3 x))) (and (eq x y) (equal y (quote ((1 . 2) (4 . 5)))))) PASS: (let* ((x (a)) (y (old-delq 3 x))) (and (eq x y) (equal y (quote ((1 . 2) (4 . 5)))))) PASS: (let* ((x (a)) (y (delete (quote (1 . 2)) x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (delq (quote (1 . 2)) x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (old-delete (quote (1 . 2)) x))) (and (not (eq x y)) (equal y (quote (3 (4 . 5)))))) PASS: (let* ((x (a)) (y (old-delq (quote (1 . 2)) x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "1" x))) (and (not (eq x y)) (equal y (quote ("3" ("4" . "5")))))) PASS: (let* ((x (a)) (y (remassq "1" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "1" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq "1" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "2" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq "2" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "2" x))) (and (not (eq x y)) (equal y (quote ("3" ("4" . "5")))))) PASS: (let* ((x (a)) (y (remrassq "2" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "3" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq "3" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "3" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq "3" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "4" x))) (and (eq x y) (equal y (quote (("1" . "2") "3"))))) PASS: (let* ((x (a)) (y (remassq "4" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "4" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq "4" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "5" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq "5" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "5" x))) (and (eq x y) (equal y (quote (("1" . "2") "3"))))) PASS: (let* ((x (a)) (y (remrassq "5" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassoc "6" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remassq "6" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassoc "6" x))) (and (eq x y) (equal y (a)))) PASS: (let* ((x (a)) (y (remrassq "6" x))) (and (eq x y) (equal y (a)))) PASS: (eq (function-min-args (quote prog1)) 1) PASS: (eq (function-max-args (quote prog1)) nil) PASS: (eq (function-min-args (quote command-execute)) 1) PASS: (eq (function-max-args (quote command-execute)) 3) PASS: (eq (function-min-args (quote funcall)) 1) PASS: (eq (function-max-args (quote funcall)) nil) PASS: (eq (function-min-args (quote garbage-collect)) 0) PASS: (eq (function-max-args (quote garbage-collect)) 0) PASS: (eq (function-min-args (quote (lambda (arg1 arg2 &rest args) nil))) 2) PASS: (eq (function-max-args (quote (lambda (arg1 arg2 &rest args) nil))) nil) PASS: (eq (function-min-args (byte-compile (quote (lambda (arg1 arg2 &rest args) nil)))) 2) PASS: (eq (function-max-args (byte-compile (quote (lambda (arg1 arg2 &rest args) nil)))) nil) PASS: (eq (function-min-args (quote (lambda (arg1 arg2 &optional arg3 arg4) nil))) 2) PASS: (eq (function-max-args (quote (lambda (arg1 arg2 &optional arg3 arg4) nil))) 4) PASS: (eq (function-min-args (byte-compile (quote (lambda (arg1 arg2 &optional arg3 arg4) nil)))) 2) PASS: (eq (function-max-args (byte-compile (quote (lambda (arg1 arg2 &optional arg3 arg4) nil)))) 4) PASS: (eq (function-min-args (quote (lambda (arg1 arg2 &optional arg3 arg4 &rest args) nil))) 2) PASS: (eq (function-max-args (quote (lambda (arg1 arg2 &optional arg3 arg4 &rest args) nil))) nil) PASS: (eq (function-min-args (byte-compile (quote (lambda (arg1 arg2 &optional arg3 arg4 &rest args) nil)))) 2) PASS: (eq (function-max-args (byte-compile (quote (lambda (arg1 arg2 &optional arg3 arg4 &rest args) nil)))) nil) PASS: (eq (function-min-args (quote (lambda nil nil))) 0) PASS: (eq (function-max-args (quote (lambda nil nil))) 0) PASS: (eq (function-min-args (byte-compile (quote (lambda nil nil)))) 0) PASS: (eq (function-max-args (byte-compile (quote (lambda nil nil)))) 0) PASS: (test-sym1) ==> error cyclic-function-indirection, as expected PASS: (test-sym1) ==> error cyclic-function-indirection, as expected PASS: (eq (type-of load-path) (quote cons)) PASS: (eq (type-of obarray) (quote vector)) PASS: (eq (type-of 42) (quote integer)) PASS: (eq (type-of ?z) (quote character)) PASS: (eq (type-of "42") (quote string)) PASS: (eq (type-of (quote foo)) (quote symbol)) PASS: (eq (type-of (selected-device)) (quote device)) PASS: (mapcar (function identity) (current-buffer)) ==> error wrong-type-argument, as expected PASS: (equal (mapcar (function identity) load-path) load-path) PASS: (equal (mapcar (function identity) (quote (1 2 3))) (quote (1 2 3))) PASS: (equal (mapcar (function identity) "123") (quote (?1 ?2 ?3))) PASS: (equal (mapcar (function identity) [1 2 3]) (quote (1 2 3))) PASS: (equal (mapcar (function identity) #*010) (quote (0 1 0))) PASS: (eq 1000 z) PASS: (mapvector (function identity) (current-buffer)) ==> error wrong-type-argument, as expected PASS: (equal (mapvector (function identity) (quote (1 2 3))) [1 2 3]) PASS: (equal (mapvector (function identity) "123") [?1 ?2 ?3]) PASS: (equal (mapvector (function identity) [1 2 3]) [1 2 3]) PASS: (equal (mapvector (function identity) #*010) [0 1 0]) PASS: (mapconcat (function identity) (current-buffer) "foo") ==> error wrong-type-argument, as expected PASS: (equal (mapconcat (function identity) (quote ("1" "2" "3")) "|") "1|2|3") PASS: (equal (mapconcat (function identity) ["1" "2" "3"] "|") "1|2|3") PASS: (let ((x (list (cons 1 1) (cons 2 2) (cons 3 3)))) (mapcar (lambda (y) "Devious evil mapping function" (when (eq (car y) 2) (setcdr x nil) (garbage-collect)) (car y)) x)) PASS: (let ((x (list (cons 1 1) (cons 2 2) (cons 3 3)))) (mapcar (lambda (y) "Devious evil mapping function" (when (eq (car y) 1) (setcdr (cdr x) 42)) (car y)) x)) PASS: (equal [1 2 3] [1 2 3]) PASS: (equal [] []) PASS: (not (equal [1 2 3] [])) PASS: (not (equal [1 2 3] [1 2 4])) PASS: (not (equal [0 2 3] [1 2 3])) PASS: (not (equal [1 2 3] [1 2 3 4])) PASS: (not (equal [1 2 3 4] [1 2 3])) PASS: (equal (vector 1 2 3) [1 2 3]) PASS: (equal (make-vector 3 1) [1 1 1]) PASS: (equal #*010 #*010) PASS: (equal #* #*) PASS: (not (equal #*010 #*011)) PASS: (not (equal #*010 #*)) PASS: (not (equal #*110 #*010)) PASS: (not (equal #*010 #*0100)) PASS: (not (equal #*0101 #*010)) PASS: (equal (bit-vector 0 1 0) #*010) PASS: (equal (make-bit-vector 3 1) #*111) PASS: (equal (make-bit-vector 3 0) #*000) PASS: (equal (split-string "foo,bar" ",") (quote ("foo" "bar"))) PASS: (equal (split-string ",foo,bar," ",") (quote ("" "foo" "bar" ""))) PASS: (equal (split-string ",foo,bar," "^,") (quote ("" "foo,bar,"))) PASS: (equal (split-string ",foo,bar," ",$") (quote (",foo,bar" ""))) PASS: (equal (split-string ",foo,,bar," ",") (quote ("" "foo" "" "bar" ""))) PASS: (equal (split-string "foo,,,bar" ",") (quote ("foo" "" "" "bar"))) PASS: (equal (split-string "foo,,bar,," ",") (quote ("foo" "" "bar" "" ""))) PASS: (equal (split-string "foo,,bar" ",+") (quote ("foo" "bar"))) PASS: (equal (split-string ",foo,,bar," ",+") (quote ("" "foo" "bar" ""))) PASS: (not (string-match "\\(\\.\\=\\)" ".")) PASS: (string= "" (let ((str "test string")) (if (string-match "^.*$" str) (replace-match "\\U" t nil str)))) PASS: (and (bobp) (eobp)) PASS: (eq (char-before) nil) PASS: (eq (char-before (point)) nil) PASS: (eq (char-before (point-marker)) nil) PASS: (eq (char-before (point) (current-buffer)) nil) PASS: (eq (char-before (point-marker) (current-buffer)) nil) PASS: (eq (char-after) nil) PASS: (eq (char-after (point)) nil) PASS: (eq (char-after (point-marker)) nil) PASS: (eq (char-after (point) (current-buffer)) nil) PASS: (eq (char-after (point-marker) (current-buffer)) nil) PASS: (eq (preceding-char) 0) PASS: (eq (preceding-char (current-buffer)) 0) PASS: (eq (following-char) 0) PASS: (eq (following-char (current-buffer)) 0) PASS: (eq (char-before) ?r) PASS: (eq (char-after) nil) PASS: (eq (preceding-char) ?r) PASS: (eq (following-char) 0) PASS: (eq (char-before) nil) PASS: (eq (char-after) ?f) PASS: (eq (preceding-char) 0) PASS: (eq (following-char) ?f) PASS: (eq t (get* sym t t)) PASS: (eq t (get sym t t)) PASS: (eq t (getf nil t t)) PASS: (eq t (plist-get nil t t)) PASS: (eq (quote baz) (get sym (quote bar))) PASS: (eq (quote baz) (getf (quote (bar baz)) (quote bar))) PASS: (eq (quote baz) (getf (symbol-plist sym) (quote bar))) PASS: (eq 2 (getf (quote (1 2)) 1)) PASS: (eq 4 (put sym 3 4)) PASS: (eq 4 (get sym 3)) PASS: (eq t (remprop sym 3)) PASS: (eq nil (remprop sym 3)) PASS: (eq 5 (get sym 3 5)) PASS: (eq 2 (get obj ?1 2)) PASS: (eq 4 (put obj ?3 4)) PASS: (eq 4 (get obj ?3)) PASS: (equal (quote (?3 4)) (object-plist obj)) PASS: (eq t (remprop obj ?3)) PASS: (eq (quote nil) (object-plist obj)) PASS: (eq nil (remprop obj ?3)) PASS: (eq (quote nil) (object-plist obj)) PASS: (eq 5 (get obj ?3 5)) PASS: (eq 2 (get obj ?1 2)) PASS: (eq 4 (put obj ?3 4)) PASS: (eq 4 (get obj ?3)) PASS: (equal (quote (?3 4)) (object-plist obj)) PASS: (eq t (remprop obj ?3)) PASS: (eq (quote nil) (object-plist obj)) PASS: (eq nil (remprop obj ?3)) PASS: (eq (quote nil) (object-plist obj)) PASS: (eq 5 (get obj ?3 5)) PASS: (eq 2 (get obj ?1 2)) PASS: (eq 4 (put obj ?3 4)) PASS: (eq 4 (get obj ?3)) PASS: (eq t (remprop obj ?3)) PASS: (eq nil (remprop obj ?3)) PASS: (eq 5 (get obj ?3 5)) PASS: (eq 2 (get obj ?1 2)) PASS: (eq 4 (put obj ?3 4)) PASS: (eq 4 (get obj ?3)) PASS: (eq t (remprop obj ?3)) PASS: (eq nil (remprop obj ?3)) PASS: (eq 5 (get obj ?3 5)) PASS: (get 2 (quote property)) ==> error "Object type has no properties" error, as expected PASS: (put (current-buffer) (quote property) (quote value)) ==> error "Object type has no settable properties" error, as expected PASS: (remprop ?3 (quote property)) ==> error "Object type has no removable properties" error, as expected PASS: (object-plist (symbol-function (quote car))) ==> error "Object type has no properties" error, as expected PASS: (remprop (make-extent nil nil nil) (quote detachable)) ==> error "Can't remove property from object" error, as expected PASS: (equal (subseq nil 0) nil) PASS: (equal (subseq [1 2 3] 0) [1 2 3]) PASS: (equal (subseq [1 2 3] 1 -1) [2]) PASS: (equal (subseq "123" 0) "123") PASS: (equal (subseq "1234" -3 -1) "23") PASS: (equal (subseq #*0011 0) #*0011) PASS: (equal (subseq #*0011 -3 3) #*01) PASS: (equal (subseq (quote (1 2 3)) 0) (quote (1 2 3))) PASS: (equal (subseq (quote (1 2 3 4)) -3 nil) (quote (2 3 4))) PASS: (subseq 3 2) ==> error wrong-type-argument, as expected PASS: (subseq [1 2 3] -42) ==> error args-out-of-range, as expected PASS: (subseq [1 2 3] 0 42) ==> error args-out-of-range, as expected PASS: (= (length (current-time-string)) 24) PASS: (string= (format "%d" 10) "10") PASS: (string= (format "%o" 8) "10") PASS: (string= (format "%x" 31) "1f") PASS: (string= (format "%X" 31) "1F") FAIL: Assertion failed: (string= (format "%e" 100) "1.000000e+02") FAIL: Assertion failed: (string= (format "%E" 100) "1.000000E+02") PASS: (string= (format "%f" 100) "100.000000") PASS: (string= (format "%7.3f" 12.12345) " 12.123") PASS: (string= (format "%07.3f" 12.12345) "012.123") PASS: (string= (format "%-7.3f" 12.12345) "12.123 ") PASS: (string= (format "%-07.3f" 12.12345) "12.123 ") PASS: (string= (format "%g" 100.0) "100") FAIL: Assertion failed: (string= (format "%g" 1e-006) "1e-06") PASS: (string= (format "%g" 0.0001) "0.0001") PASS: (string= (format "%G" 100.0) "100") FAIL: Assertion failed: (string= (format "%G" 1e-006) "1E-06") PASS: (string= (format "%G" 0.0001) "0.0001") PASS: (string= (format "%2$d%1$d" 10 20) "2010") PASS: (string= (format "%-d" 10) "10") PASS: (string= (format "%-4d" 10) "10 ") PASS: (string= (format "%+d" 10) "+10") PASS: (string= (format "%+d" -10) "-10") PASS: (string= (format "%+4d" 10) " +10") PASS: (string= (format "%+4d" -10) " -10") PASS: (string= (format "% d" 10) " 10") PASS: (string= (format "% d" -10) "-10") PASS: (string= (format "% 4d" 10) " 10") PASS: (string= (format "% 4d" -10) " -10") PASS: (string= (format "%0d" 10) "10") PASS: (string= (format "%0d" -10) "-10") PASS: (string= (format "%04d" 10) "0010") PASS: (string= (format "%04d" -10) "-010") PASS: (string= (format "%*d" 4 10) " 10") PASS: (string= (format "%*d" 4 -10) " -10") PASS: (string= (format "%*d" -4 10) "10 ") PASS: (string= (format "%*d" -4 -10) "-10 ") PASS: (string= (format "%#d" 10) "10") PASS: (string= (format "%#o" 8) "010") PASS: (string= (format "%#x" 16) "0x10") FAIL: Assertion failed: (string= (format "%#e" 100) "1.000000e+02") FAIL: Assertion failed: (string= (format "%#E" 100) "1.000000E+02") PASS: (string= (format "%#f" 100) "100.000000") PASS: (string= (format "%#g" 100.0) "100.000") FAIL: Assertion failed: (string= (format "%#g" 1e-006) "1.00000e-06") PASS: (string= (format "%#g" 0.0001) "0.000100000") PASS: (string= (format "%#G" 100.0) "100.000") FAIL: Assertion failed: (string= (format "%#G" 1e-006) "1.00000E-06") PASS: (string= (format "%#G" 0.0001) "0.000100000") PASS: (string= (format "%.1d" 10) "10") PASS: (string= (format "%.4d" 10) "0010") PASS: (string= (format "%-04d" 10) "10 ") PASS: (string= (format "%-*d" 4 10) "10 ") PASS: (string= (format "%-*d" -4 10) "10 ") PASS: (string= (format "%01.1d" 10) "10") PASS: (string= (format "%03.1d" 10) " 10") PASS: (string= (format "%01.3d" 10) "010") PASS: (string= (format "%1.3d" 10) "010") PASS: (string= (format "%3.1d" 10) " 10") PASS: (= 102 (length (format "%.100f" 3.14))) PASS: (= 100 (length (format "%100f" 3.14))) PASS: (= (read (format "%d" most-positive-fixnum)) most-positive-fixnum) PASS: (= (read (format "%ld" most-positive-fixnum)) most-positive-fixnum) PASS: (= (read (format "%u" most-positive-fixnum)) most-positive-fixnum) PASS: (= (read (format "%lu" most-positive-fixnum)) most-positive-fixnum) PASS: (= (read (format "%d" most-negative-fixnum)) most-negative-fixnum) PASS: (= (read (format "%ld" most-negative-fixnum)) most-negative-fixnum) PASS: (read (format "%u" most-negative-fixnum)) ==> error invalid-read-syntax, as expected PASS: (read (format "%u" -1)) ==> error invalid-read-syntax, as expected PASS: (not (all-completions "" (quote ((" hidden" . "object"))))) PASS: (all-completions " " (quote ((" hidden" . "object")))) SUMMARY: 3588 passes 16 assertion failures 0 errors that should have been generated, but weren't 0 wrong-error failures 0 missing-message failures 0 other failures