Hi Waldek
>
> Normal way to debug such problems is to use Lisp debugger, see
> doc/debug.txt in the trunk.
>
I could trace the error to "coerceByFunction" in i-coerce.boot:
)lisp (|coerceByFunction| '((|List| (|Symbol|)) WRAPPED |construct| (QUOTE |a|)
(QUOTE |b|) (QUOTE |c|)) '(|OutputForm|))
>> Error detected within library code:
index out of range
Furthermore, objVal and objMode seem to be ok, but it's a marvel to me what
happens next in the code. Maybe you will see it at once? (backtrace attached).
EOLatin for me :(
)lisp (|objVal| '((|List| (|Symbol|)) WRAPPED |construct| (QUOTE |a|) (QUOTE
|b|) (QUOTE |c|)))
Value = (WRAPPED |construct| '|a| '|b| '|c|)
)lisp (|objMode| '((|List| (|Symbol|)) WRAPPED |construct| (QUOTE |a|) (QUOTE
|b|) (QUOTE |c|)))
Value = (|List| (|Symbol|))
)boot displayOperationsFromLisplib ['Pkg1]
)boot opList:= GETDATABASE('Pkg1,'OPERATIONALIST)
)boot opl:=REMDUP MSORT EQSUBSTLIST(nil,$FormalMapVariableList,opList)
)boot formatOperationAlistEntry(car opl) --> ERROR
-- simplified TEST, PKG1, PKG2
)abbrev domain TEST Test
Test(s:List Symbol):A==B where
T ==> OrderedVariableList s
A == CoercibleTo OutputForm with
foo: Integer -> %
B == T add
Rep:=T
foo(n) == (enumerate()$T).n
)abbrev package PKG1 Pkg1
Pkg1():A==B where
T ==> Test ['a,'b,'c]
A == with
bar : Integer -> T
B == T add
bar(n) == foo(n)$T
)abbrev package PKG2 Pkg2
Pkg2(s:List Symbol):A==B where
T ==> Test s
A == with
bar : Integer -> T
B == T add
bar(n) == foo(n)$T
-----------
; compilation finished in 0:00:00.010
------------------------------------------------------------------------
Pkg2 is now explicitly exposed in frame initial
Pkg2 will be automatically loaded when needed from
/Users/kfp/Desktop/work/spad/PKG2.NRLIB/PKG2
(2) -> )sh Pkg1
Pkg1 is a package constructor
Abbreviation for Pkg1 is PKG1
This constructor is exposed in this frame.
------------------------------- Operations --------------------------------
>> Error detected within library code:
index out of range
(2) -> )sh Pkg2
Pkg2(s: List(Symbol)) is a package constructor
Abbreviation for Pkg2 is PKG2
This constructor is exposed in this frame.
------------------------------- Operations --------------------------------
bar : Integer -> Test(s)
--
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.
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {24F4A0E1}>
0: (|handleLispBreakLoop| |break|)
1: (|errorSupervisor1| |AlgebraError| "index out of range" |break|)
2: (|SYMBOL;scripts;$R;31| (QUOTE |a|) #1=#(#2=(|Symbol|) (#3=#<FUNCTION
|lookupComplete|> #1# #(~= 246 |superscript| 252 |subscript| 258 |string| 264
|smaller?| 269 |scripts| 275 ...)) NIL 0 (#(|OrderedSet&| T T T |SetCategory&|
|BasicType&| T T T |OpenMath&| T |PartialOrder&| ...) #((|OrderedSet|)
(|Comparable|) (|PatternMatchable| (|Float|)) (|PatternMatchable| 6)
(|SetCategory|) (|BasicType|) (|ConvertibleTo| 68) (|ConvertibleTo| 62)
(|ConvertibleTo| 23) (|OpenMath|) (|ConvertibleTo| 32) (|PartialOrder|) ...) .
#(1 7 0 6 8 0 10 0 11 1 14 0 ...)) NIL #4=#(#5=(|Integer|) (#3# #4# #(~= 121
|zero?| 127 |unitNormal| 132 |unitCanonical| 137 |unit?| 142
|symmetricRemainder| 147 ...)) NIL 0 (#(|IntegerNumberSystem&|
|PolynomialFactorizationExplicit&| |EuclideanDomain&|
|UniqueFactorizationDomain&| T T |GcdDomain&| T |OrderedRing&| T |Algebra&| T
...) #((|IntegerNumberSystem|) (|PolynomialFactorizationExplicit|)
(|EuclideanDomain|) (|UniqueFactorizationDomain|) (|PrincipalIdealDomain|)
(|OrderedIntegralDomain|) (|GcdDomain|) (|IntegralDomain|) (|OrderedRing|)
(|LeftOreRing|) (|Algebra| $$) (|LinearlyExplicitRingOver| 11) ...) . #(1 7 6 0
8 3 7 6 0 9 9 10 ...)) NIL (|Void|) (|OpenMathDevice|) (#6=#<FUNCTION
|newGoGet|> #4# 0 . |OMputApp|) (|String|) (#6# #4# 5 . |OMputSymbol|) #5# ...)
#7=#((|Reference| #5#) (#3# #7# #8=#(~= 21 |setref| 27 |setelt!| 33 |ref| 39
|latex| 44 |hashUpdate!| 49 ...)) NIL 1 (#(|SetCategory&| T |BasicType&| T) .
#9=(#(# # # #) . #(1 16 0 15 17 1 6 16 0 18 2 16 ...))) NIL #4# #10=#((|Record|
. #11=(#)) (#12=#<FUNCTION |lookupInTable|> #10# (# # #)) NIL (|RecordCategory|
. #11#) ((#13=#) (# # #13#)) (#4#) (#14=#<FUNCTION |RecordEqual|> . #10#)
(#15=#<FUNCTION |RecordPrint|> . #10#) (#16=#<FUNCTION |Undef|> . #10#) (NIL)
(#17=#<FUNCTION |RecordUnEqual|> . #10#)) #18=(|Boolean|) (#19=#<FUNCTION
|REF;=;2$B;1|> . #7#) #20=(#21=#<FUNCTION |REF;ref;S$;2|> . #7#)
(#22=#<FUNCTION |REF;elt;$S;3|> . #7#) ...) #20# (0) #23=#((|AssociationList|
#2# #5#) (#3# #23# #(~= 65 |value| 71 |third| 76 |tail| 81 |table| 86 |swap!|
95 ...)) NIL 8339436 (#(T |TableAggregate&| |KeyedDictionary&| |Dictionary&|
|ListAggregate&| |DictionaryOperations&| |ExtensibleLinearAggregate&|
|FiniteLinearAggregate&| |StreamAggregate&| |BagAggregate&| |LinearAggregate&|
|UnaryRecursiveAggregate&| ...) #((|AssociationListAggregate| 6 7)
(|TableAggregate| 6 7) (|KeyedDictionary| 6 7) (|Dictionary| #24=#)
(|ListAggregate| #24#) (|DictionaryOperations| #24#)
(|ExtensibleLinearAggregate| #24#) (|FiniteLinearAggregate| #24#)
(|StreamAggregate| #24#) (|BagAggregate| #24#) (|LinearAggregate| #24#)
(|UnaryRecursiveAggregate| #24#) ...) . #(1 8 0 10 11 1 8 10 0 14 2 10 ...))
NIL #1# #4# #25=#((|Reference| #26=(|List| #27=#)) (#3# #25# #8#) NIL 1
(#(|SetCategory&| T |BasicType&| T) . #9#) NIL #28=#(#26# (#<FUNCTION
|lookupIncomplete|> #28# #) NIL 130680 (# # . #) (|IndexedList| 6 #) #(#27# #
NIL # # # # # # # #) (#<FUNCTION |LIST;nil;$;1|> . #28#) (|Boolean|)
(#<FUNCTION |LIST;null;$B;2|> . #28#) (#<FUNCTION |LIST;cons;S2$;3|> . #28#)
(#<FUNCTION |LIST;append;3$;4|> . #28#) ...) #29=#((|Record| . #30=#) (#12#
#29# #) NIL (|RecordCategory| . #30#) (# #) (#28#) (#14# . #29#) (#15# . #29#)
(#16# . #29#) (NIL) (#17# . #29#)) #18# (#19# . #25#) #31=(#21# . #25#) (#22# .
#25#) ...) #24# (|List| 9) #31# ...) (#<FUNCTION |ALIST;empty;$;2|> . #23#)
...))
3: (|SYMBOL;coerce;$Of;9| (QUOTE |a|) #1=#(#2=(|Symbol|) (#3=#<FUNCTION
|lookupComplete|> #1# #(~= 246 |superscript| 252 |subscript| 258 |string| 264
|smaller?| 269 |scripts| 275 ...)) NIL 0 (#(|OrderedSet&| T T T |SetCategory&|
|BasicType&| T T T |OpenMath&| T |PartialOrder&| ...) #((|OrderedSet|)
(|Comparable|) (|PatternMatchable| (|Float|)) (|PatternMatchable| 6)
(|SetCategory|) (|BasicType|) (|ConvertibleTo| 68) (|ConvertibleTo| 62)
(|ConvertibleTo| 23) (|OpenMath|) (|ConvertibleTo| 32) (|PartialOrder|) ...) .
#(1 7 0 6 8 0 10 0 11 1 14 0 ...)) NIL #4=#(#5=(|Integer|) (#3# #4# #(~= 121
|zero?| 127 |unitNormal| 132 |unitCanonical| 137 |unit?| 142
|symmetricRemainder| 147 ...)) NIL 0 (#(|IntegerNumberSystem&|
|PolynomialFactorizationExplicit&| |EuclideanDomain&|
|UniqueFactorizationDomain&| T T |GcdDomain&| T |OrderedRing&| T |Algebra&| T
...) #((|IntegerNumberSystem|) (|PolynomialFactorizationExplicit|)
(|EuclideanDomain|) (|UniqueFactorizationDomain|) (|PrincipalIdealDomain|)
(|OrderedIntegralDomain|) (|GcdDomain|) (|IntegralDomain|) (|OrderedRing|)
(|LeftOreRing|) (|Algebra| $$) (|LinearlyExplicitRingOver| 11) ...) . #(1 7 6 0
8 3 7 6 0 9 9 10 ...)) NIL (|Void|) (|OpenMathDevice|) (#6=#<FUNCTION
|newGoGet|> #4# 0 . |OMputApp|) (|String|) (#6# #4# 5 . |OMputSymbol|) #5# ...)
#7=#((|Reference| #5#) (#3# #7# #8=#(~= 21 |setref| 27 |setelt!| 33 |ref| 39
|latex| 44 |hashUpdate!| 49 ...)) NIL 1 (#(|SetCategory&| T |BasicType&| T) .
#9=(#(# # # #) . #(1 16 0 15 17 1 6 16 0 18 2 16 ...))) NIL #4# #10=#((|Record|
. #11=(#)) (#12=#<FUNCTION |lookupInTable|> #10# (# # #)) NIL (|RecordCategory|
. #11#) ((#13=#) (# # #13#)) (#4#) (#14=#<FUNCTION |RecordEqual|> . #10#)
(#15=#<FUNCTION |RecordPrint|> . #10#) (#16=#<FUNCTION |Undef|> . #10#) (NIL)
(#17=#<FUNCTION |RecordUnEqual|> . #10#)) #18=(|Boolean|) (#19=#<FUNCTION
|REF;=;2$B;1|> . #7#) #20=(#21=#<FUNCTION |REF;ref;S$;2|> . #7#)
(#22=#<FUNCTION |REF;elt;$S;3|> . #7#) ...) #20# (0) #23=#((|AssociationList|
#2# #5#) (#3# #23# #(~= 65 |value| 71 |third| 76 |tail| 81 |table| 86 |swap!|
95 ...)) NIL 8339436 (#(T |TableAggregate&| |KeyedDictionary&| |Dictionary&|
|ListAggregate&| |DictionaryOperations&| |ExtensibleLinearAggregate&|
|FiniteLinearAggregate&| |StreamAggregate&| |BagAggregate&| |LinearAggregate&|
|UnaryRecursiveAggregate&| ...) #((|AssociationListAggregate| 6 7)
(|TableAggregate| 6 7) (|KeyedDictionary| 6 7) (|Dictionary| #24=#)
(|ListAggregate| #24#) (|DictionaryOperations| #24#)
(|ExtensibleLinearAggregate| #24#) (|FiniteLinearAggregate| #24#)
(|StreamAggregate| #24#) (|BagAggregate| #24#) (|LinearAggregate| #24#)
(|UnaryRecursiveAggregate| #24#) ...) . #(1 8 0 10 11 1 8 10 0 14 2 10 ...))
NIL #1# #4# #25=#((|Reference| #26=(|List| #27=#)) (#3# #25# #8#) NIL 1
(#(|SetCategory&| T |BasicType&| T) . #9#) NIL #28=#(#26# (#<FUNCTION
|lookupIncomplete|> #28# #) NIL 130680 (# # . #) (|IndexedList| 6 #) #(#27# #
NIL # # # # # # # #) (#<FUNCTION |LIST;nil;$;1|> . #28#) (|Boolean|)
(#<FUNCTION |LIST;null;$B;2|> . #28#) (#<FUNCTION |LIST;cons;S2$;3|> . #28#)
(#<FUNCTION |LIST;append;3$;4|> . #28#) ...) #29=#((|Record| . #30=#) (#12#
#29# #) NIL (|RecordCategory| . #30#) (# #) (#28#) (#14# . #29#) (#15# . #29#)
(#16# . #29#) (NIL) (#17# . #29#)) #18# (#19# . #25#) #31=(#21# . #25#) (#22# .
#25#) ...) #24# (|List| 9) #31# ...) (#<FUNCTION |ALIST;empty;$;2|> . #23#)
...))
4: (|ILIST;coerce;$Of;23| #<unavailable argument> #1=#(#2=(|IndexedList|
#3=(|Symbol|) 1) (#4=#<FUNCTION |lookupComplete|> #1# #(~= 97 |value| 103
|third| 108 |tail| 113 |swap!| 118 |split!| 125 ...)) NIL 130879
(#(|ListAggregate&| |StreamAggregate&| |ExtensibleLinearAggregate&|
|FiniteLinearAggregate&| #5=#((|UnaryRecursiveAggregate&| #2# #3#) (#4# #5# #)
NIL 1 (# # . #) NIL #1# #6=#(#3# # NIL 0 # NIL # # # # # # ...) (#7=#<FUNCTION
|newGoGet|> #5# 0 . |first|) (QUOTE "first") (#<FUNCTION
|URAGG-;elt;AfirstS;1|> . #5#) (#7# #5# 5 . |last|) ...) |LinearAggregate&|
|RecursiveAggregate&| |IndexedAggregate&| |Collection&| |OrderedSet&|
|HomogeneousAggregate&| T ...) #((|ListAggregate| 6) (|StreamAggregate| 6)
(|ExtensibleLinearAggregate| 6) (|FiniteLinearAggregate| 6)
(|UnaryRecursiveAggregate| 6) (|LinearAggregate| 6) (|RecursiveAggregate| 6)
(|IndexedAggregate| 32 6) (|Collection| 6) (|OrderedSet|)
(|HomogeneousAggregate| 6) (|Comparable|) ...) . #(1 0 11 0 35 1 0 0 0 37 1 6
...)) NIL #6# 1 (|NonNegativeInteger|) (#<FUNCTION |ILIST;#;$Nni;1|> . #1#)
(#<FUNCTION |ILIST;concat;S2$;2|> . #1#) (|Boolean|) ...))
5: (|coerceByFunction| ((|List| (|Symbol|)) WRAPPED |construct| (QUOTE |a|)
(QUOTE |b|) (QUOTE |c|)) (|OutputForm|))
6: (|coerceIntTower| ((|List| (|Symbol|)) WRAPPED |construct| (QUOTE |a|)
(QUOTE |b|) (QUOTE |c|)) (|OutputForm|))
7: (|coerceInt1| ((|List| (|Symbol|)) WRAPPED |construct| (QUOTE |a|) (QUOTE
|b|) (QUOTE |c|)) (|OutputForm|))
8: (|coerceInt| ((|List| (|Symbol|)) WRAPPED |construct| (QUOTE |a|) (QUOTE
|b|) (QUOTE |c|)) (|OutputForm|))
9: (|coerceInt0| ((|List| (|Symbol|)) WRAPPED |construct| (QUOTE |a|) (QUOTE
|b|) (QUOTE |c|)) (|OutputForm|))
10: (|coerceInteractive| ((|List| (|Symbol|)) WRAPPED |construct| (QUOTE |a|)
(QUOTE |b|) (QUOTE |c|)) #<unavailable argument>)
11: (|formArguments2String,fn| (|construct| (QUOTE |a|) (QUOTE |b|) (QUOTE
|c|)) (|List| (|Symbol|)))
12: (|formArguments2String| ((|construct| (QUOTE |a|) (QUOTE |b|) (QUOTE |c|)))
((|List| (|Symbol|))))
13: (|form2String1| #<unavailable argument>)
14: (|form2StringLocal| (|Test| (|construct| (QUOTE |a|) (QUOTE |b|) (QUOTE
|c|))))
15: (|formatSignature0| ((|Test| (|construct| (QUOTE |a|) (QUOTE |b|) (QUOTE
|c|))) (|Integer|)))
16: (|formatSignature| ((|Test| (|construct| (QUOTE |a|) (QUOTE |b|) (QUOTE
|c|))) (|Integer|)))
17: (|formatOpSignature| |bar| ((|Test| (|construct| (QUOTE |a|) (QUOTE |b|)
(QUOTE |c|))) (|Integer|)))
18: (|formatOperationAlistEntry| (|bar| (((|Test| (|construct| # # #))
(|Integer|)) 8)))
19: (|displayOperationsFromLisplib| (|Pkg1|))
20: (|reportOpsFromLisplib| |Pkg1| PKG1)
21: (|reportOperations| #<unavailable argument> PKG1)
22: (|showSpad2Cmd| (PKG1))
23: (|show| (PKG1))
24: (|systemCommand| ((|show| PKG1)))
25: (|doSystemCommand| #<unavailable argument>)
26: (SB-EVAL:EVAL-IN-NATIVE-ENVIRONMENT (SPADCALL "show PKG1" (QUOTE
#1=(#<FUNCTION |MSYSCMD;systemCommand;SV;1|> . #2=#((|MoreSystemCommands|)
(#<FUNCTION |lookupComplete|> #2# #) NIL 0 (# # . #) NIL (|Void|) (|String|)
#1#)))) #<NULL-LEXENV>)
27: (EVAL (SPADCALL "show PKG1" (QUOTE #1=(#<FUNCTION
|MSYSCMD;systemCommand;SV;1|> . #2=#((|MoreSystemCommands|) (#<FUNCTION
|lookupComplete|> #2# #) NIL 0 (# # . #) NIL (|Void|) (|String|) #1#)))))
28: (|eval| (SPADCALL "show PKG1" (QUOTE #1=(#<FUNCTION
|MSYSCMD;systemCommand;SV;1|> . #2=#((|MoreSystemCommands|) (#<FUNCTION
|lookupComplete|> #2# #) NIL 0 (# # . #) NIL (|Void|) (|String|) #1#)))))
29: (|timedEVALFUN| (SPADCALL "show PKG1" (QUOTE #1=(#<FUNCTION
|MSYSCMD;systemCommand;SV;1|> . #2=#((|MoreSystemCommands|) (#<FUNCTION
|lookupComplete|> #2# #) NIL 0 (# # . #) NIL (|Void|) (|String|) #1#)))))
30: (|evalFormMkValue| #(|systemCommand| NIL NIL NIL NIL) (SPADCALL "show PKG1"
(QUOTE #1=(#<FUNCTION |MSYSCMD;systemCommand;SV;1|> .
#2=#((|MoreSystemCommands|) (#<FUNCTION |lookupComplete|> #2# #) NIL 0 (# # .
#) NIL (|Void|) (|String|) #1#)))) (|Void|))
31: (|evalForm| #(|systemCommand| NIL NIL NIL NIL) |systemCommand|
(#(|--immediateData--| NIL (#1=(|String|) . "show PKG1") (#1#) ((|totalArgs| .
1) (|argumentNumber| . 1) (|callingFunction| . |systemCommand|))))
((((|MoreSystemCommands|) . #1=((|Void|) (|String|))) #1# (NIL))))
32: (|bottomUpForm2| (#(|systemCommand| NIL NIL NIL NIL) #(|--immediateData--|
NIL (#1=(|String|) . "show PKG1") (#1#) ((|totalArgs| . 1) (|argumentNumber| .
1) (|callingFunction| . |systemCommand|)))) #(|systemCommand| NIL NIL NIL NIL)
#<unavailable argument> (#(|--immediateData--| NIL (#1=(|String|) . "show
PKG1") (#1#) ((|totalArgs| . 1) (|argumentNumber| . 1) (|callingFunction| .
|systemCommand|)))) (((|String|))))
33: (|bottomUpForm3| (#(|systemCommand| NIL NIL NIL NIL) #(|--immediateData--|
NIL (#1=(|String|) . "show PKG1") (#1#) ((|totalArgs| . 1) (|argumentNumber| .
1) (|callingFunction| . |systemCommand|)))) #(|systemCommand| NIL NIL NIL NIL)
|systemCommand| (#(|--immediateData--| NIL (#1=(|String|) . "show PKG1") (#1#)
((|totalArgs| . 1) (|argumentNumber| . 1) (|callingFunction| .
|systemCommand|)))) (((|String|))))
34: (|bottomUp| (#(|systemCommand| NIL NIL NIL NIL) #(|--immediateData--| NIL
(#1=(|String|) . "show PKG1") (#1#) ((|totalArgs| . 1) (|argumentNumber| . 1)
(|callingFunction| . |systemCommand|)))))
35: (|interpret1| (|systemCommand| "show PKG1") NIL (|Application| ((|id|
(|posn| #1=(0 "systemCommand \"show PKG1\"" 1 1 "strings") . 0)) .
|systemCommand|) ((|string| (|posn| #1# . 14)) . "show PKG1")))
36: (|interpret| (|systemCommand| "show PKG1") (|Application| ((|id| (|posn|
#1=(0 "systemCommand \"show PKG1\"" 1 1 "strings") . 0)) . |systemCommand|)
((|string| (|posn| #1# . 14)) . "show PKG1")))
37: (|interpretTopLevel| (|systemCommand| "show PKG1") (|Application| ((|id|
(|posn| #1=(0 "systemCommand \"show PKG1\"" 1 1 "strings") . 0)) .
|systemCommand|) ((|string| (|posn| #1# . 14)) . "show PKG1")))
38: (|processInteractive1| (|systemCommand| "show PKG1") (|Application| ((|id|
(|posn| #1=(0 "systemCommand \"show PKG1\"" 1 1 "strings") . 0)) .
|systemCommand|) ((|string| (|posn| #1# . 14)) . "show PKG1")))
39: (|processInteractive| (|systemCommand| "show PKG1") (|Application| ((|id|
(|posn| #1=(0 "systemCommand \"show PKG1\"" 1 1 "strings") . 0)) .
|systemCommand|) ((|string| (|posn| #1# . 14)) . "show PKG1")))
40: (|phInterpret| ((|carrier| (|ok?| . T) (|ptreePremacro| . #1=(|Application|
(# . |systemCommand|) (# . "show PKG1"))) (|ptree| . #1#) (|lines| ((# . 1) .
"systemCommand \"show PKG1\"")) (|messages|) (|stepNumber| . 1))))
41: (|ncConversationPhase| #<FUNCTION |phInterpret|> (((|carrier| (|ok?| . T)
(|ptreePremacro| . #1=(|Application| # #)) (|ptree| . #1#) (|lines| (# .
"systemCommand \"show PKG1\"")) (|messages|) (|stepNumber| . 1)))))
42: (|intloopSpadProcess,interp| ((|carrier| (|ok?| . T) (|ptreePremacro| .
#1=(|Application| (# . |systemCommand|) (# . "show PKG1"))) (|ptree| . #1#)
(|lines| ((# . 1) . "systemCommand \"show PKG1\"")) (|messages|) (|stepNumber|
. 1))) (|Application| ((|id| (|posn| #1=(0 "systemCommand \"show PKG1\"" 1 1
"strings") . 0)) . |systemCommand|) ((|string| (|posn| #1# . 14)) . "show
PKG1")) T)
43: (|intloopSpadProcess| 1 ((((0 #1="systemCommand \"show PKG1\"" 1 1
"strings") . 1) . #1#)) (|Application| ((|id| (|posn| #1=(0 "systemCommand
\"show PKG1\"" 1 1 "strings") . 0)) . |systemCommand|) ((|string| (|posn| #1# .
14)) . "show PKG1")) T)
44: (|intloopProcess| 1 T (((((# . 1) . "systemCommand \"show PKG1\""))
(|Application| ((|id| #) . |systemCommand|) ((|string| #) . "show PKG1")))
|nonnullstream| #1=#<FUNCTION |incAppend1|> NIL (|nonnullstream| #2=#<FUNCTION
|next1|> #<FUNCTION |ncloopParse|> (|nonnullstream| #1# NIL (|nonnullstream|
#2# #<FUNCTION |fakepile|> (|nullstream|))))))
45: (|intloopReadConsole| #<unavailable argument> 1)
46: (|SpadInterpretStream| 1 (TIM DALY ?) T)
47: (|intloop|)
48: (|ncTopLevel|)
49: (|runspad|)
50: (|spad|)
51: (FRICAS-RESTART)
52: ((LAMBDA NIL :IN FRICAS-LISP::SAVE-CORE-RESTART))
53: ((FLET #:WITHOUT-INTERRUPTS-BODY-90 :IN SB-EXT:SAVE-LISP-AND-DIE))
54: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))
55: ("foreign function: #x42BE30")
56: ("foreign function: #x416DF6")
