/[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.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))))

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

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