
(noncommify)
(setstability nil)
(setsafelowtermshandling)
(setprocess itemwise)
(on custshow)
(on custstrategy)
(off raise)
(de custnewextragbefind () (prog () ml (print t) (go ml)))
% (progn	()
%	(prin2 "Current degree: ")
%	(prin2 (getcurrentdegree))
%	(prin2 "; Argument: ")
%	(redandalgoutput eXTRAngROEB)
%	(setq ngROEB (rEDUCEpOL eXTRAngROEB))
%	(setq eXTRAngROEB nil)
%	ngROEB ))
(on raise)

(algforminput)
vars a,b,c; a*b-1,b*c-1;
(printsetup)
(gi)
(gk)
(bo)
(interpbacktrace)

-------------------------
***** Segmentation Violation
Break loop
14 lisp break (1) > nil
15 lisp break (1) > Backtrace, including interpreter functions, from top of stack:
interpbacktrace top-loop-eval-and-print funboundp !I!T!E!Mf!I!N!Di!N!P!U!Tng!B!E 
groebnerkernel gk top-loop-eval-and-print standardlisp 
nil
16 lisp break (1) > v
        #<Unknown BFFFCDB0>
        nil
        #<Unknown BFFFCDB8>
        #<Unknown BFFFD1A0>
        4
        -1947205630
        verbosebacktrace
        nil
        `verbosebacktrace'
        nil
        nil
        nil
        nil
        nil
top-loop-eval-and-print -> fastapply:
        v
        0
        20
        134883381
        nil
toploop -> top-loop-eval-and-print:
        "Break loop"
        v
        -1015278081
        0
        1
        134962358
        1005584384
        10011
        "Segmentation Violation"
        #<Unknown BFFFD0FC>
        11
        0
        0
        43
        43
        2734
        !
        *lambdalink
        #<Unknown BFFFD108>
        8424200
        nil
        nil
        nil
        14
        4
        -1396719616
        35
        66118
        #<Unknown BFFFD108>
        43
        #<Unknown BFFFCE88>
        0
        #<Bstruct B0000080>
        -64641
        -65504
        -1
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        #<Unknown C8000000>
        16389
        0
        #<Unknown C01E8000>
        32
        2098047
        0
        0
        0
        0
        0
        8064
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        #<Unknown C8000000>
        16389
        0
        0
        #<Unknown 80000000>
        49182
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        7845976
        #<Unknown 80CD0000>
f!I!N!Di!N!P!U!Tng!B!E -> funboundp:
groebnerkernel -> !I!T!E!Mf!I!N!Di!N!P!U!Tng!B!E:
        44546816
        (groebnerkernel)
        groebnerkernel
        `groebnerkernel'
evectorequal -> evprogn:
        (lambda nil (groebnerkernel))
        nil
        0
        nil
        1602947076
        (lambda nil (groebnerkernel))
        nil
        38419712
        (gk)
        gk
        `gk'
top-loop-eval-and-print -> fastapply:
        (gk)
        0
        20
        134960641
        nil
toploop -> top-loop-eval-and-print:
        "Bergman 1.001, 17-Aug-20"
        (gk)
standardlisp -> toploop:
        -1947205630
        standardlisp
        nil
        `standardlisp'
        nil
        nil
        nil
        nil
        nil
        -14416757
        0
        nil

nil

----------------------------------------------------------


%(setstability nil)
%(setsafelowtermshandling)
%(on custshow)

(setprocess itemwise)
(on custstrategy)
%(off raise)
%(de custnewextragbefind () (prog () ml (print t) (go ml)))
% (progn	()
%	(prin2 "Current degree: ")
%	(prin2 (getcurrentdegree))
%	(prin2 "; Argument: ")
%	(redandalgoutput eXTRAngROEB)
%	(setq ngROEB (rEDUCEpOL eXTRAngROEB))
%	(setq eXTRAngROEB nil)
%	ngROEB ))
%(on raise)

(setprocess itemwise)
%(remd 'custnewinputgbefind)
(remd 'custenddegree)
(remd 'custnewcdegfix)
(on custstrategy)
(algforminput)
vars a,b; a*b;
(printsetup)
(gi)
(gk)
(bo)
(interpbacktrace)

(remd 'custnewinputgbefind)
(remd 'custenddegree)
(remd 'custnewcdegfix)


(de custnewinputgbefind ()
 (progn 

        %(PRIN2T "in CUSTNEWINPUTGBEFIND")
        (setq ngROEB (rEDUCEpOL (car CiNpOLS)))
      %  (PRIN2T "NGroeb=") 
      % (COND (NGroeb (PRINTLISPPOL (REDAND2LISPPOL NGroeb)))
       %       ( T (PRIN2T 0)))
       
        (setq CiNpOLS (cdr CiNpOLS))
       
        (cond ( ngROEB  
               % (PRIN2T "Adding!")
                (setq TMPLIST (append TMPLIST (list(redand2lisppol   ngROEB)))))
          % (T (PRIN2T " Not adding."))
        )
      %  (PRIN2T "finished CUSTNEWINPUTGBEFIND") (PRIN2T "NGroeb still=") 
      % (COND (NGroeb (PRINTLISPPOL (REDAND2LISPPOL NGroeb)))
       %       ( T (PRIN2T 0)))
        ngROEB ))
