installing expressing windows (problem)

[poesio@cs.rochester.edu]

Hi! I am trying to install express windows for lucid 3.0,
on a Sun SPARC, and the window system is X11 (I can grab the exact version
if relevant). 
The problem I have is the following:
I have compiled the files OK, loaded them,
and executed (clear-all).
At this point, the following error message appears:

> (clear-all)
>>Error: X-Error: NAME-ERROR in request 121 (last request was 158)  Code 45.0 [O
penFont]

XLIB::X-ERROR:
   Required arg 0 (CONDITION): XLIB:NAME-ERROR
   Rest arg 1 (KEYARGS): (:DISPLAY #<DISPLAY  0> :ERROR-KEY XLIB:NAME-ERROR :MAJ
OR 45 :MINOR 0 :SEQUENCE 121 ...)
:A  0: Abort to Lisp Top Level

this is the status of the stack:

-> :n
XLIB::REPORT-ERROR:
   Required arg 0 (DISPLAY): #<DISPLAY  0>
   Required arg 1 (EVENT): #S(XLIB::REPLY-BUFFER SIZE 4096 IBUF8 #<Simple-Vector (UNSIGNED-BYTE 8) 4096 DD4B2E>)
-> :n
XLIB::WAIT-FOR-REPLY:
   Required arg 0 (DISPLAY): #<DISPLAY  0>
   Required arg 1 (EXPECTED-SIZE): NIL
-> :n
XLIB::QUERY-FONT:
   Required arg 0 (FONT): #<Xfont -adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-1 8388610>
-> :n
FONT-HEIGHT:
   Required arg 0 (FONT): #<Xfont -adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-1 8388610>
-> :n
PCL::|(METHOD EXPRESS-WINDOWS:SET-WINDOW-STYLE (EXPRESS-WINDOWS:WINDOW T))|:
   Required arg 0 (WINDOW): #<PRESENTATION-WINDOW 67546726>
   Required arg 1 (NEW-STYLE): (:FIX :ROMAN :NORMAL)
   Optional arg 2 (SET-LINE-HEIGHT): T

It seems, of course, that the problem occurs when EXPRESS-WINDOWS:SET-WINDOW-STYLE
tries to get the height of
the font -adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-1
(which is what XLIB:GET-FONT-FROM-STYLE returns for the style (:FIX :ROMAN :NORMAL))
using the macro RECOMPUTE-LINE-HEIGHT.
It may help to know that in order to get this far I had to make the
following changes to the files I ftp-ed from uunet.uu.net:

1) 	change the suffix `lbin' to `sbin' (for the SPARC compiler)
	in LOAD-EW and the value of *Binary-File-Type* as follows:

	;;(defvar *Binary-File-Type* #+Excl "fasl" #+lucid "lbin" #+symbolics "BIN")     ;; OLD
	(defvar *Binary-File-Type* #+Excl "fasl" #+lucid "sbin" #+symbolics "BIN")       ;; NEW

2)	change the value of *Default-Host* in x-interface.lisp from "Electro" to "".


	Thanks

		
			Massimo Poesio
			University of Rochester
			Computer Science Department
			Rochester, NY 14627
			email:  poesio@cs.rochester.edu
			phone:  (716) 275-5605