Re: GCL pathname bug
Barton Willis via Maxima-discuss <[email protected]> Wed, 11 Mar 2026 12:15:07 +0000
| Newsgroups | gmane.comp.mathematics.maxima.general,gmane.lisp.gcl.devel |
|---|---|
| Message-ID | <SN6PR07MB7952D75DACC0C4C956142881B647A@SN6PR07MB7952.namprd07.prod.outlook.com> |
--===============3050462818231385257==
Content-Language: en-US
Content-Type: multipart/alternative;
boundary="_000_SN6PR07MB7952D75DACC0C4C956142881B647ASN6PR07MB7952namp_"
--_000_SN6PR07MB7952D75DACC0C4C956142881B647ASN6PR07MB7952namp_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
There is a general bug here: a user should never see a Lisp error:
(%o1) push(2014);
Maxima encountered a Lisp error:
The value
$PUSH
is not of type
LIST
A fix might be something like:
(defmspec $push (z)
;; Expect exactly 3 arguments: (($push) x l)
(unless (eql 3 (length z))
(wna-err z))
(let* ((x (meval (second z)))
(l (third z))
(ll) (lo))
(cond (($subvarp l)
(setq lo (simplifya (cons (list (meval (mop l)) 'array) (mevala=
rgs (margs l))) t))
(setq ll (let ((noevalargs t)) (meval lo))))
(t
(setq lo l)
(setq ll (meval l))))
(cond ((and ($mapatom lo) ($listp ll))
(setq ll (cons x (cdr ll)))
(mset lo (fapply 'mlist ll)))
(t
(merror (intl:gettext "Second argument to push must be a mapato=
m that is bound to a list"))))))
The evaluation scheme for the subvar case seems a bit contorted? Git tells =
me I wrote the push code
11 years ago.
--Barton
________________________________
From: Leo Butler <[email protected]>
Sent: Tuesday, March 10, 2026 3:37 PM
To: Camm Maguire <[email protected]>
Cc: [email protected] <[email protected].=
net>; [email protected] <[email protected]>
Subject: Re: [Maxima-discuss] GCL pathname bug
Caution: Non-NU Email
Hello Camm,
It may be a bug in Maxima, but look at the output I sent:
>> errcatch(push(2014))
>>
>> Unrecoverable error: Segmentation violation..
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
That is a GCL bug.
Best regards,
Leo
On Tue, Mar 03 2026, Camm Maguire <[email protected]> wrote:
> Greetings! This one is a maxima bug -- wna-err should read
>
> (defun wna-err (exprs &optional required-arg-count pretty-name)
> (if required-arg-count
> (let* ((op (or pretty-name (caar exprs)))
> (actual-count (length (rest exprs))))
> (merror (intl:gettext "~M: expected exactly ~M arguments but got ~M=
: ~M")
> op required-arg-count actual-count (list* '(mlist) (rest ex=
prs))))
> (merror (intl:gettext "~:@M: wrong number of arguments.")
> exprs)))
>
> if it is to accespt a symbol in exprs. With this, gcl 2.6 gives the
> following testsuite results:
>
> Error summary:
> Error(s) found:
> /home/camm/maxima-5.49.0+dsfg/tests/rtest5.mac problems:
> (80 82 83)
> /home/camm/maxima-5.49.0+dsfg/share/stringproc/rtestprintf.mac problems=
:
> (29 48)
> /home/camm/maxima-5.49.0+dsfg/share/to_poly_solve/rtest_to_poly_solve.m=
ac problem:
> (212)
> Tests that were expected to fail but passed:
> /home/camm/maxima-5.49.0+dsfg/share/simplification/rtest_facexp.mac pro=
blem:
> (37)
> 6 tests failed out of 19,396 total tests.
> real time : 950.600 secs
> run-gbc time : 253.150 secs
> child run time : 393.750 secs
> gbc time : 289.790 secs
> (%o0) done
>
> Take care,
>
>
>
> Leo Butler <[email protected]> writes:
>
>> Hello again,
>>
>> I wrote too soon. While the patch enables the build process, there is a
>> problem with the testsuite (I re-ran the failure by itself):
>>
>> #+begin_example
>> *************************** rtest15.mac: Problem 274 *******************=
*******
>>
>> Input:
>> errcatch(push(2014))
>>
>> Unrecoverable error: Segmentation violation..
>> Aborted ../maxima-local --lisp=3Dgcl --batch-string=
=3D'batch("rtest15.mac",test);'
>> #+end_example
>>
>> On the other hand, Maxima installed from debian testing does complete
>> that test (albeit with 29 non-fatal errors).
>>
>> Best regards,
>> Leo
>>
>> On Mon, Mar 02 2026, Camm Maguire <[email protected]> wrote:
>>
>>> Greetings, and thanks so much for your report! I see you are using
>>> 2.6.14, and I apologize for having focused solely on current 2.7.1 and
>>> forthcoming 2.7.2. I do want to support the 2.6 series builds for at
>>> least a while longer, so I appreciate the report.
>>>
>>> This patch should fix things for you. I will be releasing this as a
>>> Debian package, and a final 2.6.15 to end the 2.6 series relatively
>>> soon.
>>>
>>> Take care,
>>>
>>> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
>>> (in-package :compiler)
>>> (defun c2gethash (args)
>>> (cond ((member *value-to-go* '(top return))
>>> (let* ((nargs (inline-args args '(t t t)))
>>> (base *vs*)(*vs* *vs*)
>>> (r (cdr (vs-push)))(f (cdr (vs-push))))
>>> (wt-nl "{ struct htent *_z=3Dgethash" (if *safe-compile* "_with_=
check" "") "(" (car nargs) "," (cadr nargs) ");")
>>> (wt-nl "if (_z->hte_key=3D=3DOBJNULL) {")
>>> (wt-nl "base[" r "]=3D" (caddr nargs) ";")
>>> (wt-nl "base[" f "]=3DCnil;")
>>> (wt-nl "} else {")
>>> (wt-nl "base[" r "]=3D_z->hte_value;")
>>> (wt-nl "base[" f "]=3DCt;")
>>> (wt-nl "}}")
>>> (wt-nl "vs_top=3D(vs_base=3Dbase+" base ")+" (- *vs* base) ";")
>>> (unwind-exit 'fun-val nil (cons 'values 2))
>>> (close-inline-blocks)))
>>> ((let ((*inline-blocks* 0)
>>> (*restore-avma* *restore-avma*)
>>> (fd `((t t t) t #.(flags rfa)
>>> ,(concatenate 'string
>>> "({struct htent *_z=3Dgethash"
>>> (if *safe-compile* "_with_check" "")
>>> "(#0,#1);_z->hte_key=3D=3DOBJNULL ? (#2)=
: _z->hte_value;})"))))
>>> (save-avma fd)
>>> (unwind-exit (get-inline-loc fd args))
>>> (close-inline-blocks)))))
>>> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
>>>
>>> Leo Butler <[email protected]> writes:
>>>
>>>> Camm,
>>>>
>>>> Attached is the complete output from an attempt to build Maxima with 4
>>>> lisps from this morning.
>>>>
>>>> At line 28291, you will see the initial error that I posted. There are=
,
>>>> I believe, several thousand lines of repetitive errors/warnings above
>>>> that.
>>>>
>>>> Best regards,
>>>> Leo
>>>>
>>>>
>>>>
_______________________________________________
Maxima-discuss mailing list
[email protected]
https://urldefense.com/v3/__https://lists.sourceforge.net/lists/listinfo/ma=
xima-discuss__;!!PvXuogZ4sRB2p-tU!EpAmaSaWURYXQ6Bz1AylNiP0BruEl5_CTwFcRBJL1=
63h04zhhMzHBeq32DkmDp2smsmrytkrh4OT9LJmWULHreE$
--_000_SN6PR07MB7952D75DACC0C4C956142881B647ASN6PR07MB7952namp_
Content-Type: text/html; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
<html>
<head>
<meta http-equiv=3D"Content-Type" content=3D"text/html; charset=3Dus-ascii"=
>
<style type=3D"text/css" style=3D"display:none;"> P {margin-top:0;margin-bo=
ttom:0;} </style>
</head>
<body dir=3D"ltr">
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
There is a general bug here: a user should never see a Lisp error:</d=
iv>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
<br>
</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
(%o1) push(2014);</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
Maxima encountered a Lisp error:</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
<br>
</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
The value</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
$PUSH</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
is not of type</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
LIST</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
<br>
</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
A fix might be something like:</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
<br>
</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(defmspec $push (z)</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
;; Expect exactly 3 arguments: (($push) x l)</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(unless (eql 3 (length z))</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(wna-err z))</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
<br>
</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(let* ((x (meval (second z)))</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(l (third z))</di=
v>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(ll) (lo))</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
<br>
</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(cond (($subvarp l)</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(setq lo (simplifya (cons&nb=
sp;(list (meval (mop l)) 'array) (mevalargs (margs l))) t))</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(setq ll (let ((noevala=
rgs t)) (meval lo))))</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(t</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(setq lo l)</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(setq ll (meval l))))</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
<br>
</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(cond ((and ($mapatom lo) ($listp ll))</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(setq ll (cons x (cdr l=
l)))</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(mset lo (fapply 'mlist ll))=
)</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(t</div>
<div style=3D"line-height: 19px; font-family: Aptos, Aptos_EmbeddedFont, Ap=
tos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: =
rgb(0, 0, 0);" class=3D"elementToProof">
(merror (intl:gettext "Secon=
d argument to push must be a mapatom that is bound to a list"))))))</d=
iv>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
<br>
</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
The evaluation scheme for the subvar case seems a bit contorted? Git tells =
me I wrote the push code </div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
11 years ago. </div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
<br>
</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
--Barton</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" clas=
s=3D"elementToProof">
<br>
</div>
<div style=3D"font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, =
Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
<br>
</div>
<div id=3D"appendonsend"></div>
<hr style=3D"display:inline-block;width:98%" tabindex=3D"-1">
<div id=3D"divRplyFwdMsg" dir=3D"ltr"><font face=3D"Calibri, sans-serif" st=
yle=3D"font-size:11pt" color=3D"#000000"><b>From:</b> Leo Butler <Leo.Bu=
[email protected]><br>
<b>Sent:</b> Tuesday, March 10, 2026 3:37 PM<br>
<b>To:</b> Camm Maguire <[email protected]><br>
<b>Cc:</b> [email protected] <[email protected]=
urceforge.net>; [email protected] <[email protected]><br>
<b>Subject:</b> Re: [Maxima-discuss] GCL pathname bug</font>
<div> </div>
</div>
<div class=3D"BodyFragment"><font size=3D"2"><span style=3D"font-size:11pt;=
">
<div class=3D"PlainText">Caution: Non-NU Email<br>
<br>
<br>
Hello Camm,<br>
<br>
It may be a bug in Maxima, but look at the output I sent:<br>
<br>
>> errcatch(push(2014))<br>
>><br>
>> Unrecoverable error: Segmentation violation..<br>
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^<br>
That is a GCL bug.<br>
<br>
Best regards,<br>
Leo<br>
<br>
<br>
On Tue, Mar 03 2026, Camm Maguire <[email protected]> wrote:<br>
<br>
> Greetings! This one is a maxima bug -- wna-err should read<br>
><br>
> (defun wna-err (exprs &optional required-arg-count pretty-name)<br=
>
> (if required-arg-count<br>
> (let* ((op (or pretty-name (caar e=
xprs)))<br>
> (act=
ual-count (length (rest exprs))))<br>
> (merror (intl:gettext "~M: ex=
pected exactly ~M arguments but got ~M: ~M")<br>
>  =
; op required-arg-count actual-count (list* '(mlist) (rest expr=
s))))<br>
> (merror (intl:gettext "~:@M: =
wrong number of arguments.")<br>
>  =
; exprs)))<br>
><br>
> if it is to accespt a symbol in exprs. With this, gcl 2.6 gives =
the<br>
> following testsuite results:<br>
><br>
> Error summary:<br>
> Error(s) found:<br>
> /home/camm/maxima-5.49.0+dsfg/tests/rtest5.mac problems:<b=
r>
> (80 82 83)<br>
> /home/camm/maxima-5.49.0+dsfg/share/stringproc/rtestprintf=
.mac problems:<br>
> (29 48)<br>
> /home/camm/maxima-5.49.0+dsfg/share/to_poly_solve/rtest_to=
_poly_solve.mac problem:<br>
> (212)<br>
> Tests that were expected to fail but passed:<br>
> /home/camm/maxima-5.49.0+dsfg/share/simplification/rtest_f=
acexp.mac problem:<br>
> (37)<br>
> 6 tests failed out of 19,396 total tests.<br>
> real time : 950.=
600 secs<br>
> run-gbc time : 253.150 secs<br>
> child run time : 393.750 secs<br>
> gbc time : =
289.790 secs<br>
> (%o0)  =
; &n=
bsp; done<br>
><br>
> Take care,<br>
><br>
><br>
><br>
> Leo Butler <[email protected]> writes:<br>
><br>
>> Hello again,<br>
>><br>
>> I wrote too soon. While the patch enables the build process, there=
is a<br>
>> problem with the testsuite (I re-ran the failure by itself):<br>
>><br>
>> #+begin_example<br>
>> *************************** rtest15.mac: Problem 274 *************=
*************<br>
>><br>
>> Input:<br>
>> errcatch(push(2014))<br>
>><br>
>> Unrecoverable error: Segmentation violation..<br>
>> Aborted  =
; ../maxima-local --l=
isp=3Dgcl --batch-string=3D'batch("rtest15.mac",test);'<br>
>> #+end_example<br>
>><br>
>> On the other hand, Maxima installed from debian testing does compl=
ete<br>
>> that test (albeit with 29 non-fatal errors).<br>
>><br>
>> Best regards,<br>
>> Leo<br>
>><br>
>> On Mon, Mar 02 2026, Camm Maguire <[email protected]> w=
rote:<br>
>><br>
>>> Greetings, and thanks so much for your report! I see you=
are using<br>
>>> 2.6.14, and I apologize for having focused solely on current 2=
.7.1 and<br>
>>> forthcoming 2.7.2. I do want to support the 2.6 series b=
uilds for at<br>
>>> least a while longer, so I appreciate the report.<br>
>>><br>
>>> This patch should fix things for you. I will be releasin=
g this as a<br>
>>> Debian package, and a final 2.6.15 to end the 2.6 series relat=
ively<br>
>>> soon.<br>
>>><br>
>>> Take care,<br>
>>><br>
>>> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D<br>
>>> (in-package :compiler)<br>
>>> (defun c2gethash (args)<br>
>>> (cond ((member *value-to-go* '(top return))<br>
>>> (let* ((nargs (inline-args args =
'(t t t)))<br>
>>> &nb=
sp; (base *vs*)(*vs* *vs*)<br>
>>> &nb=
sp; (r (cdr (vs-push)))(f (cdr (vs-push))))<br>
>>> (wt-nl "{ struc=
t htent *_z=3Dgethash" (if *safe-compile* "_with_check" &quo=
t;") "(" (car nargs) "," (cadr nargs) ");&quo=
t;)<br>
>>> (wt-nl "if (_z-=
>hte_key=3D=3DOBJNULL) {")<br>
>>> (wt-nl "base[&q=
uot; r "]=3D" (caddr nargs) ";")<br>
>>> (wt-nl "base[&q=
uot; f "]=3DCnil;")<br>
>>> (wt-nl "} else =
{")<br>
>>> (wt-nl "base[&q=
uot; r "]=3D_z->hte_value;")<br>
>>> (wt-nl "base[&q=
uot; f "]=3DCt;")<br>
>>> (wt-nl "}}"=
;)<br>
>>> (wt-nl "vs_top=
=3D(vs_base=3Dbase+" base ")+" (- *vs* base) ";")<=
br>
>>> (unwind-exit 'fun-va=
l nil (cons 'values 2))<br>
>>> (close-inline-blocks=
)))<br>
>>> ((let ((*inline-blocks* 0)<br>
>>> &nb=
sp; (*restore-avma* *restore-avma*)<br>
>>> &nb=
sp; (fd `((t t t) t #.(flags rfa)<br>
>>> &nb=
sp; ,(concatenate 'string<br>
>>> &nb=
sp; =
"({struct htent *_z=
=3Dgethash"<br>
>>> &nb=
sp; =
(if *safe-compile* "_=
with_check" "")<br>
>>> &nb=
sp; =
"(#0,#1);_z->hte_k=
ey=3D=3DOBJNULL ? (#2) : _z->hte_value;})"))))<br>
>>> (save-avma fd)<br>
>>> (unwind-exit (get-in=
line-loc fd args))<br>
>>> (close-inline-blocks=
)))))<br>
>>> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D<br>
>>><br>
>>> Leo Butler <[email protected]> writes:<br>
>>><br>
>>>> Camm,<br>
>>>><br>
>>>> Attached is the complete output from an attempt to build M=
axima with 4<br>
>>>> lisps from this morning.<br>
>>>><br>
>>>> At line 28291, you will see the initial error that I poste=
d. There are,<br>
>>>> I believe, several thousand lines of repetitive errors/war=
nings above<br>
>>>> that.<br>
>>>><br>
>>>> Best regards,<br>
>>>> Leo<br>
>>>><br>
>>>><br>
>>>><br>
<br>
<br>
_______________________________________________<br>
Maxima-discuss mailing list<br>
[email protected]<br>
<a href=3D"https://urldefense.com/v3/__https://lists.sourceforge.net/lists/=
listinfo/maxima-discuss__;!!PvXuogZ4sRB2p-tU!EpAmaSaWURYXQ6Bz1AylNiP0BruEl5=
_CTwFcRBJL163h04zhhMzHBeq32DkmDp2smsmrytkrh4OT9LJmWULHreE$">https://urldefe=
nse.com/v3/__https://lists.sourceforge.net/lists/listinfo/maxima-discuss__;=
!!PvXuogZ4sRB2p-tU!EpAmaSaWURYXQ6Bz1AylNiP0BruEl5_CTwFcRBJL163h04zhhMzHBeq3=
2DkmDp2smsmrytkrh4OT9LJmWULHreE$</a><br>
</div>
</span></font></div>
</body>
</html>
--_000_SN6PR07MB7952D75DACC0C4C956142881B647ASN6PR07MB7952namp_--
--===============3050462818231385257==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
--===============3050462818231385257==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
Maxima-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/maxima-discuss
--===============3050462818231385257==--