[EMAIL PROTECTED] writes:
> * (defclass toto () ())
> #<STANDARD-CLASS TOTO {480A46FD}>
>
> ; now i want to create a subclass of toto :
>
> * (pcl:ensure-class nil :direct-superclasses (list (find-class 'toto)))
> #<STANDARD-CLASS TOTO {480A46FD}> is not a class or a legal class name.
You probably want to use a different name for the class; nil is
already defined, and all sort of chaos would probably ensue on
redefinition. In 18e, also, you want to use class /names/, not
class /objects/.
That is, (list 'toto) instead of (list (find-class 'toto)).
It seems to work using class objects in Gerd's PCL, as in the
december snapshot of CMUCL.
Regards,
'mr
--
[Emacs] is written in Lisp, which is the only computer language that is
beautiful. -- Neal Stephenson, _In the Beginning was the Command Line_
