[elephant-devel] Error loading on LW5?

[Chris Curtis]

Hi, all... I'm getting the following error after (asdf:oos 'asdf:load- 
op :elephant) on LispWorks 5 (Mac OS X):

;;; Compiling file /Users/cmcurtis/lisp/source/elephant/src/elephant/ 
classes.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is  on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFVAR ELEPHANT::*DEBUG-SI*)
; (METHOD INITIALIZE-INSTANCE :BEFORE (ELEPHANT:PERSISTENT))


**++++ Error in (DEFCLASS ELEPHANT:PERSISTENT-OBJECT):
  Undefined function SET-DB-SYNCH called with arguments (#<PERSISTENT- 
METACLASS PERSISTENT-OBJECT 21EA0CF3> :CLASS).
; (METHOD SHARED-INITIALIZE :AROUND (ELEPHANT:PERSISTENT-METACLASS T))
; (METHOD CLOS:FINALIZE-INHERITANCE :AROUND (ELEPHANT:PERSISTENT- 
METACLASS))
; (METHOD REINITIALIZE-INSTANCE :AROUND (ELEPHANT:PERSISTENT-METACLASS))
; (METHOD SHARED-INITIALIZE :AROUND (ELEPHANT:PERSISTENT-OBJECT T))
; ELEPHANT::INITIALIZE-PERSISTENT-SLOTS
; (SUBFUNCTION (DEFCLASS ELEPHANT:DROPPING-PERSISTENT-SLOT-DATA)  
(DEFINE-CONDITION ELEPHANT:DROPPING-PERSISTENT-SLOT-DATA))
; (DEFINE-CONDITION ELEPHANT:DROPPING-PERSISTENT-SLOT-DATA)
; (DEFINE-CONDITION ELEPHANT:DROPPING-PERSISTENT-SLOT-DATA)
; ELEPHANT::WARN-ABOUT-DROPPED-SLOTS
; ELEPHANT::DROP-SLOTS
; (METHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS :AROUND  
(ELEPHANT:PERSISTENT-OBJECT T T T))
; (METHOD CHANGE-CLASS :AROUND (ELEPHANT:PERSISTENT STANDARD-CLASS))
; (METHOD CHANGE-CLASS :AROUND (STANDARD-OBJECT ELEPHANT:PERSISTENT- 
METACLASS))
; (METHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS :AROUND  
(ELEPHANT:PERSISTENT ELEPHANT:PERSISTENT))
; (METHOD CLOS:SLOT-VALUE-USING-CLASS (ELEPHANT:PERSISTENT-METACLASS  
ELEPHANT:PERSISTENT-OBJECT ELEPHANT::PERSISTENT-SLOT-DEFINITION))
; (METHOD (SETF CLOS:SLOT-VALUE-USING-CLASS) (T ELEPHANT:PERSISTENT- 
METACLASS ELEPHANT:PERSISTENT-OBJECT ELEPHANT::PERSISTENT-SLOT- 
DEFINITION))
; (METHOD CLOS:SLOT-BOUNDP-USING-CLASS (ELEPHANT:PERSISTENT-METACLASS  
ELEPHANT:PERSISTENT-OBJECT ELEPHANT::PERSISTENT-SLOT-DEFINITION))
; (METHOD CLOS:SLOT-BOUNDP-USING-CLASS (ELEPHANT:PERSISTENT-METACLASS  
ELEPHANT:PERSISTENT-OBJECT SYMBOL))
; (METHOD CLOS:SLOT-MAKUNBOUND-USING-CLASS (ELEPHANT:PERSISTENT- 
METACLASS ELEPHANT:PERSISTENT-OBJECT ELEPHANT::PERSISTENT-SLOT- 
DEFINITION))
; ELEPHANT::VALID-PERSISTENT-REFERENCE-P
; (SUBFUNCTION (DEFCLASS ELEPHANT:CROSS-REFERENCE-ERROR) (DEFINE- 
CONDITION ELEPHANT:CROSS-REFERENCE-ERROR))
; (DEFINE-CONDITION ELEPHANT:CROSS-REFERENCE-ERROR)
; (DEFINE-CONDITION ELEPHANT:CROSS-REFERENCE-ERROR)
; ELEPHANT::SIGNAL-CROSS-REFERENCE-ERROR
; (METHOD CLOS:SLOT-VALUE-USING-CLASS (ELEPHANT:PERSISTENT-METACLASS  
ELEPHANT:PERSISTENT-OBJECT T))
; (METHOD (SETF CLOS:SLOT-VALUE-USING-CLASS) (T ELEPHANT:PERSISTENT- 
METACLASS ELEPHANT:PERSISTENT-OBJECT T))
; (METHOD CLOS:SLOT-MAKUNBOUND-USING-CLASS (ELEPHANT:PERSISTENT- 
METACLASS ELEPHANT:PERSISTENT-OBJECT T))
; (TOP-LEVEL-FORM 3)
; *** 1 error detected, no fasl file produced.
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL  
21399A9F> on
         #<ASDF:CL-SOURCE-FILE "classes" 21B52CAB>.
Warning: COMPILE-FILE failed while performing #<ASDF:COMPILE-OP NIL  
21399A9F> on
         #<ASDF:CL-SOURCE-FILE "classes" 21B52CAB>.
Error: erred while invoking #<ASDF:COMPILE-OP NIL 21399A9F> on  
#<ASDF:CL-SOURCE-FILE "classes" 21B52CAB>


 From what little I can tell, it doesn't look like classindex.lisp is  
getting compiled first, which is where set-db-sync appears to be  
defined. But that's just my quick assessment.

Any ideas?

--chris