test failed on build from recent cvs

[<don...@is...>]

Form: (PROGN (DEFCLASS T1 NIL ((FOO :ACCESSOR FOO :INITFORM :FOO))) (LIST (FUNCALL (COMPILE NIL (LAMBDA NIL (TYPEP (MAKE-INSTANCE 'T1) 'T1)))) (FUNCALL (SYSTEM::COMPILE-FORM-IN-TOPLEVEL-ENVIRONMENT '(TYPEP (MAKE-INSTANCE 'T1) 'T1)))))
CORRECT: (T T)
CLISP  : (T NIL)

If you want more detail send me instructions for generating it.