Plaster

CL-USER> (defun test (x) (trivia:match x ((array :has-fill-pointer t) 42) (_ 24))) TEST CL-USER> (test (make-array 10 :fill-pointer nil)) 24 CL-USER> (test (make-array 10 :fill-pointer t)) 42