(defclass foo ()
   (b :initarg :b)))

(defmethod slot-unbound (class (instance foo) (slot-name (eql 'b)))
   (setf (slot-value instance 'b) 42))

(slot-value (make-instance 'foo) 'b)