--- modules/pari/desc2lisp.lisp.orig	2018-07-18 17:50:36.000000000 -0600
+++ modules/pari/desc2lisp.lisp	2018-08-03 15:05:25.139224753 -0600
@@ -166,7 +166,15 @@
       (setq h (car h)))
     (if (and h (ext:starts-with-p h f) (setq end (search "):" h)))
         ;;(parse-arglist-regexp h :start (1+ (position #\( h)) :end end)
-        (parse-arglist-read h :start (position #\( h) :end (1+ end))
+	(let ((l (parse-arglist-read h :start (position #\( h) :end (1+ end))))
+	  (and
+	    (consp l)
+	    (consp (cdr l))
+	    (consp (cadr l))
+	    (symbolp (caadr l))
+	    (equalp (symbol-name (caadr l)) "T")
+	    (setf (caadr l) 'T_))
+	  l)
         ;; (or (warn "~S: no arglist in ~S" 'desc-arglist desc) ...)
         :unspecific)))