Skip to content
Snippets Groups Projects
Commit 80b6daf7 authored by Jan Moringen's avatar Jan Moringen
Browse files

remove unused condition NO-EXTREMUM in sequences.lisp

parent 549dd8e1
No related branches found
No related tags found
No related merge requests found
......@@ -491,13 +491,6 @@ if calling FUNCTION modifies either the derangement or SEQUENCE."
(declaim (notinline sequence-of-length-p))
(define-condition no-extremum (error)
()
(:report (lambda (condition stream)
(declare (ignore condition))
(format stream "Empty sequence in ~S." 'extremum))))
(defun extremum (sequence predicate &key key (start 0) end)
"Returns the element of SEQUENCE that would appear first if the subsequence
bounded by START and END was sorted using PREDICATE and KEY.
......
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