anchor.diff:  
   (defvar *registered-types* ())
   (defvar *registered-type-aliases* ())
  +(defvar *registered-static-types* ())
   (defvar *lisp-type-to-type-number* (make-hash-table))
   (defvar *type-number-to-lisp-type* (make-hash-table))
   
  
positive.code: 	      parent-number
  	      (or foreign-name (default-alien-type-name type))
  	      (make-instance 'type-info :class-size class-size :instance-size instance-size))))
         (setf (gethash type *lisp-type-to-type-number*) type-number)
         (setf (gethash type-number *type-number-to-lisp-type*) type)
         type-number))))
  
  
  
  
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: gtype.lisp,v 1.45 2006-02-19 19:27:32 espen Exp $
  
  (in-package "GLIB")
  
  