slot-definition-readers on a standard-effective-slot-definition

[Reinout Stevens]

The standard specifies that slot-definition-readers should be specified for standard-direct-slot-defintion (which you get by class-direct-slots), not on standard-effective-slot-definition (which you get by class-slots)

(use-package :sb-mop)
(defclass person ()
  ((name :reader person-name :initarg :name)))

(make-instance 'person :name "Testcase") ;;initialize class

(slot-definition-readers (car (class-slots (find-class 'person))))
;NIL
(slot-definition-readers (car (class-direct-slots (find-class 'person))))
;(PERSON-NAME)

I think the first one should signal an error (or return the same as the 2nd?).
The same with slot-definition-writers

version:
SBCL 1.0.30 and SBCL 1.0.31

output of uname -a:
Linux walrus 2.6.31.5-0.1-desktop #1 SMP PREEMPT 2009-10-26 15:49:03 +0100 x86_64 x86_64 x86_64 GNU/Linux

[Nikodemus Siivola (nikodemus)]

 status confirmed
 tag pcl
 importance low

[Makarov Alexey (alexeys9)]

This patch add initialisation of 'readers' and 'writers' slots of standard-effective-slot-definition.