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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pfdietz, Tue Mar 4 14:14:31 2003 UTC revision 1.5 by pfdietz, Sun Apr 20 22:59:25 2003 UTC
# Line 70  Line 70 
70       (return 'good)))       (return 'good)))
71    good)    good)
72    
73    (deftest etypecase.error.1
74      (classify-error (funcall (macro-function 'etypecase)))
75      program-error)
76    
77    (deftest etypecase.error.2
78      (classify-error (funcall (macro-function 'etypecase)
79                               '(etypecase t)))
80      program-error)
81    
82    (deftest etypecase.error.3
83      (classify-error (funcall (macro-function 'etypecase)
84                               '(etypecase t)
85                               nil nil))
86      program-error)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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