On 29 Jun 2008, at 10:17, Ian Eslick wrote:
Chris got unstable to work on ccl, so my best guess is that there
are stale fasls. Try :force t on asdf:load-op or ensuring that all
fasls are deleted in the src/db-bdb directory.
The error your forwarded refers to constants in DB-BDB-C46 when they
should be referring to DB-BDB-C45. If you get the wrong constants,
then the BDB library is going to complain loudly...
I had removed 0.9.1 and unstable and retrieved them again via darcs
before running that test. As a second test, I cleaned and re-
retrieved them again, installed BDB 4.6, changed my-config.sexp
appropriately, and got this error:
; While executing: CCL::PARSE-FOREIGN-RECORD-TYPE, in process
listener(1).
> Error: Undefined function #:G2122 called with arguments (#<A
Foreign Pointer #x805A00> #<A Null Foreign Pointer> #<A Foreign
Pointer #x1084A0> 2 #<A Foreign Pointer #x107340> 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 #:G2122 to (#<A Foreign Pointer
#x805A00> #<A Null Foreign Pointer> #<A Foreign Pointer #x1084A0> 2
#<A Foreign Pointer #x107340> 10 0 #<A Foreign Pointer [stack-
allocated] #x565900>).
> Type :? for other options.
1 >
I've put the full output below my sig.
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)
Dagny:Patrick:~/src/lisp/elephant-unstable> ccl
; loading system definition from /usr/local/ccl/tools/asdf-install/
asdf-install.asd into #<Package "ASDF0">
; registering #<SYSTEM ASDF-INSTALL #x84EC1A6> as ASDF-INSTALL
;;; ASDF-Install version 0.6.10
; loading system definition from /Users/Patrick/src/lisp/clsql-4.0.3/
clsql.asd into #<Package "ASDF0">
; loading system definition from /usr/local/asdf-install/site-systems/
uffi.asd into #<Package "ASDF1">
; registering #<SYSTEM UFFI #x85376DE> as UFFI
; registering #<SYSTEM CLSQL #x85099AE> as CLSQL
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 #x860095E> as ELEPHANT
; loading system definition from /usr/local/asdf-install/site-systems/
cl-base64.asd into #<Package "ASDF0">
; registering #<SYSTEM CL-BASE64 #x8625CEE> as CL-BASE64
; registering #<SYSTEM CL-BASE64-TESTS #x863BC8E> 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
#x8598B56> on #<CL-SOURCE-FILE "classes" #x8593016>.
; 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
#x8598B56> on #<CL-SOURCE-FILE "schema-evolution" #x8591E66>.
; 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
#x8598B56> on #<CL-SOURCE-FILE "schema-evolution" #x8591E66>.
; 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
#x8598B56> on #<CL-SOURCE-FILE "collections" #x85914FE>.
; 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
#x8596A46> on #<CL-SOURCE-FILE "query" #x858BF46>.
; 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 #x8771A66> 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.6/lib/ -I/usr/local/BerkeleyDB.4.6/
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.6
Loading /usr/local/BerkeleyDB.4.6/lib/libdb-4.6.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)) #x876531E> 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))) #x87652CE> 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)) #x876531E> 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))) #x87652CE> 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).
> Error: Undefined function #:G2122 called with arguments (#<A
Foreign Pointer #x805A00> #<A Null Foreign Pointer> #<A Foreign
Pointer #x1084A0> 2 #<A Foreign Pointer #x107340> 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 #:G2122 to (#<A Foreign Pointer
#x805A00> #<A Null Foreign Pointer> #<A Foreign Pointer #x1084A0> 2
#<A Foreign Pointer #x107340> 10 0 #<A Foreign Pointer [stack-
allocated] #x565900>).
> Type :? for other options.
1 >
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
