{SYS_ "COMPILED-FUNCTION-BLOCK", SI_ORDINARY, si_compiled_function_block, 1, OBJNULL},

 {EXT_ "COMPILED-FUNCTION-NAME", EXT_ORDINARY, si_compiled_function_name, 1, OBJNULL},

 {SYS_ "COPY-STREAM", SI_ORDINARY, si_copy_stream, 1, OBJNULL},

 {SYS_ "DO-READ-SEQUENCE", SI_ORDINARY, si_do_read_sequence, 4, OBJNULL},

 {SYS_ "DO-WRITE-SEQUENCE", SI_ORDINARY, si_do_write_sequence, 4, OBJNULL},

 {SYS_ "ELT-SET", SI_ORDINARY, si_elt_set, 3, OBJNULL},

 {SYS_ "COMPILED-FUNCTION-BLOCK","si_compiled_function_block"},

 {EXT_ "COMPILED-FUNCTION-NAME","si_compiled_function_name"},

 {SYS_ "COPY-STREAM","si_copy_stream"},

 {SYS_ "DO-READ-SEQUENCE","si_do_read_sequence"},

 {SYS_ "DO-WRITE-SEQUENCE","si_do_write_sequence"},

 {SYS_ "ELT-SET","si_elt_set"},

       (error "Too few arguments supplied to a inlined lambda form.")))

 

 (defun sys::destructure (vl macro &aux (basis-form (gensym)) (destructure-symbols (list basis-form)))

   (labels ((tempsym ()

              (let ((x (gensym)))

                (push x destructure-symbols)