Patrick,
Can you send the contents of your my-config.sexp? Also, what version
of uffi are you using?
The big hint here is that the BDB constants your are loading are
coming from the C46 constants package and not the C45 package that you
should be loading to match the BDB 4.5 that you're compiling. I'm not
sure why this is the case; but can you confirm that :berkeley-db-
version in your my-config.sexp is "4.5".
Ian
PS - In looking at your compiler output I've corrected and pushed a
patch for a couple of odd typos that probably don't effect this.
On Jun 27, 2008, at 3:31 PM, Patrick May wrote:
On 27 Jun 2008, at 10:20, Henrik Hjelte wrote:
>>no package named "DB-BDB-C47"
The C47 here looks to me like there is something remaining from
your old attempt with 4.7
Delete all fasls, and isn't libberkeley-db.dylib created when you
compile for the first time?
Try removing it, or just download a fresh copy of elephant.
I tried both the 0.9.1 and unstable releases. My my-config.sexp
uses the OSX defaults from config.sexp. This is the output I get:
Welcome to Clozure Common Lisp Version 1.2-r9226-RC1 (DarwinPPC32)!
? (asdf:operate 'asdf:load-op :elephant)
; loading system definition from elephant.asd into #<Package "ASDF0">
; registering #<SYSTEM ELEPHANT #x861D6FE> as ELEPHANT
; loading system definition from /usr/local/asdf-install/site-
systems/cl-base64.asd into #<Package "ASDF0">
; registering #<SYSTEM CL-BASE64 #x8622AF6> as CL-BASE64
; registering #<SYSTEM CL-BASE64-TESTS #x8638A0E> as CL-BASE64-TESTS
; $ gcc -bundle -fPIC -Wall -g -O2 -g /Users/Patrick/src/lisp/
elephant-unstable/src/memutil/libmemutil.c -o /Users/Patrick/src/
lisp/elephant-unstable/src/memutil/libmemutil.dylib -lm
Attempting to load libmemutil.dylib...
Loaded /Users/Patrick/src/lisp/elephant-unstable/src/memutil/
libmemutil.dylib
;Compiler warnings for "/Users/Patrick/src/lisp/elephant-unstable/
src/elephant/classes.lisp" :
; In (SHARED-INITIALIZE :AROUND (PERSISTENT-METACLASS T)): Unused
lexical variable INDEX
; In (REINITIALIZE-INSTANCE :AROUND (PERSISTENT-METACLASS)):
Unused lexical variable INITARGS
; In (INITIALIZE-INSTANCE :AROUND (PERSISTENT-OBJECT)): Unused
lexical variable INITARGS
; In (RECREATE-INSTANCE (PERSISTENT-OBJECT)) inside an anonymous
lambda form: Unused lexical variable ARGS
; Warning: COMPILE-FILE warned while performing #<COMPILE-OP NIL
#x8596F26> on #<CL-SOURCE-FILE "classes" #x859179E>.
; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>, in process listener(1).
;Compiler warnings for "/Users/Patrick/src/lisp/elephant-unstable/
src/elephant/controller.lisp" :
; In (OPEN-CONTROLLER :AFTER (STORE-CONTROLLER)): Unused lexical
variable ARGS
; In (CONTROLLER-PROPERTIES (STORE-CONTROLLER)): In the call to
GET-FROM-ROOT with arguments (*ELEPHANT-PROPERTIES-LABEL* :STORE-
CONTROLLER SC),
; the keyword argument :STORE-CONTROLLER is not one of (:SC),
which are recognized
; by the definition of GET-FROM-ROOT visible in the current
compilation unit.
; In (SET-ELE-PROPERTY (T T)): In the call to GET-FROM-ROOT with
arguments (*ELEPHANT-PROPERTIES-LABEL* :STORE-CONTROLLER SC),
; the keyword argument :STORE-CONTROLLER is not one of (:SC),
which are recognized
; by the definition of GET-FROM-ROOT visible in the current
compilation unit.
; In (GET-ELE-PROPERTY (T)): In the call to GET-FROM-ROOT with
arguments (*ELEPHANT-PROPERTIES-LABEL* :STORE-CONTROLLER SC),
; the keyword argument :STORE-CONTROLLER is not one of (:SC),
which are recognized
; by the definition of GET-FROM-ROOT visible in the current
compilation unit.
; Warning: COMPILE-FILE warned while performing #<COMPILE-OP NIL
#x8596F26> on #<CL-SOURCE-FILE "controller" #x8590A7E>.
; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>, in process listener(1).
;Compiler warnings for "/Users/Patrick/src/lisp/elephant-unstable/
src/elephant/schema-evolution.lisp" :
; In (UPGRADE-ALL-MEMORY-INSTANCES (STORE-CONTROLLER)): Undeclared
free variable VALUE
; Warning: COMPILE-FILE warned while performing #<COMPILE-OP NIL
#x8596F26> on #<CL-SOURCE-FILE "schema-evolution" #x85905EE>.
; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>, in process listener(1).
; Warning: COMPILE-FILE failed while performing #<COMPILE-OP NIL
#x8596F26> on #<CL-SOURCE-FILE "schema-evolution" #x85905EE>.
; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>, in process listener(1).
;Compiler warnings for "/Users/Patrick/src/lisp/elephant-unstable/
src/elephant/collections.lisp" :
; In (MAP-BTREE (T BTREE)): Unused lexical variable ARGS
; In (MAP-INDEX (T BTREE-INDEX)): Unused lexical variable ARGS
; Warning: COMPILE-FILE warned while performing #<COMPILE-OP NIL
#x8596F26> on #<CL-SOURCE-FILE "collections" #x858FC86>.
; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>, in process listener(1).
;Compiler warnings for "/Users/Patrick/src/lisp/elephant-unstable/
src/elephant/query.lisp" :
; In SORT-TUPLES: Unused lexical variable KEY-FN
; Warning: COMPILE-FILE warned while performing #<COMPILE-OP NIL
#x8594DA6> on #<CL-SOURCE-FILE "query" #x8595C5E>.
; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>, in process listener(1).
NIL
? (use-package :elephant)
T
? (open-store '(:BDB "/Users/Patrick/src/lisp/elephant-bdb/"))
; loading system definition from ele-bdb.asd into #<Package "ASDF0">
; registering #<SYSTEM ELE-BDB #x877C356> as ELE-BDB
Attempting to load libmemutil.dylib...
Loaded /Users/Patrick/src/lisp/elephant-unstable/src/memutil/
libmemutil.dylib
; $ gcc -L/usr/local/BerkeleyDB.4.5/lib/ -I/usr/local/BerkeleyDB.4.5/
include/ -bundle -fPIC -Wall -g -O2 -g /Users/Patrick/src/lisp/
elephant-unstable/src/db-bdb/libberkeley-db.c -o /Users/Patrick/src/
lisp/elephant-unstable/src/db-bdb/libberkeley-db.dylib -lm -ldb-4.5
Loading /usr/local/BerkeleyDB.4.5/lib/libdb-4.5.dylib
Attempting to load libberkeley-db.dylib...
Loaded /Users/Patrick/src/lisp/elephant-unstable/src/db-bdb/
libberkeley-db.dylib
; Warning: Redefining STRUCT DB-LOCK fields to be:
; (#<FOREIGN-RECORD-FIELD #1=#<FOREIGN-INTEGER-TYPE
(:UNSIGNED 32) #x834783E> OFF [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #1# NDX
[EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #1# GEN [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD
#2=#<FOREIGN-INTEGER-TYPE (:SIGNED 32) #x83479FE> MODE [EMAIL PROTECTED]>)
; were
; (#<FOREIGN-RECORD-FIELD #1# DB-BDB-C45::OFF [EMAIL PROTECTED]>
#<FOREIGN-RECORD-FIELD #1# DB-BDB-C45::NDX [EMAIL PROTECTED]> #<FOREIGN-RECORD-
FIELD #1# DB-BDB-C45::GEN [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #2# DB-BDB-
C45::MODE [EMAIL PROTECTED]>)
; While executing: CCL::PARSE-FOREIGN-RECORD-TYPE, in process
listener(1).
; Warning: Redefining STRUCT DB-LOCKREQ fields to be:
; (#<FOREIGN-RECORD-FIELD #1=#<FOREIGN-INTEGER-TYPE
(:SIGNED 32) #x83479FE> OP [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #1# MODE
[EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #2=#<FOREIGN-INTEGER-TYPE (:UNSIGNED
32) #x834783E> TIMEOUT [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #3=#<FOREIGN-
ARRAY-TYPE (ARRAY (:SIGNED 8)) #x875E93E> OBJ [EMAIL PROTECTED]> #<FOREIGN-RECORD-
FIELD #4=#<FOREIGN-POINTER-TYPE (:* (:STRUCT DB-BDB-C45::DB-LOCK
(OFF (:UNSIGNED 32) 32) (NDX (:UNSIGNED 32) 32) (GEN (:UNSIGNED 32)
32) (MODE (:SIGNED 32) 32))) #x875E8EE> LOCK [EMAIL PROTECTED]>)
; were
; (#<FOREIGN-RECORD-FIELD #1# DB-BDB-C45::OP [EMAIL PROTECTED]>
#<FOREIGN-RECORD-FIELD #1# DB-BDB-C45::MODE [EMAIL PROTECTED]> #<FOREIGN-RECORD-
FIELD #2# DB-BDB-C45::TIMEOUT [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #3# DB-
BDB-C45::OBJ [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #4# DB-BDB-C45::LOCK
[EMAIL PROTECTED]>)
; While executing: CCL::PARSE-FOREIGN-RECORD-TYPE, in process
listener(1).
; Warning: Redefining STRUCT DB-LOCK fields to be:
; (#<FOREIGN-RECORD-FIELD #1=#<FOREIGN-INTEGER-TYPE
(:UNSIGNED 32) #x834783E> OFF [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #1# NDX
[EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #1# GEN [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD
#2=#<FOREIGN-INTEGER-TYPE (:SIGNED 32) #x83479FE> MODE [EMAIL PROTECTED]>)
; were
; (#<FOREIGN-RECORD-FIELD #1# DB-BDB-C46::OFF [EMAIL PROTECTED]>
#<FOREIGN-RECORD-FIELD #1# DB-BDB-C46::NDX [EMAIL PROTECTED]> #<FOREIGN-RECORD-
FIELD #1# DB-BDB-C46::GEN [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #2# DB-BDB-
C46::MODE [EMAIL PROTECTED]>)
; While executing: CCL::PARSE-FOREIGN-RECORD-TYPE, in process
listener(1).
; Warning: Redefining STRUCT DB-LOCKREQ fields to be:
; (#<FOREIGN-RECORD-FIELD #1=#<FOREIGN-INTEGER-TYPE
(:SIGNED 32) #x83479FE> OP [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #1# MODE
[EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #2=#<FOREIGN-INTEGER-TYPE (:UNSIGNED
32) #x834783E> TIMEOUT [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #3=#<FOREIGN-
ARRAY-TYPE (ARRAY (:SIGNED 8)) #x875E93E> OBJ [EMAIL PROTECTED]> #<FOREIGN-RECORD-
FIELD #4=#<FOREIGN-POINTER-TYPE (:* (:STRUCT DB-BDB-C45::DB-LOCK
(OFF (:UNSIGNED 32) 32) (NDX (:UNSIGNED 32) 32) (GEN (:UNSIGNED 32)
32) (MODE (:SIGNED 32) 32))) #x875E8EE> LOCK [EMAIL PROTECTED]>)
; were
; (#<FOREIGN-RECORD-FIELD #1# DB-BDB-C46::OP [EMAIL PROTECTED]>
#<FOREIGN-RECORD-FIELD #1# DB-BDB-C46::MODE [EMAIL PROTECTED]> #<FOREIGN-RECORD-
FIELD #2# DB-BDB-C46::TIMEOUT [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #3# DB-
BDB-C46::OBJ [EMAIL PROTECTED]> #<FOREIGN-RECORD-FIELD #4# DB-BDB-C46::LOCK
[EMAIL PROTECTED]>)
; While executing: CCL::PARSE-FOREIGN-RECORD-TYPE, in process
listener(1).
;Compiler warnings for "/Users/Patrick/src/lisp/elephant-unstable/
src/db-bdb/bdb-controller.lisp" :
; In (DEFAULT-CLASS-ID (T BDB-STORE-CONTROLLER)): Duplicate
keyform QUOTE in ECASE statement.
; In (DEFAULT-CLASS-ID (T BDB-STORE-CONTROLLER)): Duplicate
keyform QUOTE in ECASE statement.
; In (DEFAULT-CLASS-ID (T BDB-STORE-CONTROLLER)): Duplicate
keyform QUOTE in ECASE statement.
; Warning: COMPILE-FILE warned while performing #<COMPILE-OP NIL
#x870CBAE> on #<CL-SOURCE-FILE "bdb-controller" #x870DDD6>.
; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>, in process listener(1).
; Warning: COMPILE-FILE failed while performing #<COMPILE-OP NIL
#x870CBAE> on #<CL-SOURCE-FILE "bdb-controller" #x870DDD6>.
; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>, in process listener(1).
> Error: Undefined function #:G2120 called with arguments (#<A
Foreign Pointer #x805800> #<A Null Foreign Pointer> #<A Foreign
Pointer #x107A60> 2 #<A Foreign Pointer #x107A70> 10 0 #<A Foreign
Pointer [stack-allocated] #x565900>) .
> While executing: #<STANDARD-METHOD ELEPHANT::DATABASE-VERSION (DB-
BDB::BDB-STORE-CONTROLLER)>, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available
restarts.
> If continued: Retry applying #:G2120 to (#<A Foreign Pointer
#x805800> #<A Null Foreign Pointer> #<A Foreign Pointer #x107A60> 2
#<A Foreign Pointer #x107A70> 10 0 #<A Foreign Pointer [stack-
allocated] #x565900>).
> Type :? for other options.
1 >
Any thoughts?
Thanks,
Patrick
----
[EMAIL PROTECTED]
S P Engineering, Inc.
Large scale, mission-critical, distributed OO systems design and
implementation.
(C++, Java, Common Lisp, Jini, middleware, SOA)
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
