diff --git a/sequences.lisp b/sequences.lisp index 93421a3aaa2e1044a386bd894b3f043c89b080c0..f58c21685a54a87f7bee08c98b56aade8f73a95a 100644 --- a/sequences.lisp +++ b/sequences.lisp @@ -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.