Skip to content
Snippets Groups Projects
Commit ab2e7a90 authored by gerd's avatar gerd
Browse files

Fix for (search '(1 2) '(3 4 0 1) :test #'<), which should

	return 0.  From Wolfhard Buß on cmucl-imp.

	* src/code/seq.lisp (search-compare-list-list)
	(search-compare-list-vector, search-compare-vector-list)
	(search-compare-vector-vector): Reverse arguments to
	compare-elements.
parent 23138bf0
No related branches found
No related tags found
No related merge requests found
Loading
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