[elephant-devel] windows + postgres-socket
Frank Schorr
franks-muc at web.de
Wed Mar 7 01:23:36 UTC 2007
Dear Robert,
thank you for taking care of this.
Well, two days ago I had a problem with my combination of clsql-3.8.1 and Postgesql 8.2.3.
I stepped back to clsql-3.6.1 and Postgresql 8.1.8.
Now all 236 tests of clsql are OK. I can assume that clsql and the db server can communicate
through the socket. Unfortunately, the elephant-tests produce many errors
with the the latest CVs version. The test result is reproduced below.
I'm using these commands:
(asdf:operate 'asdf:load-op :elephant)
(asdf:operate 'asdf:load-op :ele-clsql)
(asdf:operate 'asdf:load-op :clsql-postgresql-socket)
(asdf:operate 'asdf:load-op :elephant-tests)
(ele-tests::do-backend-tests '(:clsql (:postgresql-socket "localhost" "clsql-tests" "postgres" "$postgres%")))
The load-op for elephant-tests produces output
registering #<SYSTEM ELEPHANT-TESTS-BDB @ #x2124f27a> as ELEPHANT-TESTS-BDB
May be the BDB tests interfere with clsql tests ?
> string. (I know that might not be acceptable, because one of the
> reasons one might use the socket interface is to avoid the need to use
> the Postgres libraries or to run on the same machine.)
I think the socket interface can also provide the poor man's solution for
those who do not know the magic art of making dll's correctly.
Best regards,
Frank Schorr
PS.: I just noticed from the clsql documentation that compiled dlls are supplied
with it and will try this tomorrow.
CG-USER(8):
; loading system definition from c:\lisp\libraries\elephant\elephant-tests.asd into #<The ASDF0 package>
; Loading c:\lisp\libraries\elephant\elephant-tests.asd
; registering #<SYSTEM ELEPHANT-TESTS @ #x21151952> as ELEPHANT-TESTS
; registering #<SYSTEM ELEPHANT-TESTS-BDB @ #x2124f27a> as ELEPHANT-TESTS-BDB
; loading system definition from c:\lisp\libraries\rt-20040621\rt.asd into #<The ASDF0 package>
; Loading c:\lisp\libraries\rt-20040621\rt.asd
; registering #<SYSTEM :RT @ #x21227102> as RT
; Fast loading c:\lisp\binaries\allegro-a8.0-mswindows-x86\lisp\libraries\rt-20040621\rt.fasl
c:\lisp\binaries\allegro-a8.0-mswindows-x86\lisp\libraries\elephant\src\memutil\libmemutil.dll
; Fast loading c:\lisp\binaries\allegro-a8.0-mswindows-x86\lisp\libraries\elephant\src\memutil\memutil.fasl
; Fast loading c:\lisp\binaries\allegro-a8.0-mswindows-x86\lisp\libraries\elephant\tests\elephant-tests.fasl
; Fast loading c:\lisp\binaries\allegro-a8.0-mswindows-x86\lisp\libraries\elephant\tests\testserializer.fasl
; Fast loading c:\lisp\binaries\allegro-a8.0-mswindows-x86\lisp\libraries\elephant\tests\mop-tests.fasl
; Fast loading c:\lisp\binaries\allegro-a8.0-mswindows-x86\lisp\libraries\elephant\tests\testcollections.fasl
; Fast loading c:\lisp\binaries\allegro-a8.0-mswindows-x86\lisp\libraries\elephant\tests\testindexing.fasl
; Fast loading c:\lisp\binaries\allegro-a8.0-mswindows-x86\lisp\libraries\elephant\tests\testmigration.fasl
NIL
CG-USER(9):
Warning: While accessing database #<POSTGRESQL-SOCKET-DATABASE localhost/clsql-tests/postgres OPEN @ #x21492dea>
Warning: NOTICE: CREATE TABLE / PRIMARY KEY will create implicit index "keyvalue_pkey" for table "keyvalue"
has occurred.
Warning: POSTGRESQL-WARNING occurred on connection
#S(POSTGRESQL-CONNECTION :HOST localhost
:PORT 5432
:DATABASE clsql-tests
:USER postgres
:PASSWORD $postgres%
:OPTIONS
:TTY
:SOCKET #<MULTIVALENT stream socket connected from localhost/3046 to localhost/5432 @ #x21483eba>
:PID 3808
:KEY 497828741).
Reason: NOTICE: CREATE TABLE / PRIMARY KEY will create implicit index "keyvalue_pkey" for table "keyvalue"
Doing 357 pending tests of 357 tests total.
:INT/CONVERT/1 :INT/CONVERT/2 :INT/CONVERT/3 :INT/CONVERT/4 :INT/CONVERT/5
Test :CONNECTION/1 failed
Form: (LET ((CLSQL-SYS:DATABASE
(CLSQL-SYS:FIND-DATABASE (CLSQL-SYS:DATABASE-NAME CLSQL-SYS:*DEFAULT-DATABASE*) :DB-TYPE (CLSQL-SYS:DATABASE-TYPE CLSQL-SYS:*DEFAULT-DATABASE*))))
(EQL (CLSQL-SYS:DATABASE-TYPE CLSQL-SYS:DATABASE) CLSQL-TESTS::*TEST-DATABASE-TYPE*))
Expected value: T
Actual value: #<CLSQL-SYS:SQL-DATABASE-ERROR @ #x214ec132>.
:CONNECTION/2 :CONNECTION/3 :BASIC/TYPE/1 :BASIC/TYPE/2 :BASIC/SELECT/1 :BASIC/SELECT/2 :BASIC/SELECT/3 :BASIC/MAP/1 :BASIC/MAP/2 :BASIC/MAP/3 :BASIC/MAP/4
:BASIC/DO/1 :BASIC/DO/2 :BASIC/BIGINT/1
Test :FDDL/TABLE/1 failed
Form: (SORT (MAPCAR #'STRING-DOWNCASE (CLSQL-SYS:LIST-TABLES :OWNER CLSQL-TESTS::*TEST-DATABASE-USER*)) #'STRING<)
Expected value: ("addr" "big" "company" "ea_join" "employee" "type_bigint" "type_table")
Actual value: ("addr" "big" "company" "ea_join" "employee" "keyvalue"
"type_bigint" "type_table" "version").
:FDDL/TABLE/2 :FDDL/TABLE/3 :FDDL/TABLE/4 :FDDL/TABLE/5 :FDDL/TABLE/6 :FDDL/TABLE/7 :FDDL/ATTRIBUTES/1 :FDDL/ATTRIBUTES/2 :FDDL/ATTRIBUTES/3 :FDDL/ATTRIBUTES/4
:FDDL/ATTRIBUTES/5 :FDDL/ATTRIBUTES/6 :FDDL/ATTRIBUTES/7 :FDDL/VIEW/1 :FDDL/VIEW/2 :FDDL/VIEW/3 :FDDL/VIEW/4 :FDDL/INDEX/1 :FDDL/INDEX/2 :FDDL/INDEX/3
:FDDL/SEQUENCE/1 :FDDL/SEQUENCE/2 :FDDL/SEQUENCE/3 :FDDL/BIG/1 :FDDL/OWNER/1 :FDDL/CACHE-TABLE-QUERIES/1 :FDML/INSERT/1 :FDML/INSERT/2 :FDML/INSERT/3
:FDML/INSERT/4 :FDML/UPDATE/1 :FDML/UPDATE/2 :FDML/QUERY/1 :FDML/QUERY/2 :FDML/QUERY/3 :FDML/QUERY/4 :FDML/QUERY/5 :FDML/QUERY/6 :FDML/QUERY/7 :FDML/QUERY/8
:FDML/EXECUTE-COMMAND/1 :FDML/SELECT/1 :FDML/SELECT/2 :FDML/SELECT/3 :FDML/SELECT/4 :FDML/SELECT/5 :FDML/SELECT/6 :FDML/SELECT/7 :FDML/SELECT/8 :FDML/SELECT/9
:FDML/SELECT/10 :FDML/SELECT/11 :FDML/SELECT/12 :FDML/SELECT/13 :FDML/SELECT/14 :FDML/SELECT/15 :FDML/SELECT/16 :FDML/SELECT/17 :FDML/SELECT/18 :FDML/SELECT/19
:FDML/SELECT/20 :FDML/SELECT/21 :FDML/SELECT/22 :FDML/SELECT/23 :FDML/SELECT/24 :FDML/SELECT/25 :FDML/SELECT/26 :FDML/SELECT/27 :FDML/SELECT/28 :FDML/SELECT/29
:FDML/SELECT/30 :FDML/SELECT/31 :FDML/SELECT/32 :FDML/SELECT/33 :FDML/SELECT/34 :FDML/SELECT/35 :FDML/SELECT/36 :FDML/SELECT/37 :FDML/SELECT/38 :FDML/DO-QUERY/1
:FDML/MAP-QUERY/1 :FDML/MAP-QUERY/2 :FDML/MAP-QUERY/3 :FDML/MAP-QUERY/4 :FDML/LOOP/1 :FDML/LOOP/2 :FDML/LOOP/3 :FDML/TRANSACTION/1 :FDML/TRANSACTION/2
:FDML/TRANSACTION/3 :FDML/TRANSACTION/4 :OODDL/METACLASS/1 :OODDL/METACLASS/2 :OODDL/JOIN/1 :OODDL/JOIN/2 :OODDL/JOIN/3 :OODDL/TIME/1 :OODDL/TIME/2 :OODDL/TIME/3
:OODML/SELECT/1 :OODML/SELECT/2 :OODML/SELECT/3 :OODML/SELECT/4 :OODML/SELECT/5 :OODML/SELECT/6 :OODML/SELECT/7 :OODML/SELECT/8 :OODML/SELECT/9 :OODML/SELECT/10
:OODML/SELECT/11 :OODM/RETRIEVAL/1 :OODM/RETRIEVAL/2 :OODM/RETRIEVAL/3 :OODM/RETRIEVAL/4 :OODM/RETRIEVAL/5 :OODM/RETRIEVAL/6 :OODM/RETRIEVAL/7 :OODM/RETRIEVAL/8
:OODM/RETRIEVAL/9
Test :OODML/UPDATE-RECORDS/1 failed
Form: (VALUES (PROGN (LET ((CLSQL-TESTS::LENIN
(CAR (CLSQL-SYS:SELECT 'CLSQL-TESTS::EMPLOYEE :WHERE
(CLSQL-SYS:SQL-= (CLSQL-SYS:SQL-SLOT-VALUE 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::EMPLID) 1) :FLATP T :CACHING
NIL))))
(CONCATENATE 'STRING (CLSQL-TESTS::FIRST-NAME CLSQL-TESTS::LENIN) " " (CLSQL-TESTS::LAST-NAME CLSQL-TESTS::LENIN) ": "
(CLSQL-TESTS::EMPLOYEE-EMAIL CLSQL-TESTS::LENIN))))
(PROGN (SETF (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::FIRST-NAME) "Dimitriy"
(SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::LAST-NAME) "Ivanovich"
(SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL) "ivanovich at soviet.org")
(CLSQL-SYS:UPDATE-RECORDS-FROM-INSTANCE CLSQL-TESTS::EMPLOYEE1)
(LET ((CLSQL-TESTS::LENIN
(CAR (CLSQL-SYS:SELECT 'CLSQL-TESTS::EMPLOYEE :WHERE
(CLSQL-SYS:SQL-= (CLSQL-SYS:SQL-SLOT-VALUE 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::EMPLID) 1) :FLATP T :CACHING
NIL))))
(CONCATENATE 'STRING (CLSQL-TESTS::FIRST-NAME CLSQL-TESTS::LENIN) " " (CLSQL-TESTS::LAST-NAME CLSQL-TESTS::LENIN) ": "
(CLSQL-TESTS::EMPLOYEE-EMAIL CLSQL-TESTS::LENIN))))
(PROGN (SETF (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::FIRST-NAME) "Vladimir"
(SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::LAST-NAME) "Lenin"
(SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL) "lenin at soviet.org")
(CLSQL-SYS:UPDATE-RECORDS-FROM-INSTANCE CLSQL-TESTS::EMPLOYEE1)
(LET ((CLSQL-TESTS::LENIN
(CAR (CLSQL-SYS:SELECT 'CLSQL-TESTS::EMPLOYEE :WHERE
(CLSQL-SYS:SQL-= (CLSQL-SYS:SQL-SLOT-VALUE 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::EMPLID) 1) :FLATP T :CACHING
NIL))))
(CONCATENATE 'STRING (CLSQL-TESTS::FIRST-NAME CLSQL-TESTS::LENIN) " " (CLSQL-TESTS::LAST-NAME CLSQL-TESTS::LENIN) ": "
(CLSQL-TESTS::EMPLOYEE-EMAIL CLSQL-TESTS::LENIN)))))
Expected values: "Vladimir Lenin: lenin at soviet.org"
"Dimitriy Ivanovich: ivanovich at soviet.org"
"Vladimir Lenin: lenin at soviet.org"
Actual value: #<CLSQL-SYS:SQL-FATAL-ERROR @ #x21833972>.
Test :OODML/UPDATE-RECORDS/2 failed
Form: (VALUES (CLSQL-TESTS::EMPLOYEE-EMAIL
(CAR (CLSQL-SYS:SELECT 'CLSQL-TESTS::EMPLOYEE :WHERE (CLSQL-SYS:SQL-= (CLSQL-SYS:SQL-SLOT-VALUE 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::EMPLID) 1)
:FLATP T :CACHING NIL)))
(PROGN (SETF (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL) "lenin-nospam at soviet.org")
(CLSQL-SYS:UPDATE-RECORD-FROM-SLOT CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL)
(CLSQL-TESTS::EMPLOYEE-EMAIL
(CAR (CLSQL-SYS:SELECT 'CLSQL-TESTS::EMPLOYEE :WHERE
(CLSQL-SYS:SQL-= (CLSQL-SYS:SQL-SLOT-VALUE 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::EMPLID) 1) :FLATP T :CACHING NIL))))
(PROGN (SETF (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL) "lenin at soviet.org")
(CLSQL-SYS:UPDATE-RECORD-FROM-SLOT CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL)
(CLSQL-TESTS::EMPLOYEE-EMAIL
(CAR (CLSQL-SYS:SELECT 'CLSQL-TESTS::EMPLOYEE :WHERE
(CLSQL-SYS:SQL-= (CLSQL-SYS:SQL-SLOT-VALUE 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::EMPLID) 1) :FLATP T :CACHING NIL)))))
Expected values: "lenin at soviet.org"
"lenin-nospam at soviet.org"
"lenin at soviet.org"
Actual value: #<CLSQL-SYS:SQL-FATAL-ERROR @ #x2183c412>.
Test :OODML/UPDATE-RECORDS/3 failed
Form: (VALUES (LET ((CLSQL-TESTS::LENIN
(CAR (CLSQL-SYS:SELECT 'CLSQL-TESTS::EMPLOYEE :WHERE
(CLSQL-SYS:SQL-= (CLSQL-SYS:SQL-SLOT-VALUE 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::EMPLID) 1) :FLATP T :CACHING NIL))))
(CONCATENATE 'STRING (CLSQL-TESTS::FIRST-NAME CLSQL-TESTS::LENIN) " " (CLSQL-TESTS::LAST-NAME CLSQL-TESTS::LENIN) ": "
(CLSQL-TESTS::EMPLOYEE-EMAIL CLSQL-TESTS::LENIN)))
(PROGN (SETF (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::FIRST-NAME) "Dimitriy"
(SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::LAST-NAME) "Ivanovich"
(SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL) "ivanovich at soviet.org")
(CLSQL-SYS:UPDATE-RECORD-FROM-SLOTS CLSQL-TESTS::EMPLOYEE1 '(CLSQL-TESTS::FIRST-NAME CLSQL-TESTS::LAST-NAME CLSQL-TESTS::EMAIL))
(LET ((CLSQL-TESTS::LENIN
(CAR (CLSQL-SYS:SELECT 'CLSQL-TESTS::EMPLOYEE :WHERE
(CLSQL-SYS:SQL-= (CLSQL-SYS:SQL-SLOT-VALUE 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::EMPLID) 1) :FLATP T :CACHING
NIL))))
(CONCATENATE 'STRING (CLSQL-TESTS::FIRST-NAME CLSQL-TESTS::LENIN) " " (CLSQL-TESTS::LAST-NAME CLSQL-TESTS::LENIN) ": "
(CLSQL-TESTS::EMPLOYEE-EMAIL CLSQL-TESTS::LENIN))))
(PROGN (SETF (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::FIRST-NAME) "Vladimir"
(SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::LAST-NAME) "Lenin"
(SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL) "lenin at soviet.org")
(CLSQL-SYS:UPDATE-RECORD-FROM-SLOTS CLSQL-TESTS::EMPLOYEE1 '(CLSQL-TESTS::FIRST-NAME CLSQL-TESTS::LAST-NAME CLSQL-TESTS::EMAIL))
(LET ((CLSQL-TESTS::LENIN
(CAR (CLSQL-SYS:SELECT 'CLSQL-TESTS::EMPLOYEE :WHERE
(CLSQL-SYS:SQL-= (CLSQL-SYS:SQL-SLOT-VALUE 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::EMPLID) 1) :FLATP T :CACHING
NIL))))
(CONCATENATE 'STRING (CLSQL-TESTS::FIRST-NAME CLSQL-TESTS::LENIN) " " (CLSQL-TESTS::LAST-NAME CLSQL-TESTS::LENIN) ": "
(CLSQL-TESTS::EMPLOYEE-EMAIL CLSQL-TESTS::LENIN)))))
Expected values: "Vladimir Lenin: lenin at soviet.org"
"Dimitriy Ivanovich: ivanovich at soviet.org"
"Vladimir Lenin: lenin at soviet.org"
Actual value: #<CLSQL-SYS:SQL-FATAL-ERROR @ #x21849ee2>.
Test :OODML/UPDATE-INSTANCE/1 failed
Form: (VALUES (CONCATENATE 'STRING (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::FIRST-NAME) " " (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::LAST-NAME)
": " (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL))
(PROGN (CLSQL-SYS:UPDATE-RECORDS #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLOYEE>
:AV-PAIRS '((#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE FIRST_NAME> "Ivan") (#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE LAST_NAME> "Petrov")
(#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMAIL> "petrov at soviet.org"))
:WHERE (CLSQL-SYS:SQL-= #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLID> 1))
(CLSQL-SYS:UPDATE-INSTANCE-FROM-RECORDS CLSQL-TESTS::EMPLOYEE1)
(CONCATENATE 'STRING (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::FIRST-NAME) " "
(SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::LAST-NAME) ": " (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL)))
(PROGN (CLSQL-SYS:UPDATE-RECORDS #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLOYEE>
:AV-PAIRS '((#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE FIRST_NAME> "Vladimir") (#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE LAST_NAME> "Lenin")
(#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMAIL> "lenin at soviet.org"))
:WHERE (CLSQL-SYS:SQL-= #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLID> 1))
(CLSQL-SYS:UPDATE-INSTANCE-FROM-RECORDS CLSQL-TESTS::EMPLOYEE1)
(CONCATENATE 'STRING (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::FIRST-NAME) " "
(SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::LAST-NAME) ": " (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL))))
Expected values: "Vladimir Lenin: lenin at soviet.org"
"Ivan Petrov: petrov at soviet.org"
"Vladimir Lenin: lenin at soviet.org"
Actual value: #<CLSQL-SYS:SQL-FATAL-ERROR @ #x218558ba>.
Test :OODML/UPDATE-INSTANCE/2 failed
Form: (VALUES (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL)
(PROGN (CLSQL-SYS:UPDATE-RECORDS #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLOYEE>
:AV-PAIRS '((#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMAIL> "lenin-nospam at soviet.org"))
:WHERE (CLSQL-SYS:SQL-= #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLID> 1))
(CLSQL-SYS:UPDATE-SLOT-FROM-RECORD CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL) (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL))
(PROGN (CLSQL-SYS:UPDATE-RECORDS #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLOYEE>
:AV-PAIRS '((#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMAIL> "lenin at soviet.org"))
:WHERE (CLSQL-SYS:SQL-= #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLID> 1))
(CLSQL-SYS:UPDATE-SLOT-FROM-RECORD CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL) (SLOT-VALUE CLSQL-TESTS::EMPLOYEE1 'CLSQL-TESTS::EMAIL)))
Expected values: "lenin at soviet.org"
"lenin-nospam at soviet.org"
"lenin at soviet.org"
Actual values: "ivanovich at soviet.org"
"lenin-nospam at soviet.org"
"lenin at soviet.org".
Test :OODML/DO-QUERY/1 failed
Form: (LET ((CLSQL-TESTS::RESULT 'NIL))
(CLSQL-SYS:DO-QUERY ((CLSQL-TESTS::E) (CLSQL-SYS:SQL-QUERY 'CLSQL-TESTS::EMPLOYEE :ORDER-BY #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLOYEE.EMPLID>))
(PUSH (SLOT-VALUE CLSQL-TESTS::E 'CLSQL-TESTS::LAST-NAME) CLSQL-TESTS::RESULT))
CLSQL-TESTS::RESULT)
Expected value: ("Putin" "Yeltsin" "Gorbachev" "Chernenko" "Andropov" "Brezhnev" "Kruschev" "Trotsky" "Stalin" "Lenin")
Actual value: ("Putin" "Yeltsin" "Gorbachev" "Chernenko" "Andropov"
"Brezhnev" "Kruschev" "Trotsky" "Stalin" "Petrov").
Test :OODML/DO-QUERY/2 failed
Form: (LET ((CLSQL-TESTS::RESULT 'NIL))
(CLSQL-SYS:DO-QUERY ((CLSQL-TESTS::E CLSQL-TESTS::C)
(CLSQL-SYS:SQL-QUERY 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::COMPANY :WHERE
(CLSQL-SYS:SQL-= (CLSQL-SYS:SQL-SLOT-VALUE 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::LAST-NAME) "Lenin")))
(PUSH (LIST (SLOT-VALUE CLSQL-TESTS::E 'CLSQL-TESTS::LAST-NAME) (SLOT-VALUE CLSQL-TESTS::C 'CLSQL-TESTS::NAME)) CLSQL-TESTS::RESULT))
CLSQL-TESTS::RESULT)
Expected value: (("Lenin" "Widgets Inc."))
Actual value: NIL.
Test :OODML/MAP-QUERY/1 failed
Form: (CLSQL-SYS:MAP-QUERY 'LIST #'CLSQL-TESTS::LAST-NAME (CLSQL-SYS:SQL-QUERY 'CLSQL-TESTS::EMPLOYEE :ORDER-BY #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLOYEE.EMPLID>))
Expected value: ("Lenin" "Stalin" "Trotsky" "Kruschev" "Brezhnev" "Andropov" "Chernenko" "Gorbachev" "Yeltsin" "Putin")
Actual value: ("Petrov" "Stalin" "Trotsky" "Kruschev" "Brezhnev"
"Andropov" "Chernenko" "Gorbachev" "Yeltsin" "Putin").
Test :OODML/MAP-QUERY/2 failed
Form: (CLSQL-SYS:MAP-QUERY 'LIST
#'(LAMBDA (CLSQL-TESTS::E CLSQL-TESTS::C)
(LIST (SLOT-VALUE CLSQL-TESTS::E 'CLSQL-TESTS::LAST-NAME) (SLOT-VALUE CLSQL-TESTS::C 'CLSQL-TESTS::NAME)))
(CLSQL-SYS:SQL-QUERY 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::COMPANY :WHERE
(CLSQL-SYS:SQL-= (CLSQL-SYS:SQL-SLOT-VALUE 'CLSQL-TESTS::EMPLOYEE 'CLSQL-TESTS::LAST-NAME) "Lenin")))
Expected value: (("Lenin" "Widgets Inc."))
Actual value: NIL.
Test :OODML/ITERATION/3 failed
Form: (LOOP CLSQL-TESTS::FOR (CLSQL-TESTS::E) CLSQL-TESTS::BEING THE CLSQL-TESTS::RECORDS CLSQL-TESTS::IN
(CLSQL-SYS:SQL-QUERY 'CLSQL-TESTS::EMPLOYEE :WHERE (CLSQL-SYS:SQL-< #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLID> 4) :ORDER-BY
#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLOYEE.EMPLID>)
CLSQL-TESTS::COLLECT (SLOT-VALUE CLSQL-TESTS::E 'CLSQL-TESTS::LAST-NAME))
Expected value: ("Lenin" "Stalin" "Trotsky")
Actual value: ("Petrov" "Stalin" "Trotsky").
:OODML/CACHE/1 :OODML/CACHE/2 :OODML/REFRESH/1 :OODML/REFRESH/2 :OODML/REFRESH/3 :OODML/REFRESH/4 :OODML/UOJ/1 :OODML/BIG/1 :OODML/DB-AUTO-SYNC/1
:OODML/DB-AUTO-SYNC/2 :OODML/SETF-SLOT-VALUE/1 :OODML/FLOAT/1 :OODML/FLOAT/2 :OODML/FLOAT/3 :OODML/FLOAT/4 :OODML/FLOAT/5 :SYNTAX/GENERIC/1 :SYNTAX/GENERIC/2
:SYNTAX/GENERIC/3 :SYNTAX/GENERIC/4 :SYNTAX/GENERIC/5 :SYNTAX/GENERIC/6 :SYNTAX/IDENT/1 :SYNTAX/IDENT/2 :SYNTAX/IDENT/3 :SYNTAX/IDENT/4 :SYNTAX/IDENT/5
:SYNTAX/IDENT/6 :SYNTAX/IDENT/7 :SYNTAX/SUBQUERY/1 :SYNTAX/SUBQUERY/2 :SYNTAX/SUBQUERY/3 :SYNTAX/SUBQUERY/4 :SYNTAX/SUBQUERY/5 :SYNTAX/AGGREGATE/1
:SYNTAX/AGGREGATE/2 :SYNTAX/AGGREGATE/3 :SYNTAX/AGGREGATE/4 :SYNTAX/AGGREGATE/5 :SYNTAX/LOGICAL/1 :SYNTAX/LOGICAL/2 :SYNTAX/LOGICAL/3 :SYNTAX/NULL/1 :SYNTAX/NULL/2
:SYNTAX/NULL/3 :SYNTAX/NULL/4 :SYNTAX/RELATIONAL/1 :SYNTAX/RELATIONAL/2 :SYNTAX/RELATIONAL/3 :SYNTAX/RELATIONAL/4 :SYNTAX/RELATIONAL/5 :SYNTAX/RELATIONAL/6
:SYNTAX/BETWEEN/1 :SYNTAX/BETWEEN/2 :SYNTAX/ARITHMETIC/1 :SYNTAX/ARITHMETIC/2 :SYNTAX/ARITHMETIC/3 :SYNTAX/ARITHMETIC/4 :SYNTAX/ARITHMETIC/5 :SYNTAX/ARITHMETIC/6
:SYNTAX/SUBSTR/1 :SYNTAX/SUBSTRING/1 :SYNTAX/CONCAT/1 :SYNTAX/CONCAT/2 :SYNTAX/PATTERN/1 :SYNTAX/PATTERN/2 :SYNTAX/DISTINCT/1 :SYNTAX/DISTINCT/2 :SYNTAX/ORDER-BY/1
:SYNTAX/GROUP-BY/1 :SYNTAX/GROUP-BY/2 :SYNTAX/COALESCE/1 :SYNTAX/COALESCE/2 :SYNTAX/NVL/1 :SYNTAX/SETS/1 :SYNTAX/SETS/2 :SYNTAX/SETS/3 :SYNTAX/SETS/4
:SYNTAX/FUNCTION/1 :SYNTAX/FUNCTION/2 :SYNTAX/QUERY/1 :SYNTAX/QUERY/2 :SYNTAX/QUERY/3 :SYNTAX/QUERY/4 :SYNTAX/EXPRESSION1 :SYNTAX/EXPRESSION/2
Test ELE-TESTS::FIXNUMS failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-EQUAL 0) (ELE-TESTS::IN-OUT-EQUAL -1) (ELE-TESTS::IN-OUT-EQUAL 1) (ELE-TESTS::IN-OUT-EQUAL MOST-POSITIVE-FIXNUM)
(ELE-TESTS::IN-OUT-EQUAL MOST-NEGATIVE-FIXNUM))
Expected values: T
T
T
T
T
Actual value: #<SIMPLE-ERROR @ #x214f8162>.
Test ELE-TESTS::FIXNUM-TYPE-1 failed
Form: (ELE-TESTS::ARE-NOT-NULL (TYPEP (ELE-TESTS::IN-OUT-VALUE 0) 'FIXNUM) (TYPEP (ELE-TESTS::IN-OUT-VALUE 1) 'FIXNUM) (TYPEP (ELE-TESTS::IN-OUT-VALUE -1) 'FIXNUM)
(TYPEP (ELE-TESTS::IN-OUT-VALUE MOST-POSITIVE-FIXNUM) 'FIXNUM) (TYPEP (ELE-TESTS::IN-OUT-VALUE MOST-NEGATIVE-FIXNUM) 'FIXNUM))
Expected values: T
T
T
T
T
Actual value: #<SIMPLE-ERROR @ #x214f8962>.
Test ELE-TESTS::READ-32-BIT-FIXNUM failed
Form: (PROGN (ELEPHANT-MEMUTIL:WITH-BUFFER-STREAMS (ELE-TESTS::BS)
(IF (NOT (ELEPHANT-MEMUTIL:LITTLE-ENDIAN-P)) (ELEPHANT-MEMUTIL:BUFFER-WRITE-BYTE 1 ELE-TESTS::BS))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 1 ELE-TESTS::UPTO 3 DO (ELEPHANT-MEMUTIL:BUFFER-WRITE-BYTE 0 ELE-TESTS::BS))
(IF (ELEPHANT-MEMUTIL:LITTLE-ENDIAN-P) (ELEPHANT-MEMUTIL:BUFFER-WRITE-BYTE 1 ELE-TESTS::BS))
(ELEPHANT-MEMUTIL:BUFFER-READ-FIXNUM32 ELE-TESTS::BS)))
Expected value: 16777216
Actual value: #<SIMPLE-ERROR @ #x214f940a>.
Test ELE-TESTS::READ-64-BIT-FIXNUM failed
Form: (PROGN (ELEPHANT-MEMUTIL:WITH-BUFFER-STREAMS (ELE-TESTS::BS)
(IF (NOT (ELEPHANT-MEMUTIL:LITTLE-ENDIAN-P)) (ELEPHANT-MEMUTIL:BUFFER-WRITE-BYTE 1 ELE-TESTS::BS))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 1 ELE-TESTS::UPTO 7 DO (ELEPHANT-MEMUTIL:BUFFER-WRITE-BYTE 0 ELE-TESTS::BS))
(IF (ELEPHANT-MEMUTIL:LITTLE-ENDIAN-P) (ELEPHANT-MEMUTIL:BUFFER-WRITE-BYTE 1 ELE-TESTS::BS))
(ELEPHANT-MEMUTIL:BUFFER-READ-FIXNUM64 ELE-TESTS::BS)))
Expected value: 72057594037927936
Actual value: #<SIMPLE-ERROR @ #x214fa272>.
Test ELE-TESTS::WRITE-32-BIT-FIXNUM failed
Form: (PROGN (ELEPHANT-MEMUTIL:WITH-BUFFER-STREAMS (ELE-TESTS::BS)
(ELE::SERIALIZE 16777216 ELE-TESTS::BS ELE:*STORE-CONTROLLER*)
(ELEPHANT-MEMUTIL:BUFFER-READ-BYTE ELE-TESTS::BS)
(AND (= (ELEPHANT-MEMUTIL:BUFFER-STREAM-SIZE ELE-TESTS::BS) 5)
(IF (ELEPHANT-MEMUTIL:LITTLE-ENDIAN-P)
(= (PROGN (LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 1 ELE-TESTS::UPTO 3 DO (ELEPHANT-MEMUTIL:BUFFER-READ-BYTE ELE-TESTS::BS))
(ELEPHANT-MEMUTIL:BUFFER-READ-BYTE ELE-TESTS::BS))
1)
(= (ELEPHANT-MEMUTIL:BUFFER-READ-BYTE ELE-TESTS::BS) 1)))))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x214faeb2>.
Test ELE-TESTS::WRITE-64-BIT-FIXNUM failed
Form: (PROGN (ELEPHANT-MEMUTIL:WITH-BUFFER-STREAMS (ELE-TESTS::BS)
(ELE::SERIALIZE 72057594037927936 ELE-TESTS::BS ELE:*STORE-CONTROLLER*)
(ELEPHANT-MEMUTIL:BUFFER-READ-BYTE ELE-TESTS::BS)
(IF (< MOST-POSITIVE-FIXNUM ELEPHANT-MEMUTIL::+2^32+)
T
(AND (= (ELEPHANT-MEMUTIL:BUFFER-STREAM-SIZE ELE-TESTS::BS) 9)
(IF (ELEPHANT-MEMUTIL:LITTLE-ENDIAN-P)
(= (PROGN (LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 1 ELE-TESTS::UPTO 7 DO (ELEPHANT-MEMUTIL:BUFFER-READ-BYTE ELE-TESTS::BS))
(ELEPHANT-MEMUTIL:BUFFER-READ-BYTE ELE-TESTS::BS))
1)
(= (ELEPHANT-MEMUTIL:BUFFER-READ-BYTE ELE-TESTS::BS) 1))))))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x214fbb12>.
Test ELE-TESTS::BIGNUMS failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-EQUAL (+ MOST-POSITIVE-FIXNUM 100)) (ELE-TESTS::IN-OUT-EQUAL (- MOST-NEGATIVE-FIXNUM 100))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 2000 ELE-TESTS::ALWAYS (ELE-TESTS::IN-OUT-EQUAL (EXPT 2 ELE-TESTS::I)))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 2000 ELE-TESTS::ALWAYS (ELE-TESTS::IN-OUT-EQUAL (- (EXPT 2 ELE-TESTS::I))))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 2000 ELE-TESTS::ALWAYS (ELE-TESTS::IN-OUT-EQUAL (- (EXPT 2 ELE-TESTS::I) 1)))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 2000 ELE-TESTS::ALWAYS (ELE-TESTS::IN-OUT-EQUAL (- 1 (EXPT 2 ELE-TESTS::I))))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 2000 ELE-TESTS::ALWAYS (ELE-TESTS::IN-OUT-EQUAL (EXPT 3 ELE-TESTS::I)))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 2000 ELE-TESTS::ALWAYS (ELE-TESTS::IN-OUT-EQUAL (- (EXPT 3 ELE-TESTS::I)))))
Expected values: T
T
T
T
T
T
T
T
Actual value: #<SIMPLE-ERROR @ #x214fc2e2>.
ELE-TESTS::FLOATS
Test ELE-TESTS::RATIONALS failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-EQUAL 1/2) (ELE-TESTS::IN-OUT-EQUAL -1/2) (ELE-TESTS::IN-OUT-EQUAL (/ 1 MOST-POSITIVE-FIXNUM))
(ELE-TESTS::IN-OUT-EQUAL (/ 1 MOST-NEGATIVE-FIXNUM)) (ELE-TESTS::IN-OUT-EQUAL (/ MOST-POSITIVE-FIXNUM MOST-NEGATIVE-FIXNUM))
(ELE-TESTS::IN-OUT-EQUAL (/ (EXPT 2 200) (EXPT 3 300))) (ELE-TESTS::IN-OUT-EQUAL (/ (EXPT 2 200) (- (EXPT 3 300)))))
Expected values: T
T
T
T
T
T
T
Actual value: #<SIMPLE-ERROR @ #x214ff6aa>.
Test ELE-TESTS::BASE-STRINGS failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-EQUAL (MAKE-STRING 0 :ELEMENT-TYPE 'BASE-CHAR)) (ELE-TESTS::IN-OUT-EQUAL (COERCE "this is a test" 'BASE-STRING))
(ELE-TESTS::IN-OUT-EQUAL (MAKE-STRING 400 :INITIAL-ELEMENT (CODE-CHAR 127) :ELEMENT-TYPE 'BASE-CHAR)))
Expected values: T
T
T
Actual value: #<SIMPLE-ERROR @ #x214ffe6a>.
Test ELE-TESTS::STRINGS failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-EQUAL "") (ELE-TESTS::IN-OUT-EQUAL "this is a test")
(ELE-TESTS::IN-OUT-EQUAL (MAKE-STRING 400 :INITIAL-ELEMENT (CODE-CHAR 254))))
Expected values: T
T
T
Actual value: #<SIMPLE-ERROR @ #x215005ba>.
Test ELE-TESTS::HARD-STRINGS failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-EQUAL (FORMAT NIL "Mot~arhead is a hard rock band." (CODE-CHAR 246)))
(ELE-TESTS::IN-OUT-EQUAL (FORMAT NIL "M~atley cr~ae is a hard string and was a hard rock band." (CODE-CHAR 246) (CODE-CHAR 252)))
(ELE-TESTS::IN-OUT-EQUAL (FORMAT NIL "High c~ade p~ages." (CODE-CHAR 65535) (CODE-CHAR 131071))))
Expected values: T
T
T
Actual value: #<SIMPLE-ERROR @ #x21500d52>.
Test ELE-TESTS::SYMBOLS failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-EQUAL NIL) (ELE-TESTS::IN-OUT-EQUAL T) (ELE-TESTS::IN-OUT-EQUAL 'ELE-TESTS::FOOBARBAZQUUX)
(ELE-TESTS::IN-OUT-EQUAL 'ELE::NEXT-OID) (ELE-TESTS::IN-OUT-EQUAL :A-KEYWORD-SYMBOL) (ELE-TESTS::IN-OUT-UNINTERNED-EQUAL '#:FOOZLE)
(ELE-TESTS::IN-OUT-UNINTERNED-EQUAL (MAKE-SYMBOL "a wha wah ba ba")) (ELE-TESTS::IN-OUT-UNINTERNED-EQUAL (MAKE-SYMBOL "")))
Expected values: T
T
T
T
T
T
T
T
Actual value: #<SIMPLE-ERROR @ #x21501522>.
Test ELE-TESTS::CHARS failed
Form: (LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::BELOW CHAR-CODE-LIMIT UNLESS (ELE-TESTS::IN-OUT-EQUAL (CODE-CHAR ELE-TESTS::I)) DO
(RETURN ELE-TESTS::I) ELE-TESTS::FINALLY (RETURN T))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x2150221a>.
Test ELE-TESTS::PATHNAMES failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-EQUAL #P"\\usr\\local\\share\\common-lisp\\elephant"))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x2150299a>.
Test ELE-TESTS::CONSES failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-EQUAL (CONS T 100000))
(ELE-TESTS::IN-OUT-EQUAL (LIST 1 'ELE-TESTS::A "this is a test" 'ELE-TESTS::C 10000 NIL 1000 NIL))
(ELE-TESTS::IN-OUT-EQUAL (CONS (CONS (CONS T NIL) (CONS NIL T)) (CONS 1 (CONS T NIL)))))
Expected values: T
T
T
Actual value: #<SIMPLE-ERROR @ #x21503042>.
Test ELE-TESTS::HASH-TABLES-1 failed
Form: (LET* ((ELE-TESTS::HT (MAKE-HASH-TABLE :TEST 'EQUALP :SIZE 333 :REHASH-SIZE 1.2 :REHASH-THRESHOLD 0.8))
(ELE-TESTS::REHASH-SIZE (HASH-TABLE-REHASH-SIZE ELE-TESTS::HT))
(ELE-TESTS::REHASH-THRESHOLD (HASH-TABLE-REHASH-THRESHOLD ELE-TESTS::HT))
(ELE-TESTS::OUT (ELE-TESTS::IN-OUT-VALUE ELE-TESTS::HT)))
(ELE-TESTS::ARE-NOT-NULL (EQ (HASH-TABLE-TEST ELE-TESTS::OUT) 'EQUALP) (EQ (HASH-TABLE-TEST (ELE-TESTS::IN-OUT-VALUE (MAKE-HASH-TABLE :TEST 'EQ))) 'EQ)
(EQ (HASH-TABLE-TEST (ELE-TESTS::IN-OUT-VALUE (MAKE-HASH-TABLE :TEST 'EQL))) 'EQL)
(EQ (HASH-TABLE-TEST (ELE-TESTS::IN-OUT-VALUE (MAKE-HASH-TABLE :TEST 'EQUAL))) 'EQUAL)
(EQ (HASH-TABLE-TEST (ELE-TESTS::IN-OUT-VALUE (MAKE-HASH-TABLE :TEST 'EQUALP))) 'EQUALP)))
Expected values: T
T
T
T
T
Actual value: #<SIMPLE-ERROR @ #x215049aa>.
Test ELE-TESTS::HASH-TABLES-2 failed
Form: (LET ((ELE-TESTS::HT (MAKE-HASH-TABLE :TEST 'EQUALP)))
(SETF (GETHASH (CONS NIL NIL) ELE-TESTS::HT) "one")
(SETF (GETHASH 2 ELE-TESTS::HT) 2.0d0)
(SETF (GETHASH 'ELE-TESTS::SYMBOLSYMBOL ELE-TESTS::HT) "three")
(LET ((ELE-TESTS::OUT (ELE-TESTS::IN-OUT-VALUE ELE-TESTS::HT)))
(ELE-TESTS::ARE-NOT-NULL (STRING= (GETHASH (CONS NIL NIL) ELE-TESTS::OUT) "one") (= (GETHASH 2 ELE-TESTS::OUT) 2.0d0)
(STRING= (GETHASH 'ELE-TESTS::SYMBOLSYMBOL ELE-TESTS::OUT) "three"))))
Expected values: T
T
T
Actual value: #<SIMPLE-ERROR @ #x2150625a>.
Test ELE-TESTS::ARRAYS-1 failed
Form: (ELE-TESTS::ARE-NOT-NULL (ARRAY-HAS-FILL-POINTER-P (ELE-TESTS::IN-OUT-VALUE (MAKE-ARRAY 200 :FILL-POINTER T)))
(NOT (ARRAY-HAS-FILL-POINTER-P (ELE-TESTS::IN-OUT-VALUE (MAKE-ARRAY 200 :FILL-POINTER NIL))))
(ELE-TESTS::TYPE= (UPGRADED-ARRAY-ELEMENT-TYPE '(UNSIGNED-BYTE 20))
(ARRAY-ELEMENT-TYPE (ELE-TESTS::IN-OUT-VALUE (MAKE-ARRAY '(3 4 5) :ELEMENT-TYPE '(UNSIGNED-BYTE 20) :INITIAL-ELEMENT 0))))
(ELE-TESTS::TYPE= (UPGRADED-ARRAY-ELEMENT-TYPE 'FIXNUM)
(ARRAY-ELEMENT-TYPE (ELE-TESTS::IN-OUT-VALUE (MAKE-ARRAY '(3 4 5) :ELEMENT-TYPE 'FIXNUM :INITIAL-ELEMENT 0)))))
Expected values: T
T
T
T
Actual value: #<SIMPLE-ERROR @ #x2150717a>.
Test ELE-TESTS::ARRAYS-2 failed
Form: (LET ((ELE-TESTS::ARR (MAKE-ARRAY '(3 4 5)))
(ELE-TESTS::VEC (MAKE-ARRAY 100 :ADJUSTABLE T :FILL-POINTER T))
(ELE-TESTS::SVEC (MAKE-ARRAY 100 :ADJUSTABLE NIL :FILL-POINTER NIL)))
(SETF (AREF ELE-TESTS::ARR 0 0 0) 'ELE-TESTS::SYMB)
(SETF (AREF ELE-TESTS::ARR 1 2 3) 123132)
(SETF (AREF ELE-TESTS::ARR 2 3 4) "this is a longish string")
(VECTOR-PUSH-EXTEND 123456789101112 ELE-TESTS::VEC)
(VECTOR-PUSH-EXTEND "mr t" ELE-TESTS::VEC)
(VECTOR-PUSH-EXTEND 'ELE-TESTS::SYMBOLIC ELE-TESTS::VEC)
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 99 DO (SETF (SVREF ELE-TESTS::SVEC ELE-TESTS::I) (EXPT 2 ELE-TESTS::I)))
(ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-EQUALP ELE-TESTS::ARR) (ELE-TESTS::IN-OUT-EQUALP ELE-TESTS::VEC) (ELE-TESTS::IN-OUT-EQUALP ELE-TESTS::SVEC)
(TYPEP (ELE-TESTS::IN-OUT-VALUE ELE-TESTS::SVEC) 'SIMPLE-VECTOR)))
Expected values: T
T
T
T
Actual value: #<SIMPLE-ERROR @ #x2150b952>.
ELE-TESTS::TEST-DEEP-EQUALP
Test ELE-TESTS::OBJECTS failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-DEEP-EQUALP (MAKE-INSTANCE 'ELE-TESTS::FOO))
(ELE-TESTS::IN-OUT-DEEP-EQUALP (MAKE-INSTANCE 'ELE-TESTS::BAR :SLOT1 (MAKE-INSTANCE 'ELE-TESTS::FOO :SLOT2 "foo bar"))))
Expected values: T
T
Actual value: #<SIMPLE-ERROR @ #x21516272>.
Test ELE-TESTS::STRUCTS failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-DEEP-EQUALP (ELE-TESTS::MAKE-STRUCT1))
(ELE-TESTS::IN-OUT-DEEP-EQUALP (ELE-TESTS::MAKE-STRUCT1 :SS1 "test" :SS2 (ELE-TESTS::MAKE-STRUCT1 :SS1 "bottom" :SS2 NIL))))
Expected values: T
T
Actual value: #<SIMPLE-ERROR @ #x2151699a>.
Test ELE-TESTS::STRUCT-NON-STD-CONSTRUCT failed
Form: (ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-DEEP-EQUALP (ELE-TESTS::MAKE-A-STRUCT2))
(ELE-TESTS::IN-OUT-DEEP-EQUALP (ELE-TESTS::MAKE-A-STRUCT2 :SS3 (ELE-TESTS::MAKE-A-STRUCT2 :SS4 "foo"))))
Expected values: T
T
Actual value: #<SIMPLE-ERROR @ #x215170c2>.
Test ELE-TESTS::CIRCULAR failed
Form: (LET ((ELE-TESTS::C1 (CONS NIL NIL))
(ELE-TESTS::C2 (CONS NIL NIL))
(ELE-TESTS::L1 (MAKE-LIST 100))
(ELE-TESTS::H (MAKE-HASH-TABLE :TEST 'EQUAL))
(ELE-TESTS::G (MAKE-ARRAY '(2 3 4)))
(ELE-TESTS::F (MAKE-INSTANCE 'ELE-TESTS::FOO))
(ELE-TESTS::B (MAKE-INSTANCE 'ELE-TESTS::BAR)))
(SETF (CAR ELE-TESTS::C1) ELE-TESTS::C1)
(SETF (CDR ELE-TESTS::C1) ELE-TESTS::C1)
(SETF (CAR ELE-TESTS::C2) ELE-TESTS::C1)
(SETF (CDR ELE-TESTS::C2) ELE-TESTS::C2)
(SETF (CDR (LAST ELE-TESTS::L1)) ELE-TESTS::L1)
(SETF (GETHASH "quux" ELE-TESTS::H) ELE-TESTS::L1)
(SETF (GETHASH "bar" ELE-TESTS::H) ELE-TESTS::C2)
(SETF (AREF ELE-TESTS::G 1 1 1) ELE-TESTS::G)
(SETF (AREF ELE-TESTS::G 0 0 1) ELE-TESTS::H)
(SETF (GETHASH "foo" ELE-TESTS::H) ELE-TESTS::G)
(SETF (SLOT-VALUE ELE-TESTS::F 'ELE-TESTS::SLOT1) ELE-TESTS::B)
(SETF (SLOT-VALUE ELE-TESTS::F 'ELE-TESTS::SLOT2) ELE-TESTS::F)
(SETF (SLOT-VALUE ELE-TESTS::B 'ELE-TESTS::SLOT1) ELE-TESTS::H)
(SETF (SLOT-VALUE ELE-TESTS::B 'ELE-TESTS::SLOT2) ELE-TESTS::F)
(ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-DEEP-EQUALP ELE-TESTS::C1) (ELE-TESTS::IN-OUT-DEEP-EQUALP ELE-TESTS::C2)
(ELE-TESTS::IN-OUT-DEEP-EQUALP ELE-TESTS::L1) (ELE-TESTS::IN-OUT-DEEP-EQUALP ELE-TESTS::H) (ELE-TESTS::IN-OUT-DEEP-EQUALP ELE-TESTS::G)
(ELE-TESTS::IN-OUT-DEEP-EQUALP ELE-TESTS::F) (ELE-TESTS::IN-OUT-DEEP-EQUALP ELE-TESTS::B)))
Expected values: T
T
T
T
T
T
T
Actual value: #<SIMPLE-ERROR @ #x21518a22>.
Test ELE:PERSISTENT failed
Form: (LET* ((ELE-TESTS::F1 (MAKE-INSTANCE 'ELE-TESTS::PFOO :SC ELE:*STORE-CONTROLLER*))
(ELE-TESTS::F2 (MAKE-INSTANCE 'ELE-TESTS::PFOO :SLOT1 "this is a string" :SC ELE:*STORE-CONTROLLER*))
(ELE-TESTS::B1 (MAKE-INSTANCE 'ELE-TESTS::PBAR :SLOT2 "another string" :SC ELE:*STORE-CONTROLLER*))
(ELE-TESTS::B2 (MAKE-INSTANCE 'ELE-TESTS::PBAR :SC ELE:*STORE-CONTROLLER*))
(ELE-TESTS::H (ELE:MAKE-BTREE ELE:*STORE-CONTROLLER*)))
(ELE-TESTS::ARE-NOT-NULL (ELE-TESTS::IN-OUT-EQ ELE-TESTS::F1) (ELE-TESTS::IN-OUT-EQ ELE-TESTS::F2) (ELE-TESTS::IN-OUT-EQ ELE-TESTS::B1)
(ELE-TESTS::IN-OUT-EQ ELE-TESTS::B2) (ELE-TESTS::IN-OUT-EQ ELE-TESTS::H) (ELE-TESTS::SIGNALS-CONDITION (ELE-TESTS::SLOT1 ELE-TESTS::F1))
(PROGN (SETF (ELE-TESTS::SLOT1 ELE-TESTS::F1) ELE-TESTS::F1) (EQ ELE-TESTS::F1 (ELE-TESTS::SLOT1 ELE-TESTS::F1)))
(PROGN (SETF (ELE:GET-VALUE ELE-TESTS::F2 ELE-TESTS::H) ELE-TESTS::F2) (EQ (ELE:GET-VALUE ELE-TESTS::F2 ELE-TESTS::H) ELE-TESTS::F2))))
Expected values: T
T
T
T
T
T
T
T
Actual value: #<SIMPLE-ERROR @ #x21520612>.
ELE-TESTS::NON-TRANSIENT-CLASS-SLOT-1 ELE-TESTS::NON-TRANSIENT-CLASS-SLOT-2 ELE-TESTS::TRANSIENT-CLASS-SLOT ELE-TESTS::CLASS-DEFINERS ELE-TESTS::BAD-INHERITENCE
ELE-TESTS::MIXES ELE-TESTS::MIXES-RIGHT-SLOTS ELE-TESTS::INHERIT ELE-TESTS::INHERIT-RIGHT-SLOTS ELE-TESTS::INITFORM-CLASSES
Test ELE-TESTS::INITFORM-TEST failed
Form: (SLOT-VALUE (MAKE-INSTANCE 'ELE-TESTS::P-INITFORM-TEST :SC ELE:*STORE-CONTROLLER*) 'ELE-TESTS::SLOT1)
Expected value: 10
Actual value: #<SIMPLE-ERROR @ #x2154ddb2>.
Test ELE-TESTS::INITARG-TEST failed
Form: (VALUES (SLOT-VALUE (MAKE-INSTANCE 'ELE-TESTS::P-INITFORM-TEST-2 :SC ELE:*STORE-CONTROLLER*) 'ELE-TESTS::SLOT1)
(SLOT-VALUE (MAKE-INSTANCE 'ELE-TESTS::P-INITFORM-TEST-2 :SLOT1 20 :SC ELE:*STORE-CONTROLLER*) 'ELE-TESTS::SLOT1))
Expected values: 10
20
Actual value: #<SIMPLE-ERROR @ #x21551242>.
Test ELE-TESTS::NO-EVAL-INITFORM failed
Form: (ELE-TESTS::FINISHES (DEFCLASS ELE-TESTS::NO-EVAL-INITFORM NIL ((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM (ERROR "Shouldn't be called")))
(:METACLASS ELE:PERSISTENT-METACLASS))
(MAKE-INSTANCE 'ELE-TESTS::NO-EVAL-INITFORM :SLOT1 "something" :SC ELE:*STORE-CONTROLLER*) T)
Expected value: T
Actual value: NIL.
ELE-TESTS::REDEFCLASS
Test MAKUNBOUND failed
Form: (LET ((ELE-TESTS::P (MAKE-INSTANCE 'ELE-TESTS::P-CLASS :SC ELE:*STORE-CONTROLLER*)))
(ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*) (SETF (ELE-TESTS::SLOT1 ELE-TESTS::P) T) (SLOT-MAKUNBOUND ELE-TESTS::P 'ELE-TESTS::SLOT1))
(ELE-TESTS::SIGNALS-CONDITION (ELE-TESTS::SLOT1 ELE-TESTS::P)))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x2156039a>.
Test ELE-TESTS::UPDATE-CLASS failed
Form: (PROGN (DEFCLASS ELE-TESTS::UPDATE-CLASS NIL ((ELE-TESTS::SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1)) (:METACLASS ELE:PERSISTENT-METACLASS))
(LET* ((ELE-TESTS::FOO (MAKE-INSTANCE 'ELE-TESTS::UPDATE-CLASS :SC ELE:*STORE-CONTROLLER*)))
(DEFCLASS ELE-TESTS::UPDATE-CLASS NIL ((ELE-TESTS::SLOT2 :INITFORM 2 :ACCESSOR ELE-TESTS::SLOT2)) (:METACLASS ELE:PERSISTENT-METACLASS))
(VALUES (ELE-TESTS::SLOT2 ELE-TESTS::FOO) (ELE-TESTS::SIGNALS-CONDITION (ELE-TESTS::SLOT1 ELE-TESTS::FOO)))))
Expected values: 2
T
Actual value: #<SIMPLE-ERROR @ #x21563792>.
Test CHANGE-CLASS failed
Form: (PROGN (DEFCLASS ELE-TESTS::CLASS-ONE NIL ((ELE-TESTS::SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1)) (:METACLASS ELE:PERSISTENT-METACLASS))
(DEFCLASS ELE-TESTS::CLASS-TWO NIL
((ELE-TESTS::SLOT1 :INITFORM 0 :ACCESSOR ELE-TESTS::SLOT1) (ELE-TESTS::SLOT2 :INITFORM 2 :ACCESSOR ELE-TESTS::SLOT2))
(:METACLASS ELE:PERSISTENT-METACLASS))
(LET* ((ELE-TESTS::FOO (MAKE-INSTANCE 'ELE-TESTS::CLASS-ONE :SC ELE:*STORE-CONTROLLER*)))
(CHANGE-CLASS ELE-TESTS::FOO (FIND-CLASS 'ELE-TESTS::CLASS-TWO))
(VALUES (ELE-TESTS::SLOT1 ELE-TESTS::FOO) (ELE-TESTS::SLOT2 ELE-TESTS::FOO))))
Expected values: 1
2
Actual value: #<SIMPLE-ERROR @ #x2156703a>.
Test ELE-TESTS::CHANGE-CLASS3 failed
Form: (PROGN (DEFCLASS ELE-TESTS::CLASS-ONE NIL ((ELE-TESTS::SLOT1 :ACCESSOR ELE-TESTS::SLOT1)) (:METACLASS ELE:PERSISTENT-METACLASS))
(DEFCLASS ELE-TESTS::CLASS-TWO NIL
((ELE-TESTS::SLOT1 :INITFORM 0 :ACCESSOR ELE-TESTS::SLOT1) (ELE-TESTS::SLOT2 :INITFORM 2 :ACCESSOR ELE-TESTS::SLOT2))
(:METACLASS ELE:PERSISTENT-METACLASS))
(LET* ((ELE-TESTS::FOO (MAKE-INSTANCE 'ELE-TESTS::CLASS-ONE :SC ELE:*STORE-CONTROLLER*)))
(CHANGE-CLASS ELE-TESTS::FOO (FIND-CLASS 'ELE-TESTS::CLASS-TWO))
(VALUES (ELE-TESTS::SLOT1 ELE-TESTS::FOO) (ELE-TESTS::SLOT2 ELE-TESTS::FOO))))
Expected values: 0
2
Actual value: #<SIMPLE-ERROR @ #x2156cdca>.
Test ELE-TESTS::BASICPERSISTENCE failed
Form: (LET ((ELE-TESTS::RV NIL))
(LET ((ELE-TESTS::X (GENSYM)))
(ELE:ADD-TO-ROOT "x" ELE-TESTS::X)
(ELE:FLUSH-INSTANCE-CACHE ELE:*STORE-CONTROLLER*)
(SETQ ELE-TESTS::RV (EQUAL (FORMAT NIL "~A" ELE-TESTS::X) (FORMAT NIL "~A" (ELE:GET-FROM-ROOT "x")))))
ELE-TESTS::RV)
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x2156dd12>.
ELE-TESTS::TESTOID ELE-TESTS::BTREE-MAKE
Test ELE-TESTS::BTREE-PUT failed
Form: (ELE-TESTS::FINISHES (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(LOOP ELE-TESTS::FOR ELE-TESTS::OBJ ELE-TESTS::IN ELE-TESTS::OBJS ELE-TESTS::FOR ELE-TESTS::KEY ELE-TESTS::IN ELE-TESTS::KEYS DO
(SETF (ELE:GET-VALUE ELE-TESTS::KEY ELE-TESTS::BT) ELE-TESTS::OBJ))))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::BTREE-GET failed
Form: (LOOP ELE-TESTS::FOR ELE-TESTS::KEY ELE-TESTS::IN ELE-TESTS::KEYS ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 1 ELE-TESTS::TO 1000 ELE-TESTS::FOR
ELE-TESTS::OBJ = (ELE:GET-VALUE ELE-TESTS::KEY ELE-TESTS::BT) ELE-TESTS::ALWAYS
(AND (= (ELE-TESTS::SLOT1 ELE-TESTS::OBJ) ELE-TESTS::I) (= (ELE-TESTS::SLOT2 ELE-TESTS::OBJ) (* ELE-TESTS::I 100))))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x21581ea2>.
Test ELE:REMOVE-KV failed
Form: (ELE-TESTS::FINISHES (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*) (ELE:REMOVE-KV ELE-TESTS::FIRST-KEY ELE-TESTS::BT)))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::REMOVED failed
Form: (NOT (ELE:GET-VALUE ELE-TESTS::FIRST-KEY ELE-TESTS::BT))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x21584f62>.
Test ELE:MAP-BTREE failed
Form: (LET ((ELE-TESTS::KS NIL) (ELE-TESTS::VS NIL))
(FLET ((ELE-TESTS::MAPPER (ELE-TESTS::K ELE-TESTS::V) (PUSH ELE-TESTS::K ELE-TESTS::KS) (PUSH ELE-TESTS::V ELE-TESTS::VS)))
(ELE:MAP-BTREE #'ELE-TESTS::MAPPER ELE-TESTS::BT))
(VALUES (AND (SUBSETP ELE-TESTS::KS (CDR ELE-TESTS::KEYS) :TEST #'EQUALP) (SUBSETP (CDR ELE-TESTS::KEYS) ELE-TESTS::KS :TEST #'EQUALP))))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::INDEXED-BTREE-MAKE failed
Form: (ELE-TESTS::FINISHES (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(SETQ ELE-TESTS::INDEXED (ELE:MAKE-INDEXED-BTREE ELE:*STORE-CONTROLLER*))))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::ADD-INDICES failed
Form: (ELE-TESTS::FINISHES (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(SETF ELE-TESTS::INDEX1 (ELE:ADD-INDEX ELE-TESTS::INDEXED :INDEX-NAME 'ELE-TESTS::SLOT1 :KEY-FORM 'ELE-TESTS::KEY-MAKER))
(SETF ELE-TESTS::INDEX2
(ELE:ADD-INDEX ELE-TESTS::INDEXED
:INDEX-NAME 'ELE-TESTS::SLOT2
:KEY-FORM '(LAMBDA (ELE-TESTS::S ELE-TESTS::KEY ELE-TESTS::VALUE)
(DECLARE (IGNORE ELE-TESTS::S ELE-TESTS::KEY))
(VALUES T (ELE-TESTS::SLOT2 ELE-TESTS::VALUE)))))))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::TEST-INDICES failed
Form: (VALUES (LET ((COUNT 0))
(ELE:MAP-INDICES (LAMBDA (ELE-TESTS::X ELE-TESTS::Y) (DECLARE (IGNORE ELE-TESTS::X ELE-TESTS::Y)) (INCF COUNT)) ELE-TESTS::INDEXED)
(EQ COUNT 2))
(EQ ELE-TESTS::INDEX1 (ELE:GET-INDEX ELE-TESTS::INDEXED 'ELE-TESTS::SLOT1))
(EQ ELE-TESTS::INDEX2 (ELE:GET-INDEX ELE-TESTS::INDEXED 'ELE-TESTS::SLOT2)))
Expected values: T
T
T
Actual value: #<UNBOUND-VARIABLE @ #x2159b4a2>.
Test ELE-TESTS::INDEXED-PUT failed
Form: (ELE-TESTS::FINISHES (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(LOOP ELE-TESTS::FOR ELE-TESTS::OBJ ELE-TESTS::IN ELE-TESTS::OBJS ELE-TESTS::FOR ELE-TESTS::KEY ELE-TESTS::IN ELE-TESTS::KEYS DO
(SETF (ELE:GET-VALUE ELE-TESTS::KEY ELE-TESTS::INDEXED) ELE-TESTS::OBJ))))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::INDEXED-GET failed
Form: (LOOP ELE-TESTS::FOR ELE-TESTS::KEY ELE-TESTS::IN ELE-TESTS::KEYS ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 1 ELE-TESTS::TO 1000 ELE-TESTS::FOR
ELE-TESTS::OBJ = (ELE:GET-VALUE ELE-TESTS::KEY ELE-TESTS::INDEXED) ELE-TESTS::ALWAYS
(AND (= (ELE-TESTS::SLOT1 ELE-TESTS::OBJ) ELE-TESTS::I) (= (ELE-TESTS::SLOT2 ELE-TESTS::OBJ) (* ELE-TESTS::I 100))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x2159ee52>.
Test ELE-TESTS::SIMPLE-SLOT-GET failed
Form: (PROGN (SETF (ELE:GET-VALUE (NTH 0 ELE-TESTS::KEYS) ELE-TESTS::INDEXED) (NTH 0 ELE-TESTS::OBJS))
(LET ((ELE-TESTS::OBJ (ELE:GET-VALUE 1 ELE-TESTS::INDEX1)))
(AND (= (ELE-TESTS::SLOT1 ELE-TESTS::OBJ) 1) (= (ELE-TESTS::SLOT2 ELE-TESTS::OBJ) (* 1 100)))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x2159f7fa>.
Test ELE-TESTS::INDEXED-GET-FROM-SLOT1 failed
Form: (LOOP ELE-TESTS::WITH ELE-TESTS::INDEX = (ELE:GET-INDEX ELE-TESTS::INDEXED 'ELE-TESTS::SLOT1) ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 1 ELE-TESTS::TO
1000 ELE-TESTS::FOR ELE-TESTS::OBJ = (ELE:GET-VALUE ELE-TESTS::I ELE-TESTS::INDEX) ELE-TESTS::ALWAYS (= (ELE-TESTS::SLOT1 ELE-TESTS::OBJ) ELE-TESTS::I))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215a00ba>.
Test ELE-TESTS::INDEXED-GET-FROM-SLOT2 failed
Form: (LOOP ELE-TESTS::WITH ELE-TESTS::INDEX = (ELE:GET-INDEX ELE-TESTS::INDEXED 'ELE-TESTS::SLOT2) ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 1 ELE-TESTS::TO
1000 ELE-TESTS::FOR ELE-TESTS::OBJ = (ELE:GET-VALUE (* ELE-TESTS::I 100) ELE-TESTS::INDEX) ELE-TESTS::ALWAYS
(= (ELE-TESTS::SLOT2 ELE-TESTS::OBJ) (* ELE-TESTS::I 100)))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215a097a>.
Test ELE-TESTS::REMOVE-KV-INDEXED failed
Form: (ELE-TESTS::FINISHES (ELE:REMOVE-KV ELE-TESTS::FIRST-KEY ELE-TESTS::INDEXED))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::NO-KEY-NOR-INDICES failed
Form: (VALUES (ELE:GET-VALUE ELE-TESTS::FIRST-KEY ELE-TESTS::INDEXED) (ELE:GET-PRIMARY-KEY 1 ELE-TESTS::INDEX1) (ELE:GET-PRIMARY-KEY 100 ELE-TESTS::INDEX2))
Expected values: NIL
NIL
NIL
Actual value: #<UNBOUND-VARIABLE @ #x215a2e0a>.
Test ELE-TESTS::REMOVE-KV-FROM-SLOT1 failed
Form: (ELE-TESTS::FINISHES (ELE:REMOVE-KV 2 ELE-TESTS::INDEX1))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::NO-KEY-NOR-INDICES-SLOT1 failed
Form: (VALUES (ELE:GET-VALUE (SECOND ELE-TESTS::KEYS) ELE-TESTS::INDEXED) (ELE:GET-PRIMARY-KEY 2 ELE-TESTS::INDEX1) (ELE:GET-PRIMARY-KEY 200 ELE-TESTS::INDEX2))
Expected values: NIL
NIL
NIL
Actual value: #<UNBOUND-VARIABLE @ #x215a52b2>.
Test ELE-TESTS::REMOVE-KV-FROM-SLOT2 failed
Form: (ELE-TESTS::FINISHES (ELE:REMOVE-KV 300 ELE-TESTS::INDEX2))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::NO-KEY-NOR-INDICES-SLOT2 failed
Form: (VALUES (ELE:GET-VALUE (THIRD ELE-TESTS::KEYS) ELE-TESTS::INDEXED) (ELE:GET-PRIMARY-KEY 3 ELE-TESTS::INDEX1) (ELE:GET-PRIMARY-KEY 300 ELE-TESTS::INDEX2))
Expected values: NIL
NIL
NIL
Actual value: #<UNBOUND-VARIABLE @ #x215a777a>.
Test ELE-TESTS::MAP-INDEXED failed
Form: (LET ((ELE-TESTS::KS NIL) (ELE-TESTS::VS NIL))
(FLET ((ELE-TESTS::MAPPER (ELE-TESTS::K ELE-TESTS::V) (PUSH ELE-TESTS::K ELE-TESTS::KS) (PUSH ELE-TESTS::V ELE-TESTS::VS)))
(ELE:MAP-BTREE #'ELE-TESTS::MAPPER ELE-TESTS::INDEXED))
(VALUES (AND (SUBSETP ELE-TESTS::KS (CDDDR ELE-TESTS::KEYS) :TEST #'EQUALP) (SUBSETP (CDDDR ELE-TESTS::KEYS) ELE-TESTS::KS :TEST #'EQUALP))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215a8562>.
Test ELE-TESTS::GET-FIRST failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX1)
(MULTIPLE-VALUE-BIND (ELE-TESTS::HAS ELE-TESTS::K ELE-TESTS::V)
(ELE:CURSOR-FIRST ELE-TESTS::C)
(DECLARE (IGNORE ELE-TESTS::HAS ELE-TESTS::V))
(= ELE-TESTS::K 4))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215a93e2>.
Test ELE-TESTS::GET-FIRST2 failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX2)
(MULTIPLE-VALUE-BIND (ELE-TESTS::HAS ELE-TESTS::K ELE-TESTS::V)
(ELE:CURSOR-FIRST ELE-TESTS::C)
(DECLARE (IGNORE ELE-TESTS::HAS ELE-TESTS::V))
(= ELE-TESTS::K 400))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215aa2b2>.
Test ELE-TESTS::GET-LAST failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX1)
(MULTIPLE-VALUE-BIND (ELE-TESTS::HAS ELE-TESTS::K ELE-TESTS::V)
(ELE:CURSOR-LAST ELE-TESTS::C)
(DECLARE (IGNORE ELE-TESTS::HAS ELE-TESTS::V))
(= ELE-TESTS::K 1000))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215ab182>.
Test ELE-TESTS::GET-LAST2 failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX2)
(MULTIPLE-VALUE-BIND (ELE-TESTS::HAS ELE-TESTS::K ELE-TESTS::V)
(ELE:CURSOR-LAST ELE-TESTS::C)
(DECLARE (IGNORE ELE-TESTS::HAS ELE-TESTS::V))
(= ELE-TESTS::K 100000))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215ac052>.
Test SET failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX1)
(MULTIPLE-VALUE-BIND (ELE-TESTS::HAS ELE-TESTS::K ELE-TESTS::V)
(ELE:CURSOR-SET ELE-TESTS::C 200)
(DECLARE (IGNORE ELE-TESTS::HAS ELE-TESTS::K))
(= (ELE-TESTS::SLOT1 ELE-TESTS::V) 200))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215acf22>.
Test ELE-TESTS::SET2 failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX2)
(MULTIPLE-VALUE-BIND (ELE-TESTS::HAS ELE-TESTS::K ELE-TESTS::V)
(ELE:CURSOR-SET ELE-TESTS::C 500)
(DECLARE (IGNORE ELE-TESTS::HAS ELE-TESTS::K))
(= (ELE-TESTS::SLOT2 ELE-TESTS::V) 500))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215addf2>.
Test ELE-TESTS::SET-RANGE failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX1)
(MULTIPLE-VALUE-BIND (ELE-TESTS::HAS ELE-TESTS::K ELE-TESTS::V)
(ELE:CURSOR-SET-RANGE ELE-TESTS::C 199.5)
(DECLARE (IGNORE ELE-TESTS::HAS ELE-TESTS::K))
(= (ELE-TESTS::SLOT1 ELE-TESTS::V) 200))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215aecc2>.
Test ELE-TESTS::SET-RANGE2 failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX2)
(MULTIPLE-VALUE-BIND (ELE-TESTS::HAS ELE-TESTS::K ELE-TESTS::V)
(ELE:CURSOR-SET-RANGE ELE-TESTS::C 501)
(DECLARE (IGNORE ELE-TESTS::HAS ELE-TESTS::K))
(= (ELE-TESTS::SLOT2 ELE-TESTS::V) 600))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215afc32>.
Test ELE-TESTS::MAP-INDEXED-INDEX failed
Form: (LET ((ELE-TESTS::SUM 0))
(FLET ((ELE-TESTS::COLLECTOR (ELE-TESTS::KEY ELE-TESTS::VALUE ELE-TESTS::PKEY) (INCF ELE-TESTS::SUM (ELE-TESTS::SLOT1 ELE-TESTS::VALUE))))
(ELE:MAP-INDEX #'ELE-TESTS::COLLECTOR ELE-TESTS::INDEX1 :START NIL :END 10)
(ELE:MAP-INDEX #'ELE-TESTS::COLLECTOR ELE-TESTS::INDEX1 :START 990 :END NIL)
(ELE:MAP-INDEX #'ELE-TESTS::COLLECTOR ELE-TESTS::INDEX1 :START 400 :END 410))
ELE-TESTS::SUM)
Expected value: 15449
Actual value: #<UNBOUND-VARIABLE @ #x215b0a42>.
Test ELE-TESTS::REM-KV failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(LET ((ELE-TESTS::IBT (ELE:MAKE-INDEXED-BTREE ELE:*STORE-CONTROLLER*)))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 10 DO (SETF (ELE:GET-VALUE ELE-TESTS::I ELE-TESTS::IBT) (* ELE-TESTS::I ELE-TESTS::I)))
(ELE:REMOVE-KV 0 ELE-TESTS::IBT)
(ELE:REMOVE-KV 1 ELE-TESTS::IBT)
(ELE:REMOVE-KV 10 ELE-TESTS::IBT)
(EQUAL (LIST (ELE:GET-VALUE 0 ELE-TESTS::IBT) (ELE:GET-VALUE 1 ELE-TESTS::IBT) (ELE:GET-VALUE 10 ELE-TESTS::IBT) (ELE:GET-VALUE 5 ELE-TESTS::IBT))
'(NIL NIL NIL 25))))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x215b3fea>.
Test ELE-TESTS::REM-IDEXKV failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(LET* ((ELE-TESTS::IBT (ELE:MAKE-INDEXED-BTREE ELE:*STORE-CONTROLLER*))
(ELE-TESTS::ID1 (ELE:ADD-INDEX ELE-TESTS::IBT :INDEX-NAME 'ELE-TESTS::IDX1 :KEY-FORM 'ELE-TESTS::ODD)))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 10 DO (SETF (ELE:GET-VALUE ELE-TESTS::I ELE-TESTS::IBT) (* ELE-TESTS::I ELE-TESTS::I)))
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::ID1)
(ELE:CURSOR-FIRST ELE-TESTS::C)
(DOTIMES (ELE-TESTS::I 10) (MULTIPLE-VALUE-BIND (ELE-TESTS::HAS ELE-TESTS::KEY ELE-TESTS::VALUE) (ELE:CURSOR-NEXT ELE-TESTS::C))))
(ELE:REMOVE-KV 4 ELE-TESTS::IBT)
(ELE:REMOVE-KV 5 ELE-TESTS::IBT)
(EQUAL (LIST (ELE:GET-VALUE 4 ELE-TESTS::IBT) (ELE:GET-VALUE 5 ELE-TESTS::IBT) (ELE:GET-VALUE 6 ELE-TESTS::IBT)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::IBT)
(ELE:CURSOR-FIRST ELE-TESTS::C)
(DOTIMES (ELE-TESTS::I 4)
(MULTIPLE-VALUE-BIND (ELE-TESTS::HAS ELE-TESTS::KEY ELE-TESTS::VALUE) (ELE:CURSOR-NEXT ELE-TESTS::C) ELE-TESTS::VALUE))
(MULTIPLE-VALUE-BIND (ELE-TESTS::HAS ELE-TESTS::KEY ELE-TESTS::VALUE) (ELE:CURSOR-NEXT ELE-TESTS::C) ELE-TESTS::VALUE)))
'(NIL NIL 36 49))))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x215b7782>.
Test ELE-TESTS::MAKE-INDEXED2 failed
Form: (ELE-TESTS::FINISHES (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(SETQ ELE-TESTS::INDEXED2 (ELE:MAKE-INDEXED-BTREE ELE:*STORE-CONTROLLER*))))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::ADD-INDICES2 failed
Form: (ELE-TESTS::FINISHES (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(SETQ ELE-TESTS::INDEX3 (ELE:ADD-INDEX ELE-TESTS::INDEXED2 :INDEX-NAME 'ELE-TESTS::CRUNCH :KEY-FORM 'ELE-TESTS::CRUNCH))))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::PUT-INDEXED2 failed
Form: (ELE-TESTS::FINISHES (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 10000 DO
(SETF (ELE:GET-VALUE ELE-TESTS::I ELE-TESTS::INDEXED2) (- ELE-TESTS::I)))))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::GET-INDEXED2 failed
Form: (LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 10000 ELE-TESTS::ALWAYS
(= (- ELE-TESTS::I) (ELE:GET-VALUE ELE-TESTS::I ELE-TESTS::INDEXED2)))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215c2352>.
Test ELE-TESTS::GET-FROM-INDEX3 failed
Form: (LET ((ELE-TESTS::V))
(UNWIND-PROTECT
(SETF ELE-TESTS::V
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 1000 ELE-TESTS::ALWAYS
(MULTIPLE-VALUE-BIND (ELE-TESTS::BOOL ELE-TESTS::RES)
(ELE-TESTS::CRUNCH NIL NIL (ELE:GET-VALUE ELE-TESTS::I ELE-TESTS::INDEX3))
(= ELE-TESTS::RES ELE-TESTS::I)))))
ELE-TESTS::V)
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215c2c9a>.
Test ELE-TESTS::DUP-TEST failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::CURS ELE-TESTS::INDEX3)
(LOOP ELE-TESTS::FOR (ELE-TESTS::MORE ELE-TESTS::K ELE-TESTS::V) = (MULTIPLE-VALUE-LIST (ELE:CURSOR-FIRST ELE-TESTS::CURS)) ELE-TESTS::THEN
(MULTIPLE-VALUE-LIST (ELE:CURSOR-NEXT-DUP ELE-TESTS::CURS)) ELE-TESTS::WHILE ELE-TESTS::MORE ELE-TESTS::COLLECT ELE-TESTS::V)))
Expected value: (0 -1 -2 -3 -4 -5 -6 -7 -8 -9)
Actual value: #<UNBOUND-VARIABLE @ #x215c3b1a>.
Test ELE-TESTS::NODUP-TEST failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::CURS ELE-TESTS::INDEX3)
(LOOP ELE-TESTS::FOR (ELE-TESTS::M ELE-TESTS::K ELE-TESTS::V) = (MULTIPLE-VALUE-LIST (ELE:CURSOR-NEXT-NODUP ELE-TESTS::CURS)) ELE-TESTS::FOR ELE-TESTS::I
ELE-TESTS::FROM 0 ELE-TESTS::DOWNTO -9990 ELE-TESTS::BY 10 ELE-TESTS::WHILE ELE-TESTS::M ELE-TESTS::ALWAYS (= ELE-TESTS::V ELE-TESTS::I))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215c4a8a>.
Test ELE-TESTS::PREV-NODUP-TEST failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::CURS ELE-TESTS::INDEX3)
(ELE:CURSOR-LAST ELE-TESTS::CURS)
(LOOP ELE-TESTS::FOR (ELE-TESTS::M ELE-TESTS::K ELE-TESTS::V) = (MULTIPLE-VALUE-LIST (ELE:CURSOR-PREV-NODUP ELE-TESTS::CURS)) ELE-TESTS::FOR ELE-TESTS::I
ELE-TESTS::FROM -9999 ELE-TESTS::TO -9 ELE-TESTS::BY 10 ELE-TESTS::WHILE ELE-TESTS::M ELE-TESTS::ALWAYS (= ELE-TESTS::V ELE-TESTS::I))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215c59ba>.
Test ELE-TESTS::PNODUP-TEST failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::CURS ELE-TESTS::INDEX3)
(LOOP ELE-TESTS::FOR (ELE-TESTS::M ELE-TESTS::K ELE-TESTS::V ELE-TESTS::P) = (MULTIPLE-VALUE-LIST (ELE:CURSOR-PNEXT-NODUP ELE-TESTS::CURS))
ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 9990 ELE-TESTS::BY 10 ELE-TESTS::WHILE ELE-TESTS::M ELE-TESTS::ALWAYS
(= ELE-TESTS::P ELE-TESTS::I))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215c690a>.
Test ELE-TESTS::PPREV-NODUP-TEST failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::CURS ELE-TESTS::INDEX3)
(ELE:CURSOR-LAST ELE-TESTS::CURS)
(LOOP ELE-TESTS::FOR (ELE-TESTS::M ELE-TESTS::K ELE-TESTS::V ELE-TESTS::P) = (MULTIPLE-VALUE-LIST (ELE:CURSOR-PPREV-NODUP ELE-TESTS::CURS))
ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 9999 ELE-TESTS::DOWNTO 9 ELE-TESTS::BY 10 ELE-TESTS::WHILE ELE-TESTS::M ELE-TESTS::ALWAYS
(= ELE-TESTS::P ELE-TESTS::I))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE @ #x215c783a>.
Test ELE-TESTS::CUR-DEL1 failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(LET* ((ELE-TESTS::IBT (ELE:MAKE-INDEXED-BTREE ELE:*STORE-CONTROLLER*))
(ELE-TESTS::ID1 (ELE:ADD-INDEX ELE-TESTS::IBT :INDEX-NAME 'ELE-TESTS::IDX1 :KEY-FORM 'ELE-TESTS::ODD)))
(LABELS ((ELE-TESTS::DELETED (ELE-TESTS::KEY ELE-TESTS::OTHERS)
(AND (NULL (ELE:GET-VALUE ELE-TESTS::KEY ELE-TESTS::IBT))
(EVERY #'(LAMBDA (ELE-TESTS::K2) (= (ELE:GET-VALUE ELE-TESTS::K2 ELE-TESTS::IBT) (* ELE-TESTS::K2 ELE-TESTS::K2))) ELE-TESTS::OTHERS))))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 5 DO
(SETF (ELE:GET-VALUE ELE-TESTS::I ELE-TESTS::IBT) (* ELE-TESTS::I ELE-TESTS::I)))
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::ID1) (ELE:CURSOR-LAST ELE-TESTS::C) (ELE:CURSOR-DELETE ELE-TESTS::C))
(OR (ELE-TESTS::DELETED 5 '(3 1)) (ELE-TESTS::DELETED 3 '(5 1)) (ELE-TESTS::DELETED 1 '(5 3))))))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x215cae7a>.
Test ELE-TESTS::INDEXED-DELETE failed
Form: (ELE-TESTS::FINISHES (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::CURS ELE-TESTS::INDEX3) (ELE:CURSOR-LAST ELE-TESTS::CURS) (ELE:CURSOR-DELETE ELE-TESTS::CURS))))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::TEST-DELETED failed
Form: (VALUES (ELE:GET-VALUE 10000 ELE-TESTS::INDEXED2) (ELE:GET-VALUE 1000 ELE-TESTS::INDEX3))
Expected values: NIL
NIL
Actual value: #<UNBOUND-VARIABLE @ #x215cdc4a>.
Test ELE-TESTS::INDEXED-DELETE2 failed
Form: (ELE-TESTS::FINISHES (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::CURS ELE-TESTS::INDEX3)
(ELE:CURSOR-FIRST ELE-TESTS::CURS)
(ELE:CURSOR-NEXT-DUP ELE-TESTS::CURS)
(ELE:CURSOR-DELETE ELE-TESTS::CURS))))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::TEST-DELETED2 failed
Form: (VALUES (ELE:GET-VALUE 0 ELE-TESTS::INDEXED2) (ELE:GET-VALUE 0 ELE-TESTS::INDEX3) (ELE:GET-VALUE 1 ELE-TESTS::INDEXED2)
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX3)
(ELE:CURSOR-FIRST ELE-TESTS::C)
(MULTIPLE-VALUE-BIND (ELE-TESTS::M ELE-TESTS::K ELE-TESTS::V) (ELE:CURSOR-NEXT ELE-TESTS::C) ELE-TESTS::V)))
Expected values: 0
0
NIL
-2
Actual value: #<UNBOUND-VARIABLE @ #x215d076a>.
Test ELE-TESTS::CUR-DEL2 failed
Form: (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(LET* ((ELE-TESTS::IBT (ELE:MAKE-INDEXED-BTREE ELE:*STORE-CONTROLLER*))
(ELE-TESTS::ID1 (ELE:ADD-INDEX ELE-TESTS::IBT :INDEX-NAME 'ELE-TESTS::IDX1 :KEY-FORM 'ELE-TESTS::HALF-FLOOR)))
(LOOP ELE-TESTS::FOR ELE-TESTS::I ELE-TESTS::FROM 0 ELE-TESTS::TO 10 DO (SETF (ELE:GET-VALUE ELE-TESTS::I ELE-TESTS::IBT) (* ELE-TESTS::I ELE-TESTS::I)))
(ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::ID1) (ELE:CURSOR-FIRST ELE-TESTS::C) (ELE:CURSOR-NEXT-DUP ELE-TESTS::C) (ELE:CURSOR-DELETE ELE-TESTS::C))
(OR (AND (NULL (ELE:GET-VALUE 1 ELE-TESTS::IBT)) (EQ (ELE:GET-VALUE 0 ELE-TESTS::IBT) 0))
(AND (NULL (ELE:GET-VALUE 0 ELE-TESTS::IBT)) (EQ (ELE:GET-VALUE 1 ELE-TESTS::IBT) 1)))))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x215d3d3a>.
Test ELE-TESTS::GET-BOTH failed
Form: (ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEXED2) (ELE:CURSOR-GET-BOTH ELE-TESTS::C 200 -200))
Expected values: T
200
-200
Actual value: #<UNBOUND-VARIABLE @ #x215d43c2>.
Test ELE-TESTS::PGET-BOTH failed
Form: (ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX3)
(MULTIPLE-VALUE-BIND (ELE-TESTS::M ELE-TESTS::K ELE-TESTS::V ELE-TESTS::P)
(ELE:CURSOR-PGET-BOTH ELE-TESTS::C 10 107)
(VALUES ELE-TESTS::K ELE-TESTS::V ELE-TESTS::P)))
Expected values: 10
-107
107
Actual value: #<UNBOUND-VARIABLE @ #x215d47a2>.
Test ELE-TESTS::PGET-BOTH-RANGE failed
Form: (ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX3)
(MULTIPLE-VALUE-BIND (ELE-TESTS::M ELE-TESTS::K ELE-TESTS::V ELE-TESTS::P)
(ELE:CURSOR-PGET-BOTH-RANGE ELE-TESTS::C 10 106.5)
(VALUES ELE-TESTS::K ELE-TESTS::V ELE-TESTS::P)))
Expected values: 10
-107
107
Actual value: #<UNBOUND-VARIABLE @ #x215d4ba2>.
Test ELE-TESTS::PCURSOR failed
Form: (ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX3)
(VALUES (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PFIRST ELE-TESTS::C)) (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PNEXT ELE-TESTS::C))
(ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PNEXT-NODUP ELE-TESTS::C)) (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PNEXT-DUP ELE-TESTS::C))
(ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PPREV ELE-TESTS::C)) (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PPREV-NODUP ELE-TESTS::C))
(ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PLAST ELE-TESTS::C)) (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PSET ELE-TESTS::C 300))
(ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PSET-RANGE ELE-TESTS::C 199.5)) (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PGET-BOTH ELE-TESTS::C 10 101))
(ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PGET-BOTH-RANGE ELE-TESTS::C 11 111.4))))
Expected values: 0
2
10
11
10
9
9999
3000
2000
101
112
Actual value: #<UNBOUND-VARIABLE @ #x215d5062>.
Test ELE-TESTS::NEWINDEX failed
Form: (ELE-TESTS::FINISHES (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(SETQ ELE-TESTS::INDEX4 (ELE:ADD-INDEX ELE-TESTS::INDEXED2 :INDEX-NAME 'ELE-TESTS::CRUNCH :KEY-FORM 'ELE-TESTS::CRUNCH :POPULATE T))))
Expected value: T
Actual value: NIL.
Test ELE-TESTS::PCURSOR2 failed
Form: (ELE:WITH-BTREE-CURSOR (ELE-TESTS::C ELE-TESTS::INDEX4)
(VALUES (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PFIRST ELE-TESTS::C)) (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PNEXT ELE-TESTS::C))
(ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PNEXT-NODUP ELE-TESTS::C)) (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PNEXT-DUP ELE-TESTS::C))
(ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PPREV ELE-TESTS::C)) (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PPREV-NODUP ELE-TESTS::C))
(ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PLAST ELE-TESTS::C)) (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PSET ELE-TESTS::C 300))
(ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PSET-RANGE ELE-TESTS::C 199.5)) (ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PGET-BOTH ELE-TESTS::C 10 101))
(ELE-TESTS::PCURSOR-PKEY (ELE:CURSOR-PGET-BOTH-RANGE ELE-TESTS::C 11 111.4))))
Expected values: 0
2
10
11
10
9
9999
3000
2000
101
112
Actual value: #<UNBOUND-VARIABLE @ #x215d7f7a>.
Test ELE-TESTS::ADD-GET-REMOVE failed
Form: (LET ((ELE-TESTS::R1 'NIL) (ELE-TESTS::R2 'NIL))
(ELE:ADD-TO-ROOT "x1" "y1")
(ELE:ADD-TO-ROOT "x2" "y2")
(SETF ELE-TESTS::R1 (ELE:GET-FROM-ROOT "x1"))
(SETF ELE-TESTS::R2 (ELE:GET-FROM-ROOT "x2"))
(ELE:REMOVE-FROM-ROOT "x1")
(ELE:REMOVE-FROM-ROOT "x2")
(AND (EQUAL "y1" ELE-TESTS::R1) (EQUAL "y2" ELE-TESTS::R2) (EQUAL NIL (ELE:GET-FROM-ROOT "x1")) (EQUAL NIL (ELE:GET-FROM-ROOT "x2"))))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x215d8e82>.
Test ELE-TESTS::ADD-GET-REMOVE-SYMBOL failed
Form: (LET ((ELE-TESTS::FOO (CONS NIL NIL))
(ELE-TESTS::BAR (CONS 'ELE-TESTS::A 'ELE-TESTS::B))
(ELE-TESTS::F1 'NIL)
(ELE-TESTS::F2 'NIL)
(ELE-TESTS::B1 'NIL)
(ELE-TESTS::B2 'NIL))
(ELE:ADD-TO-ROOT "my key" ELE-TESTS::FOO)
(ELE:ADD-TO-ROOT "my other key" ELE-TESTS::FOO)
(SETF ELE-TESTS::F1 (ELE:GET-FROM-ROOT "my key"))
(SETF ELE-TESTS::F2 (ELE:GET-FROM-ROOT "my other key"))
(ELE:ADD-TO-ROOT "my key" ELE-TESTS::BAR)
(ELE:ADD-TO-ROOT "my other key" ELE-TESTS::BAR)
(SETF ELE-TESTS::B1 (ELE:GET-FROM-ROOT "my key"))
(SETF ELE-TESTS::B2 (ELE:GET-FROM-ROOT "my other key"))
(AND (EQUAL ELE-TESTS::F1 ELE-TESTS::F2) (EQUAL ELE-TESTS::B1 ELE-TESTS::B2) (EQUAL ELE-TESTS::F1 ELE-TESTS::FOO) (EQUAL ELE-TESTS::B1 ELE-TESTS::BAR)))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x215d9aca>.
Test ELE-TESTS::EXISTSP failed
Form: (LET ((ELE-TESTS::EXISTS1 'NIL) (ELE-TESTS::EXISTS2 'NIL) (ELE-TESTS::EXISTS3 'NIL) (ELE-TESTS::KEY "my key"))
(ELE:REMOVE-FROM-ROOT ELE-TESTS::KEY)
(SETF ELE-TESTS::EXISTS1 (ELE:ROOT-EXISTSP ELE-TESTS::KEY))
(ELE:ADD-TO-ROOT ELE-TESTS::KEY 'ELE-TESTS::A)
(SETF ELE-TESTS::EXISTS2 (ELE:ROOT-EXISTSP ELE-TESTS::KEY))
(ELE:REMOVE-FROM-ROOT ELE-TESTS::KEY)
(SETF ELE-TESTS::EXISTS3 (ELE:ROOT-EXISTSP ELE-TESTS::KEY))
(VALUES ELE-TESTS::EXISTS1 ELE-TESTS::EXISTS2 ELE-TESTS::EXISTS3))
Expected values: NIL
T
NIL
Actual value: #<SIMPLE-ERROR @ #x215da72a>.
Warning: Manually finalizing class IDX-ONE
Test ELE-TESTS::DISABLE-CLASS-INDEXING-TEST failed
Form: (PROGN (WHEN (FIND-CLASS 'ELE-TESTS::IDX-ONE NIL) (ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-ONE :ERRORP NIL) (SETF (FIND-CLASS 'ELE-TESTS::IDX-ONE) NIL))
(DEFCLASS ELE-TESTS::IDX-ONE NIL ((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-ONE :ERRORP NIL) (ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-ONE :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-ONE) NIL) T)
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x215dbb42>.
Test ELE-TESTS::INDEXING-BASIC-TRIVIAL failed
Form: (PROGN (WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-ONE)
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-ONE :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-ONE) NIL))
(DEFCLASS ELE-TESTS::IDX-ONE NIL ((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(DEFMETHOD PRINT-OBJECT ((ELE-TESTS::OBJ ELE-TESTS::IDX-ONE) STREAM)
(IF (SLOT-BOUNDP ELE-TESTS::OBJ 'ELE-TESTS::SLOT1)
(FORMAT STREAM "slot1 = ~A~%" (ELE-TESTS::SLOT1 ELE-TESTS::OBJ))
(FORMAT STREAM "slot1 unbound~&")))
(ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(SETQ ELE-TESTS::INST1 (MAKE-INSTANCE 'ELE-TESTS::IDX-ONE :SLOT1 101 :SC ELE:*STORE-CONTROLLER*))
(SETQ ELE-TESTS::INST1 (MAKE-INSTANCE 'ELE-TESTS::IDX-ONE :SLOT1 101 :SC ELE:*STORE-CONTROLLER*)))
(LENGTH (ELE:GET-INSTANCES-BY-CLASS 'ELE-TESTS::IDX-ONE)) (ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-ONE :SC ELE:*STORE-CONTROLLER* :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-ONE) NIL) (ELE-TESTS::SIGNALS-ERROR (ELE:GET-INSTANCES-BY-CLASS 'ELE-TESTS::IDX-ONE)))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x215dc3a2>.
Test ELE-TESTS::INDEXING-BASIC failed
Form: (LET ((ELE-TESTS::N 105))
(WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-ONE)
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-ONE :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-ONE NIL) NIL))
(DEFCLASS ELE-TESTS::IDX-ONE NIL ((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(DEFMETHOD PRINT-OBJECT ((ELE-TESTS::OBJ ELE-TESTS::IDX-ONE) STREAM)
(IF (SLOT-BOUNDP ELE-TESTS::OBJ 'ELE-TESTS::SLOT1) (FORMAT STREAM "slot1 = ~A~%" (ELE-TESTS::SLOT1 ELE-TESTS::OBJ)) (FORMAT STREAM "slot1 unbound~&")))
(PROGN (ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(SETQ ELE-TESTS::INST1 (MAKE-INSTANCE 'ELE-TESTS::IDX-ONE :SLOT1 ELE-TESTS::N :SC ELE:*STORE-CONTROLLER*))
(SETQ ELE-TESTS::INST2 (MAKE-INSTANCE 'ELE-TESTS::IDX-ONE :SLOT1 ELE-TESTS::N :SC ELE:*STORE-CONTROLLER*))
(SETQ ELE-TESTS::INST3 (MAKE-INSTANCE 'ELE-TESTS::IDX-ONE :SLOT1 (+ 1 ELE-TESTS::N) :SC ELE:*STORE-CONTROLLER*)))
(VALUES (LENGTH (ELE:GET-INSTANCES-BY-CLASS 'ELE-TESTS::IDX-ONE))
(LENGTH (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-ONE 'ELE-TESTS::SLOT1 ELE-TESTS::N))
(LENGTH (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-ONE 'ELE-TESTS::SLOT1 (+ 1 ELE-TESTS::N)))
(EQUAL (FIRST (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-ONE 'ELE-TESTS::SLOT1 (+ 1 ELE-TESTS::N))) ELE-TESTS::INST3)
(LENGTH (ELE:GET-INSTANCES-BY-RANGE 'ELE-TESTS::IDX-ONE 'ELE-TESTS::SLOT1 ELE-TESTS::N (+ 1 ELE-TESTS::N))))))
Expected values: 3
2
1
T
3
Actual value: #<SIMPLE-ERROR @ #x215dd292>.
Test ELE-TESTS::INDEXING-CLASS-OPT failed
Form: (PROGN (WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-CSLOT)
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-CSLOT :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-CSLOT) NIL))
(DEFCLASS ELE-TESTS::IDX-CSLOT NIL ((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 0 :ACCESSOR ELE-TESTS::SLOT1))
(:METACLASS ELE:PERSISTENT-METACLASS :INDEX T))
(VALUES (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-CSLOT)))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x215ddcf2>.
Test ELE-TESTS::INDEXING-INHERIT failed
Form: (PROGN (WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-TWO)
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-TWO :SC ELE:*STORE-CONTROLLER* :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-TWO) NIL))
(WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-THREE)
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-THREE :SC ELE:*STORE-CONTROLLER* :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-THREE) NIL))
(DEFCLASS ELE-TESTS::IDX-TWO NIL
((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T)
(ELE-TESTS::SLOT2 :INITARG :SLOT2 :INITFORM 2 :ACCESSOR ELE-TESTS::SLOT2 :INDEX T)
(ELE-TESTS::SLOT3 :INITARG :SLOT3 :INITFORM 3 :ACCESSOR ELE-TESTS::SLOT3)
(ELE-TESTS::SLOT4 :INITARG :SLOT4 :INITFORM 4 :ACCESSOR ELE-TESTS::SLOT4 :TRANSIENT T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(DEFCLASS ELE-TESTS::IDX-THREE (ELE-TESTS::IDX-TWO)
((ELE-TESTS::SLOT2 :INITARG :SLOT2 :INITFORM 20 :ACCESSOR ELE-TESTS::SLOT2)
(ELE-TESTS::SLOT3 :INITARG :SLOT3 :INITFORM 30 :ACCESSOR ELE-TESTS::SLOT3 :INDEX T)
(ELE-TESTS::SLOT4 :INITARG :SLOT4 :INITFORM 40 :ACCESSOR ELE-TESTS::SLOT4 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(PROGN (ELE:WITH-TRANSACTION NIL
(SETQ ELE-TESTS::INST1 (MAKE-INSTANCE 'ELE-TESTS::IDX-TWO :SC ELE:*STORE-CONTROLLER*))
(SETQ ELE-TESTS::INST2 (MAKE-INSTANCE 'ELE-TESTS::IDX-THREE :SC ELE:*STORE-CONTROLLER*)))
(VALUES (ELE-TESTS::SLOT1 ELE-TESTS::INST1) (ELE-TESTS::SLOT2 ELE-TESTS::INST1) (ELE-TESTS::SLOT3 ELE-TESTS::INST1)
(ELE-TESTS::SLOT4 ELE-TESTS::INST1) (ELE-TESTS::SLOT1 ELE-TESTS::INST2) (ELE-TESTS::SLOT2 ELE-TESTS::INST2)
(ELE-TESTS::SLOT3 ELE-TESTS::INST2) (ELE-TESTS::SLOT4 ELE-TESTS::INST2)
(EQUAL (ELE::INDEXING-RECORD-SLOTS (ELE::INDEXED-RECORD (FIND-CLASS 'ELE-TESTS::IDX-TWO))) '(ELE-TESTS::SLOT1 ELE-TESTS::SLOT2))
(EQUAL (ELE::INDEXING-RECORD-SLOTS (ELE::INDEXED-RECORD (FIND-CLASS 'ELE-TESTS::IDX-THREE)))
'(ELE-TESTS::SLOT1 ELE-TESTS::SLOT3 ELE-TESTS::SLOT4)))))
Expected values: 1
2
3
4
1
20
30
40
T
T
Actual value: #<SIMPLE-ERROR @ #x215de442>.
Test ELE-TESTS::INDEXING-RANGE failed
Form: (PROGN (WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-FOUR)
(DEFCLASS ELE-TESTS::IDX-FOUR NIL ((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-FOUR :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-FOUR NIL) NIL))
(DEFCLASS ELE-TESTS::IDX-FOUR NIL ((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(DEFUN ELE-TESTS::MAKE-IDX-FOUR (ELE-TESTS::VAL) (MAKE-INSTANCE 'ELE-TESTS::IDX-FOUR :SLOT1 ELE-TESTS::VAL))
(ELE:WITH-TRANSACTION NIL (MAPC #'ELE-TESTS::MAKE-IDX-FOUR '(1 1 1 2 2 4 5 5 5 6 10)))
(LET ((ELE-TESTS::X1 (ELE:GET-INSTANCES-BY-RANGE 'ELE-TESTS::IDX-FOUR 'ELE-TESTS::SLOT1 2 6))
(ELE-TESTS::X2 (ELE:GET-INSTANCES-BY-RANGE 'ELE-TESTS::IDX-FOUR 'ELE-TESTS::SLOT1 0 2))
(ELE-TESTS::X3 (ELE:GET-INSTANCES-BY-RANGE 'ELE-TESTS::IDX-FOUR 'ELE-TESTS::SLOT1 6 15)))
(VALUES (EQUAL (MAPCAR #'ELE-TESTS::SLOT1 ELE-TESTS::X1) '(2 2 4 5 5 5 6)) (EQUAL (MAPCAR #'ELE-TESTS::SLOT1 ELE-TESTS::X2) '(1 1 1 2 2))
(EQUAL (MAPCAR #'ELE-TESTS::SLOT1 ELE-TESTS::X3) '(6 10)))))
Expected values: T
T
T
Actual value: #<SIMPLE-ERROR @ #x215deee2>.
Test ELE-TESTS::INDEXING-SLOT-MAKUNBOUND failed
Form: (PROGN (WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-UNBOUND-DEL)
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-UNBOUND-DEL :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-FIVE-DEL) NIL))
(DEFCLASS ELE-TESTS::IDX-UNBOUND-DEL NIL ((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*) (MAKE-INSTANCE 'ELE-TESTS::IDX-UNBOUND-DEL :SLOT1 10))
(LET ((ELE-TESTS::ORIG-LEN (LENGTH (ELE:GET-INSTANCES-BY-CLASS 'ELE-TESTS::IDX-UNBOUND-DEL)))
(ELE-TESTS::ORIG-OBJ (ELE:GET-INSTANCE-BY-VALUE 'ELE-TESTS::IDX-UNBOUND-DEL 'ELE-TESTS::SLOT1 10)))
(SLOT-MAKUNBOUND ELE-TESTS::ORIG-OBJ 'ELE-TESTS::SLOT1)
(LET ((ELE-TESTS::NEW-LEN (LENGTH (ELE:GET-INSTANCES-BY-CLASS 'ELE-TESTS::IDX-UNBOUND-DEL)))
(ELE-TESTS::INDEX-OBJ (ELE:GET-INSTANCE-BY-VALUE 'ELE-TESTS::IDX-UNBOUND-DEL 'ELE-TESTS::SLOT1 10)))
(VALUES ELE-TESTS::ORIG-LEN ELE-TESTS::NEW-LEN ELE-TESTS::INDEX-OBJ))))
Expected values: 1
1
NIL
Actual value: #<SIMPLE-ERROR @ #x215dfaa2>.
Test ELE-TESTS::INDEXING-WIPE-INDEX failed
Form: (PROGN (WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-FIVE-DEL)
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-FIVE-DEL :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-FIVE-DEL) NIL))
(DEFCLASS ELE-TESTS::IDX-FIVE-DEL NIL ((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*)
(ELE:DROP-INSTANCES (ELE:GET-INSTANCES-BY-CLASS 'ELE-TESTS::IDX-FIVE-DEL))
(MAKE-INSTANCE 'ELE-TESTS::IDX-FIVE-DEL))
(LET ((ELE-TESTS::R1 (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-FIVE-DEL 'ELE-TESTS::SLOT1 1)))
(DEFCLASS ELE-TESTS::IDX-FIVE-DEL NIL ((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1))
(:METACLASS ELE:PERSISTENT-METACLASS))
(VALUES (EQ (LENGTH ELE-TESTS::R1) 1) (ELE-TESTS::SIGNALS-ERROR (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-FIVE-DEL 'ELE-TESTS::SLOT1 1))
(NULL (ELE:GET-INDEX (ELE:GET-VALUE 'ELE-TESTS::IDX-FIVE-DEL (ELE:CONTROLLER-CLASS-ROOT ELE:*STORE-CONTROLLER*)) 'ELE-TESTS::SLOT1)))))
Expected values: T
T
T
Actual value: #<SIMPLE-ERROR @ #x215e039a>.
Test ELE-TESTS::INDEXING-RECONNECT-DB failed
Form: (PROGN (WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-FIVE)
(DEFCLASS ELE-TESTS::IDX-FIVE NIL
((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T)
(ELE-TESTS::SLOT2 :INITARG :SLOT2 :INITFORM 2 :ACCESSOR ELE-TESTS::SLOT2)
(ELE-TESTS::SLOT3 :INITARG :SLOT3 :INITFORM 3 :ACCESSOR ELE-TESTS::SLOT3 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-FIVE :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-FIVE) NIL))
(DEFCLASS ELE-TESTS::IDX-FIVE NIL
((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T)
(ELE-TESTS::SLOT2 :INITARG :SLOT2 :INITFORM 2 :ACCESSOR ELE-TESTS::SLOT2)
(ELE-TESTS::SLOT3 :INITARG :SLOT3 :INITFORM 3 :ACCESSOR ELE-TESTS::SLOT3 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(LET ((ELE:*DEFAULT-INDEXED-CLASS-SYNCH-POLICY* :DB))
(ELE:WITH-TRANSACTION (:STORE-CONTROLLER ELE:*STORE-CONTROLLER*) (MAKE-INSTANCE 'ELE-TESTS::IDX-FIVE))
(SETF (FIND-CLASS 'ELE-TESTS::IDX-FIVE) NIL)
(DEFCLASS ELE-TESTS::IDX-FIVE NIL
((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1)
(ELE-TESTS::SLOT2 :INITARG :SLOT2 :INITFORM 2 :ACCESSOR ELE-TESTS::SLOT2 :INDEX T)
(ELE-TESTS::SLOT3 :INITARG :SLOT3 :INITFORM 3 :ACCESSOR ELE-TESTS::SLOT3 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(ELE:WITH-TRANSACTION NIL (MAKE-INSTANCE 'ELE-TESTS::IDX-FIVE))
(VALUES (LENGTH (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-FIVE 'ELE-TESTS::SLOT3 3))
(LENGTH (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-FIVE 'ELE-TESTS::SLOT1 1))
(ELE-TESTS::SIGNALS-ERROR (LENGTH (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-FIVE 'ELE-TESTS::SLOT2 2))))))
Expected values: 2
2
T
Actual value: #<SIMPLE-ERROR @ #x215e0cf2>.
Test ELE-TESTS::INDEXING-CHANGE-CLASS failed
Form: (PROGN (WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-SIX)
(DEFCLASS ELE-TESTS::IDX-SIX NIL
((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T)
(ELE-TESTS::SLOT2 :INITARG :SLOT2 :INITFORM 2 :ACCESSOR ELE-TESTS::SLOT2 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-SIX :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-SIX) NIL))
(WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-SEVEN)
(DEFCLASS ELE-TESTS::IDX-SEVEN NIL
((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 10 :ACCESSOR ELE-TESTS::SLOT1 :INDEX NIL)
(ELE-TESTS::SLOT3 :INITARG :SLOT3 :INITFORM 30 :ACCESSOR ELE-TESTS::SLOT3 :INDEX T)
(ELE-TESTS::SLOT4 :INITARG :SLOT4 :INITFORM 40 :ACCESSOR ELE-TESTS::SLOT4 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-SEVEN :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-SEVEN) NIL))
(DEFCLASS ELE-TESTS::IDX-SIX NIL
((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR ELE-TESTS::SLOT1 :INDEX T)
(ELE-TESTS::SLOT2 :INITARG :SLOT2 :INITFORM 2 :ACCESSOR ELE-TESTS::SLOT2 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(DEFCLASS ELE-TESTS::IDX-SEVEN NIL
((ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 10 :ACCESSOR ELE-TESTS::SLOT1 :INDEX NIL)
(ELE-TESTS::SLOT3 :INITARG :SLOT3 :INITFORM 30 :ACCESSOR ELE-TESTS::SLOT3 :INDEX T)
(ELE-TESTS::SLOT4 :INITARG :SLOT4 :INITFORM 40 :ACCESSOR ELE-TESTS::SLOT4 :INDEX T))
(:METACLASS ELE:PERSISTENT-METACLASS))
(DEFMETHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS :BEFORE ((ELE-TESTS::OLD ELE-TESTS::IDX-SIX) (ELE-TESTS::NEW ELE-TESTS::IDX-SEVEN) &KEY)
(SETF (ELE-TESTS::SLOT3 ELE-TESTS::NEW) (ELE-TESTS::SLOT2 ELE-TESTS::OLD)))
(LET ((ELE-TESTS::FOO (MAKE-INSTANCE 'ELE-TESTS::IDX-SIX)))
(CHANGE-CLASS ELE-TESTS::FOO 'ELE-TESTS::IDX-SEVEN)
(VALUES (ELE-TESTS::SLOT1 ELE-TESTS::FOO) (ELE-TESTS::SIGNALS-ERROR (ELE-TESTS::SLOT2 ELE-TESTS::FOO)) (ELE-TESTS::SLOT3 ELE-TESTS::FOO)
(ELE-TESTS::SLOT4 ELE-TESTS::FOO) (ELE:GET-INSTANCES-BY-CLASS 'ELE-TESTS::IDX-SIX)
(ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-SIX 'ELE-TESTS::SLOT1 1) (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-SIX 'ELE-TESTS::SLOT2 2)
(LENGTH (ELE:GET-INSTANCES-BY-CLASS 'ELE-TESTS::IDX-SEVEN))
(LENGTH (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-SEVEN 'ELE-TESTS::SLOT3 2)))))
Expected values: 1
T
2
40
NIL
NIL
NIL
1
1
Actual value: #<SIMPLE-ERROR @ #x215e1772>.
Test ELE-TESTS::INDEXING-REDEF-CLASS failed
Form: (PROGN (WHEN (ELE:CLASS-INDEXEDP-BY-NAME 'ELE-TESTS::IDX-EIGHT)
(DEFCLASS ELE-TESTS::IDX-EIGHT NIL
((ELE-TESTS::SLOT1 :ACCESSOR ELE-TESTS::SLOT1 :INITARG :SLOT1 :INDEX T) (ELE-TESTS::SLOT2 :ACCESSOR ELE-TESTS::SLOT2 :INITARG :SLOT2)
(ELE-TESTS::SLOT3 :ACCESSOR ELE-TESTS::SLOT3 :INITARG :SLOT3 :TRANSIENT T)
(ELE-TESTS::SLOT4 :ACCESSOR ELE-TESTS::SLOT4 :INITARG :SLOT4 :INDEX T) (ELE-TESTS::SLOT5 :ACCESSOR ELE-TESTS::SLOT5 :INITARG :SLOT5))
(:METACLASS ELE:PERSISTENT-METACLASS))
(ELE:DISABLE-CLASS-INDEXING 'ELE-TESTS::IDX-EIGHT :ERRORP NIL)
(SETF (FIND-CLASS 'ELE-TESTS::IDX-EIGHT NIL) NIL))
(DEFCLASS ELE-TESTS::IDX-EIGHT NIL
((ELE-TESTS::SLOT1 :ACCESSOR ELE-TESTS::SLOT1 :INITARG :SLOT1 :INDEX T) (ELE-TESTS::SLOT2 :ACCESSOR ELE-TESTS::SLOT2 :INITARG :SLOT2)
(ELE-TESTS::SLOT3 :ACCESSOR ELE-TESTS::SLOT3 :INITARG :SLOT3 :TRANSIENT T)
(ELE-TESTS::SLOT4 :ACCESSOR ELE-TESTS::SLOT4 :INITARG :SLOT4 :INDEX T) (ELE-TESTS::SLOT5 :ACCESSOR ELE-TESTS::SLOT5 :INITARG :SLOT5))
(:METACLASS ELE:PERSISTENT-METACLASS))
(LET ((ELE-TESTS::O1 NIL) (ELE-TESTS::O2 NIL))
(ELE:WITH-TRANSACTION NIL
(SETF ELE-TESTS::O1 (MAKE-INSTANCE 'ELE-TESTS::IDX-EIGHT :SLOT1 1 :SLOT2 2 :SLOT3 3 :SLOT4 4 :SLOT5 5))
(SETF ELE-TESTS::O2 (MAKE-INSTANCE 'ELE-TESTS::IDX-EIGHT :SLOT1 10 :SLOT2 20 :SLOT3 30 :SLOT4 40 :SLOT5 50)))
(DEFCLASS ELE-TESTS::IDX-EIGHT NIL
((ELE-TESTS::SLOT1 :ACCESSOR ELE-TESTS::SLOT1 :INITARG :SLOT1 :INITFORM 11)
(ELE-TESTS::SLOT2 :ACCESSOR ELE-TESTS::SLOT2 :INITARG :SLOT2 :INITFORM 12 :INDEX T)
(ELE-TESTS::SLOT3 :ACCESSOR ELE-TESTS::SLOT3 :INITARG :SLOT3 :INITFORM 13)
(ELE-TESTS::SLOT6 :ACCESSOR ELE-TESTS::SLOT6 :INITARG :SLOT6 :INITFORM 14 :INDEX T)
(ELE-TESTS::SLOT7 :ACCESSOR ELE-TESTS::SLOT7 :INITARG :SLOT7))
(:METACLASS ELE:PERSISTENT-METACLASS))
(LET ((ELE-TESTS::V1
(AND (EQ (ELE-TESTS::SLOT1 ELE-TESTS::O1) 1)
(ELE-TESTS::SIGNALS-ERROR (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-EIGHT 'ELE-TESTS::SLOT1 1))))
(ELE-TESTS::V2
(AND (EQ (ELE-TESTS::SLOT2 ELE-TESTS::O1) 2) (EQ (LENGTH (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-EIGHT 'ELE-TESTS::SLOT2 2)) 1)))
(ELE-TESTS::V3 (EQ (ELE-TESTS::SLOT3 ELE-TESTS::O1) 13))
(ELE-TESTS::V4
(AND (NOT (SLOT-EXISTS-P ELE-TESTS::O1 'ELE-TESTS::SLOT4)) (NOT (SLOT-EXISTS-P ELE-TESTS::O1 'ELE-TESTS::SLOT5))
(ELE-TESTS::SIGNALS-ERROR (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-EIGHT 'ELE-TESTS::SLOT4 4))))
(ELE-TESTS::V5 (EQ (ELE-TESTS::SLOT6 ELE-TESTS::O1) 14))
(ELE-TESTS::V6 (EQ (LENGTH (ELE:GET-INSTANCES-BY-VALUE 'ELE-TESTS::IDX-EIGHT 'ELE-TESTS::SLOT6 14)) 2))
(ELE-TESTS::V7 (AND (NOT (SLOT-BOUNDP ELE-TESTS::O1 'ELE-TESTS::SLOT7))))
(ELE-TESTS::V8 (AND (NOT (SLOT-BOUNDP ELE-TESTS::O2 'ELE-TESTS::SLOT7)))))
(VALUES ELE-TESTS::V1 ELE-TESTS::V2 ELE-TESTS::V3 ELE-TESTS::V4 ELE-TESTS::V5 ELE-TESTS::V6 ELE-TESTS::V7 ELE-TESTS::V8))))
Expected values: T
T
T
T
T
T
T
T
Actual value: #<SIMPLE-ERROR @ #x216a12ba>.
Warning: Manually finalizing class STRESS-INDEX
Test ELE-TESTS::INDEXING-TIMING failed
Form: (PROGN (ELE-TESTS::MAKE-STRESS-CLASSES)
(LET ((ELE-TESTS::INSTS (ELE:GET-INSTANCES-BY-CLASS 'ELE-TESTS::STRESS-INDEX))
(ELE-TESTS::START NIL)
(ELE-TESTS::END NIL)
(ELE-TESTS::NORMAL-CHECK NIL)
(ELE-TESTS::INDEX-CHECK NIL)
(ELE-TESTS::NORMAL-TIME 0)
(ELE-TESTS::INDEX-TIME 0))
(WHEN ELE-TESTS::INSTS (ELE:DROP-INSTANCES ELE-TESTS::INSTS :SC ELE:*STORE-CONTROLLER*))
(ELE:WITH-TRANSACTION NIL (ELE-TESTS::NORMAL-STRESS-SETUP ELE-TESTS::*STRESS-COUNT* 'ELE-TESTS::STRESS-NORMAL :STRESS2 10))
(ELE:WITH-TRANSACTION NIL (ELE-TESTS::INDEXED-STRESS-SETUP ELE-TESTS::*STRESS-COUNT* 'ELE-TESTS::STRESS-INDEX :STRESS2 10))
(SETF ELE-TESTS::START (GET-INTERNAL-RUN-TIME))
(SETF ELE-TESTS::NORMAL-CHECK (ELE-TESTS::NORMAL-LOOKUP))
(SETF ELE-TESTS::END (GET-INTERNAL-RUN-TIME))
(SETF ELE-TESTS::NORMAL-TIME (/ (- ELE-TESTS::END ELE-TESTS::START 0.0) INTERNAL-TIME-UNITS-PER-SECOND))
(SETF ELE-TESTS::START (GET-INTERNAL-RUN-TIME))
(SETF ELE-TESTS::INDEX-CHECK (ELE-TESTS::INDEX-LOOKUP))
(SETF ELE-TESTS::END (GET-INTERNAL-RUN-TIME))
(SETF ELE-TESTS::INDEX-TIME (/ (- ELE-TESTS::END ELE-TESTS::START 0.0) INTERNAL-TIME-UNITS-PER-SECOND))
(FORMAT T "~%Ranged get of ~A/~A objects = Linear: ~A sec Indexed: ~A sec~%" ELE-TESTS::*RANGE-SIZE* ELE-TESTS::*STRESS-COUNT*
ELE-TESTS::NORMAL-TIME ELE-TESTS::INDEX-TIME)
(AND (EQUAL ELE-TESTS::NORMAL-CHECK ELE-TESTS::INDEX-CHECK) (> ELE-TESTS::NORMAL-TIME ELE-TESTS::INDEX-TIME))))
Expected value: T
Actual value: #<SIMPLE-ERROR @ #x216b3f72>.
Single store mode: ignoring ELE-TESTS::REMOVE-ELEMENT
Single store mode: ignoring ELE-TESTS::MIGRATE-BASIC
Single store mode: ignoring ELE-TESTS::MIGRATE-BTREE
Single store mode: ignoring ELE-TESTS::MIGRATE-IDX-BTREE
Single store mode: ignoring ELE-TESTS::MIGRATE-PCLASS
Single store mode: ignoring ELE-TESTS::MIGRATE-IPCLASS
112 out of 357 total tests failed: :CONNECTION/1, :FDDL/TABLE/1, :OODML/UPDATE-RECORDS/1, :OODML/UPDATE-RECORDS/2, :OODML/UPDATE-RECORDS/3,
:OODML/UPDATE-INSTANCE/1, :OODML/UPDATE-INSTANCE/2, :OODML/DO-QUERY/1, :OODML/DO-QUERY/2, :OODML/MAP-QUERY/1, :OODML/MAP-QUERY/2, :OODML/ITERATION/3,
ELE-TESTS::FIXNUMS, ELE-TESTS::FIXNUM-TYPE-1, ELE-TESTS::READ-32-BIT-FIXNUM, ELE-TESTS::READ-64-BIT-FIXNUM, ELE-TESTS::WRITE-32-BIT-FIXNUM,
ELE-TESTS::WRITE-64-BIT-FIXNUM, ELE-TESTS::BIGNUMS, ELE-TESTS::RATIONALS, ELE-TESTS::BASE-STRINGS, ELE-TESTS::STRINGS, ELE-TESTS::HARD-STRINGS,
ELE-TESTS::SYMBOLS, ELE-TESTS::CHARS, ELE-TESTS::PATHNAMES, ELE-TESTS::CONSES, ELE-TESTS::HASH-TABLES-1, ELE-TESTS::HASH-TABLES-2, ELE-TESTS::ARRAYS-1,
ELE-TESTS::ARRAYS-2, ELE-TESTS::OBJECTS, ELE-TESTS::STRUCTS, ELE-TESTS::STRUCT-NON-STD-CONSTRUCT, ELE-TESTS::CIRCULAR, ELE:PERSISTENT, ELE-TESTS::INITFORM-TEST,
ELE-TESTS::INITARG-TEST, ELE-TESTS::NO-EVAL-INITFORM, MAKUNBOUND, ELE-TESTS::UPDATE-CLASS, CHANGE-CLASS, ELE-TESTS::CHANGE-CLASS3, ELE-TESTS::BASICPERSISTENCE,
ELE-TESTS::BTREE-PUT, ELE-TESTS::BTREE-GET, ELE:REMOVE-KV, ELE-TESTS::REMOVED, ELE:MAP-BTREE, ELE-TESTS::INDEXED-BTREE-MAKE, ELE-TESTS::ADD-INDICES,
ELE-TESTS::TEST-INDICES, ELE-TESTS::INDEXED-PUT, ELE-TESTS::INDEXED-GET, ELE-TESTS::SIMPLE-SLOT-GET, ELE-TESTS::INDEXED-GET-FROM-SLOT1,
ELE-TESTS::INDEXED-GET-FROM-SLOT2, ELE-TESTS::REMOVE-KV-INDEXED, ELE-TESTS::NO-KEY-NOR-INDICES, ELE-TESTS::REMOVE-KV-FROM-SLOT1,
ELE-TESTS::NO-KEY-NOR-INDICES-SLOT1, ELE-TESTS::REMOVE-KV-FROM-SLOT2, ELE-TESTS::NO-KEY-NOR-INDICES-SLOT2, ELE-TESTS::MAP-INDEXED, ELE-TESTS::GET-FIRST,
ELE-TESTS::GET-FIRST2, ELE-TESTS::GET-LAST, ELE-TESTS::GET-LAST2, SET, ELE-TESTS::SET2, ELE-TESTS::SET-RANGE, ELE-TESTS::SET-RANGE2,
ELE-TESTS::MAP-INDEXED-INDEX, ELE-TESTS::REM-KV, ELE-TESTS::REM-IDEXKV, ELE-TESTS::MAKE-INDEXED2, ELE-TESTS::ADD-INDICES2, ELE-TESTS::PUT-INDEXED2,
ELE-TESTS::GET-INDEXED2, ELE-TESTS::GET-FROM-INDEX3, ELE-TESTS::DUP-TEST, ELE-TESTS::NODUP-TEST, ELE-TESTS::PREV-NODUP-TEST, ELE-TESTS::PNODUP-TEST,
ELE-TESTS::PPREV-NODUP-TEST, ELE-TESTS::CUR-DEL1, ELE-TESTS::INDEXED-DELETE, ELE-TESTS::TEST-DELETED, ELE-TESTS::INDEXED-DELETE2, ELE-TESTS::TEST-DELETED2,
ELE-TESTS::CUR-DEL2, ELE-TESTS::GET-BOTH, ELE-TESTS::PGET-BOTH, ELE-TESTS::PGET-BOTH-RANGE, ELE-TESTS::PCURSOR, ELE-TESTS::NEWINDEX, ELE-TESTS::PCURSOR2,
ELE-TESTS::ADD-GET-REMOVE, ELE-TESTS::ADD-GET-REMOVE-SYMBOL, ELE-TESTS::EXISTSP, ELE-TESTS::DISABLE-CLASS-INDEXING-TEST, ELE-TESTS::INDEXING-BASIC-TRIVIAL,
ELE-TESTS::INDEXING-BASIC, ELE-TESTS::INDEXING-CLASS-OPT, ELE-TESTS::INDEXING-INHERIT, ELE-TESTS::INDEXING-RANGE, ELE-TESTS::INDEXING-SLOT-MAKUNBOUND,
ELE-TESTS::INDEXING-WIPE-INDEX, ELE-TESTS::INDEXING-RECONNECT-DB, ELE-TESTS::INDEXING-CHANGE-CLASS, ELE-TESTS::INDEXING-REDEF-CLASS, ELE-TESTS::INDEXING-TIMING.
NIL
CG-USER(10):
_________________________________________________________________________
In 5 Schritten zur eigenen Homepage. Jetzt Domain sichern und gestalten!
Nur 3,99 EUR/Monat! http://www.maildomain.web.de/?mc=021114
More information about the elephant-devel
mailing list