/[gcl]/gcl/ansi-tests/class-precedence-lists.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/class-precedence-lists.lsp

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

revision 1.5 by pfdietz, Fri Jun 6 13:13:50 2003 UTC revision 1.6 by pfdietz, Wed Jun 18 13:27:28 2003 UTC
# Line 29  Line 29 
29           (or ,(if ordered           (or ,(if ordered
30                    nil                    nil
31                  `(and (not (eql (class-of obj) (find-class ',(first expected-cpl))))                  `(and (not (eql (class-of obj) (find-class ',(first expected-cpl))))
32                        (progn (format t "~%Note: ~S not an instance of ~A~%"                        (progn (format t "~%Note: ~S not a direct instance of ~A~%"
33                                       ',objform ',(first expected-cpl))                                       ',objform ',(first expected-cpl))
34                               t)))                                             t)))              
35               (and ,(if ordered t `(eql (first cpl) ',(first expected-cpl)))               (and ,(if ordered t `(eql (first cpl) ',(first expected-cpl)))

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

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