<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.3.2">
</HEAD>
<BODY>
OK, thank you. <BR>
<BR>
If we can get Elephant into a state that you don't have to be a LISP hacker to use it,<BR>
we will be greatly expanding its usefulness.<BR>
<BR>
I will try to work with Waldo Rubinstein to solve this problem for openmcl.<BR>
<BR>
<BR>
On Wed, 2006-01-11 at 11:41 +0100, Kilian Sprotte wrote:
<BLOCKQUOTE TYPE=CITE>
<PRE>
<FONT COLOR="#000000">Hi all,</FONT>
<FONT COLOR="#000000">for the moment, I cannot say anything more that I get the same </FONT>
<FONT COLOR="#000000">results on openmcl 1.0 as Waldo and also on openmcl 0.14.3.</FONT>
<FONT COLOR="#000000">I append again the transcript with</FONT>
<FONT COLOR="#000000">(defmethod print-object ((obj simple-error) stream)</FONT>
<FONT COLOR="#000000"> (print-unreadable-object (obj stream :type t)</FONT>
<FONT COLOR="#000000"> (apply #'format stream (simple-condition-format-control obj) </FONT>
<FONT COLOR="#000000">(simple-condition-format-arguments obj))))</FONT>
<FONT COLOR="#000000">The #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT-VECTOR </FONT>
<FONT COLOR="#000000">#x66E4BEE> .> seems to (always?) refer to</FONT>
<FONT COLOR="#000000">the "missing slots" of the bdb-indexed-btree.</FONT>
<FONT COLOR="#000000">I am sorry for not being anymore helpful - I will be quite busy the </FONT>
<FONT COLOR="#000000">next days - and also I should admit that I am actually a musician, </FONT>
<FONT COLOR="#000000">who normally would just store his chords into elephant - I mean, I am </FONT>
<FONT COLOR="#000000">just not sure if I can be of real, valuable help for you. Well, I'll </FONT>
<FONT COLOR="#000000">try to be helpful where I can, but maybe you shouldn't rely too much </FONT>
<FONT COLOR="#000000">on what I say :)</FONT>
<FONT COLOR="#000000">Cheers,</FONT>
<FONT COLOR="#000000"> Kilian Sprotte</FONT>
<FONT COLOR="#000000">Doing 106 pending tests of 106 tests total.</FONT>
<FONT COLOR="#000000">FIXNUMS FIXNUM-TYPE-1 BIGNUMS FLOATS RATIONALS BASE-STRINGS STRINGS </FONT>
<FONT COLOR="#000000">SYMBOLS</FONT>
<FONT COLOR="#000000">CHARS PATHNAMES CONSES HASH-TABLES-1 HASH-TABLES-2 ARRAYS-1 ARRAYS-2</FONT>
<FONT COLOR="#000000">TEST-DEEP-EQUALP OBJECTS CIRCULAR PERSISTENT NON-TRANSIENT-CLASS-SLOT-1</FONT>
<FONT COLOR="#000000">NON-TRANSIENT-CLASS-SLOT-2 TRANSIENT-CLASS-SLOT CLASS-DEFINERS BAD- </FONT>
<FONT COLOR="#000000">INHERITENCE</FONT>
<FONT COLOR="#000000">MIXES MIXES-RIGHT-SLOTS INHERIT INHERIT-RIGHT-SLOTS INITFORM-CLASSES</FONT>
<FONT COLOR="#000000">INITFORM-TEST INITARG-TEST NO-EVAL-INITFORM REDEFCLASS MAKUNBOUND</FONT>
<FONT COLOR="#000000">Test UPDATE-CLASS failed</FONT>
<FONT COLOR="#000000">Form: (PROGN (DEFCLASS UPDATE-CLASS NIL ((SLOT1 :INITFORM 1 :ACCESSOR </FONT>
<FONT COLOR="#000000">SLOT1)) (:METACLASS PERSISTENT-METACLASS)) (LET* ((*AUTO-COMMIT* T) </FONT>
<FONT COLOR="#000000">(FOO (MAKE-INSTANCE 'UPDATE-CLASS :SC *STORE-CONTROLLER*))) (DEFCLASS </FONT>
<FONT COLOR="#000000">UPDATE-CLASS NIL ((SLOT2 :INITFORM 2 :ACCESSOR SLOT2)) (:METACLASS </FONT>
<FONT COLOR="#000000">PERSISTENT-METACLASS)) (VALUES (SLOT2 FOO) (SIGNALS-CONDITION (SLOT1 </FONT>
<FONT COLOR="#000000">FOO)))))</FONT>
<FONT COLOR="#000000">Expected values: 2</FONT>
<FONT COLOR="#000000"> T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-SLOT #x668C2DE>.</FONT>
<FONT COLOR="#000000">Test CHANGE-CLASS failed</FONT>
<FONT COLOR="#000000">Form: (PROGN (DEFCLASS CLASS-ONE NIL ((SLOT1 :INITFORM 1 :ACCESSOR </FONT>
<FONT COLOR="#000000">SLOT1)) (:METACLASS PERSISTENT-METACLASS)) (DEFCLASS CLASS-TWO NIL </FONT>
<FONT COLOR="#000000">((SLOT1 :INITFORM 0 :ACCESSOR SLOT1) (SLOT2 :INITFORM 2 :ACCESSOR </FONT>
<FONT COLOR="#000000">SLOT2)) (:METACLASS PERSISTENT-METACLASS)) (LET* ((*AUTO-COMMIT* T) </FONT>
<FONT COLOR="#000000">(FOO (MAKE-INSTANCE 'CLASS-ONE :SC *STORE-CONTROLLER*))) (CHANGE- </FONT>
<FONT COLOR="#000000">CLASS FOO (FIND-CLASS 'CLASS-TWO)) (VALUES (SLOT1 FOO) (SLOT2 FOO))))</FONT>
<FONT COLOR="#000000">Expected values: 1</FONT>
<FONT COLOR="#000000"> 2</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-SLOT #x668724E>.</FONT>
<FONT COLOR="#000000">Test CHANGE-CLASS2 failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (LET </FONT>
<FONT COLOR="#000000">((FOO (BUILD-BTREE *STORE-CONTROLLER*))) (CHANGE-CLASS FOO (FIND- </FONT>
<FONT COLOR="#000000">CLASS (IF (TYPEP *STORE-CONTROLLER* 'BDB-STORE-CONTROLLER) 'BDB- </FONT>
<FONT COLOR="#000000">INDEXED-BTREE 'SQL-INDEXED-BTREE))) (IS-NOT-NULL (INDICES FOO))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-SLOT #x66984BE>.</FONT>
<FONT COLOR="#000000">Test CHANGE-CLASS3 failed</FONT>
<FONT COLOR="#000000">Form: (PROGN (DEFCLASS CLASS-ONE NIL ((SLOT1 :ACCESSOR SLOT1)) </FONT>
<FONT COLOR="#000000">(:METACLASS PERSISTENT-METACLASS)) (DEFCLASS CLASS-TWO NIL </FONT>
<FONT COLOR="#000000">((SLOT1 :INITFORM 0 :ACCESSOR SLOT1) (SLOT2 :INITFORM 2 :ACCESSOR </FONT>
<FONT COLOR="#000000">SLOT2)) (:METACLASS PERSISTENT-METACLASS)) (LET* ((*AUTO-COMMIT* T) </FONT>
<FONT COLOR="#000000">(FOO (MAKE-INSTANCE 'CLASS-ONE :SC *STORE-CONTROLLER*))) (CHANGE- </FONT>
<FONT COLOR="#000000">CLASS FOO (FIND-CLASS 'CLASS-TWO)) (VALUES (SLOT1 FOO) (SLOT2 FOO))))</FONT>
<FONT COLOR="#000000">Expected values: 0</FONT>
<FONT COLOR="#000000"> 2</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-SLOT #x66934CE>.</FONT>
<FONT COLOR="#000000">BASICPERSISTENCE TESTOID BTREE-MAKE BTREE-PUT BTREE-GET REMOVE-KV </FONT>
<FONT COLOR="#000000">REMOVED</FONT>
<FONT COLOR="#000000">MAP-BTREE INDEXED-BTREE-MAKE</FONT>
<FONT COLOR="#000000">Test ADD-INDICES failed</FONT>
<FONT COLOR="#000000">Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE- </FONT>
<FONT COLOR="#000000">CONTROLLER*) (SETF INDEX1 (ADD-INDEX INDEXED :INDEX-NAME 'SLOT1 :KEY- </FONT>
<FONT COLOR="#000000">FORM 'KEY-MAKER)) (SETF INDEX2 (ADD-INDEX INDEXED :INDEX-NAME </FONT>
<FONT COLOR="#000000">'SLOT2 :KEY-FORM '(LAMBDA (S KEY VALUE) (DECLARE (IGNORE S KEY)) </FONT>
<FONT COLOR="#000000">(VALUES T (SLOT2 VALUE)))))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">Test TEST-INDICES failed</FONT>
<FONT COLOR="#000000">Form: (VALUES (= (HASH-TABLE-COUNT (INDICES INDEXED)) 2) (EQ INDEX1 </FONT>
<FONT COLOR="#000000">(GETHASH 'SLOT1 (INDICES INDEXED))) (EQ INDEX2 (GETHASH 'SLOT2 </FONT>
<FONT COLOR="#000000">(INDICES INDEXED))))</FONT>
<FONT COLOR="#000000">Expected values: T</FONT>
<FONT COLOR="#000000"> T</FONT>
<FONT COLOR="#000000"> T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x662D8DE>.</FONT>
<FONT COLOR="#000000">Test INDEXED-PUT failed</FONT>
<FONT COLOR="#000000">Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE- </FONT>
<FONT COLOR="#000000">CONTROLLER*) (LOOP FOR OBJ IN OBJS FOR KEY IN KEYS DO (SETF (GET- </FONT>
<FONT COLOR="#000000">VALUE KEY INDEXED) OBJ))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">Test INDEXED-GET failed</FONT>
<FONT COLOR="#000000">Form: (LOOP FOR KEY IN KEYS FOR I FROM 1 TO 1000 FOR OBJ = (GET-VALUE </FONT>
<FONT COLOR="#000000">KEY INDEXED) ALWAYS (AND (= (SLOT1 OBJ) I) (= (SLOT2 OBJ) (* I 100))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<SIMPLE-ERROR No applicable method for args:</FONT>
<FONT COLOR="#000000">(NIL)</FONT>
<FONT COLOR="#000000">to #<STANDARD-GENERIC-FUNCTION SLOT1 #x653FC7E>>.</FONT>
<FONT COLOR="#000000">Test SIMPLE-SLOT-GET failed</FONT>
<FONT COLOR="#000000">Form: (PROGN (SETF (GET-VALUE (NTH 0 KEYS) INDEXED) (NTH 0 OBJS)) </FONT>
<FONT COLOR="#000000">(LET ((OBJ (GET-VALUE 1 INDEX1))) (AND (= (SLOT1 OBJ) 1) (= (SLOT2 </FONT>
<FONT COLOR="#000000">OBJ) (* 1 100)))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT- </FONT>
<FONT COLOR="#000000">VECTOR #x65F449E> .>.</FONT>
<FONT COLOR="#000000">Test INDEXED-GET-FROM-SLOT1 failed</FONT>
<FONT COLOR="#000000">Form: (LOOP WITH INDEX = (GET-INDEX INDEXED 'SLOT1) FOR I FROM 1 TO </FONT>
<FONT COLOR="#000000">1000 FOR OBJ = (GET-VALUE I INDEX) ALWAYS (= (SLOT1 OBJ) I))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT- </FONT>
<FONT COLOR="#000000">VECTOR #x65F449E> .>.</FONT>
<FONT COLOR="#000000">Test INDEXED-GET-FROM-SLOT2 failed</FONT>
<FONT COLOR="#000000">Form: (LOOP WITH INDEX = (GET-INDEX INDEXED 'SLOT2) FOR I FROM 1 TO </FONT>
<FONT COLOR="#000000">1000 FOR OBJ = (GET-VALUE (* I 100) INDEX) ALWAYS (= (SLOT2 OBJ) (* I </FONT>
<FONT COLOR="#000000">100)))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT- </FONT>
<FONT COLOR="#000000">VECTOR #x65F449E> .>.</FONT>
<FONT COLOR="#000000">REMOVE-KV-INDEXED</FONT>
<FONT COLOR="#000000">Test NO-KEY-NOR-INDICES failed</FONT>
<FONT COLOR="#000000">Form: (VALUES (GET-VALUE FIRST-KEY INDEXED) (GET-PRIMARY-KEY 1 </FONT>
<FONT COLOR="#000000">INDEX1) (GET-PRIMARY-KEY 100 INDEX2))</FONT>
<FONT COLOR="#000000">Expected values: NIL</FONT>
<FONT COLOR="#000000"> NIL</FONT>
<FONT COLOR="#000000"> NIL</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x6645ADE>.</FONT>
<FONT COLOR="#000000">Test REMOVE-KV-FROM-SLOT1 failed</FONT>
<FONT COLOR="#000000">Form: (FINISHES (REMOVE-KV 2 INDEX1))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">Test NO-KEY-NOR-INDICES-SLOT1 failed</FONT>
<FONT COLOR="#000000">Form: (VALUES (GET-VALUE (SECOND KEYS) INDEXED) (GET-PRIMARY-KEY 2 </FONT>
<FONT COLOR="#000000">INDEX1) (GET-PRIMARY-KEY 200 INDEX2))</FONT>
<FONT COLOR="#000000">Expected values: NIL</FONT>
<FONT COLOR="#000000"> NIL</FONT>
<FONT COLOR="#000000"> NIL</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x66419D6>.</FONT>
<FONT COLOR="#000000">Test REMOVE-KV-FROM-SLOT2 failed</FONT>
<FONT COLOR="#000000">Form: (FINISHES (REMOVE-KV 300 INDEX2))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">Test NO-KEY-NOR-INDICES-SLOT2 failed</FONT>
<FONT COLOR="#000000">Form: (VALUES (GET-VALUE (THIRD KEYS) INDEXED) (GET-PRIMARY-KEY 3 </FONT>
<FONT COLOR="#000000">INDEX1) (GET-PRIMARY-KEY 300 INDEX2))</FONT>
<FONT COLOR="#000000">Expected values: NIL</FONT>
<FONT COLOR="#000000"> NIL</FONT>
<FONT COLOR="#000000"> NIL</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x665D8C6>.</FONT>
<FONT COLOR="#000000">Test MAP-INDEXED failed</FONT>
<FONT COLOR="#000000">Form: (LET ((KS NIL) (VS NIL)) (FLET ((MAPPER (K V) (PUSH K KS) (PUSH </FONT>
<FONT COLOR="#000000">V VS))) (MAP-BTREE #'MAPPER INDEXED)) (VALUES (AND (SUBSETP KS (CDDDR </FONT>
<FONT COLOR="#000000">KEYS) :TEST #'EQUALP) (SUBSETP (CDDDR KEYS) KS :TEST #'EQUALP))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">Test GET-FIRST failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (C INDEX1) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-FIRST </FONT>
<FONT COLOR="#000000">C) (DECLARE (IGNORE HAS V)) (= K 4))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x6669F86>.</FONT>
<FONT COLOR="#000000">Test GET-FIRST2 failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (C INDEX2) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-FIRST </FONT>
<FONT COLOR="#000000">C) (DECLARE (IGNORE HAS V)) (= K 400))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x667B0BE>.</FONT>
<FONT COLOR="#000000">Test GET-LAST failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (C INDEX1) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-LAST </FONT>
<FONT COLOR="#000000">C) (DECLARE (IGNORE HAS V)) (= K 1000))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x668C1F6>.</FONT>
<FONT COLOR="#000000">Test GET-LAST2 failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (C INDEX2) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-LAST </FONT>
<FONT COLOR="#000000">C) (DECLARE (IGNORE HAS V)) (= K 100000))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x669D14E>.</FONT>
<FONT COLOR="#000000">Test SET failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (C INDEX1) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-SET C </FONT>
<FONT COLOR="#000000">200) (DECLARE (IGNORE HAS K)) (= (SLOT1 V) 200))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x66ADCBE>.</FONT>
<FONT COLOR="#000000">Test SET2 failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (C INDEX2) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-SET C </FONT>
<FONT COLOR="#000000">500) (DECLARE (IGNORE HAS K)) (= (SLOT2 V) 500))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x66BE8A6>.</FONT>
<FONT COLOR="#000000">Test SET-RANGE failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (C INDEX1) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-SET- </FONT>
<FONT COLOR="#000000">RANGE C 199.5) (DECLARE (IGNORE HAS K)) (= (SLOT1 V) 200))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x66CF49E>.</FONT>
<FONT COLOR="#000000">Test SET-RANGE2 failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (C INDEX2) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-SET- </FONT>
<FONT COLOR="#000000">RANGE C 501) (DECLARE (IGNORE HAS K)) (= (SLOT2 V) 600))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x66C004E>.</FONT>
<FONT COLOR="#000000">Test REM-KV failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (LET </FONT>
<FONT COLOR="#000000">((IBT (BUILD-INDEXED-BTREE *STORE-CONTROLLER*))) (LOOP FOR I FROM 0 </FONT>
<FONT COLOR="#000000">TO 10 DO (SETF (GET-VALUE I IBT) (* I I))) (REMOVE-KV 0 IBT) (REMOVE- </FONT>
<FONT COLOR="#000000">KV 1 IBT) (REMOVE-KV 10 IBT) (EQUAL (LIST (GET-VALUE 0 IBT) (GET- </FONT>
<FONT COLOR="#000000">VALUE 1 IBT) (GET-VALUE 10 IBT) (GET-VALUE 5 IBT)) '(NIL NIL NIL 25))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT- </FONT>
<FONT COLOR="#000000">VECTOR #x66EEF9E> .>.</FONT>
<FONT COLOR="#000000">Test REM-IDEXKV failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (LET* </FONT>
<FONT COLOR="#000000">((IBT (BUILD-INDEXED-BTREE *STORE-CONTROLLER*)) (ID1 (ADD-INDEX </FONT>
<FONT COLOR="#000000">IBT :INDEX-NAME 'IDX1 :KEY-FORM 'ODD))) (LOOP FOR I FROM 0 TO 10 DO </FONT>
<FONT COLOR="#000000">(SETF (GET-VALUE I IBT) (* I I))) (WITH-BTREE-CURSOR (C ID1) (CURSOR- </FONT>
<FONT COLOR="#000000">FIRST C) (DOTIMES (I 10) (MULTIPLE-VALUE-BIND (HAS KEY VALUE) (CURSOR- </FONT>
<FONT COLOR="#000000">NEXT C)))) (REMOVE-KV 4 IBT) (REMOVE-KV 5 IBT) (EQUAL (LIST (GET- </FONT>
<FONT COLOR="#000000">VALUE 4 IBT) (GET-VALUE 5 IBT) (GET-VALUE 6 IBT) (WITH-BTREE-CURSOR </FONT>
<FONT COLOR="#000000">(C IBT) (CURSOR-FIRST C) (DOTIMES (I 4) (MULTIPLE-VALUE-BIND (HAS KEY </FONT>
<FONT COLOR="#000000">VALUE) (CURSOR-NEXT C) VALUE)) (MULTIPLE-VALUE-BIND (HAS KEY VALUE) </FONT>
<FONT COLOR="#000000">(CURSOR-NEXT C) VALUE))) '(NIL NIL 36 49))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT- </FONT>
<FONT COLOR="#000000">VECTOR #x66F773E> .>.</FONT>
<FONT COLOR="#000000">MAKE-INDEXED2</FONT>
<FONT COLOR="#000000">Test ADD-INDICES2 failed</FONT>
<FONT COLOR="#000000">Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE- </FONT>
<FONT COLOR="#000000">CONTROLLER*) (SETQ INDEX3 (ADD-INDEX INDEXED2 :INDEX-NAME </FONT>
<FONT COLOR="#000000">'CRUNCH :KEY-FORM 'CRUNCH))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">Test PUT-INDEXED2 failed</FONT>
<FONT COLOR="#000000">Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE- </FONT>
<FONT COLOR="#000000">CONTROLLER*) (LOOP FOR I FROM 0 TO 10000 DO (SETF (GET-VALUE I </FONT>
<FONT COLOR="#000000">INDEXED2) (- I)))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">Test GET-INDEXED2 failed</FONT>
<FONT COLOR="#000000">Form: (LOOP FOR I FROM 0 TO 10000 ALWAYS (= (- I) (GET-VALUE I </FONT>
<FONT COLOR="#000000">INDEXED2)))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<TYPE-ERROR #x664FAEE>.</FONT>
<FONT COLOR="#000000">Test GET-FROM-INDEX3 failed</FONT>
<FONT COLOR="#000000">Form: (LOOP FOR I FROM 0 TO 1000 ALWAYS (= (* I -10) (GET-VALUE I </FONT>
<FONT COLOR="#000000">INDEX3)))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x664D3FE>.</FONT>
<FONT COLOR="#000000">Test DUP-TEST failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (CURS INDEX3) (LOOP FOR (MORE K V) = (MULTIPLE-VALUE- </FONT>
<FONT COLOR="#000000">LIST (CURSOR-FIRST CURS)) THEN (MULTIPLE-VALUE-LIST (CURSOR-NEXT-DUP </FONT>
<FONT COLOR="#000000">CURS)) WHILE MORE COLLECT V)))</FONT>
<FONT COLOR="#000000">Expected value: (0 -1 -2 -3 -4 -5 -6 -7 -8 -9)</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x665B1D6>.</FONT>
<FONT COLOR="#000000">Test NODUP-TEST failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (CURS INDEX3) (LOOP FOR (M K V) = (MULTIPLE-VALUE-LIST </FONT>
<FONT COLOR="#000000">(CURSOR-NEXT-NODUP CURS)) FOR I FROM 0 DOWNTO -9990 BY 10 WHILE M </FONT>
<FONT COLOR="#000000">ALWAYS (= V I))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x6668D3E>.</FONT>
<FONT COLOR="#000000">Test PREV-NODUP-TEST failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (CURS INDEX3) (CURSOR-LAST CURS) (LOOP FOR (M K V) = </FONT>
<FONT COLOR="#000000">(MULTIPLE-VALUE-LIST (CURSOR-PREV-NODUP CURS)) FOR I FROM -9999 TO -9 </FONT>
<FONT COLOR="#000000">BY 10 WHILE M ALWAYS (= V I))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x6676486>.</FONT>
<FONT COLOR="#000000">Test PNODUP-TEST failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (CURS INDEX3) (LOOP FOR (M K V P) = (MULTIPLE-VALUE-LIST </FONT>
<FONT COLOR="#000000">(CURSOR-PNEXT-NODUP CURS)) FOR I FROM 0 TO 9990 BY 10 WHILE M ALWAYS </FONT>
<FONT COLOR="#000000">(= P I))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x6683656>.</FONT>
<FONT COLOR="#000000">Test PPREV-NODUP-TEST failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH- </FONT>
<FONT COLOR="#000000">BTREE-CURSOR (CURS INDEX3) (CURSOR-LAST CURS) (LOOP FOR (M K V P) = </FONT>
<FONT COLOR="#000000">(MULTIPLE-VALUE-LIST (CURSOR-PPREV-NODUP CURS)) FOR I FROM 9999 </FONT>
<FONT COLOR="#000000">DOWNTO 9 BY 10 WHILE M ALWAYS (= P I))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x66906A6>.</FONT>
<FONT COLOR="#000000">Test CUR-DEL1 failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (LET* </FONT>
<FONT COLOR="#000000">((IBT (BUILD-INDEXED-BTREE *STORE-CONTROLLER*)) (ID1 (ADD-INDEX </FONT>
<FONT COLOR="#000000">IBT :INDEX-NAME 'IDX1 :KEY-FORM 'ODD))) (LOOP FOR I FROM 0 TO 10 DO </FONT>
<FONT COLOR="#000000">(SETF (GET-VALUE I IBT) (* I I))) (WITH-BTREE-CURSOR (C ID1) (CURSOR- </FONT>
<FONT COLOR="#000000">LAST C) (CURSOR-DELETE C)) (EQUAL (LIST (GET-VALUE 4 IBT) (GET-VALUE </FONT>
<FONT COLOR="#000000">5 IBT) (GET-VALUE 9 IBT) (GET-VALUE 10 IBT)) '(16 25 NIL 100))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT- </FONT>
<FONT COLOR="#000000">VECTOR #x66BF17E> .>.</FONT>
<FONT COLOR="#000000">Test INDEXED-DELETE failed</FONT>
<FONT COLOR="#000000">Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE- </FONT>
<FONT COLOR="#000000">CONTROLLER*) (WITH-BTREE-CURSOR (CURS INDEX3) (CURSOR-LAST CURS) </FONT>
<FONT COLOR="#000000">(CURSOR-DELETE CURS))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">Test TEST-DELETED failed</FONT>
<FONT COLOR="#000000">Form: (VALUES (GET-VALUE 10000 INDEXED2) (GET-VALUE 1000 INDEX3))</FONT>
<FONT COLOR="#000000">Expected values: NIL</FONT>
<FONT COLOR="#000000"> NIL</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x66C982E>.</FONT>
<FONT COLOR="#000000">Test INDEXED-DELETE2 failed</FONT>
<FONT COLOR="#000000">Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE- </FONT>
<FONT COLOR="#000000">CONTROLLER*) (WITH-BTREE-CURSOR (CURS INDEX3) (CURSOR-FIRST CURS) </FONT>
<FONT COLOR="#000000">(CURSOR-NEXT-DUP CURS) (CURSOR-DELETE CURS))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">Test TEST-DELETED2 failed</FONT>
<FONT COLOR="#000000">Form: (VALUES (GET-VALUE 0 INDEXED2) (GET-VALUE 0 INDEX3) (GET-VALUE </FONT>
<FONT COLOR="#000000">1 INDEXED2) (WITH-BTREE-CURSOR (C INDEX3) (CURSOR-FIRST C) (MULTIPLE- </FONT>
<FONT COLOR="#000000">VALUE-BIND (M K V) (CURSOR-NEXT C) V)))</FONT>
<FONT COLOR="#000000">Expected values: 0</FONT>
<FONT COLOR="#000000"> 0</FONT>
<FONT COLOR="#000000"> NIL</FONT>
<FONT COLOR="#000000"> -2</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x66D59E6>.</FONT>
<FONT COLOR="#000000">Test CUR-DEL2 failed</FONT>
<FONT COLOR="#000000">Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (LET* </FONT>
<FONT COLOR="#000000">((IBT (BUILD-INDEXED-BTREE *STORE-CONTROLLER*)) (ID1 (ADD-INDEX </FONT>
<FONT COLOR="#000000">IBT :INDEX-NAME 'IDX1 :KEY-FORM 'ODD))) (LOOP FOR I FROM 0 TO 10 DO </FONT>
<FONT COLOR="#000000">(SETF (GET-VALUE I IBT) (* I I))) (WITH-BTREE-CURSOR (C ID1) (CURSOR- </FONT>
<FONT COLOR="#000000">FIRST C) (CURSOR-NEXT-DUP C) (CURSOR-DELETE C)) (EQUAL (LIST (GET- </FONT>
<FONT COLOR="#000000">VALUE 1 ID1) (GET-VALUE 0 ID1)) '(1 0))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT- </FONT>
<FONT COLOR="#000000">VECTOR #x66E4BEE> .>.</FONT>
<FONT COLOR="#000000">Test GET-BOTH failed</FONT>
<FONT COLOR="#000000">Form: (WITH-BTREE-CURSOR (C INDEXED2) (CURSOR-GET-BOTH C 200 -200))</FONT>
<FONT COLOR="#000000">Expected values: T</FONT>
<FONT COLOR="#000000"> 200</FONT>
<FONT COLOR="#000000"> -200</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">Test PGET-BOTH failed</FONT>
<FONT COLOR="#000000">Form: (WITH-BTREE-CURSOR (C INDEX3) (MULTIPLE-VALUE-BIND (M K V P) </FONT>
<FONT COLOR="#000000">(CURSOR-PGET-BOTH C 10 107) (VALUES K V P)))</FONT>
<FONT COLOR="#000000">Expected values: 10</FONT>
<FONT COLOR="#000000"> -107</FONT>
<FONT COLOR="#000000"> 107</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x66E061E>.</FONT>
<FONT COLOR="#000000">Test PGET-BOTH-RANGE failed</FONT>
<FONT COLOR="#000000">Form: (WITH-BTREE-CURSOR (C INDEX3) (MULTIPLE-VALUE-BIND (M K V P) </FONT>
<FONT COLOR="#000000">(CURSOR-PGET-BOTH-RANGE C 10 106.5) (VALUES K V P)))</FONT>
<FONT COLOR="#000000">Expected values: 10</FONT>
<FONT COLOR="#000000"> -107</FONT>
<FONT COLOR="#000000"> 107</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x66FE846>.</FONT>
<FONT COLOR="#000000">Test PCURSOR failed</FONT>
<FONT COLOR="#000000">Form: (WITH-BTREE-CURSOR (C INDEX3) (VALUES (PCURSOR-PKEY (CURSOR- </FONT>
<FONT COLOR="#000000">PFIRST C)) (PCURSOR-PKEY (CURSOR-PNEXT C)) (PCURSOR-PKEY (CURSOR- </FONT>
<FONT COLOR="#000000">PNEXT-NODUP C)) (PCURSOR-PKEY (CURSOR-PNEXT-DUP C)) (PCURSOR-PKEY </FONT>
<FONT COLOR="#000000">(CURSOR-PPREV C)) (PCURSOR-PKEY (CURSOR-PPREV-NODUP C)) (PCURSOR-PKEY </FONT>
<FONT COLOR="#000000">(CURSOR-PLAST C)) (PCURSOR-PKEY (CURSOR-PSET C 300)) (PCURSOR-PKEY </FONT>
<FONT COLOR="#000000">(CURSOR-PSET-RANGE C 199.5)) (PCURSOR-PKEY (CURSOR-PGET-BOTH C 10 </FONT>
<FONT COLOR="#000000">101)) (PCURSOR-PKEY (CURSOR-PGET-BOTH-RANGE C 11 111.4))))</FONT>
<FONT COLOR="#000000">Expected values: 0</FONT>
<FONT COLOR="#000000"> 2</FONT>
<FONT COLOR="#000000"> 10</FONT>
<FONT COLOR="#000000"> 11</FONT>
<FONT COLOR="#000000"> 10</FONT>
<FONT COLOR="#000000"> 9</FONT>
<FONT COLOR="#000000"> 9999</FONT>
<FONT COLOR="#000000"> 3000</FONT>
<FONT COLOR="#000000"> 2000</FONT>
<FONT COLOR="#000000"> 101</FONT>
<FONT COLOR="#000000"> 112</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x66F67E6>.</FONT>
<FONT COLOR="#000000">Test NEWINDEX failed</FONT>
<FONT COLOR="#000000">Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE- </FONT>
<FONT COLOR="#000000">CONTROLLER*) (SETQ INDEX4 (ADD-INDEX INDEXED2 :INDEX-NAME </FONT>
<FONT COLOR="#000000">'CRUNCH :KEY-FORM 'CRUNCH :POPULATE T))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">Test PCURSOR2 failed</FONT>
<FONT COLOR="#000000">Form: (WITH-BTREE-CURSOR (C INDEX4) (VALUES (PCURSOR-PKEY (CURSOR- </FONT>
<FONT COLOR="#000000">PFIRST C)) (PCURSOR-PKEY (CURSOR-PNEXT C)) (PCURSOR-PKEY (CURSOR- </FONT>
<FONT COLOR="#000000">PNEXT-NODUP C)) (PCURSOR-PKEY (CURSOR-PNEXT-DUP C)) (PCURSOR-PKEY </FONT>
<FONT COLOR="#000000">(CURSOR-PPREV C)) (PCURSOR-PKEY (CURSOR-PPREV-NODUP C)) (PCURSOR-PKEY </FONT>
<FONT COLOR="#000000">(CURSOR-PLAST C)) (PCURSOR-PKEY (CURSOR-PSET C 300)) (PCURSOR-PKEY </FONT>
<FONT COLOR="#000000">(CURSOR-PSET-RANGE C 199.5)) (PCURSOR-PKEY (CURSOR-PGET-BOTH C 10 </FONT>
<FONT COLOR="#000000">101)) (PCURSOR-PKEY (CURSOR-PGET-BOTH-RANGE C 11 111.4))))</FONT>
<FONT COLOR="#000000">Expected values: 0</FONT>
<FONT COLOR="#000000"> 2</FONT>
<FONT COLOR="#000000"> 10</FONT>
<FONT COLOR="#000000"> 11</FONT>
<FONT COLOR="#000000"> 10</FONT>
<FONT COLOR="#000000"> 9</FONT>
<FONT COLOR="#000000"> 9999</FONT>
<FONT COLOR="#000000"> 3000</FONT>
<FONT COLOR="#000000"> 2000</FONT>
<FONT COLOR="#000000"> 101</FONT>
<FONT COLOR="#000000"> 112</FONT>
<FONT COLOR="#000000">Actual value: #<UNBOUND-VARIABLE #x662B3AE>.</FONT>
<FONT COLOR="#000000">ADD-GET-REMOVE ADD-GET-REMOVE-SYMBOL EXISTSP PREPARES-SLEEPYCAT TEST- </FONT>
<FONT COLOR="#000000">SEQ1</FONT>
<FONT COLOR="#000000">TEST-SEQ2 CLEANSUP-SLEEPYCAT REMOVE-ELEMENT</FONT>
<FONT COLOR="#000000">Test MIGRATE1 failed</FONT>
<FONT COLOR="#000000">Form: (LET ((OLD-STORE *STORE-CONTROLLER*) (*PREV-COMMIT* *AUTO- </FONT>
<FONT COLOR="#000000">COMMIT*) (*AUTO-COMMIT* T) (RV NIL)) (UNWIND-PROTECT (LET ((SC1 (OPEN- </FONT>
<FONT COLOR="#000000">STORE *TEST-PATH-PRIMARY*)) (SC2 (OPEN-STORE *TEST-PATH-SECONDARY*))) </FONT>
<FONT COLOR="#000000">(ADD-TO-ROOT "x" "y" :STORE-CONTROLLER SC1) (COPY-FROM-KEY "x" SC1 </FONT>
<FONT COLOR="#000000">SC2) (SETF RV (EQUAL (GET-FROM-ROOT "x" :STORE-CONTROLLER SC1) (GET- </FONT>
<FONT COLOR="#000000">FROM-ROOT "x" :STORE-CONTROLLER SC2)))) (PROGN (SETQ *STORE- </FONT>
<FONT COLOR="#000000">CONTROLLER* OLD-STORE) (SETQ *AUTO-COMMIT* *PREV-COMMIT*))) RV)</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<SIMPLE-ERROR Strategy resolution for this spec </FONT>
<FONT COLOR="#000000">completely failed!>.</FONT>
<FONT COLOR="#000000">Test MIGRATE2 failed</FONT>
<FONT COLOR="#000000">Form: (LET ((OLD-STORE *STORE-CONTROLLER*) (*PREV-COMMIT* *AUTO- </FONT>
<FONT COLOR="#000000">COMMIT*) (*AUTO-COMMIT* T) (RV NIL)) (UNWIND-PROTECT (LET ((SC1 (OPEN- </FONT>
<FONT COLOR="#000000">STORE *TEST-PATH-PRIMARY*)) (SC2 (OPEN-STORE *TEST-PATH-SECONDARY*))) </FONT>
<FONT COLOR="#000000">(LET ((IBT (BUILD-BTREE SC1))) (LOOP FOR I FROM 0 TO 10 DO (SETF (GET- </FONT>
<FONT COLOR="#000000">VALUE I IBT) (* I I))) (LET ((MIG (MIGRATE SC2 IBT))) (BTREE-DIFFER </FONT>
<FONT COLOR="#000000">IBT MIG)))) (PROGN (SETQ *STORE-CONTROLLER* OLD-STORE) (SETQ *AUTO- </FONT>
<FONT COLOR="#000000">COMMIT* *PREV-COMMIT*))))</FONT>
<FONT COLOR="#000000">Expected value: NIL</FONT>
<FONT COLOR="#000000">Actual value: #<SIMPLE-ERROR Strategy resolution for this spec </FONT>
<FONT COLOR="#000000">completely failed!>.</FONT>
<FONT COLOR="#000000">Test MIGRATE3 failed</FONT>
<FONT COLOR="#000000">Form: (LET ((OLD-STORE *STORE-CONTROLLER*) (*PREV-COMMIT* *AUTO- </FONT>
<FONT COLOR="#000000">COMMIT*) (*AUTO-COMMIT* T) (RV NIL)) (UNWIND-PROTECT (LET ((SC1 (OPEN- </FONT>
<FONT COLOR="#000000">STORE *TEST-PATH-PRIMARY*)) (SC2 (OPEN-STORE *TEST-PATH-SECONDARY*))) </FONT>
<FONT COLOR="#000000">(LET* ((IBT (BUILD-INDEXED-BTREE SC1))) (LET ((INDEX (ADD-INDEX </FONT>
<FONT COLOR="#000000">IBT :INDEX-NAME 'CRUNCH :KEY-FORM 'CRUNCH :POPULATE T))) (LOOP FOR I </FONT>
<FONT COLOR="#000000">FROM 0 TO 10 DO (SETF (GET-VALUE I IBT) (* I I))) (LET* ((MIG </FONT>
<FONT COLOR="#000000">(MIGRATE SC2 IBT)) (NINDEX (GETHASH 'CRUNCH (INDICES IBT)))) (LOOP </FONT>
<FONT COLOR="#000000">FOR I FROM 0 TO 10 DO (IF (NOT (EQUAL (GET-VALUE I INDEX) (GET-VALUE </FONT>
<FONT COLOR="#000000">I NINDEX))) (PROGN (FORMAT T "YIKES ~A ~%" I)))) (SETF RV (NOT (BTREE- </FONT>
<FONT COLOR="#000000">DIFFER IBT MIG))))))) (PROGN (SETQ *STORE-CONTROLLER* OLD-STORE) </FONT>
<FONT COLOR="#000000">(SETQ *AUTO-COMMIT* *PREV-COMMIT*))) RV)</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: #<SIMPLE-ERROR Strategy resolution for this spec </FONT>
<FONT COLOR="#000000">completely failed!>.</FONT>
<FONT COLOR="#000000">Test MIGRATE4 failed</FONT>
<FONT COLOR="#000000">Form: (FINISHES (LET ((OLD-STORE *STORE-CONTROLLER*) (*PREV-COMMIT* </FONT>
<FONT COLOR="#000000">*AUTO-COMMIT*) (*AUTO-COMMIT* T) (RV NIL)) (UNWIND-PROTECT (LET* </FONT>
<FONT COLOR="#000000">((SC1 (OPEN-STORE *TEST-PATH-PRIMARY*)) (SC2 (OPEN-STORE *TEST-PATH- </FONT>
<FONT COLOR="#000000">SECONDARY*))) (LET* ((IBT (BUILD-INDEXED-BTREE SC1))) (LET ((INDEX </FONT>
<FONT COLOR="#000000">(ADD-INDEX IBT :INDEX-NAME 'CRUNCH :KEY-FORM 'CRUNCH :POPULATE T)) (X </FONT>
<FONT COLOR="#000000">0)) (LOOP FOR I FROM 0 TO 10 DO (SETF (GET-VALUE I IBT) (* I I)))))) </FONT>
<FONT COLOR="#000000">(PROGN (SETQ *STORE-CONTROLLER* OLD-STORE) (SETQ *AUTO-COMMIT* *PREV- </FONT>
<FONT COLOR="#000000">COMMIT*)))))</FONT>
<FONT COLOR="#000000">Expected value: T</FONT>
<FONT COLOR="#000000">Actual value: NIL.</FONT>
<FONT COLOR="#000000">MIGRATE5</FONT>
<FONT COLOR="#000000">52 out of 106 total tests failed: UPDATE-CLASS, CHANGE-CLASS, CHANGE- </FONT>
<FONT COLOR="#000000">CLASS2, CHANGE-CLASS3, ADD-INDICES,</FONT>
<FONT COLOR="#000000"> TEST-INDICES, INDEXED-PUT, INDEXED-GET, SIMPLE-SLOT-GET,</FONT>
<FONT COLOR="#000000"> INDEXED-GET-FROM-SLOT1, INDEXED-GET-FROM-SLOT2, NO-KEY-NOR-INDICES,</FONT>
<FONT COLOR="#000000"> REMOVE-KV-FROM-SLOT1, NO-KEY-NOR-INDICES-SLOT1, REMOVE-KV-FROM- </FONT>
<FONT COLOR="#000000">SLOT2,</FONT>
<FONT COLOR="#000000"> NO-KEY-NOR-INDICES-SLOT2, MAP-INDEXED, GET-FIRST, GET-FIRST2, GET- </FONT>
<FONT COLOR="#000000">LAST,</FONT>
<FONT COLOR="#000000"> GET-LAST2, SET, SET2, SET-RANGE, SET-RANGE2, REM-KV, REM-IDEXKV,</FONT>
<FONT COLOR="#000000"> ADD-INDICES2, PUT-INDEXED2, GET-INDEXED2, GET-FROM-INDEX3, DUP-TEST,</FONT>
<FONT COLOR="#000000"> NODUP-TEST, PREV-NODUP-TEST, PNODUP-TEST, PPREV-NODUP-TEST, CUR- </FONT>
<FONT COLOR="#000000">DEL1,</FONT>
<FONT COLOR="#000000"> INDEXED-DELETE, TEST-DELETED, INDEXED-DELETE2, TEST-DELETED2, CUR- </FONT>
<FONT COLOR="#000000">DEL2,</FONT>
<FONT COLOR="#000000"> GET-BOTH, PGET-BOTH, PGET-BOTH-RANGE, PCURSOR, NEWINDEX, </FONT>
<FONT COLOR="#000000">PCURSOR2, MIGRATE1,</FONT>
<FONT COLOR="#000000"> MIGRATE2, MIGRATE3, MIGRATE4.</FONT>
<FONT COLOR="#000000">NIL</FONT>
<FONT COLOR="#000000">ELE-TESTS></FONT>
<FONT COLOR="#000000">_______________________________________________</FONT>
<FONT COLOR="#000000">elephant-devel site list</FONT>
<FONT COLOR="#000000"><A HREF="mailto:elephant-devel@common-lisp.net">elephant-devel@common-lisp.net</A></FONT>
<FONT COLOR="#000000"><A HREF="http://common-lisp.net/mailman/listinfo/elephant-devel">http://common-lisp.net/mailman/listinfo/elephant-devel</A></FONT>
</PRE>
</BLOCKQUOTE>
</BODY>
</HTML>