Ok, here are some details:

* levy@tsunami:~/workspace/dc$ uname -a
Linux tsunami 2.6.12-10-amd64-generic #1 Sat Mar 11 16:15:30 UTC 2006 x86_64 GNU/Linux

* levy@tsunami:~/workspace/dc$ sbcl --version
SBCL 0.9.11

I downloaded the x86-64 binary from www.sbcl.org. My friend told me that the same happens with x86 backend.

levy@tsunami:~/workspace/dc$ sbcl
This is SBCL 0.9.11, an implementation of ANSI Common Lisp.
More information about SBCL is available at < http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (load "1")

debugger invoked on a TYPE-ERROR in thread
#<THREAD "initial thread" {1002287B51}>:
  The value -3 is not of type (MOD 1152921504606846975).

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.


(SB-PCL::FIND-FREE-CACHE-LINE
 -1
 #<SB-PCL::CACHE 3 T 8 {100243C141}>
 (#<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::STD-CLASS> {1000638E91}>
  #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
  #<SB-PCL::WRAPPER #<STANDARD-CLASS DWIM-ATTRIBUTE-EFFECTIVE-SLOT-DEFINITION> {10023C7271}>))
0] back

0: (SB-PCL::FIND-FREE-CACHE-LINE

    -1
    #<SB-PCL::CACHE 3 T 8 {100243C141}>
    (#<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::STD-CLASS> {1000638E91}>
     #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
     #<SB-PCL::WRAPPER #<STANDARD-CLASS DWIM-ATTRIBUTE-EFFECTIVE-SLOT-DEFINITION> {10023C7271}>))
1: (SB-PCL::FILL-CACHE-P
    NIL

    #<SB-PCL::CACHE 3 T 8 {100243C141}>
    (#<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::STD-CLASS> {1000638E91}>
     #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
     #<SB-PCL::WRAPPER #<STANDARD-CLASS DWIM-ATTRIBUTE-EFFECTIVE-SLOT-DEFINITION> {10023C7271}>)
    #<CLOSURE (LAMBDA #) {100243C999}>)
2: (SB-PCL::FILL-CACHE

    #<SB-PCL::CACHE 3 T 8 {100243C141}>
    (#<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::STD-CLASS> {1000638E91}>
     #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
     #<SB-PCL::WRAPPER #<STANDARD-CLASS DWIM-ATTRIBUTE-EFFECTIVE-SLOT-DEFINITION> {10023C7271}>)
    #<CLOSURE (LAMBDA #) {100243C999}>)
3: ((FLET SB-PCL::ADD-CLASS-LIST)
    (#<STANDARD-CLASS SB-PCL::STD-CLASS> #<STANDARD-CLASS STANDARD-OBJECT>
     #<STANDARD-CLASS DWIM-ATTRIBUTE-EFFECTIVE-SLOT-DEFINITION>))
4: (SB-PCL::MAKE-EMF-CACHE
    #<STANDARD-GENERIC-FUNCTION SLOT-BOUNDP-USING-CLASS (3)>
    T
    #<unavailable argument>
    NIL
    NIL)
5: (SB-PCL::MAKE-FINAL-CACHING-DFUN
    #<STANDARD-GENERIC-FUNCTION SLOT-BOUNDP-USING-CLASS (3)>
    NIL
    #<STANDARD-CLASS DWIM-EFFECTIVE-SLOT-DEFINITION>)
6: (SB-PCL::MAKE-FINAL-DFUN-INTERNAL
    #<STANDARD-GENERIC-FUNCTION SLOT-BOUNDP-USING-CLASS (3)>
    NIL)
7: ((SB-PCL::FAST-METHOD SB-PCL::UPDATE-GF-DFUN (SB-PCL::STD-CLASS T))
    #<unavailable argument>
    #<unavailable argument>
    #<STANDARD-CLASS DWIM-EFFECTIVE-SLOT-DEFINITION>
    #<STANDARD-GENERIC-FUNCTION SLOT-BOUNDP-USING-CLASS (3)>)
8: (SB-PCL::UPDATE-GFS-OF-CLASS
    #<STANDARD-CLASS DWIM-EFFECTIVE-SLOT-DEFINITION>)
9: (SB-PCL::UPDATE-CLASS #<STANDARD-CLASS DWIM-EFFECTIVE-SLOT-DEFINITION> T)
10: (SB-PCL::UPDATE-CLASS #<STANDARD-CLASS DWIM-EFFECTIVE-SLOT-DEFINITION> T)
11: (SB-PCL::UPDATE-CLASS #<STANDARD-CLASS DWIM-EFFECTIVE-SLOT-DEFINITION> NIL)
12: (SB-PCL::UPDATE-CLASS #<STANDARD-CLASS EXTRA-EFFECTIVE-SLOT-DEFINITION> T)
13: (SB-PCL::UPDATE-CLASS #<STANDARD-CLASS EXTRA-EFFECTIVE-SLOT-DEFINITION> T)
14: (SB-PCL::UPDATE-CLASS #<STANDARD-CLASS EXTRA-EFFECTIVE-SLOT-DEFINITION> NIL)
15: (SB-PCL::UPDATE-CLASS #<STANDARD-CLASS EXTRA-EFFECTIVE-SLOT-DEFINITION> NIL)
16: ((SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER (SB-PCL::STD-CLASS T))
     (#(NIL 16 5 17) . #())
     #<unavailable argument>
     #<STANDARD-CLASS EXTRA-EFFECTIVE-SLOT-DEFINITION>
     (SB-PCL::SLOTS SB-PCL::DIRECT-SLOTS)
     (:DIRECT-SUPERCLASSES NIL
                           :DIRECT-SLOTS
                           NIL
                           :DEFINITION-SOURCE
                           #S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING NIL
                              :TOPLEVEL-FORM-NUMBER 0
                              :PLIST NIL)))
17: ((LAMBDA
         (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
          SB-PCL::.ARG1. SB-PCL::.DFUN-REST-ARG.))
     #<unavailable argument>
     #<unavailable argument>
     #<STANDARD-CLASS EXTRA-EFFECTIVE-SLOT-DEFINITION>
     (SB-PCL::SLOTS SB-PCL::DIRECT-SLOTS)
     (:DIRECT-SUPERCLASSES NIL
                           :DIRECT-SLOTS
                           NIL
                           :DEFINITION-SOURCE
                           #S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING NIL
                              :TOPLEVEL-FORM-NUMBER 0
                              :PLIST NIL)))
18: (SB-PCL::CHANGE-CLASS-INTERNAL
     #<STANDARD-CLASS EXTRA-EFFECTIVE-SLOT-DEFINITION>
     #<STANDARD-CLASS STANDARD-CLASS>
     (:DIRECT-SUPERCLASSES NIL
                           :DIRECT-SLOTS
                           NIL
                           :DEFINITION-SOURCE
                           #S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING NIL
                              :TOPLEVEL-FORM-NUMBER 0
                              :PLIST NIL)))
19: ((SB-PCL::FAST-METHOD ENSURE-CLASS-USING-CLASS (SB-PCL::PCL-CLASS T))
     #<unavailable argument>
     #<unavailable argument>
     #<STANDARD-CLASS EXTRA-EFFECTIVE-SLOT-DEFINITION>
     EXTRA-EFFECTIVE-SLOT-DEFINITION
     (:METACLASS STANDARD-CLASS
                 :DIRECT-SUPERCLASSES
                 NIL
                 :DIRECT-SLOTS
                 NIL
                 :DEFINITION-SOURCE
                 #S(SB-C:DEFINITION-SOURCE-LOCATION
                    :NAMESTRING NIL
                    :TOPLEVEL-FORM-NUMBER 0
                    :PLIST NIL)))
20: (SB-PCL::REAL-LOAD-DEFCLASS
     EXTRA-EFFECTIVE-SLOT-DEFINITION
     STANDARD-CLASS
     NIL
     NIL
     NIL
     NIL
     NIL
     NIL
     #S(SB-C:DEFINITION-SOURCE-LOCATION
        :NAMESTRING NIL
        :TOPLEVEL-FORM-NUMBER 0
        :PLIST NIL))
21: (SB-INT:EVAL-IN-LEXENV
     (LET ()
       (SB-PCL::LOAD-DEFCLASS 'EXTRA-EFFECTIVE-SLOT-DEFINITION
                              'STANDARD-CLASS
                              'NIL
                              (LIST)
                              (LIST)
                              'NIL
                              'NIL
                              'NIL
                              (SB-C:SOURCE-LOCATION)))
     #<NULL-LEXENV>)
22: (SB-INT:EVAL-IN-LEXENV
     (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
       (LET ()
         (SB-PCL::LOAD-DEFCLASS 'EXTRA-EFFECTIVE-SLOT-DEFINITION
                                'STANDARD-CLASS
                                'NIL
                                (LIST)
                                (LIST)
                                'NIL
                                'NIL
                                'NIL
                                (SB-C:SOURCE-LOCATION))))
     #<NULL-LEXENV>)
23: (SB-INT:EVAL-IN-LEXENV
     (DEFCLASS EXTRA-EFFECTIVE-SLOT-DEFINITION NIL NIL)
     #<NULL-LEXENV>)
24: (SB-FASL::LOAD-AS-SOURCE
     #<SB-SYS:FD-STREAM for "file /home/levy/workspace/dc/1.lisp" {100228ED11}>
     NIL
     NIL)
25: (SB-FASL::INTERNAL-LOAD
     #P" 1.lisp"
     #P"/home/levy/workspace/dc/1.lisp"
     :ERROR
     NIL
     NIL
     :SOURCE
     :DEFAULT)
26: (LOAD "1")
27: (SB-INT:EVAL-IN-LEXENV (LOAD "1") #<NULL-LEXENV>)
28: (SB-EXT:INTERACTIVE-EVAL (LOAD "1"))
29: (SB-IMPL::REPL-FUN NIL)
30: ((LAMBDA ()))
31: ((LAMBDA ()))
32: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {100228A5D9}>)
33: (SB-IMPL::TOPLEVEL-REPL NIL)
34: (SB-IMPL::TOPLEVEL-INIT)
35: ((LABELS SB-IMPL::RESTART-LISP))

0]

Here is the cache object:

The object is a STRUCTURE-OBJECT of type SB-PCL::CACHE.
 [type: SB-PCL::CACHE]
--------------------
OWNER: NIL
NKEYS: 3
VALUEP: T
NLINES: 8
FIELD: 0
LIMIT-FN: #<FUNCTION SB-PCL::CACHING-LIMIT-FN>
MASK: 28
SIZE: 33
LINE-SIZE: 4
MAX-LOCATION: 29
VECTOR: #(4 #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:FUNCALLABLE-STANDARD-CLASS> {100042F5A1}> #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}> #<SB-PCL::WRAPPER #<STANDARD-CLASS DC::DWIM-EFFECTIVE-SLOT-DEFINITION> {1003093311}> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD SB-MOP:SLOT-BOUNDP-USING-CLASS #)> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3)) NIL NIL NIL NIL #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-CLASS> {100042DD21}> ...)
OVERFLOW: NIL

Here are the wrappers:

A proper list.
 [type: CONS]
--------------------
Elements:
0: #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::STD-CLASS> {1000638E91}>
1: #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
2: #<SB-PCL::WRAPPER #<STANDARD-CLASS DC::DWIM-ATTRIBUTE-EFFECTIVE-SLOT-DEFINITION> {100302F2D1}>

Wrappers in detail following the order above:
The object is a STRUCTURE-OBJECT of type SB-PCL::WRAPPER.
 [type: SB-PCL::WRAPPER]
--------------------
CLOS-HASH-0: 31228109551489790
CLOS-HASH-1: 46985462217656338
CLOS-HASH-2: 20000743595900861
CLOS-HASH-3: 127370313536502558
CLOS-HASH-4: 28885036110369589
CLOS-HASH-5: 140510769623136297
CLOS-HASH-6: 108815236714202637
CLOS-HASH-7: 89985759101252194
CLASSOID: #<SB-KERNEL:STANDARD-CLASSOID SB-PCL::STD-CLASS>
INVALID: NIL
INHERITS: #(#<SB-KERNEL:LAYOUT for T {1000097381}> #<SB-PCL::WRAPPER #<SB-PCL::SLOT-CLASS SB-PCL::SLOT-OBJECT> {1000461301}> #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:METAOBJECT> {1000461461}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:SPECIALIZER> {1000461511}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::DEFINITION-SOURCE-MIXIN> {10004615C1}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::PLIST-MIXIN> {1000461671}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::DEPENDENT-UPDATE-MIXIN> {1000461721}> #<SB-PCL::WRAPPER #<STANDARD-CLASS CLASS> {10004617D1}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::PCL-CLASS> {1000461881}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::SLOT-CLASS> {1000444DB1}>)
DEPTHOID: -1
LENGTH: 18
INFO: NIL
PURE: NIL
N-UNTAGGED-SLOTS: 0
SOURCE-LOCATION: NIL
INSTANCE-SLOTS-LAYOUT: (SB-PCL::%TYPE SB-PCL::SOURCE SB-PCL::PLIST SB-PCL::NAME SB-PCL::CLASS-EQ-SPECIALIZER SB-PCL::DIRECT-SUPERCLASSES SB-PCL::DIRECT-SUBCLASSES SB-PCL::DIRECT-METHODS SB-PCL::%DOCUMENTATION SB-PCL::FINALIZED-P SB-PCL::%CLASS-PRECEDENCE-LIST SB-PCL::CPL-AVAILABLE-P SB-PCL::CAN-PRECEDE-LIST SB-PCL::INCOMPATIBLE-SUPERCLASS-LIST SB-PCL::WRAPPER SB-PCL::PROTOTYPE SB-PCL::DIRECT-SLOTS SB-PCL::SLOTS)
CLASS-SLOTS: NIL



The object is a STRUCTURE-OBJECT of type SB-PCL::WRAPPER.
 [type: SB-PCL::WRAPPER]
--------------------
CLOS-HASH-0: 40835168705363346
CLOS-HASH-1: 64441852793723315
CLOS-HASH-2: 79924166608955046
CLOS-HASH-3: 99308501433350255
CLOS-HASH-4: 51307797439672012
CLOS-HASH-5: 77090244087414974
CLOS-HASH-6: 6636796580270945
CLOS-HASH-7: 31454674238990997
CLASSOID: #<SB-KERNEL:STANDARD-CLASSOID STANDARD-OBJECT>
INVALID: NIL
INHERITS: #(#<SB-KERNEL:LAYOUT for T {1000097381}> #<SB-PCL::WRAPPER #<SB-PCL::SLOT-CLASS SB-PCL::SLOT-OBJECT> {1000461301}>)
DEPTHOID: -1
LENGTH: 0
INFO: NIL
PURE: NIL
N-UNTAGGED-SLOTS: 0
SOURCE-LOCATION: NIL
INSTANCE-SLOTS-LAYOUT: NIL
CLASS-SLOTS: NIL


The object is a STRUCTURE-OBJECT of type SB-PCL::WRAPPER.
 [type: SB-PCL::WRAPPER]
--------------------
CLOS-HASH-0: 0
CLOS-HASH-1: 0
CLOS-HASH-2: 0
CLOS-HASH-3: 0
CLOS-HASH-4: 0
CLOS-HASH-5: 0
CLOS-HASH-6: 0
CLOS-HASH-7: 0
CLASSOID: #<SB-KERNEL:STANDARD-CLASSOID DC::DWIM-ATTRIBUTE-EFFECTIVE-SLOT-DEFINITION>
INVALID: T
INHERITS: #(#<SB-KERNEL:LAYOUT for T {1000097381}> #<SB-PCL::WRAPPER #<SB-PCL::SLOT-CLASS SB-PCL::SLOT-OBJECT> {1000461301}> #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:METAOBJECT> {1000461461}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:SLOT-DEFINITION> {1000639FC1}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:EFFECTIVE-SLOT-DEFINITION> {1000650B31}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:STANDARD-SLOT-DEFINITION> {1000647281}> #<SB-PCL::WRAPPER #<STANDARD-CLASS DC::DWIM-SLOT-DEFINITION> {1002FAB8E1}> #<SB-PCL::WRAPPER #<STANDARD-CLASS DC::DWIM-ATTRIBUTE-SLOT-DEFINITION> {10030194C1}> #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION> {1000445941}> #<SB-PCL::WRAPPER #<STANDARD-CLASS DC::EXTRA-EFFECTIVE-SLOT-DEFINITION> {1002FEACC1}> #<SB-PCL::WRAPPER #<STANDARD-CLASS DC::DWIM-EFFECTIVE-SLOT-DEFINITION> {1002FED651}>)
DEPTHOID: -1
LENGTH: 0
INFO: NIL
PURE: NIL
N-UNTAGGED-SLOTS: 0
SOURCE-LOCATION: NIL
INSTANCE-SLOTS-LAYOUT: NIL
CLASS-SLOTS: NIL




Here is the rest of the cache:

An array.
 [type: (SIMPLE-VECTOR 33)]
--------------------
Dimensions: (33)
Its element type is: T
Total size: 33
Adjustable: NIL
Contents:
0: 4
1: #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:FUNCALLABLE-STANDARD-CLASS> {100042F5A1}>
2: #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
3: #<SB-PCL::WRAPPER #<STANDARD-CLASS DC::DWIM-EFFECTIVE-SLOT-DEFINITION> {1003093311}>
4: #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD SB-MOP:SLOT-BOUNDP-USING-CLASS (SB-PCL::STD-CLASS STANDARD-OBJECT SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION))> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3))
5: NIL
6: NIL
7: NIL
8: NIL
9: #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-CLASS> {100042DD21}>
10: #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
11: #<SB-PCL::WRAPPER #<STANDARD-CLASS DC::DWIM-EFFECTIVE-SLOT-DEFINITION> {1003093311}>
12: #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD SB-MOP:SLOT-BOUNDP-USING-CLASS (SB-PCL::STD-CLASS STANDARD-OBJECT SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION))> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3))
13: #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::STD-CLASS> {1000638E91}>
14: #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
15: #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION> {1000445941}>
16: #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD SB-MOP:SLOT-BOUNDP-USING-CLASS (SB-PCL::STD-CLASS STANDARD-OBJECT SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION))> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3))
17: NIL
18: NIL
19: NIL
20: NIL
21: #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::STD-CLASS> {1000638E91}>
22: #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
23: #<SB-PCL::WRAPPER #<STANDARD-CLASS DC::DWIM-EFFECTIVE-SLOT-DEFINITION> {1003093311}>
24: #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD SB-MOP:SLOT-BOUNDP-USING-CLASS (SB-PCL::STD-CLASS STANDARD-OBJECT SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION))> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3))
25: #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:FUNCALLABLE-STANDARD-CLASS> {100042F5A1}>
26: #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
27: #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION> {1000445941}>
28: #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD SB-MOP:SLOT-BOUNDP-USING-CLASS (SB-PCL::STD-CLASS STANDARD-OBJECT SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION))> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3))
29: #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-CLASS> {100042DD21}>
30: #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
31: #<SB-PCL::WRAPPER #<STANDARD-CLASS SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION> {1000445941}>
32: #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD SB-MOP:SLOT-BOUNDP-USING-CLASS (SB-PCL::STD-CLASS STANDARD-OBJECT SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION))> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3))


levy
- Show quoted text -


On 4/19/06, Levente Mészáros <levente.meszaros@gmail.com > wrote:
A few minutes please.


On 4/19/06, Christophe Rhodes <csr21@cam.ac.uk > wrote:
Levente Mészáros < levente.meszaros@gmail.com> writes:

> I had this strange error since 0.9.9 but as far as I can remember it was working
> in 0.9.8. Finally, I had some time to narrow it down and came to the following
> forms. Note the forward referenced class called extra-effective-slot-definition.
> Also surprisingly the whole problem does not exist if you remove the :dc package
> and use :cl-user instead.

> (SB-PCL::FIND-FREE-CACHE-LINE
>  -1
>  #<SB-PCL::CACHE 3 T 8 {100243C141}>
>  (#<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::STD-CLASS> {1000638E91}>
>   #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
>   #<SB-PCL::WRAPPER #<STANDARD-CLASS DWIM-ATTRIBUTE-EFFECTIVE-SLOT-DEFINITION>
> {10023C7271}>))
> 0]

Oh, no, not again.

The bad news is that this kind of thing is binary-dependent, in that
the hash codes for wrappers are randomly assigned (though in one
binary, at least predefined hash codes are consistent).

To debug this, at the very least I'll need you to provide a full
backtrace, and also probably inspects of the cache and the three
wrappers you have there.

Cheers,

Christophe



--
There is no perfectoin

On 4/19/06, Christophe Rhodes <csr21@cam.ac.uk> wrote:
Levente Mészáros <levente.meszaros@gmail.com> writes:

> I had this strange error since 0.9.9 but as far as I can remember it was working
> in 0.9.8. Finally, I had some time to narrow it down and came to the following
> forms. Note the forward referenced class called extra-effective-slot-definition.
> Also surprisingly the whole problem does not exist if you remove the :dc package
> and use :cl-user instead.

> (SB-PCL::FIND-FREE-CACHE-LINE
>  -1
>  #<SB-PCL::CACHE 3 T 8 {100243C141}>
>  (#<SB-PCL::WRAPPER #<STANDARD-CLASS SB-PCL::STD-CLASS> {1000638E91}>
>   #<SB-PCL::WRAPPER #<STANDARD-CLASS STANDARD-OBJECT> {10004613B1}>
>   #<SB-PCL::WRAPPER #<STANDARD-CLASS DWIM-ATTRIBUTE-EFFECTIVE-SLOT-DEFINITION>
> {10023C7271}>))
> 0]

Oh, no, not again.

The bad news is that this kind of thing is binary-dependent, in that
the hash codes for wrappers are randomly assigned (though in one
binary, at least predefined hash codes are consistent).

To debug this, at the very least I'll need you to provide a full
backtrace, and also probably inspects of the cache and the three
wrappers you have there.

Cheers,

Christophe