anchor.diff:  
   (defgeneric addto (container contained)
     (:documentation "Add a contained to a container")
  -  (:method ((c null) x) x))
  +)
   
    
  
positive.code: 
  ;;;  Contained lookup_id (in RepositoryId search_id);
  
  (define-method lookup_id ((container Repository) search-id)
    (block lookup
      (let ((content-stack
             (list (contents container))))
        (loop while content-stack
            do (map nil (lambda (obj)
                          (if (equal (op:id obj) search-id)
                              (return-from lookup obj)
                            (if (typep obj 'container)
                                (push (contents obj) content-stack))))
                    (pop content-stack)))
        nil)))
  
  
  ;;;  PrimitiveDef get_primitive (in PrimitiveKind kind);
  
negative.code: ;;;; local-ir.lisp -- An Interface Repository Implementation
  ;; $Id: local-ir.lisp,v 1.15 2002/06/01 05:45:43 lenst Exp $
  
  (in-package :clorb)
  
  