anchor.diff:  	 (defclass ,child-class (,(default-container-child-name super))
   	   ,(slot-definitions child-class 
   	     (query-container-class-child-properties type) nil)
  -	   (:metaclass child-class)
  +	   (:metaclass container-child-class)
   	   (:container ,class))))))
   
   
  
positive.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.33 2006-02-28 16:34:37 espen Exp $
  
  
  (in-package "GTK")
  
negative.code: 		  (declare (ignore next-methods))
  		  (child-property-value (first args) slot-name)))))
  
  (defmethod add-writer-method ((class container-child-class) generic-function slot-name)
    (add-method
     generic-function
     (make-instance 'standard-method
  