diff --git a/lens.lisp b/lens.lisp
index b4a3564..1740e42 100644
--- a/lens.lisp
+++ b/lens.lisp
@@ -151,6 +151,15 @@
 (define-modify-macro updatef (fun &rest args)
   update)
 
+(defun-ct suffixp (suffix &key (test 'eql test-p))
+  (lambda (it)
+    (if test-p
+        (alexandria:ends-with-subseq suffix
+                                     it
+                                     :test test)
+        (alexandria:ends-with-subseq suffix
+                                     it))))
+
 (defun-ct transform-head (fun)
   (lambda (it)
     (typecase it