Parent Directory | Revision Log | Patch
revision 1.22 by pfdietz, Mon Jun 13 13:01:35 2005 UTC | revision 1.23 by pfdietz, Mon Jun 13 14:24:44 2005 UTC | |
---|---|---|
# | Line 428 | Line 428 |
428 | ||
429 | ;;; Constant folding test | ;;; Constant folding test |
430 | ||
431 | (deftest map.fold.1 | (def-fold-test map.fold.1 (map 'vector #'identity '(a b c))) |
(let ((f (compile nil '(lambda () (declare (optimize speed (safety 0))) | ||
(map 'vector #'identity '(a b c)))))) | ||
(let ((v (funcall f))) | ||
(setf (aref v 0) nil) | ||
(values v (funcall f)))) | ||
#(nil b c) | ||
#(a b c)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |