- value)))))
-
- ;; A type unbound value exists
- ((let ((unbound-method (find-applicable-type-method 'unbound-value
- (slot-definition-type slotd) nil)))
- (when unbound-method
- (let ((unbound-value (funcall unbound-method (slot-definition-type slotd))))
- #'(lambda (object)
- (let ((value (funcall reader-function object)))
- (if (eq value unbound-value)
- (slot-unbound (class-of object) object (slot-definition-name slotd))
- value)))))))
-
- ((let ((boundp-function (compute-slot-boundp-function slotd)))
- #'(lambda (object)
- (if (funcall boundp-function object)
- (funcall reader-function object)
- (slot-unbound (class-of object) object (slot-definition-name slotd)))))))))
+ (funcall reader-function object)))))
+
+ ;; A type unbound value exists
+ ((let ((unbound-method (find-applicable-type-method 'unbound-value
+ (slot-definition-type slotd) nil)))
+ (when unbound-method
+ (let ((unbound-value (funcall unbound-method (slot-definition-type slotd))))
+ #'(lambda (object)
+ (let ((value (funcall reader-function object)))
+ (if (eq value unbound-value)
+ (slot-unbound (class-of object) object (slot-definition-name slotd))
+ value)))))))
+
+ ((let ((boundp-function (compute-slot-boundp-function slotd)))
+ #'(lambda (object)
+ (if (funcall boundp-function object)
+ (funcall reader-function object)
+ (slot-unbound (class-of object) object (slot-definition-name slotd))))))))))