: FactorSmokeBound>smoke-binding ( alien -- object )
   {
    [ moduleName>> ] 
    [ NullModuleIndex>> ] 
    [ [ classes>> ] keep numClasses>> <direct-Class-array> ] 
    [ [ methodMaps>> ] keep numMethodMaps>> <direct-MethodMap-array> ] 
    [ [ methodNames>> ] keep numMethodNames>> <direct-char*-array> ] 
    [ [ types>> ] keep numTypes>> <direct-Type-array> ] 
    [ castFn>> ] 
    [ binding>> ]
    [ smoke>>
      <smoke-binding>
      swap >>smoke
      swap >>binding
      swap >>alien-cast-fn
      swap >>types
      swap >>method-names
      swap >>method-maps
      swap >>classes
      swap >>null-module-index
      swap >>module-name
    ]
   } cleave ;