             { unboxed-c-ptr "alien" simple-c-ptr }
             { f "offset" fixnum }
         } }
-        { +scratch+ { { f "address" } } }
         { +clobber+ { "value" "offset" } }
     } ;
 

        { unboxed-c-ptr "alien" simple-c-ptr }
        { f "offset" fixnum }
    } }
    { +scratch+ { { unboxed-alien "output" } } }
    { +output+ { "output" } }
    { +clobber+ { "offset" } }
} define-intrinsic


            { unboxed-c-ptr "alien" simple-c-ptr }
            { f "offset" fixnum }
        } }
        { +scratch+ { { f "value" } } }
        { +output+ { "value" } }
        { +clobber+ { "offset" } }
    } ;

: %alien-integer-get ( quot -- )
    %alien-accessor
    "value" operand dup %tag-fixnum ; inline

: alien-integer-set-template
    H{
