/[gcl]/gcl/ansi-tests/handler-case.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/handler-case.lsp

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

revision 1.3 by pfdietz, Mon Mar 3 02:47:59 2003 UTC revision 1.4 by pfdietz, Mon Mar 3 13:42:19 2003 UTC
# Line 50  Line 50 
50    (handler-case 'foo (condition () 'bar))    (handler-case 'foo (condition () 'bar))
51    foo)    foo)
52    
53  (deftest handler-case.8  ;;; (deftest handler-case.8
54    (handler-case 'foo (t () 'bar))  ;;;  (handler-case 'foo (t () 'bar))
55    foo)  ;;;  foo)
56    
57  (deftest handler-case.9  (deftest handler-case.9
58    (handler-case (values 1 2 3 4 5 6 7 8) (condition () nil))    (handler-case (values 1 2 3 4 5 6 7 8) (condition () nil))
59    1 2 3 4 5 6 7 8)    1 2 3 4 5 6 7 8)
60    
61  (deftest handler-case.10  ;;; (deftest handler-case.10
62    (handler-case  ;;;  (handler-case
63     (error "foo")  ;;;   (error "foo")
64     (t () 'good))  ;;;   (t () 'good))
65    good)  ;;;  good)
66    
67  (deftest handler-case.11  (deftest handler-case.11
68    (labels ((%f () (declare (special *c*))    (labels ((%f () (declare (special *c*))
# Line 82  Line 82 
82  (deftest handler-case.12  (deftest handler-case.12
83    (handler-case (error "foo")    (handler-case (error "foo")
84                  (nil () nil)                  (nil () nil)
85                  (t (c) (notnot-mv (typep c 'simple-error))))                  (error (c) (notnot-mv (typep c 'simple-error))))
86    t)    t)
87    
88  (deftest handler-case.13  (deftest handler-case.13

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

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