2008-12-19 19:23:31 |
Nikodemus Siivola |
description |
(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)
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."
CL-USER> (make-instance 'sb-mop:standard-direct-slot-definition)
#<SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION NIL {11BC9091}>
CL-USER> (make-instance 'sb-mop:standard-direct-slot-definition :name 'pi)
#<SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION PI>
CL-USER> (make-instance 'sb-mop:standard-direct-slot-definition :name 123)
#<SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION 123>
|
|