Plaster

CL-USER> (defun test (x) (trivia:match x ((vector 0) 42) (_ 24))) TEST CL-USER> (make-array 2 :fill-pointer 1) #(0) CL-USER> (make-array 1 :fill-pointer 1) #(0) CL-USER> (mapcar #'test (list ** *)) (24 42) CL-USER> (trivia:match (make-array 2 :fill-pointer 1) ((equalp #(0)) 42) (_ 24)) 42