[CM] FOMUS load error in CVS CM

[Dave Phillips]

Hi Rick:

  With CMUCL:

;;; Loading #P"/home/dlphilp/cm-systems/fomus/classes.x86f".

Execution of a form compiled with errors:
 (DEFMETHOD OBJ-PARTID ((EV EVENT-BASE))
   (EVENT-PARTID EV))
   [Condition of type KERNEL:SIMPLE-PROGRAM-ERROR]

Restarts:
  0: [CONTINUE] Return NIL from load of 
#P"/home/dlphilp/cm-systems/fomus/classes.x86f".
  1: [RETRY   ] Retry performing #<ASDF:LOAD-OP NIL {58DF60BD}> on
                #<ASDF:CL-SOURCE-FILE "classes" {58E856ED}>.
  2: [ACCEPT  ] Continue, treating #<ASDF:LOAD-OP NIL {58DF60BD}> on
                #<ASDF:CL-SOURCE-FILE "classes" {58E856ED}> as
                having been successful.
  3:            Return NIL from load of #P"home:.cminit.lisp".
  4:            Retry performing
                #<COMMON-LISP-USER::FINALIZE-OP NIL {581AB675}> on
                #<COMMON-LISP-USER::CM-APPLICATION "cm" {58976D3D}>.
  5:            Continue, treating
                #<COMMON-LISP-USER::FINALIZE-OP NIL {581AB675}> on
                #<COMMON-LISP-USER::CM-APPLICATION "cm" {58976D3D}> as
                having been successful.
  6:            Return NIL from load of 
"/home/dlphilp/cm/bin/../src/cm.lisp".
  7: [ABORT   ] Skip remaining initializations.

Debug  (type H for help)

(C::DO-CALL #<Code Object "Top-Level Form" {59515FEF}> 35 36 144 ...)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer 
exists:
  target:code/byte-interp.lisp.
0]

;;; Loading #P"/home/dlphilp/cm-systems/fomus/util.x86f".


Execution of a form compiled with errors:
 (DEFMETHOD OBJ-PROPS ((OBJ PART))
   (PART-PROPS OBJ))
   [Condition of type KERNEL:SIMPLE-PROGRAM-ERROR]

Restarts:
  0: [CONTINUE] Return NIL from load of 
#P"/home/dlphilp/cm-systems/fomus/util.x86f".
  1: [RETRY   ] Retry performing #<ASDF:LOAD-OP NIL {58DF60BD}> on
                #<ASDF:CL-SOURCE-FILE "util" {58E86DBD}>.
  2: [ACCEPT  ] Continue, treating #<ASDF:LOAD-OP NIL {58DF60BD}> on
                #<ASDF:CL-SOURCE-FILE "util" {58E86DBD}> as
                having been successful.
  3:            Return NIL from load of #P"home:.cminit.lisp".
  4:            Retry performing
                #<COMMON-LISP-USER::FINALIZE-OP NIL {581AB675}> on
                #<COMMON-LISP-USER::CM-APPLICATION "cm" {58976D3D}>.
  5:            Continue, treating
                #<COMMON-LISP-USER::FINALIZE-OP NIL {581AB675}> on
                #<COMMON-LISP-USER::CM-APPLICATION "cm" {58976D3D}> as
                having been successful.
  6:            Return NIL from load of 
"/home/dlphilp/cm/bin/../src/cm.lisp".
  7: [ABORT   ] Skip remaining initializations.

Debug  (type H for help)

(C::DO-CALL #<Code Object "Top-Level Form" {595A432F}> 96 97 144 ...)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer 
exists:
  target:code/byte-interp.lisp.
0]


By selecting 0 for these errors FOMUS finishes loading itself and the CM 
prompt appears. Again, I've run no tests yet, sorry about that. Too 
little time... :(

Best,

dp