Parent Directory | Revision Log | Patch
revision 1.122 by pfdietz, Fri May 6 13:34:41 2005 UTC | revision 1.123 by pfdietz, Mon Jun 13 14:24:44 2005 UTC | |
---|---|---|
# | Line 1155 the condition to go uncaught if it canno | Line 1155 the condition to go uncaught if it canno |
1155 | (string x)) | (string x)) |
1156 | t) | t) |
1157 | (type-error () nil)))) | (type-error () nil)))) |
1158 | ||
1159 | (defmacro def-fold-test (name form) | |
1160 | "Create a test that FORM, which should produce a fresh value, | |
1161 | does not improperly introduce sharing during constant folding." | |
1162 | `(deftest ,name | |
1163 | (flet ((%f () (declare (optimize (speed 3) (safety 0) (space 0) | |
1164 | (compilation-speed 0) (debug 0))) | |
1165 | ,form)) | |
1166 | (eq (%f) (%f))) | |
1167 | nil)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |