diff options
Diffstat (limited to 'math/maxima/files/extra-patch-src_grind.lisp')
| -rw-r--r-- | math/maxima/files/extra-patch-src_grind.lisp | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/math/maxima/files/extra-patch-src_grind.lisp b/math/maxima/files/extra-patch-src_grind.lisp new file mode 100644 index 000000000000..5a3fe68208ba --- /dev/null +++ b/math/maxima/files/extra-patch-src_grind.lisp @@ -0,0 +1,18 @@ +--- src/grind.lisp.orig 2019-10-21 03:38:59 UTC ++++ src/grind.lisp +@@ -297,12 +297,13 @@ + (msz nil l r) + (do ((nl) (w 0)) + ((null (cdr x)) +- (setq nl (cons (if (stringp (car x)) ++;; Patch borrowed from SageMath: undoing_true_false_printing_patch ++ (setq nl (cons (if (atom (car x)) + (msz (makestring (car x)) l r) + (msize (car x) l r lop rop)) + nl)) + (cons (+ w (caar nl)) (nreverse nl))) +- (setq nl (cons (if (stringp (car x)) ++ (setq nl (cons (if (atom (car x)) + (msz (makestring (car x)) l r) + (msize (car x) l r lop rop)) + nl) |