(defmethod shared-initialize
((instance slot-object) slot-names &rest initargs)
- (when (eq slot-names 't)
+ (when (eq slot-names t)
(return-from shared-initialize
(call-initialize-function
(initialize-info-shared-initialize-t-function
(initialize-info (class-of instance) initargs))
instance initargs)))
- (when (eq slot-names 'nil)
+ (when (eq slot-names nil)
(return-from shared-initialize
(call-initialize-function
(initialize-info-shared-initialize-nil-function
instance
slotd)
val)
- (return 't))))
+ (return t))))
;; Try to initialize the slot from its initform.
(if (and slot-names
- (or (eq slot-names 't)
+ (or (eq slot-names t)
(memq slot-name slot-names))
- (or (and (not std-p) (eq slot-names 't))
+ (or (and (not std-p) (eq slot-names t))
(not (slot-boundp-using-class class instance slotd))))
(let ((initfunction (slot-definition-initfunction slotd)))
(when initfunction