From: Hoehle, Joerg-C. <Joe...@t-...> - 2004-10-06 07:47:29
|
Hi, is it just my system? mop.erg Form: (PROGN (DEFPARAMETER *EXTERNAL-SLOT-VALUES* 'NIL) (DEFCLASS EXTERNAL-SLOT-\ DEFINITION (STANDARD-EFFECTIVE-SLOT-DEFINITION) NIL) ... CORRECT: (3 5 4 12 T -5 (T NIL) T) CLISP : ERROR The class #1=#<STANDARD-CLASS FOO60-A :INCOMPLETE :VERSION 1> has not yet been f\ inalized. Form: (PROGN (DEFCLASS TYPECHECKING-WRITER-METHOD (STANDARD-WRITER-METHOD) NIL) ... CORRECT: (T T T T NIL T) CLISP : (T T T NIL NIL T) Form: (PROGN (DEFCLASS TYPECHECKED-SLOT-DEFINITION (STANDARD-EFFECTIVE-SLOT-DEFI\ NITION) NIL) ... CORRECT: (NIL T T NIL NIL) CLISP : ERROR The class #1=#<STANDARD-CLASS FOO60-A :INCOMPLETE :VERSION 1> has not yet been f\ inalized. A couple of days ago, only one check failed. It was the code about typechecking-writer-method. Oddly enough, repeating the defclass/method at the REPL produced correct results: (t t t t nil t) Regards, Jorg Hohle. |