From e017ceb78d5245a84fe1519134787ecc6adf08c0 Mon Sep 17 00:00:00 2001 From: Kris Katterjohn Date: Thu, 18 Jul 2024 11:07:39 -0400 Subject: [PATCH] Rename LISPM-MFUNCTION-CALL-AUX to MFUNCTION-CALL-AUX The LISPM- part of the name was introduced when writing this function while there was still a copy of the original Maclisp MFUNCTION-CALL-AUX around that was incompatible. Later this Maclisp one was removed and only the LISPM- one remained. The current name adds no value for us, so let's rename it back to the shorter original name. An upcoming commit will also be changing this function's signature anyway. No problems with the test suite, share test suite or rtest_translator. --- src/fcall.lisp | 6 +++--- src/transq.lisp | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/fcall.lisp b/src/fcall.lisp index c81181dcb..4b67a6280 100644 --- a/src/fcall.lisp +++ b/src/fcall.lisp @@ -74,9 +74,9 @@ ;;loses if the argl could not be evaluated but macsyma "e functions ;;but the translator should be fixed so that if (mget f 'mfexprp) is t ;;then it doesn't translate as an mfunction-call. - `(lispm-mfunction-call-aux ',f ',argl (list ,@ argl) nil))) + `(mfunction-call-aux ',f ',argl (list ,@ argl) nil))) -(defun lispm-mfunction-call-aux (f argl list-argl autoloaded-already? &aux f-prop) +(defun mfunction-call-aux (f argl list-argl autoloaded-already? &aux f-prop) (cond ((functionp f) (apply f list-argl)) ((macro-function f) @@ -95,7 +95,7 @@ (merror (intl:gettext "apply: function ~:@M undefined after loading file ~A") f (namestring (get f 'autoload)))) (t (funcall autoload (cons f f-prop)) - (lispm-mfunction-call-aux f argl list-argl t)))) + (mfunction-call-aux f argl list-argl t)))) ((boundp f) (mfunction-call-warn f 'punt-nil) diff --git a/src/transq.lisp b/src/transq.lisp index 9acfc1052..7931557e2 100644 --- a/src/transq.lisp +++ b/src/transq.lisp @@ -37,7 +37,7 @@ (get f 'once-translated) (get f 'translated)) (cons f l1)) - (t `(lispm-mfunction-call-aux ',f ', l1 (list ,@ l1) nil)))) + (t `(mfunction-call-aux ',f ', l1 (list ,@ l1) nil)))) ;;; macros for compiled environments. -- 2.11.4.GIT