feat(utils): add SUFFIXP to test that a sequence has a suffix

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