Skip to content

Instantly share code, notes, and snippets.

@AeroNotix

AeroNotix/t.lisp Secret

Last active August 28, 2018 17:36
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save AeroNotix/e98064d48abe7488fd6736e5adb8d694 to your computer and use it in GitHub Desktop.
Save AeroNotix/e98064d48abe7488fd6736e5adb8d694 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
t.lisp
(optima:match #(1 1 1)
((vector a a a) (+ a b c))) ;; => error
(optima:match #(1 2 3)
((vector a a a) (+ a b c)
(vector a b c) (- a b c))) ;; => error
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment