Hermes version 5 available

[Brian@RANGER.sbc.com (Brian Millett)]

I have a MacIvory running genera 8.1 with a Radius monitor. My herald is:
1? 0:Show Herald
Symbolics System, FEP1:>Inc-Site-and-everything-else-8-1.ilod.1
MacIvory model 3 Processor, 5.9M words Physical memory, 73.2M words Swapping space.
 Genera                           8.1
 IP-TCP                           435.2
 CLX                              431.0
 X Remote Screen                  429.0
 X Documentation                  408.0
 NFS Client                       425.0
 NFS Documentation                410.0
 CLIM                             27.3
 CLIM Documentation               31.0
 Metering                         429.0
 Conversion Tools                 420.0
 Hacks                            425.0
 Statice Runtime                  409.1
 Statice                          430.0
 Statice Browser                  406.0
 DBFS Utilities                   427.0
 Print Spooler                    425.0
 Experimental Service Description 97
 Experimental Xdr                 18
 Experimental Idoc                19
 Experimental Grammar             16
 Hermes                           5.0
 lispm application                5.4.6

 Check for new mail
Sbc-Tri GOLLUM.

When I tried to instantiate hermes on a macivory, I got thrown into the error handler
with the following bug:

2Error: The generic function GRAPHICS::GET-DRAWING-STATE was applied to the argument #<P
ROGRAM-FRAME Hermes 1 1004606274 exposed>.
0       2The argument was not of the correct type.
0       2The function is implemented by the flavors GRAPHICS::DRAWING-STATE-GRAPHICS-MIXI
N and DW::SIMULATED-PRESENTATION-RECORDING-STREAM.
0While in the function (FLAVOR:METHOD COLOR:%SCREEN-INFERIOR-COLOR-P MTB::MAC-RPC-SCREEN
)  (FLAVOR:METHOD COLOR:COLOR-STREAM-P SI:OUTPUT-STREAM)  COLOR:COLOR-STREAM-P
Rebinding   CP:*COMMAND-TABLE*
2(FLAVOR:METHOD COLOR:%SCREEN-INFERIOR-COLOR-P MTB::MAC-RPC-SCREEN)
0   Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map to flavor MTB::MAC-RPC-SCREEN 20001714733>
   Arg 1 (SELF): #<MAC-RPC-SCREEN Main Screen 20007111320 exposed>
   Arg 2 (MTB::SHEET): #<PROGRAM-FRAME Hermes 1 1004606274 exposed>
s-A, :    Supply a different generic function
s-B:           Supply replacement argument
s-C, :    Restart process Hermes 1


The problem seems to come from the execution of the following code from the file colour.lisp:

(defun 1colour0-1screen-p0 (program)
  (and
    (or
      (local-colour-p)				; 3We have....
0      (x-colour-p program))			; 3some kind of colour
0    (hermes-auto-colourise program)))		; ...3and user wishes to0.

(defun 1local-colour-p 0()
  (and
    (sct:get-system-version :color)		; 3If we have software0...
    (funcall (intern "COLOR-EXISTS-P" :color)))	; 3and hardware0...
  )

(defun 1x-colour-p 0(program)
  (funcall (intern "COLOR-STREAM-P" :color) (dw:program-frame program)))

It seems that the error occures when x-colour-p gets applied to the
hermes program frame. By changing the fcn to be:

(defun 1x-colour-p 0(program)
  t), 

then at least hermes will finish initializing and I can then use it.

I KNOW that that is a crude band-aid, but I wanted to read some mail.