[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Font problem with Express-windows, ACL, DS3100
I have a problem with launching Express-windows on a DECstation 3100 Running
Franz ACL 3.1, and UWS 2.2.
In short, a (xlib:font-ascent some-font-object) causes a name-error, while
other slots like xlib:font-name are accessed without problem. When I open
another display in the same environment and open new fonts, the bug
disappears. I am afraid this is a situation where the Allegro and
Express-windows will throw the ball at each other. Anyway, any kind of
indication on what to investigate next would be useful.
JF
Here is a transcript of the session, the interesting stuff is at the end.
dribbling to file "/user/rit/drib"
LISP-IMPLEMENTATION-TYPE: Allegro CL
LISP-IMPLEMENTATION-VERSION: 3.1.12 [DEC 3100] (3/30/90)
MACHINE-TYPE: DEC 3100
MACHINE-VERSION:
SOFTWARE-TYPE: Ultrix
SOFTWARE-VERSION:
SHORT-SITE-NAME: ostrich.Stanford.EDU
*features*: (:HAS-RCSNOTE :LOOP LOOP :COMPOSER :FAKE-ACTIVE-REGIONS :PCL :CLOS :LITTLE-ENDIAN :GSGC :ALLEGRO-V3.1 :FRANZ-INC :EXCL :ALLEGRO :COMMON-LISP :CONFORMING-IEEE :IEEE :FLAVORS :MIPS :R2000 :UNIX :DEC3100 :MULTIPROCESSING :CLX-LITTLE-ENDIAN :CLX :XLIB :CLX-MIT-R4 :CLX-CL-ERROR :CW-X)
*modules*: ("EMACS" "IPC" "DFSYS" "LOOP" "COMPOSER" "GPROF" "GR" "PROF" "TTYPROF" "MENU" "CLOS" "PCL" "XVARS" "XCW" "XLIB" "CLX" "CLXEXCLDEP" "CSTRUCTS" "SIGIO" "ADVISE" "TRACE" "MDPROC" "PROCESS" "FOREIGN" "FOREIGN-FUNCTIONS" "QSTRUCTS")
emacs: $Header: emacs.cl,v 1.2 89/08/07 16:54:38 layer Rel $
ipc: $Header: ipc.cl,v 1.26 89/08/16 13:52:26 layer Rel $
loop: $Header: loop.cl,v 1.2 89/07/22 18:56:13 layer Rel $
Allegro Composer: Composer Final 1.0.17 (3/16/90 12:30)
disassmip: $Header: disassmip.cl,v 1.1 89/08/10 12:26:22 layer Rel $
X Common Windows: X-CW 1.3.final.11 (3/19/90 16:15)
cstructs: $Header: cstructs.cl,v 1.18 89/08/22 11:42:07 layer Rel $
sigio: $Header: sigio.cl,v 1.3 89/08/24 14:03:01 layer Rel $
trace: $Header: trace.cl,v 1.35 89/07/22 18:56:24 layer Rel $
mdproc: $Header: mdproc.cl,v 1.20 89/07/22 18:56:29 layer Rel $
process: $Header: process.cl,v 1.44 89/08/17 18:45:20 layer Rel $
foreign: $Header: foreign.cl,v 1.49 89/08/28 14:45:00 layer Rel $
NIL
<cl 3> :ld def-ew.lisp
; Loading /usr/local2/cl/lib/code/def-ew.lisp.
<cl 4> (load-ew)
; Fast loading /usr/local/ew/binary/excl/rel3/require.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/define-defpackage.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/defpackage.fasl.
Error: "EXPRESS-WINDOWS" is a package name, so it cannot be a nickname for "EW".
Restart actions (select using :continue):
0: Ignore this nickname.
[1c] <cl 5> :continue
; Fast loading /usr/local/ew/binary/excl/rel3/clx-hacks.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/meter.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/cl-clos-macros.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/fixnum-macros.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/x-macros-interface.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/fonts.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/macros.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/x-interface.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/read-internal.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/quad-trees.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/base-presentations.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/type.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/scrolling.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/graphic-primitives.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/io-functions.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/command-processor.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/misc.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/memo.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/table.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/query.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/completion.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/frames.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/input-editor.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/proprietary-presentation-types.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/presentation-types.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/lisp-window.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/demos.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/sym-comp.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/time.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/lisp-machine-lisp-compatible.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/file-manager.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/menu-definer.fasl.
; Fast loading /usr/local/ew/binary/excl/rel3/processes.fasl.
(:EW :EW-GOODWILL :X :DEFPACKAGE :EW-CLOS :PCL-VICTORIA :HAS-RCSNOTE :LOOP LOOP :COMPOSER ...)
<cl 6> (in-package 'ew)
#<The EW package, 2762 internal, 375 external>
<cl 7> (setq *default-host* "killdeer")
"killdeer"
<cl 8> (initialize-window-system)
Debug: Asynchronous NAME-ERROR in request 97 (last request was 158) Code 45.0 [OpenFont]
Restart actions (select using :continue):
0: Ignore
[1c] <cl 9> :zoom
Evaluation stack:
->(CERROR "Ignore" XLIB:NAME-ERROR ...)
(APPLY #<Function CERROR @ #x-fb128be> "Ignore" ...)
(APPLY #<Function CERROR @ #x-fb128be> "Ignore" ...)
(XLIB::X-CERROR "Ignore" XLIB:NAME-ERROR . :DISPLAY)
(APPLY #<Function X-CERROR @ #x-fa0b8b6> "Ignore" ...)
(APPLY #<Function X-CERROR @ #x-fa0b8b6> "Ignore" ...)
(XLIB:DEFAULT-ERROR-HANDLER #<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> XLIB:NAME-ERROR ...)
(APPLY XLIB:DEFAULT-ERROR-HANDLER #<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> ...)
... more older frames ...
[1c] <cl 10> :dn 9
Evaluation stack:
... 7 more (possibly invisible) newer frames ...
(APPLY #<Function X-CERROR @ #x-fa0b8b6> "Ignore" ...)
(XLIB:DEFAULT-ERROR-HANDLER #<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> XLIB:NAME-ERROR ...)
(APPLY XLIB:DEFAULT-ERROR-HANDLER #<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> ...)
(APPLY XLIB:DEFAULT-ERROR-HANDLER #<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> ...)
->(XLIB::REPORT-ERROR #<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> 15 ...)
(APPLY #<Function REPORT-ERROR @ #x-f970d5e> #<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> ...)
(APPLY #<Function REPORT-ERROR @ #x-f970d5e> #<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> ...)
(XLIB::READ-ERROR-INPUT #<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> 97 ...)
... more older frames ...
[1c] <cl 11> :dn 9
Evaluation stack:
... 16 more (possibly invisible) newer frames ...
(XLIB::READ-REPLY #<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> #s(XLIB::PENDING-COMMAND :SEQUENCE # :REPLY-BUFFER # ...))
(XLIB::QUERY-FONT #<XLIB:FONT -adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-1 killdeer:0 14680066>)
(XLIB::FONT-FONT-INFO #<non-lisp object @ #x2> )
(XLIB:FONT-ASCENT #<Function GET-FONT-FROM-STYLE @ #x-f47eda6>)
->(FONT-HEIGHT #<XLIB:FONT -adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-1 killdeer:0 14680066>)
(EW-CLOS::|(METHOD EW:SET-WINDOW-STYLE (EW:WINDOW T))| #<PRESENTATION-WINDOW -1643253106> (:FIX :ROMAN :NORMAL) ...)
(APPLY #<Function (METHOD EW:SET-WINDOW-STYLE (EW:WINDOW T)) @ #x-f4226ae> #<PRESENTATION-WINDOW -1643253106> ...)
(APPLY #<Function (METHOD EW:SET-WINDOW-STYLE (EW:WINDOW T)) @ #x-f4226ae> #<PRESENTATION-WINDOW -1643253106> ...)
... more older frames ...
[1c] <cl 12> (setq font2 (xlib:open-font *x-display* "courier12"))
#<XLIB:FONT courier12 killdeer:0 14680209>
[1c] <cl 13> (xlib:font-name font2)
"courier12"
[1c] <cl 14> (xlib:font-ascent font2)
Debug: Asynchronous NAME-ERROR in request 98 (last request was 160) Code 45.0 [OpenFont]
Restart actions (select using :continue):
0: Ignore
1: Ignore
[2c] <cl 15> :pop
Previous error: Asynchronous NAME-ERROR in request 97 (last request was 158) Code 45.0 [OpenFont]
If continued, Ignore
[1c] <cl 16> (xlib:font-direction font2)
Debug: Asynchronous NAME-ERROR in request 99 (last request was 161) Code 45.0 [OpenFont]
Restart actions (select using :continue):
0: Ignore
1: Ignore
[2c] <cl 17> :pop
Previous error: Asynchronous NAME-ERROR in request 97 (last request was 158) Code 45.0 [OpenFont]
If continued, Ignore
[1c] <cl 18>
[1c] <cl 18> (dribble)
;;; Then I tried to open my own display:
dribbling to file "/user/rit/drib2"
NIL
[1c] <cl 20> (setq *dd* (xlib:open-display "killdeer"))
#<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)>
[1c] <cl 21> (xlib:open-font *dd* "courier12")
#<XLIB:FONT courier12 killdeer:0 23068673>
[1c] <cl 22> (xlib:font-ascent *)
10
[1c] <cl 23> (describe *x-display*)
#<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> is a XLIB:DISPLAY
There are 69 elements
[1c] <cl 24> (describe *dd*)
#<XLIB:DISPLAY killdeer:0 (DECWINDOWS DigitalEquipmentCorporation UWS2.2 R1)> is a XLIB:DISPLAY
There are 69 elements
[1c] <cl 25> (dribble)