Commit 91c81c55 authored by pfdietz's avatar pfdietz
Browse files

Removed requirement that value be an instance of the first class in the expected CPL.

parent 73a0a918
......@@ -32,7 +32,7 @@
(progn (format t "~%Note: ~S not an instance of ~A~%"
',objform ',(first expected-cpl))
t)))
(and (eql (first cpl) ',(first expected-cpl))
(and ,(if ordered t `(eql (first cpl) ',(first expected-cpl)))
(is-noncontiguous-sublist-of ',expected-cpl cpl))))
t)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment