+Shell, +A LOT
[lineal.git] / src / overload / client-fns.lisp
blobcb777ab685eac414bf6195c30ef71b02d8c212af
2 (mapc (lambda (kvpair)
3 (destructuring-bind (k v) kvpair
4 (set (intern k :lineal.client-vars) v)))
5 '(("+" addn)
6 ("-" subtrn) ("*" multn) ("/" divisn)
7 ("^" over-expt)
8 ("asin" asin) ("acos" acos) ("atan" atan)
9 ("cat" over-cat)
10 ("cos" cos)
11 ("crop" over-crop)
12 ("cross" over-cross-prod)
13 ("det" over-det)
14 ("dot" over-dot-prod)
15 ("expt" exptn)
16 ("factorial" over-factorial)
17 ("inverse" over-multv-inverse)
18 ("nAr" nAr) ("nCr" nCr) ("nPr" nPr)
19 ("orth" over-orth)
20 ("proj" over-proj)
21 ("recall" lineal::over-recall)
22 ("ref" over-r-ef) ("rref" over-rr-ef)
23 ("sin" sin)
24 ("sqrt" over-sqrt)
25 ("store" lineal::over-store)
26 ("tan" tan)
27 ("tr" over-trace)
28 ("transpose" over-transpose)
29 ("vcat" over-vcat)
30 ("vcrop" over-vcrop)))