#3489 radcan(sqrt(-1/(sqrt(-3)+1))) --> infinite loop

[Barton Willis]

(%i1)   radcan(sqrt(-1/(sqrt(-3)+1)));
Message from maxima's stderr stream: Heap exhausted during garbage collection: 0 bytes available, 16 requested.

Heap exhausted, game over.

(%i1)   build_info();
(%o1)   build_info(version="5.41.0a_dirty",timestamp="2017-10-24 09:10:17",host="x86_64-w64-mingw32",lisp_name="SBCL",lisp_version="1.3.18")

[Robert Dodier]

I don't see that behavior w/ post-5.45 on macOS.

With SBCL 2.1.0, ECL 20.4.24, and Clisp 2.49, I get:

(%i1) radcan(sqrt(-1/ (sqrt(-3)+1)));
                                      1
(%o1)                      ------------------------
                           sqrt((- sqrt(3) %i) - 1)

I've marked this ticket "pending" which means it will be closed automatically in 10 days or something unless some other action is taken. If we find an example to show it's still a problem, we can keep it open.

[Barton Willis]

This bug has been fixed for some time, but the ticket didn't automatically close. So I'm closing it as 'closed'

(%i3) radcan(sqrt(-1/ (sqrt(-3)+1)));

(%o3) 1/sqrt(-(sqrt(3)*%i)-1)
(%i4) build_info();

(%o4) %build_info("5.50post","2026-09-03 13:02:33","unknown","SBCL","2.6.4",
                  "C:/Users/barto/maxima","C:/Users/barto/AppData/Local/Temp",
                  "C:/Users/barto/maxima/binary/5_50post/sbcl/2_6_4",false,
                  false)