(reported by Bruno Haible)
The MOP says about slot-definition initialization:
"The :NAME argument is a slot name. An ERROR is SIGNALled if this argument
is not a symbol which can be used as a variable name. An ERROR is SIGNALled
if this argument is not supplied."
Test case:
(make-instance (find-class 'sb-pcl:standard-direct-slot-definition))
Expected: ERROR
Got: #<SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION NIL>
(reported by Bruno Haible) standard- direct- slot-definition )) STANDARD- DIRECT- SLOT-DEFINITION NIL>
The MOP says about slot-definition initialization:
"The :NAME argument is a slot name. An ERROR is SIGNALled if this argument
is not a symbol which can be used as a variable name. An ERROR is SIGNALled
if this argument is not supplied."
Test case:
(make-instance (find-class 'sb-pcl:
Expected: ERROR
Got: #<SB-MOP: