54 |
(delete-duplicates (list 'a 'b 'c 'd 'a 'e 'f 'd 'g) :test-not #'eql |
(delete-duplicates (list 'a 'b 'c 'd 'a 'e 'f 'd 'g) :test-not #'eql |
55 |
:test #'eql)) |
:test #'eql)) |
56 |
|
|
57 |
|
;;; Const fold tests |
58 |
|
|
59 |
|
(deftest remove-duplicates.fold.1 |
60 |
|
(flet ((%f () (remove-duplicates '(1 2 3 3)))) |
61 |
|
(values (%f) (let ((seq (%f))) (setf (elt seq 0) 0) seq) (%f))) |
62 |
|
(1 2 3) (0 2 3) (1 2 3)) |
63 |
|
|
64 |
|
(deftest remove-duplicates.fold.2 |
65 |
|
(flet ((%f () (remove-duplicates #(1 2 3 3)))) |
66 |
|
(values (%f) (let ((seq (%f))) (setf (elt seq 0) 0) seq) (%f))) |
67 |
|
#(1 2 3) #(0 2 3) #(1 2 3)) |
68 |
|
|
69 |
|
(deftest remove-duplicates.fold.3 |
70 |
|
(flet ((%f () (remove-duplicates #*0011))) |
71 |
|
(values (%f) (let ((seq (%f))) (setf (elt seq 0) 1) seq) (%f))) |
72 |
|
#*01 #*11 #*01) |
73 |
|
|
74 |
|
(deftest remove-duplicates.fold.4 |
75 |
|
(flet ((%f () (remove-duplicates "1233"))) |
76 |
|
(values (%f) (let ((seq (%f))) (setf (elt seq 0) #\0) seq) (%f))) |
77 |
|
"123" "023" "123") |
78 |
|
|
79 |
;;; Order of evaluation tests |
;;; Order of evaluation tests |
80 |
|
|