Re: [Axiom-developer] Re: Hyperdoc

[William Sit]

Martin Rubey wrote:

> "Bill Page" <address@hidden> writes:
>
> > > and, most importantly, sockets on windows!
> >
> > ??? There is support for sockets on Windows in GCL and this works
> > for axiom-0.1.4 on Windows.
>
> In fact, that's good news.
>
> But, why couldn't anybody run my code on windows so far?  See for example
> William Sit's attempts.
>
> Martin

I tried again, this time starting Windows "World Wide Web Publishing" service
before hand. My browsers (Firefox and I.E.7) both could not find the URL.
http://localhost:8080/|?binomial` `OutputForm|
I also tried some other functions that are in the database instead of
binomial.
I note that in /tmp, there is a file named target.txt.NIL (38k size).

So I break into BOOT. Output below.

William
---

(2) -> SOCKET(8080, getDocumentation$HyperDoc)$Lisp

Error: Console interrupt.
Error signalled by GO.
Broken at SYSTEM::BREAK-LEVEL.  Type :H for Help.
BOOT>>

:bt

#0   APPLY {loc0=#<compiled-function
system:universal-error-handler>,loc1=:error
,loc2=nil,l...} [ihs=33]
#1   APPLY {loc0=#<compiled-function
system:universal-error-handler>,loc1=:error
,loc2=nil,l...} [ihs=32]
#2   LAMBDA {} [ihs=29]
#3   SOCKET {} [ihs=24]
#4   EVAL {loc0=nil,loc1=nil,loc2=nil,loc3=(lambda-block socket (port docfun)
..
.),loc4=80...} [ihs=23]
#5   timedEvaluate {loc0=(socket 8080 (quote (# . #<vector
1b16ba48>))),loc1=(so
cket 8080 (quote (#...} [ihs=22]
#6   timedEVALFUN {loc0=(socket 8080 (quote (# . #<vector 1b16ba48>)))}
[ihs=21]

#7   upLispCall {loc0=#<vector 1b16be54>,loc1=(#<vector 1b16be38> #<vector
1b16b
e1c> (#<vector 1...} [ihs=20]
#8   upDollar {loc0=(#<vector 1b16be54> |Lisp| (#<vector 1b16be38> #<vector
1b16
be1c> (# # #))...} [ihs=19]
#9   bottomUp {loc0=(#<vector 1b16be54> |Lisp| (#<vector 1b16be38> #<vector
1b16
be1c> (# # #))...} [ihs=18]
#10   interpret1 {loc0=((|$elt| |Lisp| socket) 8080 (|$elt| |HyperDoc|
|getDocum
entation|)),loc1=...} [ihs=17]
#11   interpret {loc0=((|$elt| |Lisp| socket) 8080 (|$elt| |HyperDoc|
|getDocume
ntation|)),loc1=...} [ihs=16]
#12   interpretTopLevel {loc0=((|$elt| |Lisp| socket) 8080 (|$elt| |HyperDoc|
|g
etDocumentation|)),loc1=...} [ihs=15]
#13   processInteractive1 {loc0=((|$elt| |Lisp| socket) 8080 (|$elt|
|HyperDoc|
|getDocumentation|)),loc1=...} [ihs=14]
#14   processInteractive {loc0=((|$elt| |Lisp| socket) 8080 (|$elt|
|HyperDoc| |
getDocumentation|)),loc1=...} [ihs=13]
#15   intInterpretPform {loc0=(|Application| (|Fromdom| (# . socket) (# .
|Lisp|
)) (|Tuple| (# # #)))} [ihs=12]
#16   ncConversationPhase {loc0=#<compiled-function |phInterpret|>,loc1=(((#
# #
 ...))),loc2=(((# . 1) . "...} [ihs=11]
#17   intloopSpadProcess,interp {loc0=((|carrier| (# . t) (# . #1=(# # #))
...))
,loc1=(|Application| (|Fromdom| ...} [ihs=10]
#18   intloopSpadProcess {loc0=2,loc1=(((# . 1) . "SOCKET(8080,
getDocumentation
$HyperDoc)$Lisp")),loc2=(...} [ihs=9]
#19   intloopProcess {loc0=2,loc1=t,loc2=(((#) (# # #)) |nonnullstream|
#<compil
ed-function |incAppen...} [ihs=8]
#20   intloopProcessString {loc0="SOCKET(8080,
getDocumentation$HyperDoc)$Lisp",
loc1=2} [ihs=7]
#21   RESTART {} [ihs=6]
#22   TOP-LEVEL
{loc0=nil,loc1=0,loc2=0,loc3=nil,loc4=nil,loc5=nil,loc6=nil,loc7
="c:/cvs/head/ax...} [ihs=5]
#23   FUNCALL {loc0=#<compiled-function system:top-level>} [ihs=4]
NIL
BOOT>>:q
BOOT>>:q
(2) -> SOCKET(8080, getDocumentation$HyperDoc)$Lisp

Error: Could not connect
Error signalled by LET.
Broken at SYSTEM::BREAK-LEVEL.  Type :H for Help.
BOOT>>:bt

#0   APPLY {loc0=#<compiled-function
system:universal-error-handler>,loc1=:error
,loc2=nil,l...} [ihs=36]
#1   APPLY {loc0=#<compiled-function
system:universal-error-handler>,loc1=:error
,loc2=nil,l...} [ihs=35]
#2   LAMBDA {} [ihs=32]
#3   SOCKET {loc0=8080,loc1=nil,loc2=(lambda-block server (s)
...),loc3=nil,loc4
=nil,loc5=ni...} [ihs=31]
#4   SOCKET {} [ihs=29]
#5   EVAL {loc0=nil,loc1=nil,loc2=nil,loc3=(lambda-block socket (port docfun)
..
.),loc4=80...} [ihs=28]
#6   timedEvaluate {loc0=(socket 8080 (quote (# . #<vector
1b16ba48>))),loc1=(so
cket 8080 (quote (#...} [ihs=27]
#7   timedEVALFUN {loc0=(socket 8080 (quote (# . #<vector 1b16ba48>)))}
[ihs=26]

#8   upLispCall {loc0=#<vector 1b16b8dc>,loc1=(#<vector 1b16b8c0> #<vector
1b16b
7fc> (#<vector 1...} [ihs=25]
#9   upDollar {loc0=(#<vector 1b16b8dc> |Lisp| (#<vector 1b16b8c0> #<vector
1b16
b7fc> (# # #))...} [ihs=24]
#10   bottomUp {loc0=(#<vector 1b16b8dc> |Lisp| (#<vector 1b16b8c0> #<vector
1b1
6b7fc> (# # #))...} [ihs=23]
#11   interpret1 {loc0=((|$elt| |Lisp| socket) 8080 (|$elt| |HyperDoc|
|getDocum
entation|)),loc1=...} [ihs=22]
#12   interpret {loc0=((|$elt| |Lisp| socket) 8080 (|$elt| |HyperDoc|
|getDocume
ntation|)),loc1=...} [ihs=21]
#13   interpretTopLevel {loc0=((|$elt| |Lisp| socket) 8080 (|$elt| |HyperDoc|
|g
etDocumentation|)),loc1=...} [ihs=20]
#14   processInteractive1 {loc0=((|$elt| |Lisp| socket) 8080 (|$elt|
|HyperDoc|
|getDocumentation|)),loc1=...} [ihs=19]
#15   processInteractive {loc0=((|$elt| |Lisp| socket) 8080 (|$elt|
|HyperDoc| |
getDocumentation|)),loc1=...} [ihs=18]
#16   intInterpretPform {loc0=(|Application| (|Fromdom| (# . socket) (# .
|Lisp|
)) (|Tuple| (# # #)))} [ihs=17]
#17   ncConversationPhase {loc0=#<compiled-function |phInterpret|>,loc1=(((#
# #
 ...))),loc2=(((# . 1) . "...} [ihs=16]
#18   intloopSpadProcess,interp {loc0=((|carrier| (# . t) (# . #1=(# # #))
...))
,loc1=(|Application| (|Fromdom| ...} [ihs=15]
#19   intloopSpadProcess {loc0=1,loc1=(((# . 1) . "SOCKET(8080,
getDocumentation
$HyperDoc)$Lisp")),loc2=(...} [ihs=14]
#20   intloopProcess {loc0=1,loc1=t,loc2=(((#) (# # #)) |nonnullstream|
#<compil
ed-function |incAppen...} [ihs=13]
#21   intloopProcessString {loc0="SOCKET(8080,
getDocumentation$HyperDoc)$Lisp",
loc1=1} [ihs=12]
#22   intloopReadConsole {loc0="",loc1=1,loc2="",loc3="SOCKET(8080,
getDocumenta
tion$HyperDoc)$Lisp",loc4...} [ihs=11]
#23   SpadInterpretStream {loc0=1,loc1=(tim daly
?),loc2=t,loc3="axiom014",loc4=
"mnt",loc5="windows",loc6=...} [ihs=10]
#24   intloop {} [ihs=9]
#25   ncIntLoop {loc0=".axiom.input",loc1=".axiom.input"} [ihs=8]
#26   ncTopLevel {loc0=nil,loc1=|.axiom|,loc2=:internal,loc3=#<synonym stream
to
 *terminal-io*>,l...} [ihs=7]
#27   RESTART {} [ihs=6]
#28   TOP-LEVEL
{loc0=nil,loc1=0,loc2=0,loc3=nil,loc4=nil,loc5=nil,loc6=nil,loc7
="c:/cvs/head/ax...} [ihs=5]
#29   FUNCALL {loc0=#<compiled-function system:top-level>} [ihs=4]
NIL
BOOT>>:ihs

  IHS[4]: #<compiled-function FUNCALL> ---> VS[14]
  IHS[5]: #<compiled-function SYSTEM:TOP-LEVEL> ---> VS[15]
    FRS[2]: (CATCH (QUOTE (NIL)) ***) ---> IHS[5],VS[8],BDS[9]
  IHS[6]: #<compiled-function RESTART> ---> VS[88]
    FRS[3]: (CATCH (QUOTE (NIL)) ***) ---> IHS[6],VS[8],BDS[11]
    FRS[4]: (CATCH (QUOTE |coerceFailure|) ***) ---> IHS[6],VS[8],BDS[11]
    FRS[5]: (CATCH (QUOTE |top_level|) ***) ---> IHS[6],VS[8],BDS[11]
  IHS[7]: #<compiled-function |ncTopLevel|> ---> VS[52]
  IHS[8]: #<compiled-function |ncIntLoop|> ---> VS[59]
  IHS[9]: #<compiled-function |intloop|> ---> VS[61]
    FRS[6]: (CATCH (QUOTE |top_level|) ***) ---> IHS[9],VS[8],BDS[20]
  IHS[10]: #<compiled-function |SpadInterpretStream|> ---> VS[61]
  IHS[11]: #<compiled-function |intloopReadConsole|> ---> VS[76]
  IHS[12]: #<compiled-function |intloopProcessString|> ---> VS[81]
  IHS[13]: #<compiled-function |intloopProcess|> ---> VS[83]
  IHS[14]: #<compiled-function |intloopSpadProcess|> ---> VS[86]
    FRS[7]: (CATCH (QUOTE |SpadCompileItem|) ***) ---> IHS[14],VS[8],BDS[33]
    FRS[8]: (CATCH (QUOTE |coerceFailure|) ***) ---> IHS[14],VS[8],BDS[33]
    FRS[9]: (CATCH (QUOTE SPAD_READER) ***) ---> IHS[14],VS[8],BDS[33]
  IHS[15]: #<compiled-function |intloopSpadProcess,interp|> ---> VS[91]
  IHS[16]: #<compiled-function |ncConversationPhase|> ---> VS[94]
    FRS[10]: (UNWIND-PROTECT ***) ---> IHS[16],VS[8],BDS[35]
  IHS[17]: #<compiled-function |intInterpretPform|> ---> VS[103]
  IHS[18]: #<compiled-function |processInteractive|> ---> VS[104]
  IHS[19]: #<compiled-function |processInteractive1|> ---> VS[131]
  IHS[20]: #<compiled-function |interpretTopLevel|> ---> VS[134]
    FRS[11]: (CATCH (QUOTE |interpreter|) ***) ---> IHS[20],VS[8],BDS[60]
  IHS[21]: #<compiled-function |interpret|> ---> VS[136]
  IHS[22]: #<compiled-function |interpret1|> ---> VS[141]
  IHS[23]: #<compiled-function |bottomUp|> ---> VS[146]
  IHS[24]: #<compiled-function |upDollar|> ---> VS[148]
  IHS[25]: #<compiled-function |upLispCall|> ---> VS[150]
  IHS[26]: #<compiled-function |timedEVALFUN|> ---> VS[152]
  IHS[27]: #<compiled-function |timedEvaluate|> ---> VS[153]
  IHS[28]: #<compiled-function EVAL> ---> VS[156]
  IHS[29]: (SOCKET (# #) (# # #) (# # #)) ---> VS[162]
    FRS[12]: (BLOCK SOCKET ***) ---> IHS[29],VS[162],BDS[63]
  IHS[30]: LET ---> VS[166]
  IHS[31]: #<compiled-function SYSTEM:SOCKET> ---> VS[175]
  IHS[32]: (LAMBDA (# # # # ...) (# #)) ---> VS[191]
  IHS[33]: (LAMBDA (#) (# # # # ...)) ---> VS[198]
  IHS[34]: BLOCK ---> VS[202]
    FRS[13]: (BLOCK NIL ***) ---> IHS[34],VS[202],BDS[63]
  IHS[35]: #<compiled-function APPLY> ---> VS[206]
  IHS[36]: #<compiled-function APPLY> ---> VS[213]
  IHS[37]: #<compiled-function SYSTEM:UNIVERSAL-ERROR-HANDLER> ---> VS[220]
@ IHS[38]: #<compiled-function SYSTEM::BREAK-LEVEL> ---> VS[241]
NIL
BOOT>>:b
Backtrace: funcall > system:top-level > restart > |ncTopLevel| > |ncIntLoop|
> |
intloop| > |SpadInterpretStream| > |intloopReadConsole| >
|intloopProcessString|
 > |intloopProcess| > |intloopSpadProcess| > |intloopSpadProcess,interp| >
|ncCo
nversationPhase| > |intInterpretPform| > |processInteractive| >
|processInteract
ive1| > |interpretTopLevel| > |interpret| > |interpret1| > |bottomUp| >
|upDolla
r| > |upLispCall| > |timedEVALFUN| > |timedEvaluate| > eval > socket > let >
sys
tem:socket > lambda > lambda-closure > block > apply > apply >
system:universal-
error-handler > SYSTEM::BREAK-LEVEL
NIL
BOOT>>:vs

  IHS[4]: #<compiled-function FUNCALL> ---> VS[14]
VS[14]: #<compiled-function SYSTEM:TOP-LEVEL>
  IHS[5]: #<compiled-function SYSTEM:TOP-LEVEL> ---> VS[15]
VS[15]: NIL
VS[16]: 0
VS[17]: 0
VS[18]: NIL
VS[19]: NIL
VS[20]: NIL
VS[21]: NIL
VS[22]: "c:/cvs/head/axiom/mnt/windows/bin/"
VS[23]: "c:/cvs/head/axiom/mnt/windows/bin/"
VS[24]: NIL
VS[25]: T
VS[26]: #<OBJNULL>
VS[27]: #<OBJNULL>
VS[28]: #<OBJNULL>
VS[29]: #P"j:/OpenAxiom/axiom014/mnt/windows/lib/"
VS[30]: "./"
VS[31]: "J:/OpenAxiom/axiom014/mnt/windows/lib/"
VS[32]: "J:/OpenAxiom/axiom014/mnt/windows/lib/"
VS[33]: "J"
VS[34]: "j"
VS[35]: (:ABSOLUTE "OpenAxiom" "axiom014" "mnt" "windows" "lib")
VS[36]: "OpenAxiom"
VS[37]: "axiom014"
VS[38]: "mnt"
VS[39]: "windows"
VS[40]: "lib"
VS[41]: #P"j:/OpenAxiom/axiom014/mnt/windows/lib/"
VS[42]: T
VS[43]: T
VS[44]: T
VS[45]: T
VS[46]: T
VS[47]: T
VS[48]: T
VS[49]: NIL
VS[50]: (|input|)
VS[51]: |%initialize%|
VS[52]: NIL
VS[53]: |.axiom|
VS[54]: :INTERNAL
VS[55]: #<synonym stream to *TERMINAL-IO*>
VS[56]: "axiom.input"
VS[57]: "j:/OpenAxiom/axiom014/mnt/windows/doc/spadhelp/.axiom.input"
VS[58]: ".axiom.input"
VS[59]: ".axiom.input"
VS[60]: ".axiom.input"
VS[61]: 1
VS[62]: (TIM DALY ?)
VS[63]: T
VS[64]: "axiom014"
VS[65]: "mnt"
VS[66]: "windows"
VS[67]: "doc"
VS[68]: "spadhelp"
VS[69]: "axiom.input"
VS[70]: #P"j:/OpenAxiom/axiom014/mnt/windows/doc/spadhelp/.axiom.input"
VS[71]: T
VS[72]: T
VS[73]: ""
VS[74]: "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
VS[75]: NIL
VS[76]: ""
VS[77]: 1
VS[78]: ""
VS[79]: "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
VS[80]: NIL
VS[81]: "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
VS[82]: 1
VS[83]: 1
VS[84]: T
VS[85]: ((((((0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings")
.
1) . "SOCKET(8080, getDocumentation$HyperDoc)$Lisp")) (|Application|
(|Fromdom|
((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1
"strings")
. 0)) . SOCKET) ((|id| (|posn| (0 "SOCKET(8080,
getDocumentation$HyperDoc)$Lisp"
 1 1 "strings") . 40)) . |Lisp|)) (|Tuple| (|listOf| ((|integer| (|posn| (0
"SOC
KET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 7)) . "8080")
(|From
dom| ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1
"strin
gs") . 13)) . |getDocumentation|) ((|id| (|posn| (0 "SOCKET(8080,
getDocumentati
on$HyperDoc)$Lisp" 1 1 "strings") . 30)) . |HyperDoc|)))))) |nonnullstream|
#<co
mpiled-function |incAppend1|> NIL (|nonnullstream| #<compiled-function
|next1|>
#<compiled-function |ncloopParse|> (|nonnullstream| #<compiled-function
|incAppe
nd1|> NIL (|nonnullstream| #<compiled-function |next1|> #<compiled-function
|lin
eoftoks|> (|nullstream|)))))
VS[86]: 1
VS[87]: ((((0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") .
1)
 . "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"))
  IHS[6]: #<compiled-function RESTART> ---> VS[88]
  IHS[7]: #<compiled-function |ncTopLevel|> ---> VS[52]
  IHS[8]: #<compiled-function |ncIntLoop|> ---> VS[59]
  IHS[9]: #<compiled-function |intloop|> ---> VS[61]
  IHS[10]: #<compiled-function |SpadInterpretStream|> ---> VS[61]
  IHS[11]: #<compiled-function |intloopReadConsole|> ---> VS[76]
  IHS[12]: #<compiled-function |intloopProcessString|> ---> VS[81]
  IHS[13]: #<compiled-function |intloopProcess|> ---> VS[83]
  IHS[14]: #<compiled-function |intloopSpadProcess|> ---> VS[86]
VS[88]: (|Application| (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocumentati
on$HyperDoc)$Lisp" 1 1 "strings") . 0)) . SOCKET) ((|id| (|posn| (0
"SOCKET(8080
, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple|
(|l
istOf| ((|integer| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1 1
 "strings") . 7)) . "8080") (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocume
ntation$HyperDoc)$Lisp" 1 1 "strings") . 13)) . |getDocumentation|) ((|id|
(|pos
n| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) .
|Hy
perDoc|)))))
VS[89]: T
VS[90]: (|nonnullstream| #<compiled-function |incAppend1|> NIL
(|nonnullstream|
#<compiled-function |next1|> #<compiled-function |ncloopParse|>
(|nonnullstream|
 #<compiled-function |incAppend1|> NIL (|nonnullstream| #<compiled-function
|nex
t1|> #<compiled-function |lineoftoks|> (|nullstream|)))))
  IHS[15]: #<compiled-function |intloopSpadProcess,interp|> ---> VS[91]
VS[91]: ((|carrier| (|ok?| . T) (|ptreePremacro| |Application| (|Fromdom|
((|id|
 (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") .
0))
. SOCKET) ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1
1 "
strings") . 40)) . |Lisp|)) (|Tuple| (|listOf| ((|integer| (|posn| (0
"SOCKET(80
80, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 7)) . "8080")
(|Fromdom| (
(|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1
"strings") .
 13)) . |getDocumentation|) ((|id| (|posn| (0 "SOCKET(8080,
getDocumentation$Hyp
erDoc)$Lisp" 1 1 "strings") . 30)) . |HyperDoc|))))) (|ptree| |Application|
(|Fr
omdom| ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1
"str
ings") . 0)) . SOCKET) ((|id| (|posn| (0 "SOCKET(8080,
getDocumentation$HyperDoc
)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple| (|listOf| ((|integer|
(|posn|
(0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 7)) .
"8080")
 (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1 1
 "strings") . 13)) . |getDocumentation|) ((|id| (|posn| (0 "SOCKET(8080,
getDocu
mentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) . |HyperDoc|))))) (|lines|
(((0
"SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 1) .
"SOCKET(808
0, getDocumentation$HyperDoc)$Lisp")) (|messages|) (|stepNumber| . 1)))
VS[92]: (|Application| (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocumentati
on$HyperDoc)$Lisp" 1 1 "strings") . 0)) . SOCKET) ((|id| (|posn| (0
"SOCKET(8080
, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple|
(|l
istOf| ((|integer| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1 1
 "strings") . 7)) . "8080") (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocume
ntation$HyperDoc)$Lisp" 1 1 "strings") . 13)) . |getDocumentation|) ((|id|
(|pos
n| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) .
|Hy
perDoc|)))))
VS[93]: T
  IHS[16]: #<compiled-function |ncConversationPhase|> ---> VS[94]
VS[94]: #<compiled-function |phInterpret|>
VS[95]: (((|carrier| (|ok?| . T) (|ptreePremacro| |Application| (|Fromdom|
((|id
| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") .
0))
 . SOCKET) ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1
1
"strings") . 40)) . |Lisp|)) (|Tuple| (|listOf| ((|integer| (|posn| (0
"SOCKET(8
080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 7)) . "8080")
(|Fromdom|
((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1
"strings")
. 13)) . |getDocumentation|) ((|id| (|posn| (0 "SOCKET(8080,
getDocumentation$Hy
perDoc)$Lisp" 1 1 "strings") . 30)) . |HyperDoc|))))) (|ptree| |Application|
(|F
romdom| ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1
"st
rings") . 0)) . SOCKET) ((|id| (|posn| (0 "SOCKET(8080,
getDocumentation$HyperDo
c)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple| (|listOf| ((|integer|
(|posn|
 (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 7)) .
"8080"
) (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1
1 "strings") . 13)) . |getDocumentation|) ((|id| (|posn| (0 "SOCKET(8080,
getDoc
umentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) . |HyperDoc|))))) (|lines|
(((0
 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 1) .
"SOCKET(80
80, getDocumentation$HyperDoc)$Lisp")) (|messages|) (|stepNumber| . 1))))
VS[96]: ((((0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") .
1)
 . "SOCKET(8080, getDocumentation$HyperDoc)$Lisp") |nullstream|)
VS[97]: ((|Application| (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocumentat
ion$HyperDoc)$Lisp" 1 1 "strings") . 0)) . SOCKET) ((|id| (|posn| (0
"SOCKET(808
0, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple|
(|
listOf| ((|integer| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1
1 "strings") . 7)) . "8080") (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocum
entation$HyperDoc)$Lisp" 1 1 "strings") . 13)) . |getDocumentation|) ((|id|
(|po
sn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) .
|H
yperDoc|))))))
VS[98]: (OK)
VS[99]: #<compiled-function |phInterpret|>
VS[100]: ((|carrier| (|ok?| . T) (|ptreePremacro| |Application| (|Fromdom|
((|id
| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") .
0))
 . SOCKET) ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1
1
"strings") . 40)) . |Lisp|)) (|Tuple| (|listOf| ((|integer| (|posn| (0
"SOCKET(8
080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 7)) . "8080")
(|Fromdom|
((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1
"strings")
. 13)) . |getDocumentation|) ((|id| (|posn| (0 "SOCKET(8080,
getDocumentation$Hy
perDoc)$Lisp" 1 1 "strings") . 30)) . |HyperDoc|))))) (|ptree| |Application|
(|F
romdom| ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1
"st
rings") . 0)) . SOCKET) ((|id| (|posn| (0 "SOCKET(8080,
getDocumentation$HyperDo
c)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple| (|listOf| ((|integer|
(|posn|
 (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 7)) .
"8080"
) (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1
1 "strings") . 13)) . |getDocumentation|) ((|id| (|posn| (0 "SOCKET(8080,
getDoc
umentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) . |HyperDoc|))))) (|lines|
(((0
 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 1) .
"SOCKET(80
80, getDocumentation$HyperDoc)$Lisp")) (|messages|) (|stepNumber| . 1)))
VS[101]: ((|carrier| (|ok?| . T) (|ptreePremacro| |Application| (|Fromdom|
((|id
| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") .
0))
 . SOCKET) ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1
1
"strings") . 40)) . |Lisp|)) (|Tuple| (|listOf| ((|integer| (|posn| (0
"SOCKET(8
080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 7)) . "8080")
(|Fromdom|
((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1
"strings")
. 13)) . |getDocumentation|) ((|id| (|posn| (0 "SOCKET(8080,
getDocumentation$Hy
perDoc)$Lisp" 1 1 "strings") . 30)) . |HyperDoc|))))) (|ptree| |Application|
(|F
romdom| ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1
"st
rings") . 0)) . SOCKET) ((|id| (|posn| (0 "SOCKET(8080,
getDocumentation$HyperDo
c)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple| (|listOf| ((|integer|
(|posn|
 (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 7)) .
"8080"
) (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1
1 "strings") . 13)) . |getDocumentation|) ((|id| (|posn| (0 "SOCKET(8080,
getDoc
umentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) . |HyperDoc|))))) (|lines|
(((0
 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 1) .
"SOCKET(80
80, getDocumentation$HyperDoc)$Lisp")) (|messages|) (|stepNumber| . 1)))
VS[102]: |ptree|
  IHS[17]: #<compiled-function |intInterpretPform|> ---> VS[103]
VS[103]: (|Application| (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocumentat
ion$HyperDoc)$Lisp" 1 1 "strings") . 0)) . SOCKET) ((|id| (|posn| (0
"SOCKET(808
0, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple|
(|
listOf| ((|integer| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1
1 "strings") . 7)) . "8080") (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocum
entation$HyperDoc)$Lisp" 1 1 "strings") . 13)) . |getDocumentation|) ((|id|
(|po
sn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) .
|H
yperDoc|)))))
  IHS[18]: #<compiled-function |processInteractive|> ---> VS[104]
VS[104]: ((|$elt| |Lisp| SOCKET) 8080 (|$elt| |HyperDoc| |getDocumentation|))

VS[105]: (|Application| (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocumentat
ion$HyperDoc)$Lisp" 1 1 "strings") . 0)) . SOCKET) ((|id| (|posn| (0
"SOCKET(808
0, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple|
(|
listOf| ((|integer| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1
1 "strings") . 7)) . "8080") (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocum
entation$HyperDoc)$Lisp" 1 1 "strings") . 13)) . |getDocumentation|) ((|id|
(|po
sn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) .
|H
yperDoc|)))))
VS[106]: ?
VS[107]: ((|$elt| |Lisp| SOCKET) 8080 (|$elt| |HyperDoc| |getDocumentation|))

VS[108]: NIL
VS[109]: NIL
VS[110]: NIL
VS[111]: NIL
VS[112]: NIL
VS[113]: NIL
VS[114]: (|getDocumentation|)
VS[115]: #<"BOOT" package>
VS[116]: NIL
VS[117]: NIL
VS[118]: :INHERITED
VS[119]: NIL
VS[120]: NIL
VS[121]: NIL
VS[122]: NIL
VS[123]: 8080
VS[124]: 4
VS[125]: 4
VS[126]: NIL
VS[127]: NIL
VS[128]: 8080
VS[129]: #<readtable 1a008f78>
VS[130]: 8080
  IHS[19]: #<compiled-function |processInteractive1|> ---> VS[131]
VS[131]: ((|$elt| |Lisp| SOCKET) 8080 (|$elt| |HyperDoc| |getDocumentation|))

VS[132]: (|Application| (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocumentat
ion$HyperDoc)$Lisp" 1 1 "strings") . 0)) . SOCKET) ((|id| (|posn| (0
"SOCKET(808
0, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple|
(|
listOf| ((|integer| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1
1 "strings") . 7)) . "8080") (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocum
entation$HyperDoc)$Lisp" 1 1 "strings") . 13)) . |getDocumentation|) ((|id|
(|po
sn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) .
|H
yperDoc|)))))
VS[133]: 0
  IHS[20]: #<compiled-function |interpretTopLevel|> ---> VS[134]
VS[134]: ((|$elt| |Lisp| SOCKET) 8080 (|$elt| |HyperDoc| |getDocumentation|))

VS[135]: (|Application| (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocumentat
ion$HyperDoc)$Lisp" 1 1 "strings") . 0)) . SOCKET) ((|id| (|posn| (0
"SOCKET(808
0, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple|
(|
listOf| ((|integer| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1
1 "strings") . 7)) . "8080") (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocum
entation$HyperDoc)$Lisp" 1 1 "strings") . 13)) . |getDocumentation|) ((|id|
(|po
sn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) .
|H
yperDoc|)))))
  IHS[21]: #<compiled-function |interpret|> ---> VS[136]
VS[136]: ((|$elt| |Lisp| SOCKET) 8080 (|$elt| |HyperDoc| |getDocumentation|))

VS[137]: (|Application| (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocumentat
ion$HyperDoc)$Lisp" 1 1 "strings") . 0)) . SOCKET) ((|id| (|posn| (0
"SOCKET(808
0, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple|
(|
listOf| ((|integer| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1
1 "strings") . 7)) . "8080") (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocum
entation$HyperDoc)$Lisp" 1 1 "strings") . 13)) . |getDocumentation|) ((|id|
(|po
sn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) .
|H
yperDoc|)))))
VS[138]: (|analysis| |other|)
VS[139]: (|other|)
VS[140]: NIL
  IHS[22]: #<compiled-function |interpret1|> ---> VS[141]
VS[141]: ((|$elt| |Lisp| SOCKET) 8080 (|$elt| |HyperDoc| |getDocumentation|))

VS[142]: NIL
VS[143]: (|Application| (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocumentat
ion$HyperDoc)$Lisp" 1 1 "strings") . 0)) . SOCKET) ((|id| (|posn| (0
"SOCKET(808
0, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple|
(|
listOf| ((|integer| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1
1 "strings") . 7)) . "8080") (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocum
entation$HyperDoc)$Lisp" 1 1 "strings") . 13)) . |getDocumentation|) ((|id|
(|po
sn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) .
|H
yperDoc|)))))
VS[144]: ((|$elt| |Lisp| SOCKET) 8080 (|$elt| |HyperDoc| |getDocumentation|))

VS[145]: (|Application| (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocumentat
ion$HyperDoc)$Lisp" 1 1 "strings") . 0)) . SOCKET) ((|id| (|posn| (0
"SOCKET(808
0, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 40)) . |Lisp|)) (|Tuple|
(|
listOf| ((|integer| (|posn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp"
1
1 "strings") . 7)) . "8080") (|Fromdom| ((|id| (|posn| (0 "SOCKET(8080,
getDocum
entation$HyperDoc)$Lisp" 1 1 "strings") . 13)) . |getDocumentation|) ((|id|
(|po
sn| (0 "SOCKET(8080, getDocumentation$HyperDoc)$Lisp" 1 1 "strings") . 30)) .
|H
yperDoc|)))))
  IHS[23]: #<compiled-function |bottomUp|> ---> VS[146]
VS[146]: (#<vector 1b16b8dc> |Lisp| (#<vector 1b16b8c0> #<vector 1b16b7fc>
(#<ve
ctor 1b16b7e0> |HyperDoc| #<vector 1b16b7c4>)))
VS[147]: (#<vector 1b16b8dc> |Lisp| (#<vector 1b16b8c0> #<vector 1b16b7fc>
(#<ve
ctor 1b16b7e0> |HyperDoc| #<vector 1b16b7c4>)))
  IHS[24]: #<compiled-function |upDollar|> ---> VS[148]
VS[148]: (#<vector 1b16b8dc> |Lisp| (#<vector 1b16b8c0> #<vector 1b16b7fc>
(#<ve
ctor 1b16b7e0> |HyperDoc| #<vector 1b16b7c4>)))
VS[149]: |up|
  IHS[25]: #<compiled-function |upLispCall|> ---> VS[150]
VS[150]: #<vector 1b16b8dc>
VS[151]: (#<vector 1b16b8c0> #<vector 1b16b7fc> (#<vector 1b16b7e0>
|HyperDoc| #
<vector 1b16b7c4>))
  IHS[26]: #<compiled-function |timedEVALFUN|> ---> VS[152]
VS[152]: (SOCKET 8080 (QUOTE (#<compiled-function
|HYPER;getDocumentation;2S;5|>
 . #<vector 1b16ba48>)))
  IHS[27]: #<compiled-function |timedEvaluate|> ---> VS[153]
VS[153]: (SOCKET 8080 (QUOTE (#<compiled-function
|HYPER;getDocumentation;2S;5|>
 . #<vector 1b16ba48>)))
VS[154]: (SOCKET 8080 (QUOTE (#<compiled-function
|HYPER;getDocumentation;2S;5|>
 . #<vector 1b16ba48>)))
VS[155]: (SOCKET 8080 (QUOTE (#<compiled-function
|HYPER;getDocumentation;2S;5|>
 . #<vector 1b16ba48>)))
  IHS[28]: #<compiled-function EVAL> ---> VS[156]
VS[156]: NIL
VS[157]: NIL
VS[158]: NIL
VS[159]: (LAMBDA-BLOCK SOCKET (PORT DOCFUN) (SETQ *DOCFUN* DOCFUN) (LET ((S
(SYS
TEM:SOCKET PORT :SERVER (FUNCTION SERVER)))) (TAGBODY L (WHEN (LISTEN S) (LET
((
W (SYSTEM::ACCEPT S))) (SERVER W))) (SLEEP 0.10000000000000001) (GO L))))
VS[160]: 8080
VS[161]: (#<compiled-function |HYPER;getDocumentation;2S;5|> . #<vector
1b16ba48
>)
  IHS[29]: (SOCKET (# #) (# # #) (# # #)) ---> VS[162]
VS[162]: ((DOCFUN (#<compiled-function |HYPER;getDocumentation;2S;5|> .
#<vector
 1b16ba48>)) (PORT 8080))
VS[163]: NIL
VS[164]: ((SOCKET BLOCK #<@1AE63760>))
VS[165]: ((SETQ *DOCFUN* DOCFUN) (LET ((S (SYSTEM:SOCKET PORT :SERVER
(FUNCTION
SERVER)))) (TAGBODY L (WHEN (LISTEN S) (LET ((W (SYSTEM::ACCEPT S))) (SERVER
W))
) (SLEEP 0.10000000000000001) (GO L))))
  IHS[30]: LET ---> VS[166]
VS[166]: ((DOCFUN (#<compiled-function |HYPER;getDocumentation;2S;5|> .
#<vector
 1b16ba48>)) (PORT 8080))
VS[167]: NIL
VS[168]: ((SOCKET BLOCK #<@1AE63760>))
VS[169]: S
VS[170]: NIL
VS[171]: (SYSTEM:SOCKET PORT :SERVER (FUNCTION SERVER))
VS[172]: NIL
VS[173]: ((TAGBODY L (WHEN (LISTEN S) (LET ((W (SYSTEM::ACCEPT S))) (SERVER
W)))
 (SLEEP 0.10000000000000001) (GO L)))
VS[174]: #<compiled-function SYSTEM:SOCKET>
  IHS[31]: #<compiled-function SYSTEM:SOCKET> ---> VS[175]
VS[175]: 8080
VS[176]: NIL
VS[177]: (LAMBDA-BLOCK SERVER (S) (LET* ((GET (READ S NIL (QUOTE EOF))) (FN
(AND
 (EQ GET (QUOTE GET)) (LET* ((S1 (SUBSEQ (STRING (READ S NIL (QUOTE EOF)))
1)) (
N (LENGTH S1)) (S2 (MAKE-STRING N))) (DO ((I 0 (INCF I)) (J 0 (INCF J))) ((=
I N
) (SUBSEQ S2 0 J)) (IF (CHAR= (CHAR S1 I) #\%) (SETF (CHAR S2 J) (CODE-CHAR
(REA
D-FROM-STRING (CONCAT "#x" (SUBSEQ S1 (INCF I) (1+ (INCF I))))))) (SETF (CHAR
S2
 J) (CHAR S1 I)))))))) (FORMAT T "Got ~S~%~%" FN) (WHEN (STRING= (CHAR FN 0)
"?"
) (SETQ FN (SPADCALL (SUBSEQ FN 1) *DOCFUN*))) (WHEN (STRING= (SUBSEQ FN (-
(LEN
GTH FN) 4)) "html") (FORMAT S "HTTP/1.1 ~S~%" (IF FN 200 403)))
(WITH-OPEN-FILE
(Q FN) (SYSTEM:COPY-STREAM Q S)) (CLOSE S)))
VS[178]: NIL
VS[179]: NIL
VS[180]: NIL
VS[181]: NIL
VS[182]: T
VS[183]: NIL
VS[184]: NIL
VS[185]: NIL
VS[186]: :ERROR
VS[187]: NIL
VS[188]: LET
VS[189]: ""
VS[190]: "Could not connect"
  IHS[32]: (LAMBDA (# # # # ...) (# #)) ---> VS[191]
VS[191]: ((ARGS NIL) (ERROR-STRING "Could not connect") (CONTINUE-STRING "")
(OP
 LET) (CORRECTABLE? NIL) (TYPE :ERROR))
VS[192]: NIL
VS[193]: NIL
VS[194]: (((LAMBDA (SYSTEM:UNIVERSAL-ERROR-HANDLER) (BLOCK NIL (SETQ
|$NeedToSig
nalSessionManager| T) (IF (AND (BOUNDP (QUOTE |$inLispVM|)) (BOUNDP (QUOTE
|$Bre
akMode|))) (COND ((EQ |$BreakMode| (QUOTE |validate|)) (|systemError|
(ERROR-FOR
MAT ERROR-STRING ARGS))) ((AND (EQ |$BreakMode| (QUOTE |trapNumerics|)) (EQ
TYPE
 :ERROR)) (SETQ |$BreakMode| NIL) (THROW (QUOTE |trapNumerics|)
|$numericFailure
|)) ((AND (EQ |$BreakMode| (QUOTE |trapNumerics|)) (BOUNDP (QUOTE
|$oldBreakMode
|)) (SETQ |$BreakMode| |$oldBreakMode|) NIL)) ((AND (NULL |$inLispVM|) (MEMQ
|$B
reakMode| (QUOTE (|nobreak| |query| |resume|)))) (LET ((|$inLispVM| T))
(RETURN
(|systemError| (ERROR-FORMAT ERROR-STRING ARGS))))) ((EQ |$BreakMode| (QUOTE
|le
tPrint2|)) (SETQ |$BreakMode| NIL) (THROW (QUOTE |letPrint2|) NIL)))) (APPLY
SYS
TEM:UNIVERSAL-ERROR-HANDLER TYPE CORRECTABLE? OP CONTINUE-STRING ERROR-STRING
AR
GS))) (QUOTE #<compiled-function SYSTEM:UNIVERSAL-ERROR-HANDLER>)))
VS[195]: (LAMBDA-CLOSURE ((ARGS NIL) (ERROR-STRING "Could not connect")
(CONTINU
E-STRING "") (OP LET) (CORRECTABLE? NIL) (TYPE :ERROR)) NIL NIL
(SYSTEM:UNIVERSA
L-ERROR-HANDLER) (BLOCK NIL (SETQ |$NeedToSignalSessionManager| T) (IF (AND
(BOU
NDP (QUOTE |$inLispVM|)) (BOUNDP (QUOTE |$BreakMode|))) (COND ((EQ
|$BreakMode|
(QUOTE |validate|)) (|systemError| (ERROR-FORMAT ERROR-STRING ARGS))) ((AND
(EQ
|$BreakMode| (QUOTE |trapNumerics|)) (EQ TYPE :ERROR)) (SETQ |$BreakMode|
NIL) (
THROW (QUOTE |trapNumerics|) |$numericFailure|)) ((AND (EQ |$BreakMode|
(QUOTE |
trapNumerics|)) (BOUNDP (QUOTE |$oldBreakMode|)) (SETQ |$BreakMode|
|$oldBreakMo
de|) NIL)) ((AND (NULL |$inLispVM|) (MEMQ |$BreakMode| (QUOTE (|nobreak|
|query|
 |resume|)))) (LET ((|$inLispVM| T)) (RETURN (|systemError| (ERROR-FORMAT
ERROR-
STRING ARGS))))) ((EQ |$BreakMode| (QUOTE |letPrint2|)) (SETQ |$BreakMode|
NIL)
(THROW (QUOTE |letPrint2|) NIL)))) (APPLY SYSTEM:UNIVERSAL-ERROR-HANDLER TYPE
CO
RRECTABLE? OP CONTINUE-STRING ERROR-STRING ARGS)))
VS[196]: (LAMBDA-CLOSURE ((ARGS NIL) (ERROR-STRING "Could not connect")
(CONTINU
E-STRING "") (OP LET) (CORRECTABLE? NIL) (TYPE :ERROR)) NIL NIL
(SYSTEM:UNIVERSA
L-ERROR-HANDLER) (BLOCK NIL (SETQ |$NeedToSignalSessionManager| T) (IF (AND
(BOU
NDP (QUOTE |$inLispVM|)) (BOUNDP (QUOTE |$BreakMode|))) (COND ((EQ
|$BreakMode|
(QUOTE |validate|)) (|systemError| (ERROR-FORMAT ERROR-STRING ARGS))) ((AND
(EQ
|$BreakMode| (QUOTE |trapNumerics|)) (EQ TYPE :ERROR)) (SETQ |$BreakMode|
NIL) (
THROW (QUOTE |trapNumerics|) |$numericFailure|)) ((AND (EQ |$BreakMode|
(QUOTE |
trapNumerics|)) (BOUNDP (QUOTE |$oldBreakMode|)) (SETQ |$BreakMode|
|$oldBreakMo
de|) NIL)) ((AND (NULL |$inLispVM|) (MEMQ |$BreakMode| (QUOTE (|nobreak|
|query|
 |resume|)))) (LET ((|$inLispVM| T)) (RETURN (|systemError| (ERROR-FORMAT
ERROR-
STRING ARGS))))) ((EQ |$BreakMode| (QUOTE |letPrint2|)) (SETQ |$BreakMode|
NIL)
(THROW (QUOTE |letPrint2|) NIL)))) (APPLY SYSTEM:UNIVERSAL-ERROR-HANDLER TYPE
CO
RRECTABLE? OP CONTINUE-STRING ERROR-STRING ARGS)))
VS[197]: #<compiled-function SYSTEM:UNIVERSAL-ERROR-HANDLER>
  IHS[33]: (LAMBDA (#) (# # # # ...)) ---> VS[198]
VS[198]: ((SYSTEM:UNIVERSAL-ERROR-HANDLER #<compiled-function
SYSTEM:UNIVERSAL-E
RROR-HANDLER>) (ARGS NIL) (ERROR-STRING "Could not connect") (CONTINUE-STRING
""
) (OP LET) (CORRECTABLE? NIL) (TYPE :ERROR))
VS[199]: NIL
VS[200]: NIL
VS[201]: ((BLOCK NIL (SETQ |$NeedToSignalSessionManager| T) (IF (AND (BOUNDP
(QU
OTE |$inLispVM|)) (BOUNDP (QUOTE |$BreakMode|))) (COND ((EQ |$BreakMode|
(QUOTE
|validate|)) (|systemError| (ERROR-FORMAT ERROR-STRING ARGS))) ((AND (EQ
|$Break
Mode| (QUOTE |trapNumerics|)) (EQ TYPE :ERROR)) (SETQ |$BreakMode| NIL)
(THROW (
QUOTE |trapNumerics|) |$numericFailure|)) ((AND (EQ |$BreakMode| (QUOTE
|trapNum
erics|)) (BOUNDP (QUOTE |$oldBreakMode|)) (SETQ |$BreakMode| |$oldBreakMode|)
NI
L)) ((AND (NULL |$inLispVM|) (MEMQ |$BreakMode| (QUOTE (|nobreak| |query|
|resum
e|)))) (LET ((|$inLispVM| T)) (RETURN (|systemError| (ERROR-FORMAT
ERROR-STRING
ARGS))))) ((EQ |$BreakMode| (QUOTE |letPrint2|)) (SETQ |$BreakMode| NIL)
(THROW
(QUOTE |letPrint2|) NIL)))) (APPLY SYSTEM:UNIVERSAL-ERROR-HANDLER TYPE
CORRECTAB
LE? OP CONTINUE-STRING ERROR-STRING ARGS)))
  IHS[34]: BLOCK ---> VS[202]
VS[202]: ((SYSTEM:UNIVERSAL-ERROR-HANDLER #<compiled-function
SYSTEM:UNIVERSAL-E
RROR-HANDLER>) (ARGS NIL) (ERROR-STRING "Could not connect") (CONTINUE-STRING
""
) (OP LET) (CORRECTABLE? NIL) (TYPE :ERROR))
VS[203]: NIL
VS[204]: ((NIL BLOCK #<@1AE63758>))
VS[205]: #<compiled-function APPLY>
  IHS[35]: #<compiled-function APPLY> ---> VS[206]
VS[206]: #<compiled-function SYSTEM:UNIVERSAL-ERROR-HANDLER>
VS[207]: :ERROR
VS[208]: NIL
VS[209]: LET
VS[210]: ""
VS[211]: "Could not connect"
VS[212]: NIL
  IHS[36]: #<compiled-function APPLY> ---> VS[213]
VS[213]: #<compiled-function SYSTEM:UNIVERSAL-ERROR-HANDLER>
VS[214]: :ERROR
VS[215]: NIL
VS[216]: LET
VS[217]: ""
VS[218]: "Could not connect"
VS[219]: NIL
  IHS[37]: #<compiled-function SYSTEM:UNIVERSAL-ERROR-HANDLER> ---> VS[220]
VS[220]: :ERROR
VS[221]: NIL
VS[222]: LET
VS[223]: ""
VS[224]: "Could not connect"
VS[225]: T
VS[226]: #<compiled-function SYSTEM:UNIVERSAL-ERROR-HANDLER>
VS[227]: :ERROR
VS[228]: NIL
VS[229]: LET
VS[230]: ""
VS[231]: "Could not connect"
VS[232]: NIL
VS[233]: LET
VS[234]: :CONTINUE-STRING
VS[235]: ""
VS[236]: NIL
VS[237]: "Error signalled by ~:@(~S~).~%"
VS[238]: LET
VS[239]: #<string-output stream 1b6030fc>
VS[240]: #S(SERROR::ERROR-CONDITION SERROR::NAME :ERROR STRING "Could not
connec
t" FUNCTION LET SERROR::CONTINUE-STRING "" SERROR::FORMAT-ARGS NIL
SERROR::ERROR
-HANDLER-ARGS (:ERROR NIL LET "" "Could not connect"))
@ IHS[38]: #<compiled-function SYSTEM::BREAK-LEVEL> ---> VS[241]
VS[241]: "Could not connect"
NIL
BOOT>>