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

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

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

revision 1.6 by pfdietz, Tue Jul 1 02:08:54 2003 UTC revision 1.7 by pfdietz, Thu Jul 3 12:14:04 2003 UTC
# Line 67  Line 67 
67                  t))                  t))
68       (deftest ,(make-def-cond-name name "HANDLER-CASE-1")       (deftest ,(make-def-cond-name name "HANDLER-CASE-1")
69         (let ((c (make-condition ',name-symbol)))         (let ((c (make-condition ',name-symbol)))
70           (handler-case (signal c)           (handler-case (normally (signal c))
71                         (,name-symbol (c1) (eqt c c1))))                         (,name-symbol (c1) (eqt c c1))))
72         t)         t)
73       (deftest ,(make-def-cond-name name "HANDLER-CASE-2")       (deftest ,(make-def-cond-name name "HANDLER-CASE-2")
74         (let ((c (make-condition ',name-symbol)))         (let ((c (make-condition ',name-symbol)))
75           (handler-case (signal c)           (handler-case (normally (signal c))
76                         (condition (c1) (eqt c c1))))                         (condition (c1) (eqt c c1))))
77         t)         t)
78       ,@(unless (some #'(lambda (ct) (subtypep ct 'error)) parents)       ,@(unless (some #'(lambda (ct) (subtypep ct 'error)) parents)
79           `((deftest ,(make-def-cond-name name "HANDLER-CASE-3")           `((deftest ,(make-def-cond-name name "HANDLER-CASE-3")
80               (let ((c (make-condition ',name-symbol)))               (let ((c (make-condition ',name-symbol)))
81                 (handler-case (signal c)                 (handler-case (normally (signal c))
82                               (error () nil)                               (error () nil)
83                               (,name-symbol (c2) (eqt c c2))))                               (,name-symbol (c2) (eqt c c2))))
84               t)))               t)))
85       )))       )))
   
   
   

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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