src/overload/client-fns.lisp

   1
   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         ("cat" over-cat)
   9         ("crop" over-crop)
  10         ("cross" over-cross-prod)
  11         ("det" over-det)
  12         ("dot" over-dot-prod)
  13         ("expt" exptn)
  14         ("factorial" over-factorial)
  15         ("inverse" over-multv-inverse)
  16         ("nAr" nAr) ("nCr" nCr) ("nPr" nPr)
  17         ("orth" over-orth)
  18         ("proj" over-proj)
  19         ("recall" lineal::over-recall)
  20         ("ref" over-r-ef) ("rref" over-rr-ef)
  21         ("sqrt" sqrt)
  22         ("store" lineal::over-store)
  23         ("transpose" over-transpose)
  24         ("vcat" over-vcat)
  25         ("vcrop" over-vcrop)))
  26