Parent Directory | Revision Log | Patch
revision 1.57 by pfdietz, Tue Nov 18 05:06:18 2003 UTC | revision 1.58 by pfdietz, Tue Nov 18 13:48:43 2003 UTC | |
---|---|---|
# | Line 3185 | Line 3185 |
3185 | 0 0 0) | 0 0 0) |
3186 | 0) | 0) |
3187 | ||
3188 | ;;; acl 6.2 (trial, x86) | |
3189 | ;;; Returns incorrect value | |
3190 | ||
3191 | (deftest misc.192 | |
3192 | (funcall | |
3193 | (compile | |
3194 | nil | |
3195 | '(lambda (a b) | |
3196 | (declare (optimize (speed 3))) | |
3197 | (declare (optimize (safety 1))) | |
3198 | (declare (optimize (debug 1))) | |
3199 | (flet ((%f8 (f8-1 f8-2 f8-3) f8-2)) | |
3200 | (catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a))))))) | |
3201 | 1 2) | |
3202 | 2) | |
3203 | ||
3204 | ||
3205 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |