[elephant-devel] persistant class compilation error

[quasi]

Hey guys,

I am using elephant 1.0 (stable) pulled from darcs. When I try to
compile a persistant class (in slime) I get the following attached
error. When I compile it
the second time it compiles fine.

I am using SBCL 1.0.32 on OSX with :x86-64 & :sb-thread.

thanks!
Abhijit

(defclass foo2 ()
  ((foo :accessor foo :initarg :foo :documentation "foo")
   (bar :accessor bar :initarg :bar :documentation "bar"))
  (:metaclass ele:persistent-metaclass))


There is no class named FOO2.
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [ABORT] Abort compilation.
 1: [ABORT] Return to SLIME's top level.
 2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "worker"
RUNNING {1002C626D1}>)

Backtrace:
  0: (SB-PCL::REAL-ADD-METHOD #<STANDARD-GENERIC-FUNCTION FOO (1)>
#<SB-MOP:STANDARD-READER-METHOD FOO, slot:FOO, ((CLASS #))
{1002C85811}> NIL)
      Locals:
        GENERIC-FUNCTION = #<STANDARD-GENERIC-FUNCTION FOO (1)>
        METHOD = #<SB-MOP:STANDARD-READER-METHOD FOO, slot:FOO,
((CLASS ..)) {1002C85811}>
        SB-PCL::SKIP-DFUN-UPDATE-P = NIL
  1: (SB-PCL::FIX-SLOT-ACCESSORS ..)
      Locals:
        SB-PCL::ADD/REMOVE = SB-PCL::ADD
        CLASS = #<ELEPHANT:PERSISTENT-METACLASS FOO2>
        SB-PCL::DSLOTDS =
(#<ELEPHANT::PERSISTENT-DIRECT-SLOT-DEFINITION FOO> ..)
        SB-PCL::SOURCE-LOCATION = #S(SB-C:DEFINITION-SOURCE-LOCATION ..)
  2: ((SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER (SB-PCL::STD-CLASS
T)) #(17 NIL 5 NIL) #<unavailable argument>
#<ELEPHANT:PERSISTENT-METACLASS FOO2> T)[:EXTERNAL]
      Locals:
        SB-DEBUG::ARG-0 = 16
        SB-DEBUG::ARG-1 = #(17 NIL 5 NIL)
        SB-DEBUG::ARG-2 = :<NOT-AVAILABLE>
        SB-DEBUG::ARG-3 = #<ELEPHANT:PERSISTENT-METACLASS FOO2>
        SB-DEBUG::ARG-4 = T
  3: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1. SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT.
SB-PCL::.DFUN-MORE-COUNT.)) ..)
      Locals:
        SB-PCL::.ARG0. = #<ELEPHANT:PERSISTENT-METACLASS FOO2>
        SB-PCL::.ARG1. = T
        SB-PCL::.DFUN-MORE-CONTEXT. = 16023515
        SB-PCL::.DFUN-MORE-COUNT. = 12
  4: ((SB-PCL::FAST-METHOD SHARED-INITIALIZE :AROUND
(ELEPHANT:PERSISTENT-METACLASS T)) #<unavailable argument>
#<unavailable argument> #<unavailable argument> #<unavailable
argument>)[:EXTERNAL]
      Locals:
        SB-DEBUG::ARG-0 = :<NOT-AVAILABLE>
        SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
        SB-DEBUG::ARG-2 = :<NOT-AVAILABLE>
        SB-DEBUG::ARG-3 = :<NOT-AVAILABLE>
        SB-DEBUG::ARG-4 = :<NOT-AVAILABLE>
  5: ((SB-PCL::FAST-METHOD MAKE-INSTANCE (CLASS)) #<unavailable
argument> #<unavailable argument> #<STANDARD-CLASS
ELEPHANT:PERSISTENT-METACLASS>)[:EXTERNAL]
      Locals:
        SB-DEBUG::ARG-0 = 15
        SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
        SB-DEBUG::ARG-2 = :<NOT-AVAILABLE>
        SB-DEBUG::ARG-3 = #<STANDARD-CLASS ELEPHANT:PERSISTENT-METACLASS>
  6: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
      [No Locals]
  7: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]291))
  8: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK ..)
  9: ((SB-PCL::FAST-METHOD SB-MOP:ENSURE-CLASS-USING-CLASS (NULL T))
#<unavailable argument> #<unavailable argument> NIL FOO2)[:EXTERNAL]
 10: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]291))
 11: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK ..)
 12: (SB-MOP:ENSURE-CLASS FOO2)[:EXTERNAL]
 13: (SB-PCL::REAL-LOAD-DEFCLASS ..)
 14: (SB-FASL::LOAD-FASL-GROUP #<SB-SYS:FD-STREAM for "file
/private/var/tmp/tmp.fasl" {1002C7CE51}>)
 15: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
 16: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]291))
 17: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK ..)
 18: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file
/private/var/tmp/tmp.fasl" {1002C7CE51}> NIL #<unavailable argument>)
 19: ((FLET SB-FASL::LOAD-STREAM) #<SB-SYS:FD-STREAM for "file
/private/var/tmp/tmp.fasl" {1002C7CE51}> T)
 --more--


-- 
Abhijit Rao (quasi)

REd Pill is Lisp.