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.
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
