<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "><BR><DIV><DIV>Am 24.01.2007 um 11:24 schrieb Kilian Sprotte:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite"><P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Geneva" size="3" style="font: 12.0px Geneva">I am attaching the complete test dribble for openmcl as well. Sorry, I am in a hurry right now - I might find a better way to describe those type errors that appear in the the test results, or possibly send diffs....</FONT></P> </BLOCKQUOTE></DIV><BR><DIV>Actually, the first type error that appears has this backtrace:</DIV><DIV>(probably, we just need unicode and I should try the beta openmcl 1.1,</DIV><DIV>since I am on 1.0 right now ?)</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>value 116 is not of the expected type CCL:MACPTR.</DIV><DIV> [Condition of type TYPE-ERROR]</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Restarts:</DIV><DIV> 0: [ABORT] Return to SLIME's top level.</DIV><DIV> 1: [ABORT-BREAK] Reset this process</DIV><DIV> 2: [ABORT] Kill this process</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Backtrace:</DIV><DIV> 0: (ELEPHANT-SERIALIZER2::SERIALIZE-TO-UTF8 "this is a test" #S(ELEPHANT-MEMUTIL:BUFFER-STREAM :BUFFER #<A Mac Pointer #x180AA00></DIV><DIV> :SIZE 5</DIV><DIV> :POSITION 0</DIV><DIV> :LENGTH 1280))</DIV><DIV> 1: (ELEPHANT-SERIALIZER2::SERIALIZE "this is a test" #<DB-BDB::BDB-STORE-CONTROLLER #x89F170E> '(NULL (PROGN (IN-OUT-EQUAL (COERCE "this is a test" 'BASE-STRING)))))</DIV><DIV> Locals:</DIV><DIV> ELEPHANT-SERIALIZER2::FROB = "this is a test"</DIV><DIV> ELEPHANT-SERIALIZER2::SC = #<DB-BDB::BDB-STORE-CONTROLLER #x89F170E></DIV><DIV> ELEPHANT-SERIALIZER2::*LISP-OBJ-ID* = #<BOGUS object @ #x14EF8DE></DIV><DIV> ELEPHANT-SERIALIZER2::*CIRCULARITY-HASH* = #<HASH-TABLE :TEST EQ size 0/50 #x89F6986></DIV><DIV> 2: (IN-OUT-EQUAL "this is a test")</DIV><DIV> Locals:</DIV><DIV> VAR = "this is a test"</DIV><DIV> OUT-BUF = #S(ELEPHANT-MEMUTIL:BUFFER-STREAM :BUFFER #<A Mac Pointer #x180AA00></DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> :SIZE 5</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> :POSITION 0</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> :LENGTH 1280)</DIV><DIV> Catch-tags:</DIV><DIV> NIL</DIV><DIV> 3: (CCL::CALL-CHECK-REGS 'IN-OUT-EQUAL)</DIV><DIV> Locals:</DIV><DIV> CCL::FN = IN-OUT-EQUAL</DIV><DIV> CCL::ARGS = ("this is a test")</DIV><DIV> CCL::OLD-REGS = ((NULL #1=(PROGN (IN-OUT-EQUAL #))) NIL NIL NULL NIL #1# 0</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> MACROEXPAND-1)</DIV><DIV> 4: (CCL::CHEAP-EVAL-IN-ENVIRONMENT '(NOT (NULL (PROGN (IN-OUT-EQUAL #)))) 'NIL)</DIV><DIV> 5: (CCL::CHEAP-EVAL-IN-ENVIRONMENT '(VALUES (IS-NOT-NULL (IN-OUT-EQUAL (MAKE-STRING</DIV><DIV> 0</DIV><DIV> :ELEMENT-TYPE</DIV><DIV> 'BASE-CHAR)))</DIV><DIV> (IS-NOT-NULL (IN-OUT-EQUAL (COERCE</DIV><DIV> "this is a test"</DIV><DIV> 'BASE-STRING)))</DIV><DIV> (IS-NOT-NULL (IN-OUT-EQUAL (MAKE-STRING</DIV><DIV> 400</DIV><DIV> :INITIAL-ELEMENT ..)))) '((IS-NOT-NULL (IN-OUT-EQUAL (MAKE-STRING ..)</DIV><DIV> 6: (CCL::CHEAP-EVAL-IN-ENVIRONMENT #S(REGRESSION-TEST::ENTRY :PEND T :NAME BASE-STRINGS :PROPS NIL</DIV><DIV> :FORM (ARE-NOT-NULL</DIV><DIV> (IN-OUT-EQUAL</DIV><DIV> (MAKE-STRING</DIV><DIV> 0</DIV><DIV> :ELEMENT-TYPE</DIV><DIV> 'BASE-CHAR))</DIV><DIV> (IN-OUT-EQUAL</DIV><DIV> (COERCE</DIV><DIV> "this is a test" ..))))) '(#S(REGRESSION-TEST::ENTRY :PEND T :NAME STRINGS :PROPS NIL ..)</DIV><DIV> 7: (REGRESSION-TEST::%DO #S(REGRESSION-TEST::ENTRY :PEND T :NAME BASE-STRINGS :PROPS NIL</DIV><DIV> :FORM (ARE-NOT-NULL</DIV><DIV> (IN-OUT-EQUAL</DIV><DIV> (MAKE-STRING</DIV><DIV> 0</DIV><DIV> :ELEMENT-TYPE</DIV><DIV> 'BASE-CHAR))</DIV><DIV> (IN-OUT-EQUAL</DIV><DIV> (COERCE</DIV><DIV> "this is a test" ..))))))</DIV><DIV> 8: (REGRESSION-TEST::DO-ENTRY #S(REGRESSION-TEST::ENTRY :PEND T :NAME BASE-STRINGS :PROPS NIL</DIV><DIV> :FORM (ARE-NOT-NULL</DIV><DIV> (IN-OUT-EQUAL</DIV><DIV> (MAKE-STRING</DIV><DIV> 0</DIV><DIV> :ELEMENT-TYPE</DIV><DIV> 'BASE-CHAR))</DIV><DIV> (IN-OUT-EQUAL</DIV><DIV> (COERCE</DIV><DIV> "this is a test" ..))))) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x863CD0E>)</DIV><DIV> 9: (REGRESSION-TEST::DO-ENTRIES* '(:BDB "/private/tmp/elephant/tests/testdb/"))</DIV><DIV> 10: (DO-BACKEND-TESTS)</DIV><DIV> 11: (CCL::CALL-CHECK-REGS 'DO-BACKEND-TESTS)</DIV><DIV> 12: (SWANK::EVAL-REGION "(do-backend-tests)</DIV><DIV> " 'T)</DIV><DIV> 13: (#<Anonymous Function #x860B06E> "(do-backend-tests)</DIV><DIV> ")</DIV><DIV> 14: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CCL:COMPILED-LEXICAL-CLOSURE #x89F17BE>)</DIV><DIV> 15: (SWANK:LISTENER-EVAL "(do-backend-tests)</DIV><DIV> ")</DIV><DIV>...</DIV></BODY></HTML>