Need help with UX400 CLIM X font problem

[Jeff Lankford <jpl@nrtc.nrtc.northrop.com>]

I have a trivial CLIM application that works exactly as one expects
on 3600 machines (ie, draws a window w/ a title pane and displays the string),
but produces an error on UX400 (ie, font not found).
Appended to this message is the program listing, the error message,
and sample output from Show X Font Mapping command.  The latter shows
character style to font mappings for SWISS20B, but no corresponding
server font or pixmap.  Any ideas?

------------------------------   Trivial Program   ----------------------------

;;; -*- Mode: LISP; Syntax: Common-Lisp; Base: 10; Package: CLIM-USER -*-

(define-application-frame test ()
      ()
      (:panes ((title    :title :display-string "Distributed Dynamical System")
              )))

(setq *clim-root* (open-root-window :sheet))

(setq simple (make-application-frame 'test
                  :parent *clim-root*
                  :height 500 :width 500))

(run-frame-top-level simple)

-----------------------   Debugger Information (edited)   ---------------------

In Symbolics UX400S Command Processor in Genera 8.1.1,
Logical Pathnames Translation Files NEWEST, NFS Server 425.0, CLIM 27.5,
CLIM Documentation 31.0, cold load 1, Ivory Revision 2B (FPA enabled),
FEP 325, FEP0:>i325-loaders.flod(8), FEP0:>i325-info.flod(8),
FEP0:>i325-debug.flod(8), FEP0:>i325-lisp.flod(8), FEP0:>i325-kernel.fep(9),
Boot ROM version 308, Device PROM version 325, Genera application 2.4.3.2,
UX Support Server 2.4.3.1, Ivory-life program 2.4.3.1,
UX kernel life support 2.4.3.1, SunOS (UX402S) 4.1.1,
1037x782 8-bit PSEUDO-COLOR X Screen BAT:0.0 with 224 Genera fonts
(MIT X Consortium R5000), Machine serial number 3150,
world booted from FEP0:>CLIM-from-nrtc-8-1-1.ilod.1 on Symbolics UX400S #3150
(Gefilte Fish):

Error: The font FONTS:SWISS20B could not be found for the device
8-bit PSEUDO-COLOR X Screen BAT:0.0 with 224 Genera fonts
(MIT X Consortium R5000)
While in the function SI:GET-FONT 
 SI:LOOKUP-INDEX-AND-FONT 
 (FLAVOR:METHOD :DRAW-STRING-SIZE TV:GRAPHICS-MIXIN)

The condition signalled was SI:NO-CHARACTER-STYLE-MAPPING

--------------------   Show X Font Mapping (command output)   ------------------

The server fonts being used are TINY, NARROW, JESS13, BOXFONT, CPTFONTCB,
  TVFONT, JESS14, MEDFNT, CPTFONTI, HL14I, HL14, HL14B,
  MOUSE, HL8I, 5X5, HL8, HL12BI, HL12, SYMBOL12, EUREX24I, HL12I,
  SWISS12B-CCAPS, CPTFONTCC, and CPTFONT.

No fonts are currently displayed by using pixmaps and draw-rectangle.

Character style to font mappings for the ARROW character set:
  FIX.ROMAN.NORMAL - NARROW

Character style to font mappings for the Symbol character set:
  SWISS.ROMAN.NORMAL - SYMBOL12

Character style to font mappings for the MOUSE character set:
  FIX.ROMAN.NORMAL - MOUSE

Character style to font mappings:
  FIX.UPPERCASE.VERY-SMALL - 5X5
  FIX.EXTRA-CONDENSED.NORMAL - CPTFONTCC
  FIX.ROMAN.NORMAL - CPTFONT
  DEVICE-FONT.SWISS20B.NORMAL - SWISS20B
  SWISS.ITALIC.LARGE - HL14I
  SWISS.BOLD.LARGE - HL14B
  FIX.ROMAN.TINY - TINY
  FIX.ITALIC.NORMAL - CPTFONTI
  DUTCH.ITALIC.SMALL - TR10I
  JESS.ROMAN.LARGE - JESS14
  EUREX.ITALIC.HUGE - EUREX24I
  JESS.ROMAN.NORMAL - JESS13
  SWISS.BOLD-ITALIC.NORMAL - HL12BI
  FIX.ROMAN.LARGE - MEDFNT
  STANDIN-FOR-UNDEFINED-STYLES.ROMAN.NORMAL - BOXFONT
  FIX.ROMAN.SMALL - TVFONT
  SWISS.ITALIC.VERY-SMALL - HL8I
  SWISS.ROMAN.LARGE - HL14
  SWISS.BOLD.NORMAL - HL12B
  SWISS.ITALIC.NORMAL - HL12I
  SWISS.ROMAN.NORMAL - HL12
  SWISS.ROMAN.VERY-SMALL - HL8
  FIX.BOLD.NORMAL - CPTFONTCB
  SWISS.BOLD-CONDENSED-CAPS.NORMAL - SWISS12B-CCAPS

--------------------------------------------------------------------------------
jpl