Anyone knows what went wrong here?
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ELE-TESTS> (progn (loop for p in '(:elephant :ele-bdb :elephant-tests)
do (asdf:oos 'asdf:load-op p))
(in-package :elephant-tests)
(setq elephant-tests::*default-spec*
elephant-tests::*testbdb-spec*)
(do-backend-tests))
Attempting to load libmemutil.so...
Loaded /home/thomas/sources/clbuild/source/elephant/src/memutil/libmemutil.so
Attempting to load libmemutil.so...
Loaded /home/thomas/sources/clbuild/source/elephant/src/memutil/libmemutil.so
Loading /usr/local/BerkeleyDB.4.7/lib/libdb-4.7.so
Attempting to load libberkeley-db.so...
Loaded /home/thomas/sources/clbuild/source/elephant/src/db-bdb/libberkeley-db.so
Attempting to load libmemutil.so...
Loaded /home/thomas/sources/clbuild/source/elephant/src/memutil/libmemutil.so
Attempting to load libmemutil.so...
Loaded /home/thomas/sources/clbuild/source/elephant/src/memutil/libmemutil.so
.............................................................................................................................;
in: LAMBDA NIL
; (LET* ((ELEPHANT-TESTS::HT
; (MAKE-HASH-TABLE :TEST 'EQUALP :SIZE 333 :REHASH-SIZE 1.2
; :REHASH-THRESHOLD 0.8))
; (ELEPHANT-TESTS::REHASH-SIZE
; (HASH-TABLE-REHASH-SIZE ELEPHANT-TESTS::HT))
; (ELEPHANT-TESTS::REHASH-THRESHOLD
; (HASH-TABLE-REHASH-THRESHOLD ELEPHANT-TESTS::HT))
; (ELEPHANT-TESTS::OUT
; (ELEPHANT-TESTS::IN-OUT-VALUE ELEPHANT-TESTS::HT)))
; (ELEPHANT-TESTS::ARE-NOT-NULL
; (EQ (HASH-TABLE-TEST ELEPHANT-TESTS::OUT) 'EQUALP)
; (EQ (HASH-TABLE-TEST (ELEPHANT-TESTS::IN-OUT-VALUE #)) 'EQ)
; (EQ (HASH-TABLE-TEST (ELEPHANT-TESTS::IN-OUT-VALUE #)) 'EQL)
; (EQ (HASH-TABLE-TEST (ELEPHANT-TESTS::IN-OUT-VALUE #)) 'EQUAL)
; (EQ (HASH-TABLE-TEST (ELEPHANT-TESTS::IN-OUT-VALUE #)) 'EQUALP)))
;
; caught STYLE-WARNING:
; The variable REHASH-SIZE is defined but never used.
;
; caught STYLE-WARNING:
; The variable REHASH-THRESHOLD is defined but never used.
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
....................................; in: LAMBDA NIL
; (LET ((#:RESULT541
; (MULTIPLE-VALUE-LIST
; (LET #
; #))))
; )
;
; caught STYLE-WARNING:
; The variable #:RESULT541 is defined but never used.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
........
Second store spec missing: ignoring....; in: LAMBDA NIL
; (ERROR)
;
; caught STYLE-WARNING:
; The function was called with zero arguments, but wants at least one.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
...................................
Synchronizing PINEAPPLE in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing PINEAPPLE in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
......
STYLE-WARNING:
redefining SLOT-UNBOUND (#<BUILT-IN-CLASS T>
#<PERSISTENT-METACLASS CLASS-ONE>
#<SB-MOP:EQL-SPECIALIZER
{1005C29681}>) in DEFMETHOD
...
Synchronizing UPDATE-CLASS in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
..
Synchronizing CLASS-ONE in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
....persistent -> indexed
Synchronizing UISUV in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
indexed -> persistent
Synchronizing UISUV in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
.persistent -> indexed
indexed -> indexed
indexed -> persistent
................................................................................................................................................................
; (SETQ ELEPHANT-TESTS::RV
; (EQUAL (FORMAT NIL "~A" ELEPHANT-TESTS::KEY)
; (FORMAT NIL "~A"
; (ELEPHANT:GET-FROM-ROOT ELEPHANT-TESTS::KEY))))
;
; caught WARNING:
; undefined variable: RV
;
; compilation unit finished
; Undefined variable:
; RV
; caught 1 WARNING condition
Testing length = 163840
....................................; in: LAMBDA NIL
; (MULTIPLE-VALUE-BIND
; (ELEPHANT-TESTS::HAS ELEPHANT-TESTS::K ELEPHANT-TESTS::V)
; (ELEPHANT:CURSOR-FIRST ELEPHANT-TESTS::CUR)
; (WHEN ELEPHANT-TESTS::HAS (PUSH ELEPHANT-TESTS::V
ELEPHANT-TESTS::RESULTS)))
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::HAS) (ELEPHANT-TESTS::K)
; (ELEPHANT-TESTS::V)
; &REST #:G51)
; (DECLARE (IGNORE #:G51))
; (WHEN ELEPHANT-TESTS::HAS
; (PUSH ELEPHANT-TESTS::V ELEPHANT-TESTS::RESULTS)))
;
; caught STYLE-WARNING:
; The variable K is defined but never used.
; (MULTIPLE-VALUE-BIND
; (ELEPHANT-TESTS::HAS ELEPHANT-TESTS::K ELEPHANT-TESTS::V)
; (ELEPHANT:CURSOR-NEXT ELEPHANT-TESTS::CUR)
; (WHEN ELEPHANT-TESTS::HAS (PUSH ELEPHANT-TESTS::V
ELEPHANT-TESTS::RESULTS)))
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::HAS) (ELEPHANT-TESTS::K)
; (ELEPHANT-TESTS::V)
; &REST #:G56)
; (DECLARE (IGNORE #:G56))
; (WHEN ELEPHANT-TESTS::HAS
; (PUSH ELEPHANT-TESTS::V ELEPHANT-TESTS::RESULTS)))
;
; caught STYLE-WARNING:
; The variable K is defined but never used.
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::HAS) (ELEPHANT-TESTS::K)
; (ELEPHANT-TESTS::V)
; &REST #:G61)
; (DECLARE (IGNORE #:G61))
; (WHEN ELEPHANT-TESTS::HAS
; (PUSH ELEPHANT-TESTS::V ELEPHANT-TESTS::RESULTS)))
;
; caught STYLE-WARNING:
; The variable K is defined but never used.
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::HAS) (ELEPHANT-TESTS::K)
; (ELEPHANT-TESTS::V)
; &REST #:G66)
; (DECLARE (IGNORE #:G66))
; (WHEN ELEPHANT-TESTS::HAS
; (PUSH ELEPHANT-TESTS::V ELEPHANT-TESTS::RESULTS)))
;
; caught STYLE-WARNING:
; The variable K is defined but never used.
;
; note: cannot stack allocate value cell for CUR
;
; compilation unit finished
; caught 4 STYLE-WARNING conditions
; printed 1 note
....; in: LAMBDA NIL
; (MULTIPLE-VALUE-BIND
; (ELEPHANT-TESTS::HAS ELEPHANT-TESTS::K ELEPHANT-TESTS::V)
; (ELEPHANT:CURSOR-CURRENT ELEPHANT-TESTS::CUR)
; (IT.BESE.FIVEAM:IS-TRUE
; (AND ELEPHANT-TESTS::HAS
; (= (ELEPHANT-TESTS::SLOT1 ELEPHANT-TESTS::V) 100))))
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::HAS) (ELEPHANT-TESTS::K)
; (ELEPHANT-TESTS::V)
; &REST #:G45)
; (DECLARE (IGNORE #:G45))
; (IT.BESE.FIVEAM:IS-TRUE
; (AND ELEPHANT-TESTS::HAS
; (= (ELEPHANT-TESTS::SLOT1 ELEPHANT-TESTS::V) 100))))
;
; caught STYLE-WARNING:
; The variable K is defined but never used.
; (MULTIPLE-VALUE-BIND
; (ELEPHANT-TESTS::HAS ELEPHANT-TESTS::K ELEPHANT-TESTS::V)
; (ELEPHANT:CURSOR-PREV ELEPHANT-TESTS::CUR)
; (IT.BESE.FIVEAM:IS-TRUE
; (AND ELEPHANT-TESTS::HAS
; (= (ELEPHANT-TESTS::SLOT1 ELEPHANT-TESTS::V) 100))))
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::HAS) (ELEPHANT-TESTS::K)
; (ELEPHANT-TESTS::V)
; &REST #:G65)
; (DECLARE (IGNORE #:G65))
; (IT.BESE.FIVEAM:IS-TRUE
; (AND ELEPHANT-TESTS::HAS
; (= (ELEPHANT-TESTS::SLOT1 ELEPHANT-TESTS::V) 100))))
;
; caught STYLE-WARNING:
; The variable K is defined but never used.
;
; note: cannot stack allocate value cell for CUR
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 1 note
..........; in: LAMBDA NIL
; (LET ((#:RESULT189
; (MULTIPLE-VALUE-LIST
; (IT.BESE.FIVEAM:FINISHES
; #))))
; )
;
; caught STYLE-WARNING:
; The variable #:RESULT189 is defined but never used.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
..................
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
....; in: LAMBDA NIL
; (FLET ((ELEPHANT-TESTS::RETURNER
; (ELEPHANT-TESTS::KEY ELEPHANT-TESTS::VALUE
ELEPHANT-TESTS::PKEY)
; (ELEPHANT-TESTS::SLOT1 ELEPHANT-TESTS::VALUE)))
; (IT.BESE.FIVEAM:IS
; (EQUAL
; (ELEPHANT:MAP-INDEX #'ELEPHANT-TESTS::RETURNER ELEPHANT-TESTS::INDEX1
; :VALUE 990 :COLLECT T)
; (LIST 990))))
;
; caught STYLE-WARNING:
; The variable KEY is defined but never used.
;
; caught STYLE-WARNING:
; The variable PKEY is defined but never used.
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
...............; in: LAMBDA NIL
; (MULTIPLE-VALUE-BIND
; (ELEPHANT-TESTS::HAS ELEPHANT-TESTS::KEY ELEPHANT-TESTS::VALUE)
; (ELEPHANT:CURSOR-NEXT ELEPHANT-TESTS::C)
; ELEPHANT-TESTS::VALUE)
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::HAS) (ELEPHANT-TESTS::KEY)
; (ELEPHANT-TESTS::VALUE)
; &REST #:G115)
; (DECLARE (IGNORE #:G115))
; ELEPHANT-TESTS::VALUE)
;
; caught STYLE-WARNING:
; The variable HAS is defined but never used.
;
; caught STYLE-WARNING:
; The variable KEY is defined but never used.
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::HAS) (ELEPHANT-TESTS::KEY)
; (ELEPHANT-TESTS::VALUE)
; &REST #:G111)
; (DECLARE (IGNORE #:G111))
; ELEPHANT-TESTS::VALUE)
;
; caught STYLE-WARNING:
; The variable HAS is defined but never used.
;
; caught STYLE-WARNING:
; The variable KEY is defined but never used.
; (MULTIPLE-VALUE-BIND
; (ELEPHANT-TESTS::HAS ELEPHANT-TESTS::KEY ELEPHANT-TESTS::VALUE)
; (ELEPHANT:CURSOR-NEXT ELEPHANT-TESTS::C))
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::HAS) (ELEPHANT-TESTS::KEY)
; (ELEPHANT-TESTS::VALUE)
; &REST #:G62)
; (DECLARE (IGNORE #:G62)))
;
; caught STYLE-WARNING:
; The variable HAS is defined but never used.
;
; caught STYLE-WARNING:
; The variable KEY is defined but never used.
;
; caught STYLE-WARNING:
; The variable VALUE is defined but never used.
;
; note: cannot stack allocate value cell for C
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; caught 7 STYLE-WARNING conditions
; printed 2 notes
......; in: LAMBDA NIL
; (MULTIPLE-VALUE-BIND (ELEPHANT-TESTS::BOOL ELEPHANT-TESTS::RES)
; (ELEPHANT-TESTS::CRUNCH NIL NIL
; (ELEPHANT:GET-VALUE ELEPHANT-TESTS::I
; ELEPHANT-TESTS::INDEX3))
; (= ELEPHANT-TESTS::RES ELEPHANT-TESTS::I))
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::BOOL) (ELEPHANT-TESTS::RES) &REST #:G21)
; (DECLARE (IGNORE #:G21))
; (= ELEPHANT-TESTS::RES ELEPHANT-TESTS::I))
;
; caught STYLE-WARNING:
; The variable BOOL is defined but never used.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
.
;
; note: cannot stack allocate value cell for CURS
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for CURS
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for CURS
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for CURS
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for CURS
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for CURS
;
; compilation unit finished
; printed 1 note
...
;
; note: cannot stack allocate value cell for CURS
;
; compilation unit finished
; printed 1 note
.; in: LAMBDA NIL
; (MULTIPLE-VALUE-BIND (ELEPHANT-TESTS::M ELEPHANT-TESTS::K
ELEPHANT-TESTS::V)
; (ELEPHANT:CURSOR-NEXT ELEPHANT-TESTS::C)
; ELEPHANT-TESTS::V)
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::M) (ELEPHANT-TESTS::K) (ELEPHANT-TESTS::V)
; &REST #:G91)
; (DECLARE (IGNORE #:G91))
; ELEPHANT-TESTS::V)
;
; caught STYLE-WARNING:
; The variable M is defined but never used.
;
; caught STYLE-WARNING:
; The variable K is defined but never used.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 1 note
....
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
...; in: LAMBDA NIL
; (MULTIPLE-VALUE-BIND
; (ELEPHANT-TESTS::M ELEPHANT-TESTS::K ELEPHANT-TESTS::V
ELEPHANT-TESTS::P)
; (ELEPHANT:CURSOR-PGET-BOTH ELEPHANT-TESTS::C 10 107)
; (VALUES ELEPHANT-TESTS::K ELEPHANT-TESTS::V ELEPHANT-TESTS::P))
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::M) (ELEPHANT-TESTS::K) (ELEPHANT-TESTS::V)
; (ELEPHANT-TESTS::P)
; &REST #:G79)
; (DECLARE (IGNORE #:G79))
; (VALUES ELEPHANT-TESTS::K ELEPHANT-TESTS::V ELEPHANT-TESTS::P))
;
; caught STYLE-WARNING:
; The variable M is defined but never used.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
; printed 1 note
...; in: LAMBDA NIL
; (MULTIPLE-VALUE-BIND
; (ELEPHANT-TESTS::M ELEPHANT-TESTS::K ELEPHANT-TESTS::V
ELEPHANT-TESTS::P)
; (ELEPHANT:CURSOR-PGET-BOTH-RANGE ELEPHANT-TESTS::C 10 106.5)
; (VALUES ELEPHANT-TESTS::K ELEPHANT-TESTS::V ELEPHANT-TESTS::P))
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (ELEPHANT-TESTS::M) (ELEPHANT-TESTS::K) (ELEPHANT-TESTS::V)
; (ELEPHANT-TESTS::P)
; &REST #:G79)
; (DECLARE (IGNORE #:G79))
; (VALUES ELEPHANT-TESTS::K ELEPHANT-TESTS::V ELEPHANT-TESTS::P))
;
; caught STYLE-WARNING:
; The variable M is defined but never used.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
; printed 1 note
...
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
............
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
.............; in: LAMBDA NIL
; (LAMBDA (ELEPHANT-TESTS::K ELEPHANT-TESTS::V ELEPHANT-TESTS::PK)
; (UNLESS (ZEROP (MOD ELEPHANT-TESTS::K 33)) (RETURN NIL)))
; ==>
; #'(LAMBDA (ELEPHANT-TESTS::K ELEPHANT-TESTS::V ELEPHANT-TESTS::PK)
; (UNLESS (ZEROP (MOD ELEPHANT-TESTS::K 33)) (RETURN NIL)))
;
; caught STYLE-WARNING:
; The variable V is defined but never used.
;
; caught STYLE-WARNING:
; The variable PK is defined but never used.
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
.
;
; note: cannot stack allocate value cell for C
;
; compilation unit finished
; printed 1 note
...............; in: LAMBDA NIL
; (LET ((LIST (ELEPHANT:PSET-LIST ELEPHANT-TESTS::PSET1)))
; (VALUES (= (LENGTH (ELEPHANT:PSET-LIST ELEPHANT-TESTS::PSET1)) 5)
; (NOT
; (ELEPHANT:FIND-ITEM 'ELEPHANT-TESTS::TEST2
ELEPHANT-TESTS::PSET1))
; (ELEPHANT-TESTS::IS-NOT-NULL
; (ELEPHANT:FIND-ITEM 'ELEPHANT-TESTS::TEST1
; ELEPHANT-TESTS::PSET1))
; (ELEPHANT-TESTS::IS-NOT-NULL
; (ELEPHANT:FIND-ITEM 1 ELEPHANT-TESTS::PSET1 :KEY (LAMBDA # #)
; :TEST #'EQ))))
;
; caught STYLE-WARNING:
; The variable LIST is defined but never used.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
.....
Synchronizing IDX-ONE-B in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-ONE-C in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-ONE-D in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-ONE-E in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-ONE-F in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-TWO in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-CSLOT in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-THREE in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-FOUR in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-UNBOUND-DEL in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-FIVE-DEL in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-SEVEN in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-EIGHT in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
....READY FOR ACTION
f..f
Synchronizing IDX-ONE-F in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
.READY FOR ACTION
...
; (SETQ ELEPHANT-TESTS::INST4
; (MAKE-INSTANCE 'ELEPHANT-TESTS::IDX-ONE-B :SLOT1 "onethousand" :SC
; ELEPHANT:*STORE-CONTROLLER*))
;
; caught WARNING:
; undefined variable: INST4
; (SETQ ELEPHANT-TESTS::INST5
; (MAKE-INSTANCE 'ELEPHANT-TESTS::IDX-ONE-B :SLOT1 "only" :SC
; ELEPHANT:*STORE-CONTROLLER*))
;
; caught WARNING:
; undefined variable: INST5
; (SETQ ELEPHANT-TESTS::INST6
; (MAKE-INSTANCE 'ELEPHANT-TESTS::IDX-ONE-B :SLOT1 "twothousand" :SC
; ELEPHANT:*STORE-CONTROLLER*))
;
; caught WARNING:
; undefined variable: INST6
;
; compilation unit finished
; Undefined variables:
; INST4 INST5 INST6
; caught 3 WARNING conditions
Synchronizing IDX-ONE-B in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
...
Synchronizing IDX-ONE-C in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
......
Synchronizing IDX-ONE-D in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
......
Synchronizing IDX-ONE-E in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
...............
Synchronizing IDX-TWO-BASE in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-TWO-SUB1 in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-TWO-SUB1-1 in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-TWO-SUB2 in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-TWO-BASE in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-TWO-SUB1 in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-TWO-SUB1-1 in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-TWO-SUB2 in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
.....; in: LAMBDA NIL
; (LET ((#:RESULT154 (MULTIPLE-VALUE-LIST (PROGN # # # # #))))
; )
;
; caught STYLE-WARNING:
; The variable #:RESULT154 is defined but never used.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
Synchronizing IDX-FOUR in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
..
STYLE-WARNING: redefining MAKE-IDX-FOUR in DEFUN
.................f
; (ELEPHANT-TESTS::SLOT6 ELEPHANT-TESTS::O1)
;
; caught STYLE-WARNING:
; undefined function: SLOT6
;
; compilation unit finished
; Undefined function:
; SLOT6
; caught 1 STYLE-WARNING condition
Synchronizing IDX-EIGHT in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing IDX-EIGHT in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
indexing redef-class d
........
Ranged get of 10/700 objects = Linear: 0.24 sec Indexed: 0.0 sec
.......
; (SETF (ELEPHANT-TESTS::JOBS ELEPHANT-TESTS::P) ELEPHANT-TESTS::J)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL
; ==>
; (SB-C::%FUNCALL #'(SETF ELEPHANT-TESTS::JOBS) #:NEW29 #:TMP30)
;
; caught STYLE-WARNING:
; undefined function: (SETF JOBS)
;
; compilation unit finished
; Undefined function:
; (SETF JOBS)
; caught 1 STYLE-WARNING condition
Synchronizing PERSON in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing JOB in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
..
Synchronizing PERSON in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing JOB in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
Synchronizing PJASSOC in (BDB
/home/thomas/sources/clbuild/source/elephant/tests/testdb/)
..
Single store mode: ignoring.
Single store mode: ignoring.
Single store mode: ignoring.; in: LAMBDA NIL
; (LET ((ELEPHANT-TESTS::OLD-STORE ELEPHANT:*STORE-CONTROLLER*)
; (ELEPHANT:*STORE-CONTROLLER* NIL)
; (ELEPHANT-TESTS::RV NIL)
; (ELEPHANT-TESTS::SC1
; (ELEPHANT:OPEN-STORE ELEPHANT-TESTS::*TEST-SPEC-PRIMARY*
:RECOVER T))
; (ELEPHANT-TESTS::SC2
; (ELEPHANT:OPEN-STORE ELEPHANT-TESTS::*TEST-SPEC-SECONDARY* :RECOVER
; T)))
; (UNWIND-PROTECT
; (LET* ((ELEPHANT-TESTS::IBT #))
; (ELEPHANT::INITIALIZE-MIGRATE-DUPLICATE-DETECTION)
; (LET (#)
; (ELEPHANT:WITH-TRANSACTION #
; #)
; (LET* #
; #
; #)))
; (PROGN
; (ELEPHANT::CLEAR-MIGRATE-DUPLICATE-DETECTION)
; (SETQ ELEPHANT:*STORE-CONTROLLER* ELEPHANT-TESTS::OLD-STORE)
; (ELEPHANT:CLOSE-STORE ELEPHANT-TESTS::SC1)
; (ELEPHANT:CLOSE-STORE ELEPHANT-TESTS::SC2))))
;
; caught STYLE-WARNING:
; The variable RV is defined but never used.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
Single store mode: ignoring.
Single store mode: ignoring.
Single store mode: ignoring......
Single store mode: ignoring .......
Single store mode: ignoring.
Did 508 checks.
Pass: 505 (99%)
Skip: 0 ( 0%)
Fail: 3 ( 0%)
Failure Details:
--------------------------------
INDEXING-CHANGE-CLASS []:
1 evaluated to 1, which is not = to 2..
--------------------------------
--------------------------------
INDEXING-BASIC []:
(LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-F 'SLOT1 N)) evaluated
to 4, which is not = to 2..
--------------------------------
--------------------------------
INDEXING-BASIC []:
(LENGTH (GET-INSTANCES-BY-RANGE 'IDX-ONE-F 'SLOT1 N (+ 1 N)))
evaluated to 5, which is not = to 3..
--------------------------------
NIL
ELE-TESTS>
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
