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

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

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

revision 1.1 by pfdietz, Sat Mar 1 19:29:29 2003 UTC revision 1.2 by pfdietz, Sun Mar 2 14:25:07 2003 UTC
# Line 89  Line 89 
89        (error "an error"))))        (error "an error"))))
90    good)    good)
91    
92    (deftest handler-bind.13
93      (handler-bind
94       ((error #'(lambda (c) (declare (ignore c))
95                   (throw 'done 'good))))
96       (catch 'done
97         (error "an error")))
98      good)
99    
100    (deftest handler-bind.14
101      (catch 'done
102        (handler-bind
103         ((symbol #'identity)  ;; can never succeed
104          (error #'(lambda (c) (declare (ignore c))
105                     (throw 'done 'good))))
106         (error "an error")))
107      good)
108    
109    (deftest handler-bind.15
110      (catch 'done
111        (handler-bind
112         ((t #'(lambda (c) (declare (ignore c))
113                 (throw 'done 'good))))
114         (error "an error")))
115      good)
116    
117    (deftest handler-bind.16
118      (catch 'done
119        (handler-bind
120         (((not error) #'identity)
121          (error
122           #'(lambda (c) (declare (ignore c))
123               (throw 'done 'good))))
124         (error "an error")))
125      good)
126    
127    (deftest handler-bind.17
128      (catch 'done
129        (handler-bind
130         ((#.(find-class 'error)
131             #'(lambda (c) (declare (ignore c))
132                 (throw 'done 'good))))
133         (error "an error")))
134      good)
135    
136  ;;; More handler-bind tests elsewhere  ;;; More handler-bind tests elsewhere
137    
138    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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