diff --git a/src/section.lisp b/src/section.lisp
index 8c39f4f..cf19d59 100644
--- a/src/section.lisp
+++ b/src/section.lisp
@@ -32,6 +32,10 @@ Example:
            ,(when items
                `(btn-group-outline-primary ,@items)))))
 
+(defun rowp (string)
+  "Return T if 'row' is present as a substring in STRING, NIL otherwise."
+  (some (lambda (x) (string= "row" x)) (uiop:split-string string)))
+
 (defmacro section (class (&key xs sm md lg xl xxl) &body body)
   "Creates a Bootstrap-styled section.