anchor.diff:  	  value))))
   
   
  -(defmethod add-reader-method ((class container-child-class) generic-function slot-name #?(sbcl>= 1 0 2)slot-documentation)
  +(defmethod add-reader-method ((class container-child-class) generic-function slot-name #?(sbcl>= 1 0 2)slot-documentation #?(sbcl>= 1 0 14)source-location)
     (add-method
      generic-function
      (make-instance 'standard-method
  
positive.code: 		  (declare (ignore next-methods))
  		  (child-property-value (first args) slot-name)))))
  
  (defmethod add-writer-method ((class container-child-class) generic-function slot-name #?(sbcl>= 1 0 2)slot-documentation)
    (add-method
     generic-function
     (make-instance 'standard-method
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gtkobject.lisp,v 1.45 2008-02-28 18:33:12 espen Exp $
  
  
  (in-package "GTK")
  