Method: (FETCH-TAL-VALUE T STANDARD-OBJECT)

Source

(defmethod fetch-tal-value (name (obj standard-object))
  (if (and (slot-exists-p obj name)
           (slot-boundp obj name))
      (values (slot-value obj name) t)
      (values nil nil)))