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))) |