[elephant-devel] Problem installing with latest Clozure

Ian Eslick eslick at media.mit.edu
Sun Jun 29 16:00:53 UTC 2008


Well Patrick, I'm sorry to say that I'm stumped.  I no longer have  
access to a 32-bit PPC system to debug this locally.  I remember  
having problems with the 64-bit CCL on Intel the last time I tried to  
run CCL and was waiting for them to go to production before running it  
again.

Have you tried to build & run elephant on any other platform?  Has  
anyone else out there run Elephant successfully with ccl under PPC-32?

Patrick, can you build elephant using SBCL on your platform?

Ian

On Jun 29, 2008, at 10:48 AM, Patrick May wrote:

> 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
>
> ----
> pjm at spe.com
> 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 32 at 0> #<FOREIGN-RECORD-FIELD #1# NDX  
> 32 at 32> #<FOREIGN-RECORD-FIELD #1# GEN 32 at 64> #<FOREIGN-RECORD-FIELD  
> #2=#<FOREIGN-INTEGER-TYPE (:SIGNED 32) #x83479FE> MODE 32 at 96>)
> ;          were
> ;          (#<FOREIGN-RECORD-FIELD #1# DB-BDB-C45::OFF 32 at 0>  
> #<FOREIGN-RECORD-FIELD #1# DB-BDB-C45::NDX 32 at 32> #<FOREIGN-RECORD- 
> FIELD #1# DB-BDB-C45::GEN 32 at 64> #<FOREIGN-RECORD-FIELD #2# DB-BDB- 
> C45::MODE 32 at 96>)
> ; 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 32 at 0> #<FOREIGN-RECORD-FIELD #1# MODE  
> 32 at 32> #<FOREIGN-RECORD-FIELD #2=#<FOREIGN-INTEGER-TYPE (:UNSIGNED  
> 32) #x834783E> TIMEOUT 32 at 64> #<FOREIGN-RECORD-FIELD #3=#<FOREIGN- 
> ARRAY-TYPE (ARRAY (:SIGNED 8)) #x876531E> OBJ 8 at 96> #<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 32 at 128>)
> ;          were
> ;          (#<FOREIGN-RECORD-FIELD #1# DB-BDB-C45::OP 32 at 0>  
> #<FOREIGN-RECORD-FIELD #1# DB-BDB-C45::MODE 32 at 32> #<FOREIGN-RECORD- 
> FIELD #2# DB-BDB-C45::TIMEOUT 32 at 64> #<FOREIGN-RECORD-FIELD #3# DB- 
> BDB-C45::OBJ 8 at 96> #<FOREIGN-RECORD-FIELD #4# DB-BDB-C45::LOCK  
> 32 at 128>)
> ; 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 32 at 0> #<FOREIGN-RECORD-FIELD #1# NDX  
> 32 at 32> #<FOREIGN-RECORD-FIELD #1# GEN 32 at 64> #<FOREIGN-RECORD-FIELD  
> #2=#<FOREIGN-INTEGER-TYPE (:SIGNED 32) #x83479FE> MODE 32 at 96>)
> ;          were
> ;          (#<FOREIGN-RECORD-FIELD #1# DB-BDB-C46::OFF 32 at 0>  
> #<FOREIGN-RECORD-FIELD #1# DB-BDB-C46::NDX 32 at 32> #<FOREIGN-RECORD- 
> FIELD #1# DB-BDB-C46::GEN 32 at 64> #<FOREIGN-RECORD-FIELD #2# DB-BDB- 
> C46::MODE 32 at 96>)
> ; 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 32 at 0> #<FOREIGN-RECORD-FIELD #1# MODE  
> 32 at 32> #<FOREIGN-RECORD-FIELD #2=#<FOREIGN-INTEGER-TYPE (:UNSIGNED  
> 32) #x834783E> TIMEOUT 32 at 64> #<FOREIGN-RECORD-FIELD #3=#<FOREIGN- 
> ARRAY-TYPE (ARRAY (:SIGNED 8)) #x876531E> OBJ 8 at 96> #<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 32 at 128>)
> ;          were
> ;          (#<FOREIGN-RECORD-FIELD #1# DB-BDB-C46::OP 32 at 0>  
> #<FOREIGN-RECORD-FIELD #1# DB-BDB-C46::MODE 32 at 32> #<FOREIGN-RECORD- 
> FIELD #2# DB-BDB-C46::TIMEOUT 32 at 64> #<FOREIGN-RECORD-FIELD #3# DB- 
> BDB-C46::OBJ 8 at 96> #<FOREIGN-RECORD-FIELD #4# DB-BDB-C46::LOCK  
> 32 at 128>)
> ; 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 at common-lisp.net
> http://common-lisp.net/mailman/listinfo/elephant-devel




More information about the elephant-devel mailing list