code is a lot of stuff, have basically more or less rewritten and
generalized the polynomials.
So I try the backtrace
(180) -> D3 := DisjunctiveNormalForm [p1,p2,p3]
(180) DisjunctiveNormalForm([p1,p2,p3])
Type: Type
(181) -> )sh D3
debugger invoked on a UNDEFINED-FUNCTION in thread
#<THREAD "main thread" RUNNING {10028BEE43}>:
The function BOOT::|#| is undefined.
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
(no restarts: If you didn't do this on purpose, please report it as a bug.)
("undefined function")
0] backtrace
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10028BEE43}>
0: ("undefined function")
1: (|DisjunctiveNormalForm;| (|p1| |p2| |p3|))
2: (|DisjunctiveNormalForm| (|p1| |p2| |p3|))
3: (SB-EVAL:EVAL-IN-NATIVE-ENVIRONMENT (|DisjunctiveNormalForm| (QUOTE
(|p1| |p2| |p3|))) #<NULL-LEXENV>)
4: (EVAL (|DisjunctiveNormalForm| (QUOTE (|p1| |p2| |p3|))))
5: (|eval| (|DisjunctiveNormalForm| (QUOTE (|p1| |p2| |p3|))))
6: (|evalDomain| (|DisjunctiveNormalForm| (|p1| |p2| |p3|)))
7: (|reportOpsFromUnitDirectly| (|DisjunctiveNormalForm| (|p1| |p2| |p3|)))
8: (|reportOperations| #<unavailable argument> D3)
9: (|showSpad2Cmd| (D3))
10: (|show| (D3))
11: (|systemCommand| ((|sh| D3)))
12: (|doSystemCommand| #<unavailable argument>)
13: (|ExecuteInterpSystemCommand| #<unavailable argument>)
14: (|InterpExecuteSpadSystemCommand| ")sh D3")
15: (|ncloopCommand| ")sh D3" 2)
16: (|intloopReadConsole| #<unavailable argument> 2)
17: (|SpadInterpretStream| 1 (TIM DALY ?) T)
18: (|intloop|)
19: (|ncTopLevel|)
20: (|runspad|)
21: (|spad|)
22: (FRICAS-RESTART)
23: ((LAMBDA NIL :IN FRICAS-LISP::SAVE-CORE-RESTART))
24: ((FLET #:WITHOUT-INTERRUPTS-BODY-77 :IN SB-EXT:SAVE-LISP-AND-DIE))
25: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))
0]
u : D3 := 0
Top of stack.
0] top
debugger invoked on a SB-INT:SIMPLE-CONTROL-ERROR in thread
#<THREAD "main thread" RUNNING {10028BEE43}>:
attempt to THROW to a tag that does not exist: SB-INT:TOPLEVEL-CATCHER
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [ABORT] Reduce debugger level (to debug level 1).
(SB-C:UNWIND)
0[2] (top)
; No debug variables for current frame: using EVAL instead of EVAL-IN-FRAME.
(181) -> u : D3 := 0
debugger invoked on a UNDEFINED-FUNCTION in thread
#<THREAD "main thread" RUNNING {10028BEE43}>:
The function BOOT::|#| is undefined.
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
(no restarts: If you didn't do this on purpose, please report it as a bug.)
("undefined function")
0] backtrace
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10028BEE43}>
0: ("undefined function")
1: (|DisjunctiveNormalForm;| (|p1| |p2| |p3|))
2: (|DisjunctiveNormalForm| (|p1| |p2| |p3|))
3: (SB-EVAL:EVAL-IN-NATIVE-ENVIRONMENT (|DisjunctiveNormalForm| (QUOTE
(|p1| |p2| |p3|))) #<NULL-LEXENV>)
4: (EVAL (|DisjunctiveNormalForm| (QUOTE (|p1| |p2| |p3|))))
5: (|eval| (|DisjunctiveNormalForm| (QUOTE (|p1| |p2| |p3|))))
6: (|evalDomain| (|DisjunctiveNormalForm| (|p1| |p2| |p3|)))
7: (|interpLookup;| |coerce| ($ (|Integer|)) (|DisjunctiveNormalForm|
(|p1| |p2| |p3|)))
8: (|interpLookup| |coerce| ($ (|Integer|)) (|DisjunctiveNormalForm|
(|p1| |p2| |p3|)))
9: (|coerceByFunction| ((|NonNegativeInteger|) . 0)
(|DisjunctiveNormalForm| (|p1| |p2| |p3|)))
10: (|coerceIntTower| ((|NonNegativeInteger|) . 0)
(|DisjunctiveNormalForm| (|p1| |p2| |p3|)))
11: (|coerceInt1| ((|NonNegativeInteger|) . 0) (|DisjunctiveNormalForm|
(|p1| |p2| |p3|)))
12: (|coerceInt| ((|NonNegativeInteger|) . 0) (|DisjunctiveNormalForm|
(|p1| |p2| |p3|)))
13: (|coerceInt0| ((|NonNegativeInteger|) . 0) (|DisjunctiveNormalForm|
(|p1| |p2| |p3|)))
14: (|coerceInteractive| ((|NonNegativeInteger|) . 0) #<unavailable
argument>)
15: (|coerceOrRetract| ((|NonNegativeInteger|) . 0)
(|DisjunctiveNormalForm| (|p1| |p2| |p3|)))
16: (|getArgValue1| #(|--immediateData--| NIL ((|NonNegativeInteger|) .
0) ((|DisjunctiveNormalForm| (|p1| |p2| |p3|))) ((|target|
|DisjunctiveNormalForm| (|p1| |p2| |p3|)))) (|DisjunctiveNormalForm|
(|p1| |p2| |p3|)))
17: (|getArgValue| #(|--immediateData--| NIL ((|NonNegativeInteger|) .
0) ((|DisjunctiveNormalForm| (|p1| |p2| |p3|))) ((|target|
|DisjunctiveNormalForm| (|p1| |p2| |p3|)))) (|DisjunctiveNormalForm|
(|p1| |p2| |p3|)))
18: (|evalLET| #(|u| (|DisjunctiveNormalForm| (|p1| |p2| |p3|)) NIL NIL
NIL) #(|--immediateData--| NIL ((|NonNegativeInteger|) . 0)
((|DisjunctiveNormalForm| (|p1| |p2| |p3|))) ((|target|
|DisjunctiveNormalForm| (|p1| |p2| |p3|)))))
19: (|upLET| (#(LET NIL NIL NIL NIL) #(|u| #1=(|DisjunctiveNormalForm|
(|p1| |p2| |p3|)) NIL NIL NIL) #(|--immediateData--| NIL
((|NonNegativeInteger|) . 0) ((|DisjunctiveNormalForm| (|p1| |p2|
|p3|))) ((|target| . #1#)))))
20: (|bottomUp| (#(LET NIL NIL NIL NIL) #(|u|
#1=(|DisjunctiveNormalForm| (|p1| |p2| |p3|)) NIL NIL NIL)
#(|--immediateData--| NIL ((|NonNegativeInteger|) . 0)
((|DisjunctiveNormalForm| (|p1| |p2| |p3|))) ((|target| . #1#)))))
21: (|upSEQ| (#(SEQ NIL NIL NIL NIL) (#(|Declare| NIL (#1=(|Void|) .
"()") (#1#) NIL) |u| D3) (#(LET NIL NIL NIL NIL) #(|u|
#2=(|DisjunctiveNormalForm| (|p1| |p2| |p3|)) NIL NIL NIL)
#(|--immediateData--| NIL ((|NonNegativeInteger|) . 0)
((|DisjunctiveNormalForm| #)) ((|target| . #2#))))))
22: (|bottomUp| (#(SEQ NIL NIL NIL NIL) (#(|Declare| NIL (#1=(|Void|) .
"()") (#1#) NIL) |u| D3) (#(LET NIL NIL NIL NIL) #(|u|
#2=(|DisjunctiveNormalForm| (|p1| |p2| |p3|)) NIL NIL NIL)
#(|--immediateData--| NIL ((|NonNegativeInteger|) . 0)
((|DisjunctiveNormalForm| #)) ((|target| . #2#))))))
23: (|interpret1| (LET (|:| |u| D3) 0) NIL (|Assign| (|listOf| (|Tagged|
((|id| #) . |u|) ((|id| #) . D3))) ((|integer| (|posn| (0 "u : D3 := 0"
1 1 "strings") . 10)) . "0")))
24: (|interpret| (LET (|:| |u| D3) 0) (|Assign| (|listOf| (|Tagged|
((|id| #) . |u|) ((|id| #) . D3))) ((|integer| (|posn| (0 "u : D3 := 0"
1 1 "strings") . 10)) . "0")))
25: (|interpretTopLevel| (LET (|:| |u| D3) 0) (|Assign| (|listOf|
(|Tagged| ((|id| #) . |u|) ((|id| #) . D3))) ((|integer| (|posn| (0 "u :
D3 := 0" 1 1 "strings") . 10)) . "0")))
26: (|processInteractive1| (LET (|:| |u| D3) 0) (|Assign| (|listOf|
(|Tagged| ((|id| #) . |u|) ((|id| #) . D3))) ((|integer| (|posn| (0 "u :
D3 := 0" 1 1 "strings") . 10)) . "0")))
27: (|processInteractive| (LET (|:| |u| D3) 0) (|Assign| (|listOf|
(|Tagged| ((|id| #) . |u|) ((|id| #) . D3))) ((|integer| (|posn| (0 "u :
D3 := 0" 1 1 "strings") . 10)) . "0")))
28: (|phInterpret| ((|carrier| (|ok?| . T) (|ptreePremacro| .
#1=(|Assign| (|listOf| #) (# . "0"))) (|ptree| . #1#) (|lines| ((# . 1)
. "u : D3 := 0")) (|messages|) (|stepNumber| . 1))))
29: (|ncConversationPhase| #<FUNCTION |phInterpret|> (((|carrier| (|ok?|
. T) (|ptreePremacro| . #1=(|Assign| # #)) (|ptree| . #1#) (|lines| (# .
"u : D3 := 0")) (|messages|) (|stepNumber| . 1)))))
30: (|intloopSpadProcess,interp| ((|carrier| (|ok?| . T)
(|ptreePremacro| . #1=(|Assign| (|listOf| #) (# . "0"))) (|ptree| . #1#)
(|lines| ((# . 1) . "u : D3 := 0")) (|messages|) (|stepNumber| . 1)))
(|Assign| (|listOf| (|Tagged| ((|id| #) . |u|) ((|id| #) . D3)))
((|integer| (|posn| (0 "u : D3 := 0" 1 1 "strings") . 10)) . "0")) T)
31: (|intloopSpadProcess| 1 ((((0 #1="u : D3 := 0" 1 1 "strings") . 1) .
#1#)) (|Assign| (|listOf| (|Tagged| ((|id| #) . |u|) ((|id| #) . D3)))
((|integer| (|posn| (0 "u : D3 := 0" 1 1 "strings") . 10)) . "0")) T)
32: (|intloopProcess| 1 T (((((# . 1) . "u : D3 := 0")) (|Assign|
(|listOf| (|Tagged| # #)) ((|integer| #) . "0"))) |nonnullstream|
#1=#<FUNCTION |incAppend1|> NIL (|nonnullstream| #2=#<FUNCTION |next1|>
#<FUNCTION |ncloopParse|> (|nonnullstream| #1# NIL (|nonnullstream| #2#
#<FUNCTION |fakepile|> (|nullstream|))))))
33: (|intloopReadConsole| #<unavailable argument> 1)
34: (|SpadInterpretStream| 1 (TIM DALY ?) T)
35: (|intloop|)
36: (|ncTopLevel|)
37: (|runspad|)
38: (|spad|)
39: (FRICAS-RESTART)
40: ((LAMBDA NIL :IN FRICAS-LISP::SAVE-CORE-RESTART))
41: ((FLET #:WITHOUT-INTERRUPTS-BODY-77 :IN SB-EXT:SAVE-LISP-AND-DIE))
42: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))
Am 19.09.17 um 14:03 schrieb oldk1331:
> Source code please, or show backtrace by
>
> )set break break
> run your code
> backtrace
>
--
Mit freundlichen Grüßen
Johannes Grabmeier
Prof. Dr. Johannes Grabmeier
Köckstraße 1, D-94469 Deggendorf
Tel. +49-(0)-991-2979584, Tel. +49-(0)-151-681-70756
Tel. +49-(0)-991-3615-141 (d), Fax: +49-(0)-32224-192688
--
You received this message because you are subscribed to the Google Groups
"FriCAS - computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at https://groups.google.com/group/fricas-devel.
For more options, visit https://groups.google.com/d/optout.
