Извините за поздний ответ.
Вместо
TEX1 (решение (8 * х ^ 2 + 7 * х + 5));
запись:
? Princ (TEX1 (решение (8 * х ^ 2 + 7 * х + 5))) $
Проблема в том, что строка, возвращаемая tex1, печатается средством форматирования экрана (та же функция, которая печатает строку, если вы используете Maxima в интерактивном сеансе). Форматирование экрана разбивает строки на символы строки (по умолчанию = 79) и вставляет обратную косую черту. Вместо этого для ваших целей вы хотите полностью уклониться от средства форматирования отображения, поэтому вы печатаете строку с помощью? Princ (функция Lisp, которая просто печатает строку) и завершаете ввод с помощью «$» вместо «; запретить Maxima вызывать средство форматирования дисплея.
Обратите внимание, что жестко закодированная константа 70 в MYPRINC здесь не используется. MYPRINC не вызывается в данном примере.