Plaster
New
List
Login
text
default
anonymous
2022.08.31 19:00:19
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
Raw
Annotate
Repaste
Edit