[elephant-devel] osx 32bit testing

[Kilian Sprotte]

Am 24.01.2007 um 11:24 schrieb Kilian Sprotte:

> 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....

Actually, the first type error that appears has this backtrace:
(probably, we just need unicode and I should try the beta openmcl 1.1,
since I am on 1.0 right now ?)

value 116 is not of the expected type CCL:MACPTR.
    [Condition of type TYPE-ERROR]

Restarts:
0: [ABORT] Return to SLIME's top level.
1: [ABORT-BREAK] Reset this process
2: [ABORT] Kill this process

Backtrace:
   0: (ELEPHANT-SERIALIZER2::SERIALIZE-TO-UTF8 "this is a test" #S 
(ELEPHANT-MEMUTIL:BUFFER-STREAM :BUFFER #<A Mac Pointer #x180AA00>
                                        :SIZE 5
                                        :POSITION 0
                                        :LENGTH 1280))
   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)))))
       Locals:
         ELEPHANT-SERIALIZER2::FROB = "this is a test"
         ELEPHANT-SERIALIZER2::SC = #<DB-BDB::BDB-STORE-CONTROLLER  
#x89F170E>
         ELEPHANT-SERIALIZER2::*LISP-OBJ-ID* = #<BOGUS object @  
#x14EF8DE>
         ELEPHANT-SERIALIZER2::*CIRCULARITY-HASH* = #<HASH- 
TABLE :TEST EQ size 0/50 #x89F6986>
   2: (IN-OUT-EQUAL "this is a test")
       Locals:
         VAR = "this is a test"
         OUT-BUF = #S(ELEPHANT-MEMUTIL:BUFFER-STREAM :BUFFER #<A Mac  
Pointer #x180AA00>
		                                    :SIZE 5
		                                    :POSITION 0
		                                    :LENGTH 1280)
       Catch-tags:
         NIL
   3: (CCL::CALL-CHECK-REGS 'IN-OUT-EQUAL)
       Locals:
         CCL::FN = IN-OUT-EQUAL
         CCL::ARGS = ("this is a test")
         CCL::OLD-REGS = ((NULL #1=(PROGN (IN-OUT-EQUAL #))) NIL NIL  
NULL NIL #1# 0
			 MACROEXPAND-1)
   4: (CCL::CHEAP-EVAL-IN-ENVIRONMENT '(NOT (NULL (PROGN (IN-OUT- 
EQUAL #)))) 'NIL)
   5: (CCL::CHEAP-EVAL-IN-ENVIRONMENT '(VALUES (IS-NOT-NULL (IN-OUT- 
EQUAL (MAKE-STRING
                                           0
                                           :ELEMENT-TYPE
                                           'BASE-CHAR)))
               (IS-NOT-NULL (IN-OUT-EQUAL (COERCE
                                           "this is a test"
                                           'BASE-STRING)))
               (IS-NOT-NULL (IN-OUT-EQUAL (MAKE-STRING
                                           400
                                           :INITIAL-ELEMENT ..))))  
'((IS-NOT-NULL (IN-OUT-EQUAL (MAKE-STRING ..)
   6: (CCL::CHEAP-EVAL-IN-ENVIRONMENT #S(REGRESSION-TEST::ENTRY :PEND  
T :NAME BASE-STRINGS :PROPS NIL
                                :FORM (ARE-NOT-NULL
                                       (IN-OUT-EQUAL
                                        (MAKE-STRING
                                         0
                                         :ELEMENT-TYPE
                                         'BASE-CHAR))
                                       (IN-OUT-EQUAL
                                        (COERCE
                                         "this is a test" ..))))) '(#S 
(REGRESSION-TEST::ENTRY :PEND T :NAME STRINGS :PROPS NIL ..)
   7: (REGRESSION-TEST::%DO #S(REGRESSION-TEST::ENTRY :PEND T :NAME  
BASE-STRINGS :PROPS NIL
                                :FORM (ARE-NOT-NULL
                                       (IN-OUT-EQUAL
                                        (MAKE-STRING
                                         0
                                         :ELEMENT-TYPE
                                         'BASE-CHAR))
                                       (IN-OUT-EQUAL
                                        (COERCE
                                         "this is a test" ..))))))
   8: (REGRESSION-TEST::DO-ENTRY #S(REGRESSION-TEST::ENTRY :PEND  
T :NAME BASE-STRINGS :PROPS NIL
                                :FORM (ARE-NOT-NULL
                                       (IN-OUT-EQUAL
                                        (MAKE-STRING
                                         0
                                         :ELEMENT-TYPE
                                         'BASE-CHAR))
                                       (IN-OUT-EQUAL
                                        (COERCE
                                         "this is a test" ..)))))  
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x863CD0E>)
   9: (REGRESSION-TEST::DO-ENTRIES* '(:BDB "/private/tmp/elephant/ 
tests/testdb/"))
10: (DO-BACKEND-TESTS)
11: (CCL::CALL-CHECK-REGS 'DO-BACKEND-TESTS)
12: (SWANK::EVAL-REGION "(do-backend-tests)
      " 'T)
13: (#<Anonymous Function #x860B06E> "(do-backend-tests)
      ")
14: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CCL:COMPILED-LEXICAL-CLOSURE  
#x89F17BE>)
15: (SWANK:LISTENER-EVAL "(do-backend-tests)
      ")
...
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/elephant-devel/attachments/20070124/c87ef2f5/attachment.html>