31 lines
1.2 KiB
Diff
31 lines
1.2 KiB
Diff
--- modules/pari/desc2lisp.lisp.orig 2021-06-28 14:32:42.000000000 -0600
|
|
+++ modules/pari/desc2lisp.lisp 2022-09-19 21:12:06.708459685 -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)))
|
|
|
|
--- modules/pari/pari.lisp.orig 2021-06-28 14:32:42.000000000 -0600
|
|
+++ modules/pari/pari.lisp 2022-09-19 21:23:25.026083675 -0600
|
|
@@ -218,8 +218,7 @@ t.e., this is the memory size for the re
|
|
;; extern int factor_add_primes;
|
|
(def-c-var factor_add_primes (:type int))
|
|
|
|
-;; extern ulong DEBUGFILES, DEBUGLEVEL, DEBUGMEM
|
|
-(def-c-var debugfiles (:name "DEBUGFILES") (:type ulong))
|
|
+;; extern ulong DEBUGLEVEL, DEBUGMEM
|
|
(def-c-var debuglevel (:name "DEBUGLEVEL") (:type ulong))
|
|
(def-c-var debugmem (:name "DEBUGMEM") (:type ulong))
|
|
|