Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
......@@ -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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment