56 |
|
|
57 |
;;; Const fold tests |
;;; Const fold tests |
58 |
|
|
59 |
(deftest remove-duplicates.fold.1 |
(def-fold-test remove-duplicates.fold.1 (remove-duplicates '(1 2 3 3))) |
60 |
(flet ((%f () (remove-duplicates '(1 2 3 3)))) |
(def-fold-test remove-duplicates.fold.2 (remove-duplicates #(1 2 3 3))) |
61 |
(values (%f) (let ((seq (%f))) (setf (elt seq 0) 0) seq) (%f))) |
(def-fold-test remove-duplicates.fold.3 (remove-duplicates #*0011)) |
62 |
(1 2 3) (0 2 3) (1 2 3)) |
(def-fold-test remove-duplicates.fold.4 (remove-duplicates "1233")) |
|
|
|
|
(deftest remove-duplicates.fold.2 |
|
|
(flet ((%f () (remove-duplicates #(1 2 3 3)))) |
|
|
(values (%f) (let ((seq (%f))) (setf (elt seq 0) 0) seq) (%f))) |
|
|
#(1 2 3) #(0 2 3) #(1 2 3)) |
|
|
|
|
|
(deftest remove-duplicates.fold.3 |
|
|
(flet ((%f () (remove-duplicates #*0011))) |
|
|
(values (%f) (let ((seq (%f))) (setf (elt seq 0) 1) seq) (%f))) |
|
|
#*01 #*11 #*01) |
|
|
|
|
|
(deftest remove-duplicates.fold.4 |
|
|
(flet ((%f () (remove-duplicates "1233"))) |
|
|
(values (%f) (let ((seq (%f))) (setf (elt seq 0) #\0) seq) (%f))) |
|
|
"123" "023" "123") |
|
63 |
|
|
64 |
;;; Order of evaluation tests |
;;; Order of evaluation tests |
65 |
|
|