[CM] CM/FOMUS problems

[Dave Phillips]

Greetings:

  Trying to get FOMUS working under CM 2.9.1, failing here:

; Error: (during macroexpansion)
; Error in FDEFINITION:  the function OBJ-ID is undefined.
[snip GC messages]
; Error: (during macroexpansion)
; Error in FDEFINITION:  the function OBJ-ID is undefined.
[snip]
; /home/dlphilp/cm-systems/fomus/classes.x86f written.
; Compilation finished in 0:00:13.
;;; Loading #P"/home/dlphilp/cm-systems/fomus/classes.x86f".

Execution of a form compiled with errors:
 (DEFMETHOD OUT-FORMAT ((OB PART))
   (FORMAT NIL
           "PART ~S~A :NAME ~S~A :INSTR ~S~A~A"
           (PART-PARTID OB)
           (IF (OBJ-ID OB) (FORMAT NIL " :ID ~S" (OBJ-ID OB)) "")
           (PART-NAME OB)
           (IF (PART-ABBREV OB) (FORMAT NIL " :ABBREV ~S" (PART-ABBREV 
OB)) "")
           (PART-INSTR OB)
           (IF (PART-PROPS OB) (FORMAT NIL " :PROPS ~S" (PART-PROPS OB)) "")
           (IF (PART-OPTS OB) (FORMAT NIL " :OPTS ~S" (PART-OPTS OB)) "")))
   [Condition of type KERNEL:SIMPLE-PROGRAM-ERROR]


This happens with either SBCL or CMUCL. I'm also loading CFFI from 4/24 
if that makes any difference.

Best,

dp