From 7c695b47ebfe8f7648099701e75aa1d62042ce30 Mon Sep 17 00:00:00 2001 From: Thomas Baruchel Date: Thu, 15 Sep 2022 04:37:34 +0200 Subject: [PATCH] Update --- carleman.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/carleman.lisp b/carleman.lisp index 6e6543a..19ad5f7 100644 --- a/carleman.lisp +++ b/carleman.lisp @@ -74,7 +74,7 @@ (loop for w in m for i from 1 for y = (list (cdr w)) then (cons (nthcdr i w) y) - for d1 = 1 then (meval (list 'mtimes d1 d)) + for d1 = 1 then (mul d1 d) for r = (cdar m) then (cdr r) ; exactly the required number of 0's !!! collect (loop with z = (list 1) for u in y @@ -116,7 +116,7 @@ (loop for e in x for f in u collect (mul e f))) - (meval (sub d1 d2))) (cdr y)) + (sub d1 d2)) (cdr y)) finally (return (append q x)))))