On Monday 12 January 2004 14:30, Andras Simon wrote:
> You're messing with the internals:
It is why i define it in a new package. it shouldn't have conflicted.
> CL-USER(1): (find-class 'method)
>
> #<STANDARD-CLASS METHOD {281A3EB5}>
>
> Don't do that.
>
> Andras
>
> On Mon, 12 Jan 2004 [EMAIL PROTECTED] wrote:
> > CMU Common Lisp 18e, running on ...
> > Loaded subsystems:
> > Python 1.1, target Intel x86
> > CLOS 18e (based on PCL September 16 92 PCL (f))
> >
> >
> > There's a problem when i define a class with name "method" in a new
> > package.
> >
> >
> > * (defpackage toto)
> > #<The TOTO package, 0/9 internal, 0/2 external>
> >
> > * (in-package toto)
> > #<The TOTO package, 1/9 internal, 0/2 external>
> >
> > * *package*
> > #<The TOTO package, 1/9 internal, 0/2 external>
> >
> > * (defclass titi () ()) ; it's ok
> > #<STANDARD-CLASS TITI {48137BCD}>
> >
> > * (defclass method () ()) ; it's no more ok ?
> > ; [GC threshold exceeded with 12,012,056 bytes in use. Commencing GC.]
> > ; [GC completed with 10,818,280 bytes retained and 1,193,776 bytes
> > freed.] ; [GC will next occur when at least 22,818,280 bytes are in use.]
> > ; [GC threshold exceeded with 22,829,112 bytes in use. Commencing GC.] ;
> > [GC completed with 22,831,040 bytes retained and -1,928 bytes freed.] ;
> > [GC will next occur when at least 34,831,040 bytes are in use.] ; [GC
> > threshold exceeded with 34,844,600 bytes in use. Commencing GC.] ; [GC
> > completed with 34,846,528 bytes retained and -1,928 bytes freed.] ; [GC
> > will next occur when at least 46,846,528 bytes are in use.]
> >
> > and then it crashes !
