* (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.
Restarts:
0: [ABORT] Return to Top-Level.
Debug (type H for help)
(PCL::ENSURE-CLASS-VALUES NIL (:DIRECT-SUPERCLASSES (#)))
Source:
; File: target:pcl/std-class.lisp
; File has been modified since compilation:
; target:pcl/std-class.lisp
; Using form offset instead of character position.
(SIMPLE-PROGRAM-ERROR "~S is not a class or a legal class name." S)
looking the code, the problem comes from classp, why ?
* (pcl::classp (find-class 'toto))
NIL
is the pcl:ensure-class corresponds to the MOP ensure-class ?
ctu.
