
(define-primitive-table foreign-table
  [_bool (known-ctype 'boolean)]
  [_bytes (known-ctype 'ftype-pointer)]
  [_double (known-ctype 'double)]
  [_double* (known-ctype 'double)]
  [_fixint (known-ctype 'integer-32)]
  [_fixnum (known-ctype 'fixnum)]
  [_float (known-ctype 'float)]
  [_fpointer (known-ctype 'ftype-pointer)]
  [_gcpointer (known-ctype 'ftype-scheme-object-pointer)]
  [_int16 (known-ctype 'integer-16)]
  [_int32 (known-ctype 'integer-32)]
  [_int64 (known-ctype 'integer-64)]
  [_int8 (known-ctype 'integer-8)]
  [_longdouble (known-ctype 'double)]
  [_path (known-ctype 'ftype-pointer)]
  [_pointer (known-ctype 'ftype-pointer)]
  [_scheme (known-ctype 'scheme-object)]
  [_stdbool (known-ctype 'integer-8)]
  [_string/ucs-4 (known-ctype 'ftype-pointer)]
  [_string/utf-16 (known-ctype 'ftype-pointer)]
  [_symbol (known-ctype 'ftype-pointer)]
  [_ufixint (known-ctype 'unsigned-32)]
  [_ufixnum (known-ctype 'fixnum)]
  [_uint16 (known-ctype 'unsigned-16)]
  [_uint32 (known-ctype 'unsigned-32)]
  [_uint64 (known-ctype 'unsigned-64)]
  [_uint8 (known-ctype 'unsigned-8)]
  [_void (known-ctype 'void)]
  [assert-ctype-representation (known-procedure 4)]
  [compiler-sizeof (known-procedure 2)]
  [cpointer-gcable? (known-procedure 2)]
  [cpointer-tag (known-procedure 2)]
  [cpointer? (known-procedure 2)]
  [cpointer->ffi2-ptr (known-procedure/pure/folding 4)]
  [ctype-alignof (known-procedure 2)]
  [ctype-basetype (known-procedure 2)]
  [ctype-c->scheme (known-procedure 2)]
  [ctype-scheme->c (known-procedure 2)]
  [ctype-sizeof (known-procedure 2)]
  [ctype? (known-procedure 2)]
  [end-stubborn-change (known-procedure 2)]
  [extflvector->cpointer (known-procedure 2)]
  [ffi-call (known-procedure 1016)]
  [ffi-call-maker (known-procedure 1020)]
  [ffi-callback (known-procedure 240)]
  [ffi-callback? (known-procedure 2)]
  [ffi-callback-maker (known-procedure 248)]
  [ffi-lib (known-procedure 14)]
  [ffi-lib-name (known-procedure 2)]
  [ffi-lib-unload (known-procedure 2)]
  [ffi-lib? (known-procedure 2)]
  [ffi-maybe-call-and-callback-core (known-procedure -64)]
  [ffi-obj (known-procedure 4)]
  [ffi-obj-lib (known-procedure 2)]
  [ffi-obj-name (known-procedure 2)]
  [ffi-obj? (known-procedure 2)]
  [ffi2-free (known-procedure 2)]
  [ffi2-lib-ref (known-procedure 4)]
  [ffi2-memcpy (known-procedure 32)]
  [ffi2-memmove (known-procedure 32)]
  [ffi2-memset (known-procedure 16)]
  [ffi2-ptr? (known-procedure/pure/folding 2)]
  [ffi2-ptr/gcable? (known-procedure/pure/folding 2)]
  [ffi2-ptr->cpointer (known-procedure/pure/folding 2)]
  [ffi2-ptr->uintptr (known-procedure/pure/folding 2)]
  [ffi2-uintptr->ptr (known-procedure/pure/folding 2)]
  [flvector->cpointer (known-procedure 2)]
  [free (known-procedure 2)]
  [free-immobile-cell (known-procedure 2)]
  [lookup-errno (known-procedure 2)]
  [make-array-type (known-procedure 4)]
  [make-cstruct-type (known-procedure 14)]
  [make-ctype (known-procedure 8)]
  [make-late-weak-box (known-procedure 2)]
  [make-late-weak-hasheq (known-procedure 1)]
  [make-sized-byte-string (known-procedure 4)]
  [make-late-will-executor (known-procedure 1)]
  [make-union-type (known-procedure -2)]
  [malloc (known-procedure 62)]
  [malloc-immobile-cell (known-procedure 2)]
  [memcpy (known-procedure 120)]
  [memmove (known-procedure 120)]
  [memset (known-procedure 56)]
  [offset-ptr? (known-procedure 2)]
  [prop:cpointer (known-constant)]
  [ptr-add (known-procedure 12)]
  [ptr-add! (known-procedure 12)]
  [ptr-equal? (known-procedure 4)]
  [ptr-offset (known-procedure 2)]
  [ptr-ref (known-procedure 28)]
  [ptr-set! (known-procedure 56)]
  [saved-errno (known-procedure 3)]
  [set-cpointer-tag! (known-procedure 4)]
  [set-ptr-offset! (known-procedure 12)]
  [vector->cpointer (known-procedure 2)])
