80 |
("abcde" "abcdE")) |
("abcde" "abcdE")) |
81 |
"abcde") |
"abcde") |
82 |
|
|
83 |
|
(deftest string-upcase.order.1 |
84 |
|
(let ((i 0) a b c (s (copy-seq "abcdef"))) |
85 |
|
(values |
86 |
|
(string-upcase |
87 |
|
(progn (setf a (incf i)) s) |
88 |
|
:start (progn (setf b (incf i)) 1) |
89 |
|
:end (progn (setf c (incf i)) 4)) |
90 |
|
i a b c)) |
91 |
|
"aBCDef" 3 1 2 3) |
92 |
|
|
93 |
|
(deftest string-upcase.order.2 |
94 |
|
(let ((i 0) a b c (s (copy-seq "abcdef"))) |
95 |
|
(values |
96 |
|
(string-upcase |
97 |
|
(progn (setf a (incf i)) s) |
98 |
|
:end (progn (setf b (incf i)) 4) |
99 |
|
:start (progn (setf c (incf i)) 1)) |
100 |
|
i a b c)) |
101 |
|
"aBCDef" 3 1 2 3) |
102 |
|
|
103 |
|
|
104 |
;;; Error cases |
;;; Error cases |
105 |
|
|