[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Lisp break with goodwill EW
Goodwill EW compiled on my Symbolics running Genera 8.0 without a hitch. However,
I encountered the following break while I started running it.
In order to see at least one EW window show up on either my SUN3
(running X), I did the following:
a) Added the Symbolics to the X-server's access control list via the xhost command.
b) On the Lisp machine, I did the following:
> (in-package 'ew)
> (setf ew::*Default-Host* "spike") ;; that's the name of my Sun (the X server)
> (clear-all)
> (initialize-window-system)
;; No root window appeared. Any ideas why?
;; In order to run the demos in demos.lisp, should one use (run-program 'demo)?
> (run-program 'lisp-window)
whereupon I got the following break
Thanks for any input.
--Ramu
ramu%tcipro.uucp@unix.sri.com
---------------------------------cut here--------------------------------------------------------
Trap: The variable EW::*UNREAD-CHAR* is unbound.
0While in the function EW::LISTEN-ANY EW::READ-CHAR-FOR-QUERY-INTERNAL EW::EDITOR
The condition signalled was DBG:UNBOUND-SYMBOL-TRAP
Trap microcode PC = #o2 in 3675-MIC 430
Error-table entry = (BAD-DATA-TYPE)
1EW::LISTEN-ANY0 (P.C. = 2) (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")(from ALBA:>iyer>ew>code>x-interface)
0 Arg 0 (STREAM): #<EW::PROGRAM-PANE 200077326>
Arg 1 (EW::TIMEOUT): 0
1EW::READ-CHAR-FOR-QUERY-INTERNAL0 (P.C. = 154) 2(from ALBA:>iyer>ew>code>query)
0 Arg 0 (STREAM): #<EW::PROGRAM-PANE 200077326>
1EW::EDITOR0 (P.C. = 247) 2(from ALBA:>iyer>ew>code>input-editor)
0 Arg 0 (STREAM): #<EW::PROGRAM-PANE 200077326>
1EW:READ-CHAR-FOR-QUERY0 (P.C. = 7) 2(from ALBA:>iyer>ew>code>query)
0 Arg 0 (STREAM): #<EW::PROGRAM-PANE 200077326>
1EW:PEEK-CHAR-FOR-QUERY0 (P.C. = 20) 2(from ALBA:>iyer>ew>code>query)
0 Arg 0 (STREAM): #<EW::PROGRAM-PANE 200077326>
Arg 1 (EW::HANG): T
1EW::|parser-COMMAND-OR-FORM|0 (P.C. = 34) 2(from ALBA:>iyer>ew>code>proprietary-presentation-types)
0 Arg 0 (STREAM): #<EW::PROGRAM-PANE 200077326>
Arg 1 (TYPE): (EW::COMMAND-OR-FORM #<Command Table LISP-WINDOW> :DISPATCH-MODE :FORM-PREFERRED)
Arg 2 (EW::ORIGINAL-TYPE): (EW::COMMAND-OR-FORM #<Command Table LISP-WINDOW> :DISPATCH-MODE :FORM-PREFERRED)
Arg 3 (EW::INITIALLY-DISPLAY-POSSIBILITIES): NIL
Arg 4 (EW::DEFAULT): NIL
Arg 5 (EW::DEFAULT-SUPPLIED): NIL
Arg 6 (EW::DEFAULT-TYPE): (EW::COMMAND-OR-FORM #<Command Table LISP-WINDOW> :DISPATCH-MODE :FORM-PREFERRED)
1(:INTERNAL EW:QUERY 0 EW::QUERY-2)0 (P.C. = 34) 2(from ALBA:>iyer>ew>code>query)
0 Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): ((EW::COMMAND-OR-FORM #<Command Table LISP-WINDOW> :DISPATCH-MODE :FORM-PREFERRED) (:STREAM #<EW::PROGRAM-PANE 200077326> :PROMPT-MODE :RAW :PROMPT "> ") #<EW::PROGRAM-PANE 200077326> (EW::COMMAND-OR-FORM #<Command Table LISP-WINDOW> :DISPATCH-MODE :FORM-PREFERRED) NIL (EW::COMMAND-OR-FORM #<Command Table LISP-WINDOW> :DISPATCH-MODE :FORM-PREFERRED) NIL 0 (EW::COMMAND-OR-FORM #<Command Table LISP-WINDOW> :DISPATCH-MODE :FORM-PREFERRED) EW::|parser-COMMAND-OR-FORM|)
1EW::INPUT-EDITOR-INTERNAL0 (P.C. = 6) 2(from ALBA:>iyer>ew>code>input-editor)
0 Arg 0 (STREAM): #<EW::PROGRAM-PANE 200077326>
Arg 1 (EW::STATE): #<Input Editor State "" Cursorpos 0 Scan 0 not scanning.>
Arg 2 (EW::CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL EW:QUERY 0 EW::QUERY-2) 25551235>
1(CLOS:METHOD EW::INPUT-EDITOR (EW:WINDOW T))0 (P.C. = 123) 2(from ALBA:>iyer>ew>code>input-editor)
0 Arg 0 (STREAM): #<EW::PROGRAM-PANE 200077326>
Arg 1 (CLOS-INTERNALS::.EXTRA-ARGUMENT.): NIL
Arg 2 (CLOS-INTERNALS::.GENERIC.): #<SYS:GENERIC-FUNCTION EW::INPUT-EDITOR 70537523>
Arg 3 (EW::CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL EW:QUERY 0 EW::QUERY-2) 25551235>
1EW:QUERY0 (P.C. = 437) 2(from ALBA:>iyer>ew>code>query)
0 Arg 0: (EW::COMMAND-OR-FORM #<Command Table LISP-WINDOW> :DISPATCH-MODE :FORM-PREFERRED)
Rest arg: (:STREAM #<EW::PROGRAM-PANE 200077326> :PROMPT-MODE :RAW :PROMPT "> ")
1EW:READ-PROGRAM-COMMAND0 (P.C. = 127) 2(from ALBA:>iyer>ew>code>frames)
0 Arg 0 (EW::PROGRAM): #<Program LISP-WINDOW>
Rest arg (EW::OPTIONS): (:PROMPT "> " :COMMAND-QUERY (EW::COMMAND-OR-FORM #<Command Table LISP-WINDOW> :DISPATCH-MODE :FORM-PREFERRED) :UNKNOWN-ACCELERATOR-IS-COMMAND NIL)
1EW:DEFAULT-COMMAND-TOP-LEVEL0 (P.C. = 173) 2(from ALBA:>iyer>ew>code>frames)
0 Arg 0 (EW::PROGRAM): #<Program LISP-WINDOW>
Rest arg (EW::OPTIONS): NIL
1EW:RUN-PROGRAM0 (P.C. = 113) 2(from ALBA:>iyer>ew>code>frames)
0 Arg 0 (EW::FRAMEWORK-NAME): EW:LISP-WINDOW
1CP::COMMAND-LOOP-EVAL-FUNCTION0 (P.C. = 27)
Arg 0 (CP::FORM): (EW:RUN-PROGRAM (QUOTE EW:LISP-WINDOW))
2 --Defaulted args:--
0 Arg 1 (CP::ENVIRONMENT): NIL
1(:INTERNAL SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 0)0 (P.C. = 5)
Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 144344323>
Arg 1 (PROCESS:START-DELAYED-PRIORITIES): #<STACK-LEXICAL-CLOSURE (:INTERNAL PROCESS::WITH-DELAYED-PROCESS-PRIORITIES-INTERNAL 0 PROCESS::START-TIMERS) 144344350>
1PROCESS::WITH-DELAYED-PROCESS-PRIORITIES-INTERNAL0 (P.C. = 124)
Arg 0 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 0) 144344326>
Arg 1 (PROCESS::PRIORITY): T
Rest arg (PROCESS::NEW-PRIORITIES): (2.0 -822083583)
1SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL0 (P.C. = 31)
Arg 0 (PROCESS:PROCESS): #<PROCESS:PROCESS Dynamic Lisp Listener 1 (2 1) 520006503>
Arg 1 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 144344250>
Rest arg: NIL
1TV:WITH-NOTIFICATION-MODE-INTERNAL0 (P.C. = 15)
Arg 0 (TV:NEW-MODE): :BLAST
Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
Arg 2 (TV:CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL # 0) 144344217>
1(:INTERNAL SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 0)0 (P.C. = 3)
Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 144344155>
1PROCESS::WITH-PROCESS-PRIORITY-INTERNAL0 (P.C. = 61)
Arg 0 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 0) 144344160>
Arg 1 (PROCESS::NEW-PRIORITY): -824180735
1SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL0 (P.C. = 57)
Arg 0 (PROCESS:PROCESS): #<PROCESS:PROCESS Dynamic Lisp Listener 1 (2 1) 520006503>
Arg 1 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 144344143>
Rest arg: NIL
1SI:LISP-COMMAND-LOOP-INTERNAL0 (P.C. = 24)
Arg 0 (PROCESS::NAME): "Lisp Top Level"
Arg 1 (SI:ABORT-FUNCTION): NIL
Arg 2 (SI:READ-FUNCTION): NIL
Arg 3 (SI:EVAL-FUNCTION): NIL
Arg 4 (SI:PRINT-FUNCTION): NIL
Arg 5 (PROCESS::INITIAL-FORM): NIL
Arg 6 (SI:STANDARD-VALUE-BINDINGS): (NIL)
1SI:LISP-COMMAND-LOOP0 (P.C. = 100)
Arg 0: #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 12202375 exposed>
Rest arg: (:NAME "Lisp Top Level")
1SI:LISP-TOP-LEVEL10 (P.C. = 6)
Arg 0 (SI:STREAM): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 12202375 exposed>
1(FLAVOR:METHOD PROCESS::PROCESS-TOP-LEVEL-1 PROCESS:PROCESS)0 (P.C. = 114)
Arg 0 (SELF): #<PROCESS:PROCESS Dynamic Lisp Listener 1 (2 1) 520006503>
Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor PROCESS:PROCESS 440146046>
Arg 2 (FLAVOR::.GENERIC.): #<SYS:GENERIC-FUNCTION PROCESS::PROCESS-TOP-LEVEL-1 12445741>
1PROCESS::PROCESS-TOP-LEVEL0 (P.C. = 311)
2 --Defaulted args:--
0 Arg 0 (IGNORE): NIL
Special EW::*UNREAD-CHAR*: "unbound"
------------------------------------------cut here---------------------------------------------
To: express-windows@atc
Subject: Goodwill EW under Franz trouble
Date: Fri, 24 Aug 90 08:56 PDT
From: mac@trantor.harris-atd
I grabbed a copy of the Goodwill version of EW yesterday and
I'm having a problem compiling it. When (compile-ew) gets done
compiling code/io-functions and loads it, my lisp hangs waiting
for input. This is caused by the (setup-lisp-functions) call. Has
anyone else run across this? Any fixes? I'm running Allegro
Common Lisp 3.1.13 on a Sun3.
Thanks,
Mike McDonald
mac@trantor.harris-atd.com
(407) 727-5060
Advanced Technology Dept.
Harris Corp.
M.S. 3A-1912
P.O. Box 37
Melbourne, Florida
32902