20 lines
743 B
Diff
20 lines
743 B
Diff
--- 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)))
|
|
|