Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Fri Jun 24 00:09:07 2005 UTC | revision 1.3 by pfdietz, Wed Aug 10 01:05:46 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 | (or (not (and (subtypep tp condition) | (or (not (and (subtypep tp 'condition) |
32 | (or (subtypep 'program-error tp) | (or (subtypep 'program-error tp) |
33 | (subtypep 'type-error tp)))) | (subtypep 'type-error tp)))) |
34 | (notnot-mv (typep c tp)))) | (notnot-mv (typep c tp)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |