blob: 5a3fe68208ba53e949ea79ceeda0a28683850e5f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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)
|
