From 902310c99bd6892d34a719786864d7a9768f54f2 Mon Sep 17 00:00:00 2001 From: Kris Katterjohn Date: Tue, 7 Jun 2022 11:48:49 -0400 Subject: [PATCH] Remove superfluous uses of M-TLAMBDA&ENV from desolve The use of M-TLAMBDA&ENV here is due to this code originally being generated by the translator. Just use LAMBDA instead. No problems with the test suite, share test suite or rtest_translator. --- src/desoln.lisp | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) diff --git a/src/desoln.lisp b/src/desoln.lisp index d97f6fc05..d2a1e0d02 100644 --- a/src/desoln.lisp +++ b/src/desoln.lisp @@ -16,15 +16,9 @@ (merror (intl:gettext "desolve: more than one independent variable: ~M") ovar)) (setq ovar (simplify ($inpart ovar 1))) (setq teqns - (simplify (map1 (getopr (m-tlambda&env (($z) (ovar lvar)) - nil - (simplify ($laplace $z ovar lvar)))) - eqns))) + (simplify (map1 (lambda (z) (simplify ($laplace z ovar lvar))) eqns))) (setq tvars - (simplify (map1 (getopr (m-tlambda&env (($z) (ovar lvar)) - nil - (simplify `((%laplace) ,$z ,ovar ,lvar)))) - vars))) + (simplify (map1 (lambda (z) (simplify `((%laplace) ,z ,ovar ,lvar))) vars))) (setq teqns (let ((errcatch (cons bindlist loclist)) (ret (errset (simplify ($solve teqns tvars))))) @@ -39,10 +33,7 @@ (unless (like flag t) (setq teqns (simplify ($first teqns)))) (setq teqns - (simplify (map1 (getopr (m-tlambda&env (($z) (lvar ovar)) - nil - (simplify ($ilt $z lvar ovar)))) - teqns))) + (simplify (map1 (lambda (z) (simplify ($ilt z lvar ovar))) teqns))) (if (and flag (= ($length tvars) 1)) (maref teqns 1) teqns))) -- 2.11.4.GIT