Re: Another try on object creation

[Patrick H Dussud <DUSSUD%Jenner%ti-csl.csnet@RELAY.CS.NET>]

     (defmethod make-instance ((class standard-class) &rest initargs)
       (setq initargs (default-initargs class initargs))
       (check-initargs class initargs)  
       (let ((instance (apply #'allocate-instance class initargs)))
         (apply #'initialize-instance instance initargs)
         instance))
     
     (defmethod make-instance ((class-name symbol) &rest initargs)
       (apply #'make-instance (symbol-class class-name) initargs))

I have a question: Why don't you use a class prototype to call
default-initargs and check-initargs?

Patrick.