Update

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)))))