[Ecls-list] initargs for socket class

[lisp]

Hi,

I had a look at the code in sockets.lisp and I might be wrong, but isn't
this wrong...

(defmethod shared-initialize :after ((s socket)... &key ... type ...)
   ...
   (setf (slot-value s 'type) type)
   ....)

???

In principle, there is no warranty that SHARED-INITIALIZE will get a value
for :TYPE. The only warranty is that the _slot_ 'TYPE has been filled by
the parent method using the value of the :INITFORM. Hence, invoking
(make-instance 'socket ...) without an argument :TYPE will always fail!

Regards

Juanjo