Add in exception for SBCL when compiling %_ce_rem, #1385.

maths · Feb 5, 2025 · e492b91 · e492b91
1 parent b93f1df
commit e492b91
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/stack/maxima/stacktex.lisp b/stack/maxima/stacktex.lisp
@@ -495,7 +495,9 @@
 ;; Added 20 Feb 2022.
 ;; Remove %_C and %_E for display purposes.  The Maxima function %_ce_rem is defined in utils.mac
 
-(defmfun $tex1 (x) (reduce #'strcat (tex ($%_ce_rem x) nil nil 'mparen 'mparen)))
+(defmfun $tex1 (x) 
+  #+sbcl (declare (notinline $%_ce_rem))
+  (reduce #'strcat (tex ($%_ce_rem x) nil nil 'mparen 'mparen)))
 
 ;; *************************************************************************************************
 ;; Added 30 May 2022.