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

Diff of /gcl/ansi-tests/make-condition.lsp

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

revision 1.1 by pfdietz, Fri Jun 24 00:03:14 2005 UTC revision 1.2 by pfdietz, Fri Jun 24 00:09:07 2005 UTC
# Line 28  Line 28 
28  (deftest make-condition.3  (deftest make-condition.3
29    (let* ((tp '(or program-error type-error))    (let* ((tp '(or program-error type-error))
30           (c (make-condition tp)))           (c (make-condition tp)))
31      (notnot-mv (typep c tp)))      (or (not (and (subtypep tp condition)
32                      (or (subtypep 'program-error tp)
33                          (subtypep 'type-error tp))))
34            (notnot-mv (typep c tp))))
35    t)    t)
36    
37  (deftest make-condition.4  (deftest make-condition.4
38    (let* ((tp '(and simple-error type-error))    (let* ((tp '(and simple-error type-error))
39           (c (make-condition tp)))           (c (make-condition tp)))
40      (notnot-mv (typep c tp)))      (or (not (and (subtypep 'simple-error tp)
41                      (subtypep 'type-error tp)
42                      (subtypep tp 'condition)))
43            (notnot-mv (typep c tp))))
44    t)    t)
45    
46  ;;; Error tests  ;;; Error tests

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