[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