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.