aboutsummaryrefslogtreecommitdiff
path: root/tmp.mac
diff options
context:
space:
mode:
Diffstat (limited to 'tmp.mac')
-rw-r--r--tmp.mac29
1 files changed, 0 insertions, 29 deletions
diff --git a/tmp.mac b/tmp.mac
deleted file mode 100644
index 4bd6efe..0000000
--- a/tmp.mac
+++ /dev/null
@@ -1,29 +0,0 @@
-part('(Ndown[a, b]), );
-raise(tensor, )
-
-
-args('(Ndown[a, b]));
-
-
-raise(tensor, index) := sum(ug[''index, m] * ''tensor, m, 1, 2);
-
-raise('(Ndown[a, b]), 'a);
---> sum(ug[])
-
-:lisp (format t "~A" #$'(Ndown[a,b])$)
-
-:lisp (mfuncall '$mnctimes $ug $ug)
-
-:lisp (displa (mfuncall 'mnctimes $ug $ug));
-
-:lisp #$mcs[1,1,1]$;
-
-mcs[1,1,1]
-
-ug . ug;
-
-:lisp (format t "~A" #$c . d$)
-
-'Ndown[a, b]
-
-('Ndown[a,b])