You're messing with the internals:
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 !
>
>
>
>
