Parent Directory | Revision Log | Patch
revision 1.50 by pfdietz, Sun Feb 23 17:11:13 2003 UTC | revision 1.51 by pfdietz, Tue Feb 25 04:59:10 2003 UTC | |
---|---|---|
# | Line 1407 the condition to go uncaught if it canno | Line 1407 the condition to go uncaught if it canno |
1407 | (and (typep c 'simple-error) | (and (typep c 'simple-error) |
1408 | (apply #'frob-simple-condition c expected-fmt expected-args))) | (apply #'frob-simple-condition c expected-fmt expected-args))) |
1409 | ||
1410 | (defun frob-simple-warning (c expected-fmt &rest expected-args) | |
1411 | (and (typep c 'simple-warning) | |
1412 | (apply #'frob-simple-condition c expected-fmt expected-args))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |