168 |
|
|
169 |
;;; Constant folding tests |
;;; Constant folding tests |
170 |
|
|
171 |
(deftest reverse.fold.1 |
(def-fold-test reverse.fold.1 (reverse '(a b c))) |
172 |
(flet ((%f () (reverse '(a b c)))) |
(def-fold-test reverse.fold.2 (reverse #(a b c))) |
173 |
(values |
(def-fold-test reverse.fold.3 (reverse #*00111101011011)) |
174 |
(%f) |
(def-fold-test reverse.fold.4 (reverse "abcdefgh")) |
|
(let ((seq (%f))) (setf (elt seq 0) 'z) seq) |
|
|
(%f))) |
|
|
(c b a) |
|
|
(z b a) |
|
|
(c b a)) |
|
|
|
|
|
(deftest reverse.fold.2 |
|
|
(flet ((%f () (reverse #(a b c)))) |
|
|
(values |
|
|
(%f) |
|
|
(let ((seq (%f))) (setf (elt seq 0) 'z) seq) |
|
|
(%f))) |
|
|
#(c b a) |
|
|
#(z b a) |
|
|
#(c b a)) |
|
175 |
|
|
176 |
;;; Error cases |
;;; Error cases |
177 |
|
|