src/overload/client-fns.lisp

   1
   2 (in-package :lineal.overload)
   3
   4 (mapc (lambda (kvpair)
   5         (destructuring-bind (k v) kvpair
   6           (set (intern k :lineal.client-vars) v)))
   7       '(("+" addn)
   8         ("-" subtrn) ("*" multn) ("/" divisn)
   9         ("cat" over-cat)
  10         ("crop" over-crop)
  11         ("cross" over-cross-prod)
  12         ("det" over-det)
  13         ("dot" over-dot-prod)
  14         ("expt" over-expt)
  15         ("inverse" over-multv-inverse)
  16         ("orth" over-orth)
  17         ("proj" over-proj)
  18         ("recall" lineal::over-recall)
  19         ("r-ef" over-r-ef) ("rr-ef" over-rr-ef)
  20         ("sqrt" sqrt)
  21         ("store" lineal::over-store)
  22         ("transpose" over-transpose)
  23         ("vcat" over-vcat)
  24         ("vcrop" over-vcrop)))
  25