Plaster
New
List
Login
common-lisp
default
anonymous
2022.08.31 14:26:27
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
Raw
Annotate
Repaste
Edit