[Maxima-commits] [git] Maxima CAS branch master updated. branch-5_49-base-509-g2325bc155

[<ap...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Maxima CAS".

The branch, master has been updated
       via  2325bc155430b654a6bdc9656dac4e2f74d2b1e4 (commit)
       via  30f3402249e44e91045ec59adce2fc5262d5c35d (commit)
      from  83e21abcc8f3959879ab27ae8ae1c5d73ca1965e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 2325bc155430b654a6bdc9656dac4e2f74d2b1e4
Merge: 30f340224 83e21abcc
Author: Robert Dodier <rob...@so...>
Date:   Wed May 13 07:48:20 2026 -0700

    Merge remote-tracking branch 'origin/master'


commit 30f3402249e44e91045ec59adce2fc5262d5c35d
Author: Robert Dodier <rob...@so...>
Date:   Wed May 13 07:47:08 2026 -0700

    In function STYO, replace CHRPS with *CHRPS*.
    Follow-on work for commit 2acb00.

diff --git a/src/grind.lisp b/src/grind.lisp
index 72708e076..f15a2ebb2 100644
--- a/src/grind.lisp
+++ b/src/grind.lisp
@@ -81,7 +81,7 @@
 		  (t (setq *chrps* 0) (sterpri) (styotbsp i)))
 		(strprint (car l)))))))
 
-(defun styo (x) (setq *grind-charlist* (cons x *grind-charlist*) *chrps* (1+ chrps)))
+(defun styo (x) (setq *grind-charlist* (cons x *grind-charlist*) *chrps* (1+ *chrps*)))
 
 (defun sterpri () (setq *grind-charlist* (cons #\newline *grind-charlist*) *chrps* 0))
 

-----------------------------------------------------------------------

Summary of changes:
 src/grind.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)


hooks/post-receive
-- 
Maxima CAS