(define pat3 (match '(?symbol ?list ?symbol))) ;; match 1 symbol followed by 1 list followed by 1 symbol (println 'pat3a: (pat3 '(a (b c) d))) ;; success! (println 'pat3b: (pat3 '(a (b . c) d))) ;; fails - pairs are not lists!