(define pat10 (match '(lst??custom-match))) (println 'pat10a (pat10 '("x" "y" "y" "x" "x"))) ;; success! (println 'pat10a (pat10 '("x" "y" "aaa" "x" "x"))) ;; fail (println 'pat10a (pat10 '("x" "y" 'y "x" "x"))) ;; fail (symbol y not a string)