<!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>
Well the test should all pass.<BR>
<BR>
However, this is not as bad as it seems; the 52 failures don't represent 52 SEPARATE failures,<BR>
but a failure, probably something simple, but hard-to-find, in the indexing, which causes all the <BR>
following tests to fail.<BR>
<BR>
<BR>
On Tue, 2006-01-10 at 23:26 -0500, Waldo Rubinstein wrote:
<BLOCKQUOTE TYPE=CITE>
<PRE>
<FONT COLOR="#000000">I ran the tests and here is what I got (Note: I never ran this </FONT>
<FONT COLOR="#000000">before, so not sure what I'm looking for):</FONT>
<FONT COLOR="#000000">Welcome to OpenMCL Version 1.0 (DarwinPPC32)!</FONT>
<FONT COLOR="#000000">? (time (do-all-tests-spec *test-path-primary*))</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 #x8570FF6>.</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 #x858BBAE>.</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 #x859B756>.</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 #x8596516>.</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 #x8628626>.</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 #x864A6A6>.</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 #x8648FCE>.</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 #x8645B76>.</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 #x8641FBE>.</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 #x855DEAE>.</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 #x8559DAE>.</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 #x8555CA6>.</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 #x85728C6>.</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 #x8582076>.</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 #x8591826>.</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 #x85A0D76>.</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 #x85CFE4E>.</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 #x85DF0BE>.</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 #x85EE326>.</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 #x85FD54E>.</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 #x8609BAE>.</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 #x862FAB6>.</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 #x856D096>.</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 #x856A34E>.</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 #x859571E>.</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 #x85A16AE>.</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 #x85CD1AE>.</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 #x85D86DE>.</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 #x85E3BE6>.</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 #x860F77E>.</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 #x8619B2E>.</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 #x86245D6>.</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 #x863093E>.</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 #x864D7B6>.</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 #x864B9FE>.</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 #x8643776>.</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 #x8666A06>.</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 #x85779EE>.</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 #x85ACC46>.</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 #x85A511E>.</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">(DO-ALL-TESTS-SPEC *TEST-PATH-PRIMARY*) took 8,681 milliseconds </FONT>
<FONT COLOR="#000000">(8.681 seconds) to run.</FONT>
<FONT COLOR="#000000">Of that, 6,746 milliseconds (6.746 seconds) were spent in user mode</FONT>
<FONT COLOR="#000000"> 706 milliseconds (0.706 seconds) were spent in system mode</FONT>
<FONT COLOR="#000000"> 1,229 milliseconds (1.229 seconds) were spent executing </FONT>
<FONT COLOR="#000000">other OS processes.</FONT>
<FONT COLOR="#000000">738 milliseconds (0.738 seconds) was spent in GC.</FONT>
<FONT COLOR="#000000">372,045,168 bytes of memory allocated.</FONT>
<FONT COLOR="#000000">NIL</FONT>
<FONT COLOR="#000000">- Waldo</FONT>
<FONT COLOR="#000000">On Jan 10, 2006, at 5:06 PM, Robert L. Read wrote:</FONT>
<FONT COLOR="#000000">> Dear Kilian,</FONT>
<FONT COLOR="#000000">></FONT>
<FONT COLOR="#000000">> Thanks for trying this on openmcl. This code works for me </FONT>
<FONT COLOR="#000000">> under SBCL 9.5. As we</FONT>
<FONT COLOR="#000000">> all know, CLOS-related stuff like this tends to be more dissimilar </FONT>
<FONT COLOR="#000000">> between list implementations</FONT>
<FONT COLOR="#000000">> than other parts of LISP. Since this works under SBCL and has not </FONT>
<FONT COLOR="#000000">> been reported under</FONT>
<FONT COLOR="#000000">> any other implementation, it might be an implementation-specific </FONT>
<FONT COLOR="#000000">> problem. Unfortunately,</FONT>
<FONT COLOR="#000000">> I don't have a PPC machine on which to attempt to duplicate this </FONT>
<FONT COLOR="#000000">> problem.</FONT>
<FONT COLOR="#000000">></FONT>
<FONT COLOR="#000000">> I will be happy to help you debug this, if you are interested </FONT>
<FONT COLOR="#000000">> (Waldo Rubinstein maybe</FONT>
<FONT COLOR="#000000">> even more interested!)</FONT>
<FONT COLOR="#000000">> As a first step, we need to establish what the test regime does </FONT>
<FONT COLOR="#000000">> under your OpenMCL.</FONT>
<FONT COLOR="#000000">> As you may know, Elephant comes with 106 tests (some of which </FONT>
<FONT COLOR="#000000">> involve data migration).</FONT>
<FONT COLOR="#000000">> I wouldn't claim they are exhaustive but they are far better than </FONT>
<FONT COLOR="#000000">> nothing. If you are</FONT>
<FONT COLOR="#000000">> willing to take a few extra minutes, please execute this and send </FONT>
<FONT COLOR="#000000">> me the transcript:</FONT>
<FONT COLOR="#000000">></FONT>
<FONT COLOR="#000000">> (asdf:operate 'asdf:load-op :elephant)</FONT>
<FONT COLOR="#000000">> (asdf:operate 'asdf:load-op :ele-bdb)</FONT>
<FONT COLOR="#000000">> (asdf:operate 'asdf:load-op :elephant-tests)</FONT>
<FONT COLOR="#000000">> (in-package "ELEPHANT-TESTS")</FONT>
<FONT COLOR="#000000">> (setq *test-path-primary* *testdb-path*)</FONT>
<FONT COLOR="#000000">> (setq *test-path-secondary* nil)</FONT>
<FONT COLOR="#000000">> (do-all-tests-spec *test-path-primary*)</FONT>
<FONT COLOR="#000000">></FONT>
<FONT COLOR="#000000">> (on my computer, the actual test execution takes 31 seconds.)</FONT>
</PRE>
</BLOCKQUOTE>
</BODY>
</HTML>