(error "The value of the :metaclass option (~S) is not a~%~
legal class name."
(cadr option)))
- (setq metaclass
- (case (cadr option)
- (cl:standard-class 'standard-class)
- (cl:structure-class 'structure-class)
- (t (cadr option))))
+ (setq metaclass (cadr option))
(setf options (remove option options))
(return t))))
*writers-for-this-defclass*)
,@(mapcar (lambda (x)
`(declaim (ftype (function (t) t)
- ,(slot-reader-symbol x)
- ,(slot-boundp-symbol x))
+ ,(slot-reader-name x)
+ ,(slot-boundp-name x))
(ftype (function (t t) t)
- ,(slot-writer-symbol x))))
+ ,(slot-writer-name x))))
*slot-names-for-this-defclass*)
(let ,(mapcar #'cdr *initfunctions-for-this-defclass*)
(load-defclass ',name