anchor.diff:  	*registered-types*)
     (mapc #'(lambda (type) 
   	    (apply #'register-new-type type))
  -	*registered-static-types*)
  +	(reverse *registered-static-types*))
     (mapc #'(lambda (type) 
   	    (register-type-alias (car type) (cdr type)))
   	*registered-type-aliases*))
  
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: gtype.lisp,v 1.54 2006-08-16 11:02:46 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code:     (cond
       ((not (zerop type-number)) type-number)
       (error-p (error "Invalid gtype name: ~A" name)))))
  
  (defun type-from-glib-name (name)
    (type-from-number (type-number-from-glib-name name) t))
  
  (defun register-type (type id)
    (cond
  