X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fsequence.lisp;h=89912adc2e32340bacae482b73a44b723869f8ba;hb=22c592cbf7e81e78ceaef80d1c15ad7a7fc3b40a;hp=7dc59048487422a239452b4bb614f87e8b1ab941;hpb=363c1e9417029fd9a27257d5e872eca8c88510b7;p=sbcl.git

diff --git a/src/pcl/sequence.lisp b/src/pcl/sequence.lisp
index 7dc5904..89912ad 100644
--- a/src/pcl/sequence.lisp
+++ b/src/pcl/sequence.lisp
@@ -17,6 +17,11 @@
   (error 'sequence::protocol-unimplemented
          :datum sequence :expected-type '(or list vector)))
 
+(defgeneric sequence:emptyp (sequence)
+  (:method ((s list)) (null s))
+  (:method ((s vector)) (zerop (length s)))
+  (:method ((s sequence)) (zerop (length s))))
+
 (defgeneric sequence:length (sequence)
   (:method ((s list)) (length s))
   (:method ((s vector)) (length s))