From c5bd2a39b0fe072613bcbebd597a6f7d701945c1 Mon Sep 17 00:00:00 2001
From: Thomas Albers Raviola <thomas@thomaslabs.org>
Date: Mon, 19 Aug 2024 17:43:34 +0200
Subject: First commit

---
 tmp.mac | 29 -----------------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 tmp.mac

(limited to 'tmp.mac')

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])
-- 
cgit v1.2.3