/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26