anchor.diff:  	     (unwind-protect
   		 (%map-params array length type-number inherited-p)
   	       (deallocate-memory array))))
  -;      (type-default-interface-unref type-number)
  -      )))
  +      (type-default-interface-unref iface))))
   
   
   (defun expand-ginterface-type (type forward-p options &rest args)
  
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: ginterface.lisp,v 1.15 2006-02-26 15:30:01 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code: (defbinding type-default-interface-ref (type) pointer
    ((find-type-number type t) type-number))
  
  (defbinding type-default-interface-unref () nil
    (iface pointer))
  
  (defbinding type-default-interface-peek (type) pointer
    ((find-type-number type t) type-number))
  