Logo Search packages:      
Sourcecode: gambc version File versions  Download package

_kernel.c

#ifdef ___LINKER_INFO
; File: "_kernel.c", produced by Gambit-C 4.0 beta 20
(
400000
" _kernel"
(" _kernel")
(
"##type-0-0bf9b656-b071-404a-a514-0fb9d05cf518"
"##type-0-73c66686-a08f-4c7c-a0f1-5ad7771f242a"
"##type-0-d69cd396-01e0-4dcb-87dc-31acea8e0e5f"
"##type-0-f512c9f6-3b24-4c5c-8c8b-cabd75b2f951"
"##type-2-2138cd7f-8c42-4164-b56a-a8c7badf3323"
"##type-2-299ccee1-77d2-4a6d-ab24-2ebf14297315"
"##type-2-3f9f8aaa-ea21-4f2b-bc06-f65950e6c408"
"##type-2-3fd6c57f-3c80-4436-a430-57ea4457c11e"
"##type-2-f9519b37-d6d4-4748-8eb1-a0c8dc18c5e7"
"##type-26-d05e0aa7-e235-441d-aa41-c1ac02065460"
"##type-4-54dfbc02-718d-4a34-91ab-d1861da7500a"
"##type-4-9f09b552-0fb7-42c5-b0d4-212155841d53"
"##type-4-c1fc166b-d951-4871-853c-2b6c8c12d28d"
"##type-4-cf06eccd-bf2c-4b30-a6ce-394b345a0dee"
"##type-4-f39d07ce-436d-40ca-b81f-cdc65d16b7f2"
"##type-5"
"arg-num"
"arguments"
"btq-color"
"btq-deq-next"
"btq-deq-prev"
"btq-left"
"btq-leftmost"
"btq-parent"
"cfun-conversion-exception"
"code"
"cont"
"denv"
"denv-cache1"
"denv-cache2"
"denv-cache3"
"end-condvar"
"exception"
"exception?"
"fields"
"flags"
"floats"
"foreign"
"heap-overflow-exception"
"id"
"keyword-expected-exception"
"mailbox"
"message"
"multiple-c-return-exception"
"name"
"no-such-file-or-directory-exception"
"nonprocedure-operator-exception"
"number-of-arguments-limit-exception"
"operator"
"os-exception"
"procedure"
"repl-channel"
"result"
"rte"
"sfun-conversion-exception"
"specific"
"stack-overflow-exception"
"super"
"tgroup"
"thread"
"threads-deq-next"
"threads-deq-prev"
"toq-color"
"toq-left"
"toq-leftmost"
"toq-parent"
"type"
"type-exception"
"type-id"
"unknown-keyword-argument-exception"
"wrong-number-of-arguments-exception"
)
(
)
(
" _kernel"
" _kernel#0"
" _kernel#1"
" _kernel#10"
" _kernel#11"
" _kernel#12"
" _kernel#13"
" _kernel#14"
" _kernel#15"
" _kernel#16"
" _kernel#17"
" _kernel#18"
" _kernel#19"
" _kernel#2"
" _kernel#20"
" _kernel#21"
" _kernel#22"
" _kernel#23"
" _kernel#24"
" _kernel#25"
" _kernel#26"
" _kernel#27"
" _kernel#28"
" _kernel#29"
" _kernel#3"
" _kernel#30"
" _kernel#31"
" _kernel#32"
" _kernel#33"
" _kernel#34"
" _kernel#35"
" _kernel#36"
" _kernel#37"
" _kernel#38"
" _kernel#39"
" _kernel#4"
" _kernel#40"
" _kernel#41"
" _kernel#42"
" _kernel#43"
" _kernel#44"
" _kernel#45"
" _kernel#46"
" _kernel#47"
" _kernel#48"
" _kernel#49"
" _kernel#5"
" _kernel#50"
" _kernel#51"
" _kernel#52"
" _kernel#53"
" _kernel#54"
" _kernel#55"
" _kernel#56"
" _kernel#57"
" _kernel#58"
" _kernel#59"
" _kernel#6"
" _kernel#60"
" _kernel#61"
" _kernel#62"
" _kernel#63"
" _kernel#7"
" _kernel#8"
" _kernel#9"
"##add-job!"
"##apply"
"##apply-with-procedure-check"
"##argument-list-fix-rest-param!"
"##argument-list-remove-absent!"
"##argument-list-remove-absent-keys!"
"##check-heap"
"##clear-jobs!"
"##command-line"
"##continuation-denv"
"##continuation-frame"
"##direct-structure-ref"
"##direct-structure-set!"
"##err-code-ENOENT"
"##execute-and-clear-jobs!"
"##execute-final-wills!"
"##execute-jobs!"
"##execute-modules"
"##execute-program"
"##exit"
"##exit-abnormally"
"##exit-cleanup"
"##exit-jobs"
"##exit-with-err-code"
"##exit-with-err-code-no-cleanup"
"##extract-procedure-and-arguments"
"##fail-check-cfun-conversion-exception"
"##fail-check-foreign"
"##fail-check-keyword-expected-exception"
"##fail-check-nonprocedure-operator-exception"
"##fail-check-number-of-arguments-limit-exception"
"##fail-check-os-exception"
"##fail-check-sfun-conversion-exception"
"##fail-check-type-exception"
"##fail-check-unknown-keyword-argument-exception"
"##fail-check-wrong-number-of-arguments-exception"
"##final-will-registry"
"##fixnum-width"
"##foreign-address"
"##foreign-release!"
"##foreign-released?"
"##frame-fs"
"##frame-ref"
"##frame-ret"
"##frame-slot-live?"
"##gc"
"##gc-final-will-registry!"
"##gc-finalize!"
"##gc-interrupt-jobs"
"##gc-without-exceptions"
"##global-var->identifier"
"##interrupt-vector"
"##interrupt-vector-set!"
"##main"
"##make-f32vector"
"##make-f64vector"
"##make-global-var"
"##make-interned-symkey"
"##make-jobs"
"##make-s16vector"
"##make-s32vector"
"##make-s64vector"
"##make-s8vector"
"##make-string"
"##make-u16vector"
"##make-u32vector"
"##make-u64vector"
"##make-u8vector"
"##make-vector"
"##object->global-var"
"##program-descr"
"##raise-heap-overflow-exception"
"##raise-keyword-expected-exception"
"##raise-nonprocedure-operator-exception"
"##raise-os-exception"
"##raise-type-exception"
"##raise-unknown-keyword-argument-exception"
"##raise-wrong-number-of-arguments-exception"
"##rest-param-resume-procedure"
"##structure-instance-of?"
"##structure-ref"
"##structure-set!"
"##system-version"
"##system-version-string"
"##type-fields"
"##type-flags"
"##type-id"
"##type-name"
"##type-super"
"##type-type"
"##with-no-result-expected"
"foreign-release!"
)
(
"##add-exit-job!"
"##add-gc-interrupt-job!"
"##add-job-at-tail!"
"##apply-global-with-procedure-check-nary"
"##apply-with-procedure-check-nary"
"##bignum.adigit-width"
"##bignum.fdigit-width"
"##bignum.mdigit-width"
"##check-heap-limit"
"##clear-exit-jobs!"
"##clear-gc-interrupt-jobs!"
"##closure-code"
"##closure-length"
"##closure-ref"
"##closure-set!"
"##closure?"
"##continuation-fs"
"##continuation-link"
"##continuation-next"
"##continuation-ref"
"##continuation-ret"
"##continuation-slot-live?"
"##disable-interrupts!"
"##dynamic-env-bind"
"##enable-interrupts!"
"##err-code-EAGAIN"
"##err-code-EINTR"
"##exit-with-exception"
"##explode-continuation"
"##explode-frame"
"##fail-check-heap-overflow-exception"
"##fail-check-multiple-c-return-exception"
"##fail-check-stack-overflow-exception"
"##first-argument"
"##fixnum-width-neg"
"##force-undetermined"
"##format-filepos"
"##frame-link"
"##gambcdir"
"##get-current-time!"
"##get-live-percent"
"##get-max-heap"
"##get-min-heap"
"##get-standard-level"
"##global-var-primitive-ref"
"##global-var-primitive-set!"
"##global-var-ref"
"##global-var-set!"
"##global-var?"
"##heartbeat-interval-set!"
"##interrupt-handler"
"##kernel-handlers"
"##keyword-table"
"##main-set!"
"##make-final-will"
"##make-interned-keyword"
"##make-interned-symbol"
"##make-subprocedure"
"##max-char"
"##max-fixnum"
"##min-fixnum"
"##object->global-var->identifier"
"##os-condvar-select!"
"##os-copy-file"
"##os-create-directory"
"##os-create-fifo"
"##os-create-link"
"##os-create-symbolic-link"
"##os-delete-directory"
"##os-delete-file"
"##os-device-close"
"##os-device-directory-open-path"
"##os-device-directory-read"
"##os-device-event-queue-open"
"##os-device-event-queue-read"
"##os-device-force-output"
"##os-device-kind"
"##os-device-process-pid"
"##os-device-process-status"
"##os-device-stream-default-options"
"##os-device-stream-open-path"
"##os-device-stream-open-predefined"
"##os-device-stream-open-process"
"##os-device-stream-options-set!"
"##os-device-stream-read"
"##os-device-stream-seek"
"##os-device-stream-width"
"##os-device-stream-write"
"##os-device-tcp-client-open"
"##os-device-tcp-client-socket-info"
"##os-device-tcp-server-open"
"##os-device-tcp-server-read"
"##os-device-tty-history"
"##os-device-tty-history-set!"
"##os-device-tty-input-set!"
"##os-device-tty-max-history-length-set!"
"##os-device-tty-mode-set!"
"##os-device-tty-paren-balance-duration-set!"
"##os-device-tty-text-attributes-set!"
"##os-device-tty-type-set!"
"##os-environ"
"##os-err-code->string"
"##os-file-info"
"##os-getenv"
"##os-getpid"
"##os-getppid"
"##os-group-info"
"##os-host-info"
"##os-host-name"
"##os-load-object-file"
"##os-network-info"
"##os-path-gambcdir"
"##os-path-homedir"
"##os-path-normalize-directory"
"##os-port-decode-chars!"
"##os-port-encode-chars!"
"##os-protocol-info"
"##os-rename-file"
"##os-service-info"
"##os-set-current-directory"
"##os-setenv"
"##os-shell-command"
"##os-user-info"
"##os-user-name"
"##process-statistics"
"##process-times"
"##processed-command-line"
"##raise-cfun-conversion-exception-nary"
"##raise-keyword-expected-exception-nary"
"##raise-multiple-c-return-exception"
"##raise-number-of-arguments-limit-exception"
"##raise-sfun-conversion-exception"
"##raise-stack-overflow-exception"
"##raise-unknown-keyword-argument-exception-nary"
"##raise-wrong-number-of-arguments-exception-nary"
"##rest-param-check-heap"
"##rest-param-heap-overflow"
"##return-fs"
"##set-debug-settings!"
"##set-live-percent!"
"##set-max-heap!"
"##set-min-heap!"
"##set-standard-level!"
"##still-copy"
"##still-obj-refcount-dec!"
"##still-obj-refcount-inc!"
"##structure"
"##structure-direct-instance-of?"
"##structure-type"
"##structure-type-set!"
"##subprocedure-id"
"##subprocedure-nb-closed"
"##subprocedure-nb-parameters"
"##subprocedure-parent"
"##subprocedure-parent-info"
"##subprocedure-parent-name"
"##subprocedure?"
"##symbol-table"
"##type?"
"##unchecked-structure-ref"
"##unchecked-structure-set!"
"cfun-conversion-exception-arguments"
"cfun-conversion-exception-code"
"cfun-conversion-exception-message"
"cfun-conversion-exception-procedure"
"cfun-conversion-exception?"
"err-code->string"
"foreign-address"
"foreign-released?"
"heap-overflow-exception?"
"keyword-expected-exception-arguments"
"keyword-expected-exception-procedure"
"keyword-expected-exception?"
"multiple-c-return-exception?"
"nonprocedure-operator-exception-arguments"
"nonprocedure-operator-exception-code"
"nonprocedure-operator-exception-operator"
"nonprocedure-operator-exception-rte"
"nonprocedure-operator-exception?"
"number-of-arguments-limit-exception-arguments"
"number-of-arguments-limit-exception-procedure"
"number-of-arguments-limit-exception?"
"os-exception-arguments"
"os-exception-code"
"os-exception-message"
"os-exception-procedure"
"os-exception?"
"sfun-conversion-exception-arguments"
"sfun-conversion-exception-code"
"sfun-conversion-exception-message"
"sfun-conversion-exception-procedure"
"sfun-conversion-exception?"
"stack-overflow-exception?"
"system-version"
"system-version-string"
"type-exception-arg-num"
"type-exception-arguments"
"type-exception-procedure"
"type-exception-type-id"
"type-exception?"
"unknown-keyword-argument-exception-arguments"
"unknown-keyword-argument-exception-procedure"
"unknown-keyword-argument-exception?"
"wrong-number-of-arguments-exception-arguments"
"wrong-number-of-arguments-exception-procedure"
"wrong-number-of-arguments-exception?"
)
(
)
 #f
)
#else
#define ___VERSION 400000
#define ___MODULE_NAME " _kernel"
#define ___LINKER_ID ____20___kernel
#define ___MH_PROC ___H__20___kernel
#define ___SCRIPT_LINE 0
#define ___SYM_COUNT 71
#define ___GLO_COUNT 363
#define ___SUP_COUNT 363
#define ___SUB_COUNT 41
#define ___LBL_COUNT 864
#include "gambit.h"

___NEED_SYM(___S__23__23_type_2d_0_2d_0bf9b656_2d_b071_2d_404a_2d_a514_2d_0fb9d05cf518)
___NEED_SYM(___S__23__23_type_2d_0_2d_73c66686_2d_a08f_2d_4c7c_2d_a0f1_2d_5ad7771f242a)
___NEED_SYM(___S__23__23_type_2d_0_2d_d69cd396_2d_01e0_2d_4dcb_2d_87dc_2d_31acea8e0e5f)
___NEED_SYM(___S__23__23_type_2d_0_2d_f512c9f6_2d_3b24_2d_4c5c_2d_8c8b_2d_cabd75b2f951)
___NEED_SYM(___S__23__23_type_2d_2_2d_2138cd7f_2d_8c42_2d_4164_2d_b56a_2d_a8c7badf3323)
___NEED_SYM(___S__23__23_type_2d_2_2d_299ccee1_2d_77d2_2d_4a6d_2d_ab24_2d_2ebf14297315)
___NEED_SYM(___S__23__23_type_2d_2_2d_3f9f8aaa_2d_ea21_2d_4f2b_2d_bc06_2d_f65950e6c408)
___NEED_SYM(___S__23__23_type_2d_2_2d_3fd6c57f_2d_3c80_2d_4436_2d_a430_2d_57ea4457c11e)
___NEED_SYM(___S__23__23_type_2d_2_2d_f9519b37_2d_d6d4_2d_4748_2d_8eb1_2d_a0c8dc18c5e7)
___NEED_SYM(___S__23__23_type_2d_26_2d_d05e0aa7_2d_e235_2d_441d_2d_aa41_2d_c1ac02065460)
___NEED_SYM(___S__23__23_type_2d_4_2d_54dfbc02_2d_718d_2d_4a34_2d_91ab_2d_d1861da7500a)
___NEED_SYM(___S__23__23_type_2d_4_2d_9f09b552_2d_0fb7_2d_42c5_2d_b0d4_2d_212155841d53)
___NEED_SYM(___S__23__23_type_2d_4_2d_c1fc166b_2d_d951_2d_4871_2d_853c_2d_2b6c8c12d28d)
___NEED_SYM(___S__23__23_type_2d_4_2d_cf06eccd_2d_bf2c_2d_4b30_2d_a6ce_2d_394b345a0dee)
___NEED_SYM(___S__23__23_type_2d_4_2d_f39d07ce_2d_436d_2d_40ca_2d_b81f_2d_cdc65d16b7f2)
___NEED_SYM(___S__23__23_type_2d_5)
___NEED_SYM(___S_arg_2d_num)
___NEED_SYM(___S_arguments)
___NEED_SYM(___S_btq_2d_color)
___NEED_SYM(___S_btq_2d_deq_2d_next)
___NEED_SYM(___S_btq_2d_deq_2d_prev)
___NEED_SYM(___S_btq_2d_left)
___NEED_SYM(___S_btq_2d_leftmost)
___NEED_SYM(___S_btq_2d_parent)
___NEED_SYM(___S_cfun_2d_conversion_2d_exception)
___NEED_SYM(___S_code)
___NEED_SYM(___S_cont)
___NEED_SYM(___S_denv)
___NEED_SYM(___S_denv_2d_cache1)
___NEED_SYM(___S_denv_2d_cache2)
___NEED_SYM(___S_denv_2d_cache3)
___NEED_SYM(___S_end_2d_condvar)
___NEED_SYM(___S_exception)
___NEED_SYM(___S_exception_3f_)
___NEED_SYM(___S_fields)
___NEED_SYM(___S_flags)
___NEED_SYM(___S_floats)
___NEED_SYM(___S_foreign)
___NEED_SYM(___S_heap_2d_overflow_2d_exception)
___NEED_SYM(___S_id)
___NEED_SYM(___S_keyword_2d_expected_2d_exception)
___NEED_SYM(___S_mailbox)
___NEED_SYM(___S_message)
___NEED_SYM(___S_multiple_2d_c_2d_return_2d_exception)
___NEED_SYM(___S_name)
___NEED_SYM(___S_no_2d_such_2d_file_2d_or_2d_directory_2d_exception)
___NEED_SYM(___S_nonprocedure_2d_operator_2d_exception)
___NEED_SYM(___S_number_2d_of_2d_arguments_2d_limit_2d_exception)
___NEED_SYM(___S_operator)
___NEED_SYM(___S_os_2d_exception)
___NEED_SYM(___S_procedure)
___NEED_SYM(___S_repl_2d_channel)
___NEED_SYM(___S_result)
___NEED_SYM(___S_rte)
___NEED_SYM(___S_sfun_2d_conversion_2d_exception)
___NEED_SYM(___S_specific)
___NEED_SYM(___S_stack_2d_overflow_2d_exception)
___NEED_SYM(___S_super)
___NEED_SYM(___S_tgroup)
___NEED_SYM(___S_thread)
___NEED_SYM(___S_threads_2d_deq_2d_next)
___NEED_SYM(___S_threads_2d_deq_2d_prev)
___NEED_SYM(___S_toq_2d_color)
___NEED_SYM(___S_toq_2d_left)
___NEED_SYM(___S_toq_2d_leftmost)
___NEED_SYM(___S_toq_2d_parent)
___NEED_SYM(___S_type)
___NEED_SYM(___S_type_2d_exception)
___NEED_SYM(___S_type_2d_id)
___NEED_SYM(___S_unknown_2d_keyword_2d_argument_2d_exception)
___NEED_SYM(___S_wrong_2d_number_2d_of_2d_arguments_2d_exception)

___NEED_GLO(___G__20___kernel)
___NEED_GLO(___G__20___kernel_23_0)
___NEED_GLO(___G__20___kernel_23_1)
___NEED_GLO(___G__20___kernel_23_10)
___NEED_GLO(___G__20___kernel_23_11)
___NEED_GLO(___G__20___kernel_23_12)
___NEED_GLO(___G__20___kernel_23_13)
___NEED_GLO(___G__20___kernel_23_14)
___NEED_GLO(___G__20___kernel_23_15)
___NEED_GLO(___G__20___kernel_23_16)
___NEED_GLO(___G__20___kernel_23_17)
___NEED_GLO(___G__20___kernel_23_18)
___NEED_GLO(___G__20___kernel_23_19)
___NEED_GLO(___G__20___kernel_23_2)
___NEED_GLO(___G__20___kernel_23_20)
___NEED_GLO(___G__20___kernel_23_21)
___NEED_GLO(___G__20___kernel_23_22)
___NEED_GLO(___G__20___kernel_23_23)
___NEED_GLO(___G__20___kernel_23_24)
___NEED_GLO(___G__20___kernel_23_25)
___NEED_GLO(___G__20___kernel_23_26)
___NEED_GLO(___G__20___kernel_23_27)
___NEED_GLO(___G__20___kernel_23_28)
___NEED_GLO(___G__20___kernel_23_29)
___NEED_GLO(___G__20___kernel_23_3)
___NEED_GLO(___G__20___kernel_23_30)
___NEED_GLO(___G__20___kernel_23_31)
___NEED_GLO(___G__20___kernel_23_32)
___NEED_GLO(___G__20___kernel_23_33)
___NEED_GLO(___G__20___kernel_23_34)
___NEED_GLO(___G__20___kernel_23_35)
___NEED_GLO(___G__20___kernel_23_36)
___NEED_GLO(___G__20___kernel_23_37)
___NEED_GLO(___G__20___kernel_23_38)
___NEED_GLO(___G__20___kernel_23_39)
___NEED_GLO(___G__20___kernel_23_4)
___NEED_GLO(___G__20___kernel_23_40)
___NEED_GLO(___G__20___kernel_23_41)
___NEED_GLO(___G__20___kernel_23_42)
___NEED_GLO(___G__20___kernel_23_43)
___NEED_GLO(___G__20___kernel_23_44)
___NEED_GLO(___G__20___kernel_23_45)
___NEED_GLO(___G__20___kernel_23_46)
___NEED_GLO(___G__20___kernel_23_47)
___NEED_GLO(___G__20___kernel_23_48)
___NEED_GLO(___G__20___kernel_23_49)
___NEED_GLO(___G__20___kernel_23_5)
___NEED_GLO(___G__20___kernel_23_50)
___NEED_GLO(___G__20___kernel_23_51)
___NEED_GLO(___G__20___kernel_23_52)
___NEED_GLO(___G__20___kernel_23_53)
___NEED_GLO(___G__20___kernel_23_54)
___NEED_GLO(___G__20___kernel_23_55)
___NEED_GLO(___G__20___kernel_23_56)
___NEED_GLO(___G__20___kernel_23_57)
___NEED_GLO(___G__20___kernel_23_58)
___NEED_GLO(___G__20___kernel_23_59)
___NEED_GLO(___G__20___kernel_23_6)
___NEED_GLO(___G__20___kernel_23_60)
___NEED_GLO(___G__20___kernel_23_61)
___NEED_GLO(___G__20___kernel_23_62)
___NEED_GLO(___G__20___kernel_23_63)
___NEED_GLO(___G__20___kernel_23_7)
___NEED_GLO(___G__20___kernel_23_8)
___NEED_GLO(___G__20___kernel_23_9)
___NEED_GLO(___G__23__23_add_2d_exit_2d_job_21_)
___NEED_GLO(___G__23__23_add_2d_gc_2d_interrupt_2d_job_21_)
___NEED_GLO(___G__23__23_add_2d_job_21_)
___NEED_GLO(___G__23__23_add_2d_job_2d_at_2d_tail_21_)
___NEED_GLO(___G__23__23_apply)
___NEED_GLO(___G__23__23_apply_2d_global_2d_with_2d_procedure_2d_check_2d_nary)
___NEED_GLO(___G__23__23_apply_2d_with_2d_procedure_2d_check)
___NEED_GLO(___G__23__23_apply_2d_with_2d_procedure_2d_check_2d_nary)
___NEED_GLO(___G__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
___NEED_GLO(___G__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___NEED_GLO(___G__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___NEED_GLO(___G__23__23_bignum_2e_adigit_2d_width)
___NEED_GLO(___G__23__23_bignum_2e_fdigit_2d_width)
___NEED_GLO(___G__23__23_bignum_2e_mdigit_2d_width)
___NEED_GLO(___G__23__23_check_2d_heap)
___NEED_GLO(___G__23__23_check_2d_heap_2d_limit)
___NEED_GLO(___G__23__23_clear_2d_exit_2d_jobs_21_)
___NEED_GLO(___G__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_)
___NEED_GLO(___G__23__23_clear_2d_jobs_21_)
___NEED_GLO(___G__23__23_closure_2d_code)
___NEED_GLO(___G__23__23_closure_2d_length)
___NEED_GLO(___G__23__23_closure_2d_ref)
___NEED_GLO(___G__23__23_closure_2d_set_21_)
___NEED_GLO(___G__23__23_closure_3f_)
___NEED_GLO(___G__23__23_command_2d_line)
___NEED_GLO(___G__23__23_continuation_2d_denv)
___NEED_GLO(___G__23__23_continuation_2d_frame)
___NEED_GLO(___G__23__23_continuation_2d_fs)
___NEED_GLO(___G__23__23_continuation_2d_link)
___NEED_GLO(___G__23__23_continuation_2d_next)
___NEED_GLO(___G__23__23_continuation_2d_ref)
___NEED_GLO(___G__23__23_continuation_2d_ret)
___NEED_GLO(___G__23__23_continuation_2d_slot_2d_live_3f_)
___NEED_GLO(___G__23__23_direct_2d_structure_2d_ref)
___NEED_GLO(___G__23__23_direct_2d_structure_2d_set_21_)
___NEED_GLO(___G__23__23_disable_2d_interrupts_21_)
___NEED_GLO(___G__23__23_dynamic_2d_env_2d_bind)
___NEED_GLO(___G__23__23_enable_2d_interrupts_21_)
___NEED_GLO(___G__23__23_err_2d_code_2d_EAGAIN)
___NEED_GLO(___G__23__23_err_2d_code_2d_EINTR)
___NEED_GLO(___G__23__23_err_2d_code_2d_ENOENT)
___NEED_GLO(___G__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___NEED_GLO(___G__23__23_execute_2d_final_2d_wills_21_)
___NEED_GLO(___G__23__23_execute_2d_jobs_21_)
___NEED_GLO(___G__23__23_execute_2d_modules)
___NEED_GLO(___G__23__23_execute_2d_program)
___NEED_GLO(___G__23__23_exit)
___NEED_GLO(___G__23__23_exit_2d_abnormally)
___NEED_GLO(___G__23__23_exit_2d_cleanup)
___NEED_GLO(___G__23__23_exit_2d_jobs)
___NEED_GLO(___G__23__23_exit_2d_with_2d_err_2d_code)
___NEED_GLO(___G__23__23_exit_2d_with_2d_err_2d_code_2d_no_2d_cleanup)
___NEED_GLO(___G__23__23_exit_2d_with_2d_exception)
___NEED_GLO(___G__23__23_explode_2d_continuation)
___NEED_GLO(___G__23__23_explode_2d_frame)
___NEED_GLO(___G__23__23_extract_2d_procedure_2d_and_2d_arguments)
___NEED_GLO(___G__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
___NEED_GLO(___G__23__23_fail_2d_check_2d_foreign)
___NEED_GLO(___G__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception)
___NEED_GLO(___G__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception)
___NEED_GLO(___G__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception)
___NEED_GLO(___G__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
___NEED_GLO(___G__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___NEED_GLO(___G__23__23_fail_2d_check_2d_os_2d_exception)
___NEED_GLO(___G__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
___NEED_GLO(___G__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception)
___NEED_GLO(___G__23__23_fail_2d_check_2d_type_2d_exception)
___NEED_GLO(___G__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception)
___NEED_GLO(___G__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___NEED_GLO(___G__23__23_final_2d_will_2d_registry)
___NEED_GLO(___G__23__23_first_2d_argument)
___NEED_GLO(___G__23__23_fixnum_2d_width)
___NEED_GLO(___G__23__23_fixnum_2d_width_2d_neg)
___NEED_GLO(___G__23__23_force_2d_undetermined)
___NEED_GLO(___G__23__23_foreign_2d_address)
___NEED_GLO(___G__23__23_foreign_2d_release_21_)
___NEED_GLO(___G__23__23_foreign_2d_released_3f_)
___NEED_GLO(___G__23__23_format_2d_filepos)
___NEED_GLO(___G__23__23_frame_2d_fs)
___NEED_GLO(___G__23__23_frame_2d_link)
___NEED_GLO(___G__23__23_frame_2d_ref)
___NEED_GLO(___G__23__23_frame_2d_ret)
___NEED_GLO(___G__23__23_frame_2d_slot_2d_live_3f_)
___NEED_GLO(___G__23__23_gambcdir)
___NEED_GLO(___G__23__23_gc)
___NEED_GLO(___G__23__23_gc_2d_final_2d_will_2d_registry_21_)
___NEED_GLO(___G__23__23_gc_2d_finalize_21_)
___NEED_GLO(___G__23__23_gc_2d_interrupt_2d_jobs)
___NEED_GLO(___G__23__23_gc_2d_without_2d_exceptions)
___NEED_GLO(___G__23__23_get_2d_current_2d_time_21_)
___NEED_GLO(___G__23__23_get_2d_live_2d_percent)
___NEED_GLO(___G__23__23_get_2d_max_2d_heap)
___NEED_GLO(___G__23__23_get_2d_min_2d_heap)
___NEED_GLO(___G__23__23_get_2d_standard_2d_level)
___NEED_GLO(___G__23__23_global_2d_var_2d__3e_identifier)
___NEED_GLO(___G__23__23_global_2d_var_2d_primitive_2d_ref)
___NEED_GLO(___G__23__23_global_2d_var_2d_primitive_2d_set_21_)
___NEED_GLO(___G__23__23_global_2d_var_2d_ref)
___NEED_GLO(___G__23__23_global_2d_var_2d_set_21_)
___NEED_GLO(___G__23__23_global_2d_var_3f_)
___NEED_GLO(___G__23__23_heartbeat_2d_interval_2d_set_21_)
___NEED_GLO(___G__23__23_interrupt_2d_handler)
___NEED_GLO(___G__23__23_interrupt_2d_vector)
___NEED_GLO(___G__23__23_interrupt_2d_vector_2d_set_21_)
___NEED_GLO(___G__23__23_kernel_2d_handlers)
___NEED_GLO(___G__23__23_keyword_2d_table)
___NEED_GLO(___G__23__23_main)
___NEED_GLO(___G__23__23_main_2d_set_21_)
___NEED_GLO(___G__23__23_make_2d_f32vector)
___NEED_GLO(___G__23__23_make_2d_f64vector)
___NEED_GLO(___G__23__23_make_2d_final_2d_will)
___NEED_GLO(___G__23__23_make_2d_global_2d_var)
___NEED_GLO(___G__23__23_make_2d_interned_2d_keyword)
___NEED_GLO(___G__23__23_make_2d_interned_2d_symbol)
___NEED_GLO(___G__23__23_make_2d_interned_2d_symkey)
___NEED_GLO(___G__23__23_make_2d_jobs)
___NEED_GLO(___G__23__23_make_2d_s16vector)
___NEED_GLO(___G__23__23_make_2d_s32vector)
___NEED_GLO(___G__23__23_make_2d_s64vector)
___NEED_GLO(___G__23__23_make_2d_s8vector)
___NEED_GLO(___G__23__23_make_2d_string)
___NEED_GLO(___G__23__23_make_2d_subprocedure)
___NEED_GLO(___G__23__23_make_2d_u16vector)
___NEED_GLO(___G__23__23_make_2d_u32vector)
___NEED_GLO(___G__23__23_make_2d_u64vector)
___NEED_GLO(___G__23__23_make_2d_u8vector)
___NEED_GLO(___G__23__23_make_2d_vector)
___NEED_GLO(___G__23__23_max_2d_char)
___NEED_GLO(___G__23__23_max_2d_fixnum)
___NEED_GLO(___G__23__23_min_2d_fixnum)
___NEED_GLO(___G__23__23_object_2d__3e_global_2d_var)
___NEED_GLO(___G__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
___NEED_GLO(___G__23__23_os_2d_condvar_2d_select_21_)
___NEED_GLO(___G__23__23_os_2d_copy_2d_file)
___NEED_GLO(___G__23__23_os_2d_create_2d_directory)
___NEED_GLO(___G__23__23_os_2d_create_2d_fifo)
___NEED_GLO(___G__23__23_os_2d_create_2d_link)
___NEED_GLO(___G__23__23_os_2d_create_2d_symbolic_2d_link)
___NEED_GLO(___G__23__23_os_2d_delete_2d_directory)
___NEED_GLO(___G__23__23_os_2d_delete_2d_file)
___NEED_GLO(___G__23__23_os_2d_device_2d_close)
___NEED_GLO(___G__23__23_os_2d_device_2d_directory_2d_open_2d_path)
___NEED_GLO(___G__23__23_os_2d_device_2d_directory_2d_read)
___NEED_GLO(___G__23__23_os_2d_device_2d_event_2d_queue_2d_open)
___NEED_GLO(___G__23__23_os_2d_device_2d_event_2d_queue_2d_read)
___NEED_GLO(___G__23__23_os_2d_device_2d_force_2d_output)
___NEED_GLO(___G__23__23_os_2d_device_2d_kind)
___NEED_GLO(___G__23__23_os_2d_device_2d_process_2d_pid)
___NEED_GLO(___G__23__23_os_2d_device_2d_process_2d_status)
___NEED_GLO(___G__23__23_os_2d_device_2d_stream_2d_default_2d_options)
___NEED_GLO(___G__23__23_os_2d_device_2d_stream_2d_open_2d_path)
___NEED_GLO(___G__23__23_os_2d_device_2d_stream_2d_open_2d_predefined)
___NEED_GLO(___G__23__23_os_2d_device_2d_stream_2d_open_2d_process)
___NEED_GLO(___G__23__23_os_2d_device_2d_stream_2d_options_2d_set_21_)
___NEED_GLO(___G__23__23_os_2d_device_2d_stream_2d_read)
___NEED_GLO(___G__23__23_os_2d_device_2d_stream_2d_seek)
___NEED_GLO(___G__23__23_os_2d_device_2d_stream_2d_width)
___NEED_GLO(___G__23__23_os_2d_device_2d_stream_2d_write)
___NEED_GLO(___G__23__23_os_2d_device_2d_tcp_2d_client_2d_open)
___NEED_GLO(___G__23__23_os_2d_device_2d_tcp_2d_client_2d_socket_2d_info)
___NEED_GLO(___G__23__23_os_2d_device_2d_tcp_2d_server_2d_open)
___NEED_GLO(___G__23__23_os_2d_device_2d_tcp_2d_server_2d_read)
___NEED_GLO(___G__23__23_os_2d_device_2d_tty_2d_history)
___NEED_GLO(___G__23__23_os_2d_device_2d_tty_2d_history_2d_set_21_)
___NEED_GLO(___G__23__23_os_2d_device_2d_tty_2d_input_2d_set_21_)
___NEED_GLO(___G__23__23_os_2d_device_2d_tty_2d_max_2d_history_2d_length_2d_set_21_)
___NEED_GLO(___G__23__23_os_2d_device_2d_tty_2d_mode_2d_set_21_)
___NEED_GLO(___G__23__23_os_2d_device_2d_tty_2d_paren_2d_balance_2d_duration_2d_set_21_)
___NEED_GLO(___G__23__23_os_2d_device_2d_tty_2d_text_2d_attributes_2d_set_21_)
___NEED_GLO(___G__23__23_os_2d_device_2d_tty_2d_type_2d_set_21_)
___NEED_GLO(___G__23__23_os_2d_environ)
___NEED_GLO(___G__23__23_os_2d_err_2d_code_2d__3e_string)
___NEED_GLO(___G__23__23_os_2d_file_2d_info)
___NEED_GLO(___G__23__23_os_2d_getenv)
___NEED_GLO(___G__23__23_os_2d_getpid)
___NEED_GLO(___G__23__23_os_2d_getppid)
___NEED_GLO(___G__23__23_os_2d_group_2d_info)
___NEED_GLO(___G__23__23_os_2d_host_2d_info)
___NEED_GLO(___G__23__23_os_2d_host_2d_name)
___NEED_GLO(___G__23__23_os_2d_load_2d_object_2d_file)
___NEED_GLO(___G__23__23_os_2d_network_2d_info)
___NEED_GLO(___G__23__23_os_2d_path_2d_gambcdir)
___NEED_GLO(___G__23__23_os_2d_path_2d_homedir)
___NEED_GLO(___G__23__23_os_2d_path_2d_normalize_2d_directory)
___NEED_GLO(___G__23__23_os_2d_port_2d_decode_2d_chars_21_)
___NEED_GLO(___G__23__23_os_2d_port_2d_encode_2d_chars_21_)
___NEED_GLO(___G__23__23_os_2d_protocol_2d_info)
___NEED_GLO(___G__23__23_os_2d_rename_2d_file)
___NEED_GLO(___G__23__23_os_2d_service_2d_info)
___NEED_GLO(___G__23__23_os_2d_set_2d_current_2d_directory)
___NEED_GLO(___G__23__23_os_2d_setenv)
___NEED_GLO(___G__23__23_os_2d_shell_2d_command)
___NEED_GLO(___G__23__23_os_2d_user_2d_info)
___NEED_GLO(___G__23__23_os_2d_user_2d_name)
___NEED_GLO(___G__23__23_process_2d_statistics)
___NEED_GLO(___G__23__23_process_2d_times)
___NEED_GLO(___G__23__23_processed_2d_command_2d_line)
___NEED_GLO(___G__23__23_program_2d_descr)
___NEED_GLO(___G__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary)
___NEED_GLO(___G__23__23_raise_2d_heap_2d_overflow_2d_exception)
___NEED_GLO(___G__23__23_raise_2d_keyword_2d_expected_2d_exception)
___NEED_GLO(___G__23__23_raise_2d_keyword_2d_expected_2d_exception_2d_nary)
___NEED_GLO(___G__23__23_raise_2d_multiple_2d_c_2d_return_2d_exception)
___NEED_GLO(___G__23__23_raise_2d_nonprocedure_2d_operator_2d_exception)
___NEED_GLO(___G__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___NEED_GLO(___G__23__23_raise_2d_os_2d_exception)
___NEED_GLO(___G__23__23_raise_2d_sfun_2d_conversion_2d_exception)
___NEED_GLO(___G__23__23_raise_2d_stack_2d_overflow_2d_exception)
___NEED_GLO(___G__23__23_raise_2d_type_2d_exception)
___NEED_GLO(___G__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception)
___NEED_GLO(___G__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception_2d_nary)
___NEED_GLO(___G__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___NEED_GLO(___G__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary)
___NEED_GLO(___G__23__23_rest_2d_param_2d_check_2d_heap)
___NEED_GLO(___G__23__23_rest_2d_param_2d_heap_2d_overflow)
___NEED_GLO(___G__23__23_rest_2d_param_2d_resume_2d_procedure)
___NEED_GLO(___G__23__23_return_2d_fs)
___NEED_GLO(___G__23__23_set_2d_debug_2d_settings_21_)
___NEED_GLO(___G__23__23_set_2d_live_2d_percent_21_)
___NEED_GLO(___G__23__23_set_2d_max_2d_heap_21_)
___NEED_GLO(___G__23__23_set_2d_min_2d_heap_21_)
___NEED_GLO(___G__23__23_set_2d_standard_2d_level_21_)
___NEED_GLO(___G__23__23_still_2d_copy)
___NEED_GLO(___G__23__23_still_2d_obj_2d_refcount_2d_dec_21_)
___NEED_GLO(___G__23__23_still_2d_obj_2d_refcount_2d_inc_21_)
___NEED_GLO(___G__23__23_structure)
___NEED_GLO(___G__23__23_structure_2d_direct_2d_instance_2d_of_3f_)
___NEED_GLO(___G__23__23_structure_2d_instance_2d_of_3f_)
___NEED_GLO(___G__23__23_structure_2d_ref)
___NEED_GLO(___G__23__23_structure_2d_set_21_)
___NEED_GLO(___G__23__23_structure_2d_type)
___NEED_GLO(___G__23__23_structure_2d_type_2d_set_21_)
___NEED_GLO(___G__23__23_subprocedure_2d_id)
___NEED_GLO(___G__23__23_subprocedure_2d_nb_2d_closed)
___NEED_GLO(___G__23__23_subprocedure_2d_nb_2d_parameters)
___NEED_GLO(___G__23__23_subprocedure_2d_parent)
___NEED_GLO(___G__23__23_subprocedure_2d_parent_2d_info)
___NEED_GLO(___G__23__23_subprocedure_2d_parent_2d_name)
___NEED_GLO(___G__23__23_subprocedure_3f_)
___NEED_GLO(___G__23__23_symbol_2d_table)
___NEED_GLO(___G__23__23_system_2d_version)
___NEED_GLO(___G__23__23_system_2d_version_2d_string)
___NEED_GLO(___G__23__23_type_2d_fields)
___NEED_GLO(___G__23__23_type_2d_flags)
___NEED_GLO(___G__23__23_type_2d_id)
___NEED_GLO(___G__23__23_type_2d_name)
___NEED_GLO(___G__23__23_type_2d_super)
___NEED_GLO(___G__23__23_type_2d_type)
___NEED_GLO(___G__23__23_type_3f_)
___NEED_GLO(___G__23__23_unchecked_2d_structure_2d_ref)
___NEED_GLO(___G__23__23_unchecked_2d_structure_2d_set_21_)
___NEED_GLO(___G__23__23_with_2d_no_2d_result_2d_expected)
___NEED_GLO(___G_cfun_2d_conversion_2d_exception_2d_arguments)
___NEED_GLO(___G_cfun_2d_conversion_2d_exception_2d_code)
___NEED_GLO(___G_cfun_2d_conversion_2d_exception_2d_message)
___NEED_GLO(___G_cfun_2d_conversion_2d_exception_2d_procedure)
___NEED_GLO(___G_cfun_2d_conversion_2d_exception_3f_)
___NEED_GLO(___G_err_2d_code_2d__3e_string)
___NEED_GLO(___G_foreign_2d_address)
___NEED_GLO(___G_foreign_2d_release_21_)
___NEED_GLO(___G_foreign_2d_released_3f_)
___NEED_GLO(___G_heap_2d_overflow_2d_exception_3f_)
___NEED_GLO(___G_keyword_2d_expected_2d_exception_2d_arguments)
___NEED_GLO(___G_keyword_2d_expected_2d_exception_2d_procedure)
___NEED_GLO(___G_keyword_2d_expected_2d_exception_3f_)
___NEED_GLO(___G_multiple_2d_c_2d_return_2d_exception_3f_)
___NEED_GLO(___G_nonprocedure_2d_operator_2d_exception_2d_arguments)
___NEED_GLO(___G_nonprocedure_2d_operator_2d_exception_2d_code)
___NEED_GLO(___G_nonprocedure_2d_operator_2d_exception_2d_operator)
___NEED_GLO(___G_nonprocedure_2d_operator_2d_exception_2d_rte)
___NEED_GLO(___G_nonprocedure_2d_operator_2d_exception_3f_)
___NEED_GLO(___G_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments)
___NEED_GLO(___G_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure)
___NEED_GLO(___G_number_2d_of_2d_arguments_2d_limit_2d_exception_3f_)
___NEED_GLO(___G_os_2d_exception_2d_arguments)
___NEED_GLO(___G_os_2d_exception_2d_code)
___NEED_GLO(___G_os_2d_exception_2d_message)
___NEED_GLO(___G_os_2d_exception_2d_procedure)
___NEED_GLO(___G_os_2d_exception_3f_)
___NEED_GLO(___G_sfun_2d_conversion_2d_exception_2d_arguments)
___NEED_GLO(___G_sfun_2d_conversion_2d_exception_2d_code)
___NEED_GLO(___G_sfun_2d_conversion_2d_exception_2d_message)
___NEED_GLO(___G_sfun_2d_conversion_2d_exception_2d_procedure)
___NEED_GLO(___G_sfun_2d_conversion_2d_exception_3f_)
___NEED_GLO(___G_stack_2d_overflow_2d_exception_3f_)
___NEED_GLO(___G_system_2d_version)
___NEED_GLO(___G_system_2d_version_2d_string)
___NEED_GLO(___G_type_2d_exception_2d_arg_2d_num)
___NEED_GLO(___G_type_2d_exception_2d_arguments)
___NEED_GLO(___G_type_2d_exception_2d_procedure)
___NEED_GLO(___G_type_2d_exception_2d_type_2d_id)
___NEED_GLO(___G_type_2d_exception_3f_)
___NEED_GLO(___G_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments)
___NEED_GLO(___G_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure)
___NEED_GLO(___G_unknown_2d_keyword_2d_argument_2d_exception_3f_)
___NEED_GLO(___G_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments)
___NEED_GLO(___G_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure)
___NEED_GLO(___G_wrong_2d_number_2d_of_2d_arguments_2d_exception_3f_)

___BEGIN_SYM1
___DEF_SYM1(0,___S__23__23_type_2d_0_2d_0bf9b656_2d_b071_2d_404a_2d_a514_2d_0fb9d05cf518,"##type-0-0bf9b656-b071-404a-a514-0fb9d05cf518")

___DEF_SYM1(1,___S__23__23_type_2d_0_2d_73c66686_2d_a08f_2d_4c7c_2d_a0f1_2d_5ad7771f242a,"##type-0-73c66686-a08f-4c7c-a0f1-5ad7771f242a")

___DEF_SYM1(2,___S__23__23_type_2d_0_2d_d69cd396_2d_01e0_2d_4dcb_2d_87dc_2d_31acea8e0e5f,"##type-0-d69cd396-01e0-4dcb-87dc-31acea8e0e5f")

___DEF_SYM1(3,___S__23__23_type_2d_0_2d_f512c9f6_2d_3b24_2d_4c5c_2d_8c8b_2d_cabd75b2f951,"##type-0-f512c9f6-3b24-4c5c-8c8b-cabd75b2f951")

___DEF_SYM1(4,___S__23__23_type_2d_2_2d_2138cd7f_2d_8c42_2d_4164_2d_b56a_2d_a8c7badf3323,"##type-2-2138cd7f-8c42-4164-b56a-a8c7badf3323")

___DEF_SYM1(5,___S__23__23_type_2d_2_2d_299ccee1_2d_77d2_2d_4a6d_2d_ab24_2d_2ebf14297315,"##type-2-299ccee1-77d2-4a6d-ab24-2ebf14297315")

___DEF_SYM1(6,___S__23__23_type_2d_2_2d_3f9f8aaa_2d_ea21_2d_4f2b_2d_bc06_2d_f65950e6c408,"##type-2-3f9f8aaa-ea21-4f2b-bc06-f65950e6c408")

___DEF_SYM1(7,___S__23__23_type_2d_2_2d_3fd6c57f_2d_3c80_2d_4436_2d_a430_2d_57ea4457c11e,"##type-2-3fd6c57f-3c80-4436-a430-57ea4457c11e")

___DEF_SYM1(8,___S__23__23_type_2d_2_2d_f9519b37_2d_d6d4_2d_4748_2d_8eb1_2d_a0c8dc18c5e7,"##type-2-f9519b37-d6d4-4748-8eb1-a0c8dc18c5e7")

___DEF_SYM1(9,___S__23__23_type_2d_26_2d_d05e0aa7_2d_e235_2d_441d_2d_aa41_2d_c1ac02065460,"##type-26-d05e0aa7-e235-441d-aa41-c1ac02065460")

___DEF_SYM1(10,___S__23__23_type_2d_4_2d_54dfbc02_2d_718d_2d_4a34_2d_91ab_2d_d1861da7500a,"##type-4-54dfbc02-718d-4a34-91ab-d1861da7500a")

___DEF_SYM1(11,___S__23__23_type_2d_4_2d_9f09b552_2d_0fb7_2d_42c5_2d_b0d4_2d_212155841d53,"##type-4-9f09b552-0fb7-42c5-b0d4-212155841d53")

___DEF_SYM1(12,___S__23__23_type_2d_4_2d_c1fc166b_2d_d951_2d_4871_2d_853c_2d_2b6c8c12d28d,"##type-4-c1fc166b-d951-4871-853c-2b6c8c12d28d")

___DEF_SYM1(13,___S__23__23_type_2d_4_2d_cf06eccd_2d_bf2c_2d_4b30_2d_a6ce_2d_394b345a0dee,"##type-4-cf06eccd-bf2c-4b30-a6ce-394b345a0dee")

___DEF_SYM1(14,___S__23__23_type_2d_4_2d_f39d07ce_2d_436d_2d_40ca_2d_b81f_2d_cdc65d16b7f2,"##type-4-f39d07ce-436d-40ca-b81f-cdc65d16b7f2")

___DEF_SYM1(15,___S__23__23_type_2d_5,"##type-5")
___DEF_SYM1(16,___S_arg_2d_num,"arg-num")
___DEF_SYM1(17,___S_arguments,"arguments")
___DEF_SYM1(18,___S_btq_2d_color,"btq-color")
___DEF_SYM1(19,___S_btq_2d_deq_2d_next,"btq-deq-next")
___DEF_SYM1(20,___S_btq_2d_deq_2d_prev,"btq-deq-prev")
___DEF_SYM1(21,___S_btq_2d_left,"btq-left")
___DEF_SYM1(22,___S_btq_2d_leftmost,"btq-leftmost")
___DEF_SYM1(23,___S_btq_2d_parent,"btq-parent")
___DEF_SYM1(24,___S_cfun_2d_conversion_2d_exception,"cfun-conversion-exception")
___DEF_SYM1(25,___S_code,"code")
___DEF_SYM1(26,___S_cont,"cont")
___DEF_SYM1(27,___S_denv,"denv")
___DEF_SYM1(28,___S_denv_2d_cache1,"denv-cache1")
___DEF_SYM1(29,___S_denv_2d_cache2,"denv-cache2")
___DEF_SYM1(30,___S_denv_2d_cache3,"denv-cache3")
___DEF_SYM1(31,___S_end_2d_condvar,"end-condvar")
___DEF_SYM1(32,___S_exception,"exception")
___DEF_SYM1(33,___S_exception_3f_,"exception?")
___DEF_SYM1(34,___S_fields,"fields")
___DEF_SYM1(35,___S_flags,"flags")
___DEF_SYM1(36,___S_floats,"floats")
___DEF_SYM1(37,___S_foreign,"foreign")
___DEF_SYM1(38,___S_heap_2d_overflow_2d_exception,"heap-overflow-exception")
___DEF_SYM1(39,___S_id,"id")
___DEF_SYM1(40,___S_keyword_2d_expected_2d_exception,"keyword-expected-exception")
___DEF_SYM1(41,___S_mailbox,"mailbox")
___DEF_SYM1(42,___S_message,"message")
___DEF_SYM1(43,___S_multiple_2d_c_2d_return_2d_exception,"multiple-c-return-exception")
___DEF_SYM1(44,___S_name,"name")
___DEF_SYM1(45,___S_no_2d_such_2d_file_2d_or_2d_directory_2d_exception,"no-such-file-or-directory-exception")

___DEF_SYM1(46,___S_nonprocedure_2d_operator_2d_exception,"nonprocedure-operator-exception")

___DEF_SYM1(47,___S_number_2d_of_2d_arguments_2d_limit_2d_exception,"number-of-arguments-limit-exception")

___DEF_SYM1(48,___S_operator,"operator")
___DEF_SYM1(49,___S_os_2d_exception,"os-exception")
___DEF_SYM1(50,___S_procedure,"procedure")
___DEF_SYM1(51,___S_repl_2d_channel,"repl-channel")
___DEF_SYM1(52,___S_result,"result")
___DEF_SYM1(53,___S_rte,"rte")
___DEF_SYM1(54,___S_sfun_2d_conversion_2d_exception,"sfun-conversion-exception")
___DEF_SYM1(55,___S_specific,"specific")
___DEF_SYM1(56,___S_stack_2d_overflow_2d_exception,"stack-overflow-exception")
___DEF_SYM1(57,___S_super,"super")
___DEF_SYM1(58,___S_tgroup,"tgroup")
___DEF_SYM1(59,___S_thread,"thread")
___DEF_SYM1(60,___S_threads_2d_deq_2d_next,"threads-deq-next")
___DEF_SYM1(61,___S_threads_2d_deq_2d_prev,"threads-deq-prev")
___DEF_SYM1(62,___S_toq_2d_color,"toq-color")
___DEF_SYM1(63,___S_toq_2d_left,"toq-left")
___DEF_SYM1(64,___S_toq_2d_leftmost,"toq-leftmost")
___DEF_SYM1(65,___S_toq_2d_parent,"toq-parent")
___DEF_SYM1(66,___S_type,"type")
___DEF_SYM1(67,___S_type_2d_exception,"type-exception")
___DEF_SYM1(68,___S_type_2d_id,"type-id")
___DEF_SYM1(69,___S_unknown_2d_keyword_2d_argument_2d_exception,"unknown-keyword-argument-exception")

___DEF_SYM1(70,___S_wrong_2d_number_2d_of_2d_arguments_2d_exception,"wrong-number-of-arguments-exception")

___END_SYM1

___BEGIN_GLO
___DEF_GLO(0," _kernel")
___DEF_GLO(1," _kernel#0")
___DEF_GLO(2," _kernel#1")
___DEF_GLO(3," _kernel#10")
___DEF_GLO(4," _kernel#11")
___DEF_GLO(5," _kernel#12")
___DEF_GLO(6," _kernel#13")
___DEF_GLO(7," _kernel#14")
___DEF_GLO(8," _kernel#15")
___DEF_GLO(9," _kernel#16")
___DEF_GLO(10," _kernel#17")
___DEF_GLO(11," _kernel#18")
___DEF_GLO(12," _kernel#19")
___DEF_GLO(13," _kernel#2")
___DEF_GLO(14," _kernel#20")
___DEF_GLO(15," _kernel#21")
___DEF_GLO(16," _kernel#22")
___DEF_GLO(17," _kernel#23")
___DEF_GLO(18," _kernel#24")
___DEF_GLO(19," _kernel#25")
___DEF_GLO(20," _kernel#26")
___DEF_GLO(21," _kernel#27")
___DEF_GLO(22," _kernel#28")
___DEF_GLO(23," _kernel#29")
___DEF_GLO(24," _kernel#3")
___DEF_GLO(25," _kernel#30")
___DEF_GLO(26," _kernel#31")
___DEF_GLO(27," _kernel#32")
___DEF_GLO(28," _kernel#33")
___DEF_GLO(29," _kernel#34")
___DEF_GLO(30," _kernel#35")
___DEF_GLO(31," _kernel#36")
___DEF_GLO(32," _kernel#37")
___DEF_GLO(33," _kernel#38")
___DEF_GLO(34," _kernel#39")
___DEF_GLO(35," _kernel#4")
___DEF_GLO(36," _kernel#40")
___DEF_GLO(37," _kernel#41")
___DEF_GLO(38," _kernel#42")
___DEF_GLO(39," _kernel#43")
___DEF_GLO(40," _kernel#44")
___DEF_GLO(41," _kernel#45")
___DEF_GLO(42," _kernel#46")
___DEF_GLO(43," _kernel#47")
___DEF_GLO(44," _kernel#48")
___DEF_GLO(45," _kernel#49")
___DEF_GLO(46," _kernel#5")
___DEF_GLO(47," _kernel#50")
___DEF_GLO(48," _kernel#51")
___DEF_GLO(49," _kernel#52")
___DEF_GLO(50," _kernel#53")
___DEF_GLO(51," _kernel#54")
___DEF_GLO(52," _kernel#55")
___DEF_GLO(53," _kernel#56")
___DEF_GLO(54," _kernel#57")
___DEF_GLO(55," _kernel#58")
___DEF_GLO(56," _kernel#59")
___DEF_GLO(57," _kernel#6")
___DEF_GLO(58," _kernel#60")
___DEF_GLO(59," _kernel#61")
___DEF_GLO(60," _kernel#62")
___DEF_GLO(61," _kernel#63")
___DEF_GLO(62," _kernel#7")
___DEF_GLO(63," _kernel#8")
___DEF_GLO(64," _kernel#9")
___DEF_GLO(65,"##add-exit-job!")
___DEF_GLO(66,"##add-gc-interrupt-job!")
___DEF_GLO(67,"##add-job!")
___DEF_GLO(68,"##add-job-at-tail!")
___DEF_GLO(69,"##apply")
___DEF_GLO(70,"##apply-global-with-procedure-check-nary")

___DEF_GLO(71,"##apply-with-procedure-check")
___DEF_GLO(72,"##apply-with-procedure-check-nary")

___DEF_GLO(73,"##argument-list-fix-rest-param!")
___DEF_GLO(74,"##argument-list-remove-absent!")
___DEF_GLO(75,"##argument-list-remove-absent-keys!")

___DEF_GLO(76,"##bignum.adigit-width")
___DEF_GLO(77,"##bignum.fdigit-width")
___DEF_GLO(78,"##bignum.mdigit-width")
___DEF_GLO(79,"##check-heap")
___DEF_GLO(80,"##check-heap-limit")
___DEF_GLO(81,"##clear-exit-jobs!")
___DEF_GLO(82,"##clear-gc-interrupt-jobs!")
___DEF_GLO(83,"##clear-jobs!")
___DEF_GLO(84,"##closure-code")
___DEF_GLO(85,"##closure-length")
___DEF_GLO(86,"##closure-ref")
___DEF_GLO(87,"##closure-set!")
___DEF_GLO(88,"##closure?")
___DEF_GLO(89,"##command-line")
___DEF_GLO(90,"##continuation-denv")
___DEF_GLO(91,"##continuation-frame")
___DEF_GLO(92,"##continuation-fs")
___DEF_GLO(93,"##continuation-link")
___DEF_GLO(94,"##continuation-next")
___DEF_GLO(95,"##continuation-ref")
___DEF_GLO(96,"##continuation-ret")
___DEF_GLO(97,"##continuation-slot-live?")
___DEF_GLO(98,"##direct-structure-ref")
___DEF_GLO(99,"##direct-structure-set!")
___DEF_GLO(100,"##disable-interrupts!")
___DEF_GLO(101,"##dynamic-env-bind")
___DEF_GLO(102,"##enable-interrupts!")
___DEF_GLO(103,"##err-code-EAGAIN")
___DEF_GLO(104,"##err-code-EINTR")
___DEF_GLO(105,"##err-code-ENOENT")
___DEF_GLO(106,"##execute-and-clear-jobs!")
___DEF_GLO(107,"##execute-final-wills!")
___DEF_GLO(108,"##execute-jobs!")
___DEF_GLO(109,"##execute-modules")
___DEF_GLO(110,"##execute-program")
___DEF_GLO(111,"##exit")
___DEF_GLO(112,"##exit-abnormally")
___DEF_GLO(113,"##exit-cleanup")
___DEF_GLO(114,"##exit-jobs")
___DEF_GLO(115,"##exit-with-err-code")
___DEF_GLO(116,"##exit-with-err-code-no-cleanup")
___DEF_GLO(117,"##exit-with-exception")
___DEF_GLO(118,"##explode-continuation")
___DEF_GLO(119,"##explode-frame")
___DEF_GLO(120,"##extract-procedure-and-arguments")

___DEF_GLO(121,"##fail-check-cfun-conversion-exception")

___DEF_GLO(122,"##fail-check-foreign")
___DEF_GLO(123,"##fail-check-heap-overflow-exception")

___DEF_GLO(124,"##fail-check-keyword-expected-exception")

___DEF_GLO(125,"##fail-check-multiple-c-return-exception")

___DEF_GLO(126,"##fail-check-nonprocedure-operator-exception")

___DEF_GLO(127,"##fail-check-number-of-arguments-limit-exception")

___DEF_GLO(128,"##fail-check-os-exception")
___DEF_GLO(129,"##fail-check-sfun-conversion-exception")

___DEF_GLO(130,"##fail-check-stack-overflow-exception")

___DEF_GLO(131,"##fail-check-type-exception")
___DEF_GLO(132,"##fail-check-unknown-keyword-argument-exception")

___DEF_GLO(133,"##fail-check-wrong-number-of-arguments-exception")

___DEF_GLO(134,"##final-will-registry")
___DEF_GLO(135,"##first-argument")
___DEF_GLO(136,"##fixnum-width")
___DEF_GLO(137,"##fixnum-width-neg")
___DEF_GLO(138,"##force-undetermined")
___DEF_GLO(139,"##foreign-address")
___DEF_GLO(140,"##foreign-release!")
___DEF_GLO(141,"##foreign-released?")
___DEF_GLO(142,"##format-filepos")
___DEF_GLO(143,"##frame-fs")
___DEF_GLO(144,"##frame-link")
___DEF_GLO(145,"##frame-ref")
___DEF_GLO(146,"##frame-ret")
___DEF_GLO(147,"##frame-slot-live?")
___DEF_GLO(148,"##gambcdir")
___DEF_GLO(149,"##gc")
___DEF_GLO(150,"##gc-final-will-registry!")
___DEF_GLO(151,"##gc-finalize!")
___DEF_GLO(152,"##gc-interrupt-jobs")
___DEF_GLO(153,"##gc-without-exceptions")
___DEF_GLO(154,"##get-current-time!")
___DEF_GLO(155,"##get-live-percent")
___DEF_GLO(156,"##get-max-heap")
___DEF_GLO(157,"##get-min-heap")
___DEF_GLO(158,"##get-standard-level")
___DEF_GLO(159,"##global-var->identifier")
___DEF_GLO(160,"##global-var-primitive-ref")
___DEF_GLO(161,"##global-var-primitive-set!")
___DEF_GLO(162,"##global-var-ref")
___DEF_GLO(163,"##global-var-set!")
___DEF_GLO(164,"##global-var?")
___DEF_GLO(165,"##heartbeat-interval-set!")
___DEF_GLO(166,"##interrupt-handler")
___DEF_GLO(167,"##interrupt-vector")
___DEF_GLO(168,"##interrupt-vector-set!")
___DEF_GLO(169,"##kernel-handlers")
___DEF_GLO(170,"##keyword-table")
___DEF_GLO(171,"##main")
___DEF_GLO(172,"##main-set!")
___DEF_GLO(173,"##make-f32vector")
___DEF_GLO(174,"##make-f64vector")
___DEF_GLO(175,"##make-final-will")
___DEF_GLO(176,"##make-global-var")
___DEF_GLO(177,"##make-interned-keyword")
___DEF_GLO(178,"##make-interned-symbol")
___DEF_GLO(179,"##make-interned-symkey")
___DEF_GLO(180,"##make-jobs")
___DEF_GLO(181,"##make-s16vector")
___DEF_GLO(182,"##make-s32vector")
___DEF_GLO(183,"##make-s64vector")
___DEF_GLO(184,"##make-s8vector")
___DEF_GLO(185,"##make-string")
___DEF_GLO(186,"##make-subprocedure")
___DEF_GLO(187,"##make-u16vector")
___DEF_GLO(188,"##make-u32vector")
___DEF_GLO(189,"##make-u64vector")
___DEF_GLO(190,"##make-u8vector")
___DEF_GLO(191,"##make-vector")
___DEF_GLO(192,"##max-char")
___DEF_GLO(193,"##max-fixnum")
___DEF_GLO(194,"##min-fixnum")
___DEF_GLO(195,"##object->global-var")
___DEF_GLO(196,"##object->global-var->identifier")
___DEF_GLO(197,"##os-condvar-select!")
___DEF_GLO(198,"##os-copy-file")
___DEF_GLO(199,"##os-create-directory")
___DEF_GLO(200,"##os-create-fifo")
___DEF_GLO(201,"##os-create-link")
___DEF_GLO(202,"##os-create-symbolic-link")
___DEF_GLO(203,"##os-delete-directory")
___DEF_GLO(204,"##os-delete-file")
___DEF_GLO(205,"##os-device-close")
___DEF_GLO(206,"##os-device-directory-open-path")
___DEF_GLO(207,"##os-device-directory-read")
___DEF_GLO(208,"##os-device-event-queue-open")
___DEF_GLO(209,"##os-device-event-queue-read")
___DEF_GLO(210,"##os-device-force-output")
___DEF_GLO(211,"##os-device-kind")
___DEF_GLO(212,"##os-device-process-pid")
___DEF_GLO(213,"##os-device-process-status")
___DEF_GLO(214,"##os-device-stream-default-options")

___DEF_GLO(215,"##os-device-stream-open-path")
___DEF_GLO(216,"##os-device-stream-open-predefined")

___DEF_GLO(217,"##os-device-stream-open-process")
___DEF_GLO(218,"##os-device-stream-options-set!")
___DEF_GLO(219,"##os-device-stream-read")
___DEF_GLO(220,"##os-device-stream-seek")
___DEF_GLO(221,"##os-device-stream-width")
___DEF_GLO(222,"##os-device-stream-write")
___DEF_GLO(223,"##os-device-tcp-client-open")
___DEF_GLO(224,"##os-device-tcp-client-socket-info")

___DEF_GLO(225,"##os-device-tcp-server-open")
___DEF_GLO(226,"##os-device-tcp-server-read")
___DEF_GLO(227,"##os-device-tty-history")
___DEF_GLO(228,"##os-device-tty-history-set!")
___DEF_GLO(229,"##os-device-tty-input-set!")
___DEF_GLO(230,"##os-device-tty-max-history-length-set!")

___DEF_GLO(231,"##os-device-tty-mode-set!")
___DEF_GLO(232,"##os-device-tty-paren-balance-duration-set!")

___DEF_GLO(233,"##os-device-tty-text-attributes-set!")

___DEF_GLO(234,"##os-device-tty-type-set!")
___DEF_GLO(235,"##os-environ")
___DEF_GLO(236,"##os-err-code->string")
___DEF_GLO(237,"##os-file-info")
___DEF_GLO(238,"##os-getenv")
___DEF_GLO(239,"##os-getpid")
___DEF_GLO(240,"##os-getppid")
___DEF_GLO(241,"##os-group-info")
___DEF_GLO(242,"##os-host-info")
___DEF_GLO(243,"##os-host-name")
___DEF_GLO(244,"##os-load-object-file")
___DEF_GLO(245,"##os-network-info")
___DEF_GLO(246,"##os-path-gambcdir")
___DEF_GLO(247,"##os-path-homedir")
___DEF_GLO(248,"##os-path-normalize-directory")
___DEF_GLO(249,"##os-port-decode-chars!")
___DEF_GLO(250,"##os-port-encode-chars!")
___DEF_GLO(251,"##os-protocol-info")
___DEF_GLO(252,"##os-rename-file")
___DEF_GLO(253,"##os-service-info")
___DEF_GLO(254,"##os-set-current-directory")
___DEF_GLO(255,"##os-setenv")
___DEF_GLO(256,"##os-shell-command")
___DEF_GLO(257,"##os-user-info")
___DEF_GLO(258,"##os-user-name")
___DEF_GLO(259,"##process-statistics")
___DEF_GLO(260,"##process-times")
___DEF_GLO(261,"##processed-command-line")
___DEF_GLO(262,"##program-descr")
___DEF_GLO(263,"##raise-cfun-conversion-exception-nary")

___DEF_GLO(264,"##raise-heap-overflow-exception")
___DEF_GLO(265,"##raise-keyword-expected-exception")

___DEF_GLO(266,"##raise-keyword-expected-exception-nary")

___DEF_GLO(267,"##raise-multiple-c-return-exception")

___DEF_GLO(268,"##raise-nonprocedure-operator-exception")

___DEF_GLO(269,"##raise-number-of-arguments-limit-exception")

___DEF_GLO(270,"##raise-os-exception")
___DEF_GLO(271,"##raise-sfun-conversion-exception")

___DEF_GLO(272,"##raise-stack-overflow-exception")
___DEF_GLO(273,"##raise-type-exception")
___DEF_GLO(274,"##raise-unknown-keyword-argument-exception")

___DEF_GLO(275,"##raise-unknown-keyword-argument-exception-nary")

___DEF_GLO(276,"##raise-wrong-number-of-arguments-exception")

___DEF_GLO(277,"##raise-wrong-number-of-arguments-exception-nary")

___DEF_GLO(278,"##rest-param-check-heap")
___DEF_GLO(279,"##rest-param-heap-overflow")
___DEF_GLO(280,"##rest-param-resume-procedure")
___DEF_GLO(281,"##return-fs")
___DEF_GLO(282,"##set-debug-settings!")
___DEF_GLO(283,"##set-live-percent!")
___DEF_GLO(284,"##set-max-heap!")
___DEF_GLO(285,"##set-min-heap!")
___DEF_GLO(286,"##set-standard-level!")
___DEF_GLO(287,"##still-copy")
___DEF_GLO(288,"##still-obj-refcount-dec!")
___DEF_GLO(289,"##still-obj-refcount-inc!")
___DEF_GLO(290,"##structure")
___DEF_GLO(291,"##structure-direct-instance-of?")
___DEF_GLO(292,"##structure-instance-of?")
___DEF_GLO(293,"##structure-ref")
___DEF_GLO(294,"##structure-set!")
___DEF_GLO(295,"##structure-type")
___DEF_GLO(296,"##structure-type-set!")
___DEF_GLO(297,"##subprocedure-id")
___DEF_GLO(298,"##subprocedure-nb-closed")
___DEF_GLO(299,"##subprocedure-nb-parameters")
___DEF_GLO(300,"##subprocedure-parent")
___DEF_GLO(301,"##subprocedure-parent-info")
___DEF_GLO(302,"##subprocedure-parent-name")
___DEF_GLO(303,"##subprocedure?")
___DEF_GLO(304,"##symbol-table")
___DEF_GLO(305,"##system-version")
___DEF_GLO(306,"##system-version-string")
___DEF_GLO(307,"##type-fields")
___DEF_GLO(308,"##type-flags")
___DEF_GLO(309,"##type-id")
___DEF_GLO(310,"##type-name")
___DEF_GLO(311,"##type-super")
___DEF_GLO(312,"##type-type")
___DEF_GLO(313,"##type?")
___DEF_GLO(314,"##unchecked-structure-ref")
___DEF_GLO(315,"##unchecked-structure-set!")
___DEF_GLO(316,"##with-no-result-expected")
___DEF_GLO(317,"cfun-conversion-exception-arguments")

___DEF_GLO(318,"cfun-conversion-exception-code")
___DEF_GLO(319,"cfun-conversion-exception-message")

___DEF_GLO(320,"cfun-conversion-exception-procedure")

___DEF_GLO(321,"cfun-conversion-exception?")
___DEF_GLO(322,"err-code->string")
___DEF_GLO(323,"foreign-address")
___DEF_GLO(324,"foreign-release!")
___DEF_GLO(325,"foreign-released?")
___DEF_GLO(326,"heap-overflow-exception?")
___DEF_GLO(327,"keyword-expected-exception-arguments")

___DEF_GLO(328,"keyword-expected-exception-procedure")

___DEF_GLO(329,"keyword-expected-exception?")
___DEF_GLO(330,"multiple-c-return-exception?")
___DEF_GLO(331,"nonprocedure-operator-exception-arguments")

___DEF_GLO(332,"nonprocedure-operator-exception-code")

___DEF_GLO(333,"nonprocedure-operator-exception-operator")

___DEF_GLO(334,"nonprocedure-operator-exception-rte")

___DEF_GLO(335,"nonprocedure-operator-exception?")
___DEF_GLO(336,"number-of-arguments-limit-exception-arguments")

___DEF_GLO(337,"number-of-arguments-limit-exception-procedure")

___DEF_GLO(338,"number-of-arguments-limit-exception?")

___DEF_GLO(339,"os-exception-arguments")
___DEF_GLO(340,"os-exception-code")
___DEF_GLO(341,"os-exception-message")
___DEF_GLO(342,"os-exception-procedure")
___DEF_GLO(343,"os-exception?")
___DEF_GLO(344,"sfun-conversion-exception-arguments")

___DEF_GLO(345,"sfun-conversion-exception-code")
___DEF_GLO(346,"sfun-conversion-exception-message")

___DEF_GLO(347,"sfun-conversion-exception-procedure")

___DEF_GLO(348,"sfun-conversion-exception?")
___DEF_GLO(349,"stack-overflow-exception?")
___DEF_GLO(350,"system-version")
___DEF_GLO(351,"system-version-string")
___DEF_GLO(352,"type-exception-arg-num")
___DEF_GLO(353,"type-exception-arguments")
___DEF_GLO(354,"type-exception-procedure")
___DEF_GLO(355,"type-exception-type-id")
___DEF_GLO(356,"type-exception?")
___DEF_GLO(357,"unknown-keyword-argument-exception-arguments")

___DEF_GLO(358,"unknown-keyword-argument-exception-procedure")

___DEF_GLO(359,"unknown-keyword-argument-exception?")

___DEF_GLO(360,"wrong-number-of-arguments-exception-arguments")

___DEF_GLO(361,"wrong-number-of-arguments-exception-procedure")

___DEF_GLO(362,"wrong-number-of-arguments-exception?")

___END_GLO

___DEF_SUB_VEC(___X0,6)
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(15,___S__23__23_type_2d_5))
               ___VEC1(___REF_SYM(66,___S_type))
               ___VEC1(___REF_FIX(8))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SUB(1))
               ___VEC0
___DEF_SUB_VEC(___X1,15)
               ___VEC1(___REF_SYM(39,___S_id))
               ___VEC1(___REF_FIX(1))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(44,___S_name))
               ___VEC1(___REF_FIX(5))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(35,___S_flags))
               ___VEC1(___REF_FIX(5))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(57,___S_super))
               ___VEC1(___REF_FIX(5))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(34,___S_fields))
               ___VEC1(___REF_FIX(5))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_STR(___X2,0)
               ___STR0
___DEF_SUB_STR(___X3,0)
               ___STR0
___DEF_SUB_STRUCTURE(___X4,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(9,___S__23__23_type_2d_26_2d_d05e0aa7_2d_e235_2d_441d_2d_aa41_2d_c1ac02065460))
               ___VEC1(___REF_SYM(59,___S_thread))
               ___VEC1(___REF_FIX(31))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SUB(7))
               ___VEC0
___DEF_SUB_STRUCTURE(___X5,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(15,___S__23__23_type_2d_5))
               ___VEC1(___REF_SYM(66,___S_type))
               ___VEC1(___REF_FIX(8))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SUB(6))
               ___VEC0
___DEF_SUB_VEC(___X6,15)
               ___VEC1(___REF_SYM(39,___S_id))
               ___VEC1(___REF_FIX(1))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(44,___S_name))
               ___VEC1(___REF_FIX(5))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(35,___S_flags))
               ___VEC1(___REF_FIX(5))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(57,___S_super))
               ___VEC1(___REF_FIX(5))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(34,___S_fields))
               ___VEC1(___REF_FIX(5))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_VEC(___X7,78)
               ___VEC1(___REF_SYM(19,___S_btq_2d_deq_2d_next))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(20,___S_btq_2d_deq_2d_prev))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(18,___S_btq_2d_color))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(23,___S_btq_2d_parent))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(21,___S_btq_2d_left))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(22,___S_btq_2d_leftmost))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(58,___S_tgroup))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(62,___S_toq_2d_color))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(65,___S_toq_2d_parent))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(63,___S_toq_2d_left))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(64,___S_toq_2d_leftmost))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(60,___S_threads_2d_deq_2d_next))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(61,___S_threads_2d_deq_2d_prev))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(36,___S_floats))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(44,___S_name))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(31,___S_end_2d_condvar))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(33,___S_exception_3f_))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(52,___S_result))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(26,___S_cont))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(27,___S_denv))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(28,___S_denv_2d_cache1))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(29,___S_denv_2d_cache2))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(30,___S_denv_2d_cache3))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(51,___S_repl_2d_channel))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(41,___S_mailbox))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(55,___S_specific))
               ___VEC1(___REF_FIX(9))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_FLO(___X8,0x0L,0x0L)
___DEF_SUB_STRUCTURE(___X9,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(2,___S__23__23_type_2d_0_2d_d69cd396_2d_01e0_2d_4dcb_2d_87dc_2d_31acea8e0e5f))
               ___VEC1(___REF_SYM(38,___S_heap_2d_overflow_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(12))
               ___VEC0
___DEF_SUB_STRUCTURE(___X10,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(0,___S__23__23_type_2d_0_2d_0bf9b656_2d_b071_2d_404a_2d_a514_2d_0fb9d05cf518))
               ___VEC1(___REF_SYM(32,___S_exception))
               ___VEC1(___REF_FIX(31))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SUB(11))
               ___VEC0
___DEF_SUB_VEC(___X11,0)
               ___VEC0
___DEF_SUB_VEC(___X12,0)
               ___VEC0
___DEF_SUB_STRUCTURE(___X13,1)
               ___VEC1(___REF_SUB(9))
               ___VEC0
___DEF_SUB_STRUCTURE(___X14,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(3,___S__23__23_type_2d_0_2d_f512c9f6_2d_3b24_2d_4c5c_2d_8c8b_2d_cabd75b2f951))
               ___VEC1(___REF_SYM(56,___S_stack_2d_overflow_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(15))
               ___VEC0
___DEF_SUB_VEC(___X15,0)
               ___VEC0
___DEF_SUB_STRUCTURE(___X16,1)
               ___VEC1(___REF_SUB(14))
               ___VEC0
___DEF_SUB_STRUCTURE(___X17,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(14,___S__23__23_type_2d_4_2d_f39d07ce_2d_436d_2d_40ca_2d_b81f_2d_cdc65d16b7f2))
               ___VEC1(___REF_SYM(46,___S_nonprocedure_2d_operator_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(18))
               ___VEC0
___DEF_SUB_VEC(___X18,12)
               ___VEC1(___REF_SYM(48,___S_operator))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(17,___S_arguments))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(25,___S_code))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(53,___S_rte))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_STRUCTURE(___X19,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(4,___S__23__23_type_2d_2_2d_2138cd7f_2d_8c42_2d_4164_2d_b56a_2d_a8c7badf3323))
               ___VEC1(___REF_SYM(70,___S_wrong_2d_number_2d_of_2d_arguments_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(20))
               ___VEC0
___DEF_SUB_VEC(___X20,6)
               ___VEC1(___REF_SYM(50,___S_procedure))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(17,___S_arguments))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_STRUCTURE(___X21,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(7,___S__23__23_type_2d_2_2d_3fd6c57f_2d_3c80_2d_4436_2d_a430_2d_57ea4457c11e))
               ___VEC1(___REF_SYM(40,___S_keyword_2d_expected_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(22))
               ___VEC0
___DEF_SUB_VEC(___X22,6)
               ___VEC1(___REF_SYM(50,___S_procedure))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(17,___S_arguments))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_STRUCTURE(___X23,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(6,___S__23__23_type_2d_2_2d_3f9f8aaa_2d_ea21_2d_4f2b_2d_bc06_2d_f65950e6c408))
               ___VEC1(___REF_SYM(69,___S_unknown_2d_keyword_2d_argument_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(24))
               ___VEC0
___DEF_SUB_VEC(___X24,6)
               ___VEC1(___REF_SYM(50,___S_procedure))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(17,___S_arguments))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_STRUCTURE(___X25,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(11,___S__23__23_type_2d_4_2d_9f09b552_2d_0fb7_2d_42c5_2d_b0d4_2d_212155841d53))
               ___VEC1(___REF_SYM(24,___S_cfun_2d_conversion_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(26))
               ___VEC0
___DEF_SUB_VEC(___X26,12)
               ___VEC1(___REF_SYM(50,___S_procedure))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(17,___S_arguments))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(25,___S_code))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(42,___S_message))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_STRUCTURE(___X27,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(10,___S__23__23_type_2d_4_2d_54dfbc02_2d_718d_2d_4a34_2d_91ab_2d_d1861da7500a))
               ___VEC1(___REF_SYM(54,___S_sfun_2d_conversion_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(28))
               ___VEC0
___DEF_SUB_VEC(___X28,12)
               ___VEC1(___REF_SYM(50,___S_procedure))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(17,___S_arguments))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(25,___S_code))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(42,___S_message))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_STRUCTURE(___X29,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(1,___S__23__23_type_2d_0_2d_73c66686_2d_a08f_2d_4c7c_2d_a0f1_2d_5ad7771f242a))
               ___VEC1(___REF_SYM(43,___S_multiple_2d_c_2d_return_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(30))
               ___VEC0
___DEF_SUB_VEC(___X30,0)
               ___VEC0
___DEF_SUB_STRUCTURE(___X31,1)
               ___VEC1(___REF_SUB(29))
               ___VEC0
___DEF_SUB_STRUCTURE(___X32,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(8,___S__23__23_type_2d_2_2d_f9519b37_2d_d6d4_2d_4748_2d_8eb1_2d_a0c8dc18c5e7))
               ___VEC1(___REF_SYM(47,___S_number_2d_of_2d_arguments_2d_limit_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(33))
               ___VEC0
___DEF_SUB_VEC(___X33,6)
               ___VEC1(___REF_SYM(50,___S_procedure))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(17,___S_arguments))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_STRUCTURE(___X34,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(13,___S__23__23_type_2d_4_2d_cf06eccd_2d_bf2c_2d_4b30_2d_a6ce_2d_394b345a0dee))
               ___VEC1(___REF_SYM(67,___S_type_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(35))
               ___VEC0
___DEF_SUB_VEC(___X35,12)
               ___VEC1(___REF_SYM(50,___S_procedure))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(17,___S_arguments))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(16,___S_arg_2d_num))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(68,___S_type_2d_id))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_STRUCTURE(___X36,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(12,___S__23__23_type_2d_4_2d_c1fc166b_2d_d951_2d_4871_2d_853c_2d_2b6c8c12d28d))
               ___VEC1(___REF_SYM(49,___S_os_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(37))
               ___VEC0
___DEF_SUB_VEC(___X37,12)
               ___VEC1(___REF_SYM(50,___S_procedure))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(17,___S_arguments))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(42,___S_message))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(25,___S_code))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_STRUCTURE(___X38,6)
               ___VEC1(___REF_SUB(5))
               ___VEC1(___REF_SYM(5,___S__23__23_type_2d_2_2d_299ccee1_2d_77d2_2d_4a6d_2d_ab24_2d_2ebf14297315))
               ___VEC1(___REF_SYM(45,___S_no_2d_such_2d_file_2d_or_2d_directory_2d_exception))
               ___VEC1(___REF_FIX(29))
               ___VEC1(___REF_SUB(10))
               ___VEC1(___REF_SUB(39))
               ___VEC0
___DEF_SUB_VEC(___X39,6)
               ___VEC1(___REF_SYM(50,___S_procedure))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC1(___REF_SYM(17,___S_arguments))
               ___VEC1(___REF_FIX(3))
               ___VEC1(___REF_FAL)
               ___VEC0
___DEF_SUB_STR(___X40,11)
               ___STR8(52,46,48,32,98,101,116,97)
               ___STR3(32,50,48)

___BEGIN_SUB
 ___DEF_SUB(___X0)
,___DEF_SUB(___X1)
,___DEF_SUB(___X2)
,___DEF_SUB(___X3)
,___DEF_SUB(___X4)
,___DEF_SUB(___X5)
,___DEF_SUB(___X6)
,___DEF_SUB(___X7)
,___DEF_SUB(___X8)
,___DEF_SUB(___X9)
,___DEF_SUB(___X10)
,___DEF_SUB(___X11)
,___DEF_SUB(___X12)
,___DEF_SUB(___X13)
,___DEF_SUB(___X14)
,___DEF_SUB(___X15)
,___DEF_SUB(___X16)
,___DEF_SUB(___X17)
,___DEF_SUB(___X18)
,___DEF_SUB(___X19)
,___DEF_SUB(___X20)
,___DEF_SUB(___X21)
,___DEF_SUB(___X22)
,___DEF_SUB(___X23)
,___DEF_SUB(___X24)
,___DEF_SUB(___X25)
,___DEF_SUB(___X26)
,___DEF_SUB(___X27)
,___DEF_SUB(___X28)
,___DEF_SUB(___X29)
,___DEF_SUB(___X30)
,___DEF_SUB(___X31)
,___DEF_SUB(___X32)
,___DEF_SUB(___X33)
,___DEF_SUB(___X34)
,___DEF_SUB(___X35)
,___DEF_SUB(___X36)
,___DEF_SUB(___X37)
,___DEF_SUB(___X38)
,___DEF_SUB(___X39)
,___DEF_SUB(___X40)
___END_SUB




#include "os.h"
#include "os_base.h"
#include "os_time.h"
#include "os_shell.h"
#include "os_files.h"
#include "os_dyn.h"
#include "os_tty.h"
#include "os_io.h"
#include "setup.h"
#include "mem.h"
#include "c_intf.h"


#undef ___MD_ALL
#define ___MD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___MR_ALL
#define ___MR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___MW_ALL
#define ___MW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_M_COD
___BEGIN_M_HLBL
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel)
___DEF_M_HLBL(___L1__20___kernel)
___DEF_M_HLBL(___L2__20___kernel)
___DEF_M_HLBL(___L3__20___kernel)
___DEF_M_HLBL(___L4__20___kernel)
___DEF_M_HLBL(___L5__20___kernel)
___DEF_M_HLBL(___L6__20___kernel)
___DEF_M_HLBL(___L7__20___kernel)
___DEF_M_HLBL(___L8__20___kernel)
___DEF_M_HLBL(___L9__20___kernel)
___DEF_M_HLBL(___L10__20___kernel)
___DEF_M_HLBL(___L11__20___kernel)
___DEF_M_HLBL(___L12__20___kernel)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L1__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L2__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L3__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L4__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L5__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L6__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L7__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L8__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L9__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L10__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L11__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L12__23__23_kernel_2d_handlers)
___DEF_M_HLBL(___L13__23__23_kernel_2d_handlers)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_dynamic_2d_env_2d_bind)
___DEF_M_HLBL(___L1__23__23_dynamic_2d_env_2d_bind)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_disable_2d_interrupts_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_enable_2d_interrupts_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_interrupt_2d_handler)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_interrupt_2d_vector_2d_set_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_heartbeat_2d_interval_2d_set_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_heap_2d_overflow_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_M_HLBL(___L1__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_stack_2d_overflow_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_stack_2d_overflow_2d_exception)
___DEF_M_HLBL(___L1__23__23_raise_2d_stack_2d_overflow_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_nonprocedure_2d_operator_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_nonprocedure_2d_operator_2d_exception_2d_operator)
___DEF_M_HLBL(___L1_nonprocedure_2d_operator_2d_exception_2d_operator)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_nonprocedure_2d_operator_2d_exception_2d_arguments)
___DEF_M_HLBL(___L1_nonprocedure_2d_operator_2d_exception_2d_arguments)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_nonprocedure_2d_operator_2d_exception_2d_code)
___DEF_M_HLBL(___L1_nonprocedure_2d_operator_2d_exception_2d_code)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_nonprocedure_2d_operator_2d_exception_2d_rte)
___DEF_M_HLBL(___L1_nonprocedure_2d_operator_2d_exception_2d_rte)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_apply_2d_global_2d_with_2d_procedure_2d_check_2d_nary)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_apply_2d_with_2d_procedure_2d_check_2d_nary)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_apply_2d_with_2d_procedure_2d_check)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_nonprocedure_2d_operator_2d_exception)
___DEF_M_HLBL(___L1__23__23_raise_2d_nonprocedure_2d_operator_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_wrong_2d_number_2d_of_2d_arguments_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure)
___DEF_M_HLBL(___L1_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments)
___DEF_M_HLBL(___L1_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___DEF_M_HLBL(___L1__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_keyword_2d_expected_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_keyword_2d_expected_2d_exception_2d_procedure)
___DEF_M_HLBL(___L1_keyword_2d_expected_2d_exception_2d_procedure)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_keyword_2d_expected_2d_exception_2d_arguments)
___DEF_M_HLBL(___L1_keyword_2d_expected_2d_exception_2d_arguments)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_keyword_2d_expected_2d_exception_2d_nary)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_keyword_2d_expected_2d_exception)
___DEF_M_HLBL(___L1__23__23_raise_2d_keyword_2d_expected_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_unknown_2d_keyword_2d_argument_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure)
___DEF_M_HLBL(___L1_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments)
___DEF_M_HLBL(___L1_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception_2d_nary)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception)
___DEF_M_HLBL(___L1__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_cfun_2d_conversion_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_cfun_2d_conversion_2d_exception_2d_procedure)
___DEF_M_HLBL(___L1_cfun_2d_conversion_2d_exception_2d_procedure)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_cfun_2d_conversion_2d_exception_2d_arguments)
___DEF_M_HLBL(___L1_cfun_2d_conversion_2d_exception_2d_arguments)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_cfun_2d_conversion_2d_exception_2d_code)
___DEF_M_HLBL(___L1_cfun_2d_conversion_2d_exception_2d_code)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_cfun_2d_conversion_2d_exception_2d_message)
___DEF_M_HLBL(___L1_cfun_2d_conversion_2d_exception_2d_message)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary)
___DEF_M_HLBL(___L1__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_sfun_2d_conversion_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_sfun_2d_conversion_2d_exception_2d_procedure)
___DEF_M_HLBL(___L1_sfun_2d_conversion_2d_exception_2d_procedure)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_sfun_2d_conversion_2d_exception_2d_arguments)
___DEF_M_HLBL(___L1_sfun_2d_conversion_2d_exception_2d_arguments)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_sfun_2d_conversion_2d_exception_2d_code)
___DEF_M_HLBL(___L1_sfun_2d_conversion_2d_exception_2d_code)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_sfun_2d_conversion_2d_exception_2d_message)
___DEF_M_HLBL(___L1_sfun_2d_conversion_2d_exception_2d_message)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_sfun_2d_conversion_2d_exception)
___DEF_M_HLBL(___L1__23__23_raise_2d_sfun_2d_conversion_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_multiple_2d_c_2d_return_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_multiple_2d_c_2d_return_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_number_2d_of_2d_arguments_2d_limit_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure)
___DEF_M_HLBL(___L1_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments)
___DEF_M_HLBL(___L1_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___DEF_M_HLBL(___L1__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_type_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_type_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_type_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_type_2d_exception_2d_procedure)
___DEF_M_HLBL(___L1_type_2d_exception_2d_procedure)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_type_2d_exception_2d_arguments)
___DEF_M_HLBL(___L1_type_2d_exception_2d_arguments)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_type_2d_exception_2d_arg_2d_num)
___DEF_M_HLBL(___L1_type_2d_exception_2d_arg_2d_num)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_type_2d_exception_2d_type_2d_id)
___DEF_M_HLBL(___L1_type_2d_exception_2d_type_2d_id)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_type_2d_exception)
___DEF_M_HLBL(___L1__23__23_raise_2d_type_2d_exception)
___DEF_M_HLBL(___L2__23__23_raise_2d_type_2d_exception)
___DEF_M_HLBL(___L3__23__23_raise_2d_type_2d_exception)
___DEF_M_HLBL(___L4__23__23_raise_2d_type_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_os_2d_exception)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_os_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_os_2d_exception_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_os_2d_exception_2d_procedure)
___DEF_M_HLBL(___L1_os_2d_exception_2d_procedure)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_os_2d_exception_2d_arguments)
___DEF_M_HLBL(___L1_os_2d_exception_2d_arguments)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_os_2d_exception_2d_message)
___DEF_M_HLBL(___L1_os_2d_exception_2d_message)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_os_2d_exception_2d_code)
___DEF_M_HLBL(___L1_os_2d_exception_2d_code)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_raise_2d_os_2d_exception)
___DEF_M_HLBL(___L1__23__23_raise_2d_os_2d_exception)
___DEF_M_HLBL(___L2__23__23_raise_2d_os_2d_exception)
___DEF_M_HLBL(___L3__23__23_raise_2d_os_2d_exception)
___DEF_M_HLBL(___L4__23__23_raise_2d_os_2d_exception)
___DEF_M_HLBL(___L5__23__23_raise_2d_os_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_M_HLBL(___L1__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_M_HLBL(___L2__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_M_HLBL(___L3__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___DEF_M_HLBL(___L1__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___DEF_M_HLBL(___L2__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___DEF_M_HLBL(___L3__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
___DEF_M_HLBL(___L1__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
___DEF_M_HLBL(___L2__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_M_HLBL(___L1__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_M_HLBL(___L2__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_M_HLBL(___L3__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_M_HLBL(___L4__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_M_HLBL(___L5__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_M_HLBL(___L6__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_M_HLBL(___L7__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_M_HLBL(___L8__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_M_HLBL(___L9__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_force_2d_undetermined)
___DEF_M_HLBL(___L1__23__23_force_2d_undetermined)
___DEF_M_HLBL(___L2__23__23_force_2d_undetermined)
___DEF_M_HLBL(___L3__23__23_force_2d_undetermined)
___DEF_M_HLBL(___L4__23__23_force_2d_undetermined)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_jobs)
___DEF_M_HLBL(___L1__23__23_make_2d_jobs)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_add_2d_job_2d_at_2d_tail_21_)
___DEF_M_HLBL(___L1__23__23_add_2d_job_2d_at_2d_tail_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_add_2d_job_21_)
___DEF_M_HLBL(___L1__23__23_add_2d_job_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_execute_2d_jobs_21_)
___DEF_M_HLBL(___L1__23__23_execute_2d_jobs_21_)
___DEF_M_HLBL(___L2__23__23_execute_2d_jobs_21_)
___DEF_M_HLBL(___L3__23__23_execute_2d_jobs_21_)
___DEF_M_HLBL(___L4__23__23_execute_2d_jobs_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_M_HLBL(___L1__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_M_HLBL(___L2__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_M_HLBL(___L3__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_M_HLBL(___L4__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_clear_2d_jobs_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_check_2d_heap_2d_limit)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_check_2d_heap)
___DEF_M_HLBL(___L1__23__23_check_2d_heap)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_rest_2d_param_2d_check_2d_heap)
___DEF_M_HLBL(___L1__23__23_rest_2d_param_2d_check_2d_heap)
___DEF_M_HLBL(___L2__23__23_rest_2d_param_2d_check_2d_heap)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_rest_2d_param_2d_heap_2d_overflow)
___DEF_M_HLBL(___L1__23__23_rest_2d_param_2d_heap_2d_overflow)
___DEF_M_HLBL(___L2__23__23_rest_2d_param_2d_heap_2d_overflow)
___DEF_M_HLBL(___L3__23__23_rest_2d_param_2d_heap_2d_overflow)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_rest_2d_param_2d_resume_2d_procedure)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_gc_2d_without_2d_exceptions)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_gc)
___DEF_M_HLBL(___L1__23__23_gc)
___DEF_M_HLBL(___L2__23__23_gc)
___DEF_M_HLBL(___L3__23__23_gc)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_add_2d_gc_2d_interrupt_2d_job_21_)
___DEF_M_HLBL(___L1__23__23_add_2d_gc_2d_interrupt_2d_job_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_)
___DEF_M_HLBL(___L1__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_gc_2d_finalize_21_)
___DEF_M_HLBL(___L1__23__23_gc_2d_finalize_21_)
___DEF_M_HLBL(___L2__23__23_gc_2d_finalize_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_execute_2d_final_2d_wills_21_)
___DEF_M_HLBL(___L1__23__23_execute_2d_final_2d_wills_21_)
___DEF_M_HLBL(___L2__23__23_execute_2d_final_2d_wills_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_gc_2d_final_2d_will_2d_registry_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_final_2d_will)
___DEF_M_HLBL(___L1__23__23_make_2d_final_2d_will)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_get_2d_min_2d_heap)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_set_2d_min_2d_heap_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_get_2d_max_2d_heap)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_set_2d_max_2d_heap_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_get_2d_live_2d_percent)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_set_2d_live_2d_percent_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_get_2d_standard_2d_level)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_set_2d_standard_2d_level_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_set_2d_debug_2d_settings_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_still_2d_copy)
___DEF_M_HLBL(___L1__23__23_still_2d_copy)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_still_2d_obj_2d_refcount_2d_inc_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_still_2d_obj_2d_refcount_2d_dec_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_vector)
___DEF_M_HLBL(___L1__23__23_make_2d_vector)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_string)
___DEF_M_HLBL(___L1__23__23_make_2d_string)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_s8vector)
___DEF_M_HLBL(___L1__23__23_make_2d_s8vector)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_u8vector)
___DEF_M_HLBL(___L1__23__23_make_2d_u8vector)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_s16vector)
___DEF_M_HLBL(___L1__23__23_make_2d_s16vector)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_u16vector)
___DEF_M_HLBL(___L1__23__23_make_2d_u16vector)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_s32vector)
___DEF_M_HLBL(___L1__23__23_make_2d_s32vector)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_u32vector)
___DEF_M_HLBL(___L1__23__23_make_2d_u32vector)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_s64vector)
___DEF_M_HLBL(___L1__23__23_make_2d_s64vector)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_u64vector)
___DEF_M_HLBL(___L1__23__23_make_2d_u64vector)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_f32vector)
___DEF_M_HLBL(___L1__23__23_make_2d_f32vector)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_f64vector)
___DEF_M_HLBL(___L1__23__23_make_2d_f64vector)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_apply)
___DEF_M_HLBL(___L1__23__23_apply)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_closure_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_closure_2d_length)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_closure_2d_code)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_closure_2d_ref)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_closure_2d_set_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_subprocedure_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_subprocedure_2d_id)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_subprocedure_2d_parent)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_subprocedure_2d_nb_2d_parameters)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_subprocedure_2d_nb_2d_closed)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_subprocedure)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_subprocedure_2d_parent_2d_info)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_subprocedure_2d_parent_2d_name)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_explode_2d_continuation)
___DEF_M_HLBL(___L1__23__23_explode_2d_continuation)
___DEF_M_HLBL(___L2__23__23_explode_2d_continuation)
___DEF_M_HLBL(___L3__23__23_explode_2d_continuation)
___DEF_M_HLBL(___L4__23__23_explode_2d_continuation)
___DEF_M_HLBL(___L5__23__23_explode_2d_continuation)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_continuation_2d_frame)
___DEF_M_HLBL(___L1__23__23_continuation_2d_frame)
___DEF_M_HLBL(___L2__23__23_continuation_2d_frame)
___DEF_M_HLBL(___L3__23__23_continuation_2d_frame)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_continuation_2d_denv)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_explode_2d_frame)
___DEF_M_HLBL(___L1__23__23_explode_2d_frame)
___DEF_M_HLBL(___L2__23__23_explode_2d_frame)
___DEF_M_HLBL(___L3__23__23_explode_2d_frame)
___DEF_M_HLBL(___L4__23__23_explode_2d_frame)
___DEF_M_HLBL(___L5__23__23_explode_2d_frame)
___DEF_M_HLBL(___L6__23__23_explode_2d_frame)
___DEF_M_HLBL(___L7__23__23_explode_2d_frame)
___DEF_M_HLBL(___L8__23__23_explode_2d_frame)
___DEF_M_HLBL(___L9__23__23_explode_2d_frame)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_frame_2d_ret)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_continuation_2d_ret)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_return_2d_fs)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_frame_2d_fs)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_continuation_2d_fs)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_frame_2d_link)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_continuation_2d_link)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_frame_2d_slot_2d_live_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_continuation_2d_slot_2d_live_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_frame_2d_ref)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_continuation_2d_ref)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_continuation_2d_next)
___DEF_M_HLBL(___L1__23__23_continuation_2d_next)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_type_2d_id)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_type_2d_name)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_type_2d_flags)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_type_2d_super)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_type_2d_fields)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_structure_2d_direct_2d_instance_2d_of_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_structure_2d_instance_2d_of_3f_)
___DEF_M_HLBL(___L1__23__23_structure_2d_instance_2d_of_3f_)
___DEF_M_HLBL(___L2__23__23_structure_2d_instance_2d_of_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_type_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_structure_2d_type)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_structure_2d_type_2d_set_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_structure)
___DEF_M_HLBL(___L1__23__23_structure)
___DEF_M_HLBL(___L2__23__23_structure)
___DEF_M_HLBL(___L3__23__23_structure)
___DEF_M_HLBL(___L4__23__23_structure)
___DEF_M_HLBL(___L5__23__23_structure)
___DEF_M_HLBL(___L6__23__23_structure)
___DEF_M_HLBL(___L7__23__23_structure)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_structure_2d_ref)
___DEF_M_HLBL(___L1__23__23_structure_2d_ref)
___DEF_M_HLBL(___L2__23__23_structure_2d_ref)
___DEF_M_HLBL(___L3__23__23_structure_2d_ref)
___DEF_M_HLBL(___L4__23__23_structure_2d_ref)
___DEF_M_HLBL(___L5__23__23_structure_2d_ref)
___DEF_M_HLBL(___L6__23__23_structure_2d_ref)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_structure_2d_set_21_)
___DEF_M_HLBL(___L1__23__23_structure_2d_set_21_)
___DEF_M_HLBL(___L2__23__23_structure_2d_set_21_)
___DEF_M_HLBL(___L3__23__23_structure_2d_set_21_)
___DEF_M_HLBL(___L4__23__23_structure_2d_set_21_)
___DEF_M_HLBL(___L5__23__23_structure_2d_set_21_)
___DEF_M_HLBL(___L6__23__23_structure_2d_set_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_direct_2d_structure_2d_ref)
___DEF_M_HLBL(___L1__23__23_direct_2d_structure_2d_ref)
___DEF_M_HLBL(___L2__23__23_direct_2d_structure_2d_ref)
___DEF_M_HLBL(___L3__23__23_direct_2d_structure_2d_ref)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_direct_2d_structure_2d_set_21_)
___DEF_M_HLBL(___L1__23__23_direct_2d_structure_2d_set_21_)
___DEF_M_HLBL(___L2__23__23_direct_2d_structure_2d_set_21_)
___DEF_M_HLBL(___L3__23__23_direct_2d_structure_2d_set_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_unchecked_2d_structure_2d_ref)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_unchecked_2d_structure_2d_set_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_symbol_2d_table)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_keyword_2d_table)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_interned_2d_symbol)
___DEF_M_HLBL(___L1__23__23_make_2d_interned_2d_symbol)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_interned_2d_keyword)
___DEF_M_HLBL(___L1__23__23_make_2d_interned_2d_keyword)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_interned_2d_symkey)
___DEF_M_HLBL(___L1__23__23_make_2d_interned_2d_symkey)
___DEF_M_HLBL(___L2__23__23_make_2d_interned_2d_symkey)
___DEF_M_HLBL(___L3__23__23_make_2d_interned_2d_symkey)
___DEF_M_HLBL(___L4__23__23_make_2d_interned_2d_symkey)
___DEF_M_HLBL(___L5__23__23_make_2d_interned_2d_symkey)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_make_2d_global_2d_var)
___DEF_M_HLBL(___L1__23__23_make_2d_global_2d_var)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_global_2d_var_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_global_2d_var_2d_ref)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_global_2d_var_2d_primitive_2d_ref)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_global_2d_var_2d_set_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_global_2d_var_2d_primitive_2d_set_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
___DEF_M_HLBL(___L1__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
___DEF_M_HLBL(___L2__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
___DEF_M_HLBL(___L3__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_object_2d__3e_global_2d_var)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_global_2d_var_2d__3e_identifier)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_fail_2d_check_2d_foreign)
___DEF_M_HLBL(___L1__23__23_fail_2d_check_2d_foreign)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_foreign_2d_released_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_foreign_2d_released_3f_)
___DEF_M_HLBL(___L1_foreign_2d_released_3f_)
___DEF_M_HLBL(___L2_foreign_2d_released_3f_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_foreign_2d_release_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_foreign_2d_release_21_)
___DEF_M_HLBL(___L1_foreign_2d_release_21_)
___DEF_M_HLBL(___L2_foreign_2d_release_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_foreign_2d_address)
___DEF_M_HLBL(___L1__23__23_foreign_2d_address)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_foreign_2d_address)
___DEF_M_HLBL(___L1_foreign_2d_address)
___DEF_M_HLBL(___L2_foreign_2d_address)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_system_2d_version)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_system_2d_version)
___DEF_M_HLBL(___L1_system_2d_version)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_system_2d_version_2d_string)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_system_2d_version_2d_string)
___DEF_M_HLBL(___L1_system_2d_version_2d_string)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_first_2d_argument)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_with_2d_no_2d_result_2d_expected)
___DEF_M_HLBL(___L1__23__23_with_2d_no_2d_result_2d_expected)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_process_2d_statistics)
___DEF_M_HLBL(___L1__23__23_process_2d_statistics)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_process_2d_times)
___DEF_M_HLBL(___L1__23__23_process_2d_times)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_get_2d_current_2d_time_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0_err_2d_code_2d__3e_string)
___DEF_M_HLBL(___L1_err_2d_code_2d__3e_string)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_command_2d_line)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_os_2d_condvar_2d_select_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_add_2d_exit_2d_job_21_)
___DEF_M_HLBL(___L1__23__23_add_2d_exit_2d_job_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_clear_2d_exit_2d_jobs_21_)
___DEF_M_HLBL(___L1__23__23_clear_2d_exit_2d_jobs_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_exit_2d_with_2d_err_2d_code_2d_no_2d_cleanup)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_exit_2d_cleanup)
___DEF_M_HLBL(___L1__23__23_exit_2d_cleanup)
___DEF_M_HLBL(___L2__23__23_exit_2d_cleanup)
___DEF_M_HLBL(___L3__23__23_exit_2d_cleanup)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_exit_2d_with_2d_err_2d_code)
___DEF_M_HLBL(___L1__23__23_exit_2d_with_2d_err_2d_code)
___DEF_M_HLBL(___L2__23__23_exit_2d_with_2d_err_2d_code)
___DEF_M_HLBL(___L3__23__23_exit_2d_with_2d_err_2d_code)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_exit)
___DEF_M_HLBL(___L1__23__23_exit)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_exit_2d_abnormally)
___DEF_M_HLBL(___L1__23__23_exit_2d_abnormally)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_exit_2d_with_2d_exception)
___DEF_M_HLBL(___L1__23__23_exit_2d_with_2d_exception)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_main_2d_set_21_)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_execute_2d_modules)
___DEF_M_HLBL(___L1__23__23_execute_2d_modules)
___DEF_M_HLBL(___L2__23__23_execute_2d_modules)
___DEF_M_HLBL(___L3__23__23_execute_2d_modules)
___DEF_M_HLBL(___L4__23__23_execute_2d_modules)
___DEF_M_HLBL(___L5__23__23_execute_2d_modules)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_execute_2d_program)
___DEF_M_HLBL(___L1__23__23_execute_2d_program)
___DEF_M_HLBL(___L2__23__23_execute_2d_program)
___DEF_M_HLBL(___L3__23__23_execute_2d_program)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_0)
___DEF_M_HLBL(___L1__20___kernel_23_0)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_1)
___DEF_M_HLBL(___L1__20___kernel_23_1)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_2)
___DEF_M_HLBL(___L1__20___kernel_23_2)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_3)
___DEF_M_HLBL(___L1__20___kernel_23_3)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_4)
___DEF_M_HLBL(___L1__20___kernel_23_4)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_5)
___DEF_M_HLBL(___L1__20___kernel_23_5)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_6)
___DEF_M_HLBL(___L1__20___kernel_23_6)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_7)
___DEF_M_HLBL(___L1__20___kernel_23_7)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_8)
___DEF_M_HLBL(___L1__20___kernel_23_8)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_9)
___DEF_M_HLBL(___L1__20___kernel_23_9)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_10)
___DEF_M_HLBL(___L1__20___kernel_23_10)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_11)
___DEF_M_HLBL(___L1__20___kernel_23_11)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_12)
___DEF_M_HLBL(___L1__20___kernel_23_12)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_13)
___DEF_M_HLBL(___L1__20___kernel_23_13)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_14)
___DEF_M_HLBL(___L1__20___kernel_23_14)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_15)
___DEF_M_HLBL(___L1__20___kernel_23_15)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_16)
___DEF_M_HLBL(___L1__20___kernel_23_16)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_17)
___DEF_M_HLBL(___L1__20___kernel_23_17)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_18)
___DEF_M_HLBL(___L1__20___kernel_23_18)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_19)
___DEF_M_HLBL(___L1__20___kernel_23_19)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_20)
___DEF_M_HLBL(___L1__20___kernel_23_20)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_21)
___DEF_M_HLBL(___L1__20___kernel_23_21)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_22)
___DEF_M_HLBL(___L1__20___kernel_23_22)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_23)
___DEF_M_HLBL(___L1__20___kernel_23_23)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_24)
___DEF_M_HLBL(___L1__20___kernel_23_24)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_25)
___DEF_M_HLBL(___L1__20___kernel_23_25)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_26)
___DEF_M_HLBL(___L1__20___kernel_23_26)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_27)
___DEF_M_HLBL(___L1__20___kernel_23_27)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_28)
___DEF_M_HLBL(___L1__20___kernel_23_28)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_29)
___DEF_M_HLBL(___L1__20___kernel_23_29)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_30)
___DEF_M_HLBL(___L1__20___kernel_23_30)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_31)
___DEF_M_HLBL(___L1__20___kernel_23_31)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_32)
___DEF_M_HLBL(___L1__20___kernel_23_32)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_33)
___DEF_M_HLBL(___L1__20___kernel_23_33)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_34)
___DEF_M_HLBL(___L1__20___kernel_23_34)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_35)
___DEF_M_HLBL(___L1__20___kernel_23_35)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_36)
___DEF_M_HLBL(___L1__20___kernel_23_36)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_37)
___DEF_M_HLBL(___L1__20___kernel_23_37)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_38)
___DEF_M_HLBL(___L1__20___kernel_23_38)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_39)
___DEF_M_HLBL(___L1__20___kernel_23_39)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_40)
___DEF_M_HLBL(___L1__20___kernel_23_40)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_41)
___DEF_M_HLBL(___L1__20___kernel_23_41)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_42)
___DEF_M_HLBL(___L1__20___kernel_23_42)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_43)
___DEF_M_HLBL(___L1__20___kernel_23_43)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_44)
___DEF_M_HLBL(___L1__20___kernel_23_44)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_45)
___DEF_M_HLBL(___L1__20___kernel_23_45)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_46)
___DEF_M_HLBL(___L1__20___kernel_23_46)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_47)
___DEF_M_HLBL(___L1__20___kernel_23_47)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_48)
___DEF_M_HLBL(___L1__20___kernel_23_48)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_49)
___DEF_M_HLBL(___L1__20___kernel_23_49)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_50)
___DEF_M_HLBL(___L1__20___kernel_23_50)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_51)
___DEF_M_HLBL(___L1__20___kernel_23_51)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_52)
___DEF_M_HLBL(___L1__20___kernel_23_52)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_53)
___DEF_M_HLBL(___L1__20___kernel_23_53)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_54)
___DEF_M_HLBL(___L1__20___kernel_23_54)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_55)
___DEF_M_HLBL(___L1__20___kernel_23_55)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_56)
___DEF_M_HLBL(___L1__20___kernel_23_56)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_57)
___DEF_M_HLBL(___L1__20___kernel_23_57)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_58)
___DEF_M_HLBL(___L1__20___kernel_23_58)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_59)
___DEF_M_HLBL(___L1__20___kernel_23_59)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_60)
___DEF_M_HLBL(___L1__20___kernel_23_60)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_61)
___DEF_M_HLBL(___L1__20___kernel_23_61)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_62)
___DEF_M_HLBL(___L1__20___kernel_23_62)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__20___kernel_23_63)
___DEF_M_HLBL(___L1__20___kernel_23_63)
___DEF_M_HLBL_INTRO
___DEF_M_HLBL(___L0__23__23_main)
___DEF_M_HLBL(___L1__23__23_main)
___END_M_HLBL

___BEGIN_M_SW

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel
#undef ___PH_LBL0
#define ___PH_LBL0 1
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel)
___DEF_P_HLBL(___L1__20___kernel)
___DEF_P_HLBL(___L2__20___kernel)
___DEF_P_HLBL(___L3__20___kernel)
___DEF_P_HLBL(___L4__20___kernel)
___DEF_P_HLBL(___L5__20___kernel)
___DEF_P_HLBL(___L6__20___kernel)
___DEF_P_HLBL(___L7__20___kernel)
___DEF_P_HLBL(___L8__20___kernel)
___DEF_P_HLBL(___L9__20___kernel)
___DEF_P_HLBL(___L10__20___kernel)
___DEF_P_HLBL(___L11__20___kernel)
___DEF_P_HLBL(___L12__20___kernel)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__20___kernel)
   ___BEGIN_ALLOC_VECTOR(8)
   ___ADD_VECTOR_ELEM(0,___FAL)
   ___ADD_VECTOR_ELEM(1,___FAL)
   ___ADD_VECTOR_ELEM(2,___FAL)
   ___ADD_VECTOR_ELEM(3,___FAL)
   ___ADD_VECTOR_ELEM(4,___FAL)
   ___ADD_VECTOR_ELEM(5,___FAL)
   ___ADD_VECTOR_ELEM(6,___FAL)
   ___ADD_VECTOR_ELEM(7,___FAL)
   ___END_ALLOC_VECTOR(8)
   ___SET_R1(___GET_VECTOR(8))
   ___SET_GLO(167,___G__23__23_interrupt_2d_vector,___R1)
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(3))
   ___ADJFP(4)
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__20___kernel)
   ___POLL(2)
___DEF_SLBL(2,___L2__20___kernel)
   ___JUMPINT(___SET_NARGS(0),___PRC(272),___L__23__23_make_2d_jobs)
___DEF_SLBL(3,___L3__20___kernel)
   ___SET_GLO(152,___G__23__23_gc_2d_interrupt_2d_jobs,___R1)
   ___SET_R1(___CONS(___NUL,___NUL))
   ___SETCAR(___R1,___R1)
   ___SET_GLO(134,___G__23__23_final_2d_will_2d_registry,___R1)
   ___SET_R2(___LBL(11))
   ___SET_R1(___FIX(2L))
   ___SET_R0(___LBL(5))
   ___CHECK_HEAP(4,4096)
___DEF_SLBL(4,___L4__20___kernel)
   ___JUMPINT(___SET_NARGS(2),___PRC(39),___L__23__23_interrupt_2d_vector_2d_set_21_)
___DEF_SLBL(5,___L5__20___kernel)
   ___STRUCTURETYPESET(___SUB(0),___SUB(0))
   ___SUBTYPESET(___SUB(0),___FIX(4L))
   ___SET_GLO(312,___G__23__23_type_2d_type,___SUB(0))
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___ERRNO_ERR(EAGAIN));
   ___SET_R1(___RESULT)
}
   ___SET_GLO(103,___G__23__23_err_2d_code_2d_EAGAIN,___R1)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___ERRNO_ERR(ENOENT));
   ___SET_R1(___RESULT)
}
   ___SET_GLO(105,___G__23__23_err_2d_code_2d_ENOENT,___R1)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___ERRNO_ERR(EINTR));
   ___SET_R1(___RESULT)
}
   ___SET_GLO(104,___G__23__23_err_2d_code_2d_EINTR,___R1)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___MAX_CHR);
   ___SET_R1(___RESULT)
}
   ___SET_GLO(192,___G__23__23_max_2d_char,___R1)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___MIN_FIX);
   ___SET_R1(___RESULT)
}
   ___SET_GLO(194,___G__23__23_min_2d_fixnum,___R1)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___MAX_FIX);
   ___SET_R1(___RESULT)
}
   ___SET_GLO(193,___G__23__23_max_2d_fixnum,___R1)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___FIX_WIDTH);
   ___SET_R1(___RESULT)
}
   ___SET_GLO(136,___G__23__23_fixnum_2d_width,___R1)
   ___SET_R1(___FIXNEG(___GLO(136,___G__23__23_fixnum_2d_width)))
   ___SET_GLO(137,___G__23__23_fixnum_2d_width_2d_neg,___R1)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___BIG_ABASE_WIDTH);
   ___SET_R1(___RESULT)
}
   ___SET_GLO(76,___G__23__23_bignum_2e_adigit_2d_width,___R1)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___BIG_MBASE_WIDTH);
   ___SET_R1(___RESULT)
}
   ___SET_GLO(78,___G__23__23_bignum_2e_mdigit_2d_width,___R1)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___BIG_FBASE_WIDTH);
   ___SET_R1(___RESULT)
}
   ___SET_GLO(77,___G__23__23_bignum_2e_fdigit_2d_width,___R1)
   ___SET_GLO(142,___G__23__23_format_2d_filepos,___PRC(676))
   ___SET_GLO(236,___G__23__23_os_2d_err_2d_code_2d__3e_string,___PRC(679))
   ___SET_GLO(247,___G__23__23_os_2d_path_2d_homedir,___PRC(682))
   ___SET_GLO(246,___G__23__23_os_2d_path_2d_gambcdir,___PRC(685))
   ___SET_GLO(248,___G__23__23_os_2d_path_2d_normalize_2d_directory,___PRC(688))
   ___SET_R0(___LBL(6))
   ___JUMPINT(___SET_NARGS(0),___PRC(685),___L__20___kernel_23_5)
___DEF_SLBL(6,___L6__20___kernel)
   ___IF(___NOT(___FIXNUMP(___R1)))
   ___GOTO(___L14__20___kernel)
   ___END_IF
   ___SET_R1(___SUB(2))
   ___GOTO(___L13__20___kernel)
___DEF_SLBL(7,___L7__20___kernel)
   ___IF(___NOT(___FIXNUMP(___R1)))
   ___GOTO(___L13__20___kernel)
   ___END_IF
   ___SET_R1(___SUB(3))
___DEF_GLBL(___L13__20___kernel)
   ___SET_GLO(148,___G__23__23_gambcdir,___R1)
   ___SET_GLO(261,___G__23__23_processed_2d_command_2d_line,___NUL)
   ___SET_R0(___LBL(8))
   ___JUMPINT(___SET_NARGS(0),___PRC(625),___L__23__23_command_2d_line)
___DEF_SLBL(8,___L8__20___kernel)
   ___SET_GLO(261,___G__23__23_processed_2d_command_2d_line,___R1)
   ___SET_GLO(238,___G__23__23_os_2d_getenv,___PRC(691))
   ___SET_GLO(255,___G__23__23_os_2d_setenv,___PRC(694))
   ___SET_GLO(235,___G__23__23_os_2d_environ,___PRC(697))
   ___SET_GLO(256,___G__23__23_os_2d_shell_2d_command,___PRC(700))
   ___SET_GLO(211,___G__23__23_os_2d_device_2d_kind,___PRC(703))
   ___SET_GLO(210,___G__23__23_os_2d_device_2d_force_2d_output,___PRC(706))
   ___SET_GLO(205,___G__23__23_os_2d_device_2d_close,___PRC(709))
   ___SET_GLO(220,___G__23__23_os_2d_device_2d_stream_2d_seek,___PRC(712))
   ___SET_GLO(219,___G__23__23_os_2d_device_2d_stream_2d_read,___PRC(715))
   ___SET_GLO(222,___G__23__23_os_2d_device_2d_stream_2d_write,___PRC(718))
   ___SET_GLO(221,___G__23__23_os_2d_device_2d_stream_2d_width,___PRC(721))
   ___SET_GLO(214,___G__23__23_os_2d_device_2d_stream_2d_default_2d_options,___PRC(724))
   ___SET_GLO(218,___G__23__23_os_2d_device_2d_stream_2d_options_2d_set_21_,___PRC(727))
   ___SET_GLO(216,___G__23__23_os_2d_device_2d_stream_2d_open_2d_predefined,___PRC(730))
   ___SET_GLO(215,___G__23__23_os_2d_device_2d_stream_2d_open_2d_path,___PRC(733))
   ___SET_GLO(217,___G__23__23_os_2d_device_2d_stream_2d_open_2d_process,___PRC(736))
   ___SET_GLO(212,___G__23__23_os_2d_device_2d_process_2d_pid,___PRC(739))
   ___SET_GLO(213,___G__23__23_os_2d_device_2d_process_2d_status,___PRC(742))
   ___SET_GLO(223,___G__23__23_os_2d_device_2d_tcp_2d_client_2d_open,___PRC(745))
   ___SET_GLO(224,___G__23__23_os_2d_device_2d_tcp_2d_client_2d_socket_2d_info,___PRC(748))
   ___SET_GLO(225,___G__23__23_os_2d_device_2d_tcp_2d_server_2d_open,___PRC(751))
   ___SET_GLO(226,___G__23__23_os_2d_device_2d_tcp_2d_server_2d_read,___PRC(754))
   ___SET_GLO(206,___G__23__23_os_2d_device_2d_directory_2d_open_2d_path,___PRC(757))
   ___SET_GLO(207,___G__23__23_os_2d_device_2d_directory_2d_read,___PRC(760))
   ___SET_GLO(208,___G__23__23_os_2d_device_2d_event_2d_queue_2d_open,___PRC(763))
   ___SET_GLO(209,___G__23__23_os_2d_device_2d_event_2d_queue_2d_read,___PRC(766))
   ___SET_GLO(234,___G__23__23_os_2d_device_2d_tty_2d_type_2d_set_21_,___PRC(769))
   ___SET_GLO(233,___G__23__23_os_2d_device_2d_tty_2d_text_2d_attributes_2d_set_21_,___PRC(772))
   ___SET_GLO(227,___G__23__23_os_2d_device_2d_tty_2d_history,___PRC(775))
   ___SET_GLO(228,___G__23__23_os_2d_device_2d_tty_2d_history_2d_set_21_,___PRC(778))
   ___SET_GLO(230,___G__23__23_os_2d_device_2d_tty_2d_max_2d_history_2d_length_2d_set_21_,___PRC(781))
   ___SET_GLO(232,___G__23__23_os_2d_device_2d_tty_2d_paren_2d_balance_2d_duration_2d_set_21_,___PRC(784))
   ___SET_GLO(231,___G__23__23_os_2d_device_2d_tty_2d_mode_2d_set_21_,___PRC(787))
   ___SET_GLO(229,___G__23__23_os_2d_device_2d_tty_2d_input_2d_set_21_,___PRC(790))
   ___SET_GLO(249,___G__23__23_os_2d_port_2d_decode_2d_chars_21_,___PRC(793))
   ___SET_GLO(250,___G__23__23_os_2d_port_2d_encode_2d_chars_21_,___PRC(796))
   ___SET_GLO(237,___G__23__23_os_2d_file_2d_info,___PRC(799))
   ___SET_GLO(257,___G__23__23_os_2d_user_2d_info,___PRC(802))
   ___SET_GLO(258,___G__23__23_os_2d_user_2d_name,___PRC(805))
   ___SET_GLO(241,___G__23__23_os_2d_group_2d_info,___PRC(808))
   ___SET_GLO(242,___G__23__23_os_2d_host_2d_info,___PRC(811))
   ___SET_GLO(243,___G__23__23_os_2d_host_2d_name,___PRC(814))
   ___SET_GLO(253,___G__23__23_os_2d_service_2d_info,___PRC(817))
   ___SET_GLO(251,___G__23__23_os_2d_protocol_2d_info,___PRC(820))
   ___SET_GLO(245,___G__23__23_os_2d_network_2d_info,___PRC(823))
   ___SET_GLO(239,___G__23__23_os_2d_getpid,___PRC(826))
   ___SET_GLO(240,___G__23__23_os_2d_getppid,___PRC(829))
   ___SET_GLO(199,___G__23__23_os_2d_create_2d_directory,___PRC(832))
   ___SET_GLO(200,___G__23__23_os_2d_create_2d_fifo,___PRC(835))
   ___SET_GLO(201,___G__23__23_os_2d_create_2d_link,___PRC(838))
   ___SET_GLO(202,___G__23__23_os_2d_create_2d_symbolic_2d_link,___PRC(841))
   ___SET_GLO(203,___G__23__23_os_2d_delete_2d_directory,___PRC(844))
   ___SET_GLO(254,___G__23__23_os_2d_set_2d_current_2d_directory,___PRC(847))
   ___SET_GLO(252,___G__23__23_os_2d_rename_2d_file,___PRC(850))
   ___SET_GLO(198,___G__23__23_os_2d_copy_2d_file,___PRC(853))
   ___SET_GLO(204,___G__23__23_os_2d_delete_2d_file,___PRC(856))
   ___SET_GLO(244,___G__23__23_os_2d_load_2d_object_2d_file,___PRC(859))
   ___SET_R0(___LBL(9))
   ___JUMPINT(___SET_NARGS(0),___PRC(272),___L__23__23_make_2d_jobs)
___DEF_SLBL(9,___L9__20___kernel)
   ___SET_GLO(114,___G__23__23_exit_2d_jobs,___R1)
{ ___SCMOBJ ___RESULT;

   ___release_scmobj (___GSTATE->program_descr); /* allow GC of descriptor */
   ___RESULT = ___GSTATE->program_descr;
   ___GSTATE->program_descr = ___FAL;

   ___SET_R1(___RESULT)
}
   ___SET_GLO(262,___G__23__23_program_2d_descr,___R1)
   ___SET_GLO(171,___G__23__23_main,___PRC(862))
   ___SET_R0(___STK(-3))
   ___POLL(10)
___DEF_SLBL(10,___L10__20___kernel)
   ___ADJFP(-4)
   ___JUMPINT(___SET_NARGS(0),___PRC(665),___L__23__23_execute_2d_program)
___DEF_GLBL(___L14__20___kernel)
   ___SET_R0(___LBL(7))
   ___JUMPINT(___SET_NARGS(1),___PRC(688),___L__20___kernel_23_6)
___DEF_SLBL(11,___L11__20___kernel)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(11,0,0,0)
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(12))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(324),___L__23__23_gc_2d_finalize_21_)
___DEF_SLBL(12,___L12__20___kernel)
   ___SET_R1(___GLO(152,___G__23__23_gc_2d_interrupt_2d_jobs))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPINT(___SET_NARGS(1),___PRC(281),___L__23__23_execute_2d_jobs_21_)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_kernel_2d_handlers
#undef ___PH_LBL0
#define ___PH_LBL0 15
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L1__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L2__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L3__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L4__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L5__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L6__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L7__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L8__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L9__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L10__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L11__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L12__23__23_kernel_2d_handlers)
___DEF_P_HLBL(___L13__23__23_kernel_2d_handlers)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_kernel_2d_handlers)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_kernel_2d_handlers)
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(0)
    *
    * This is the 'Scheme function' conversion error handler.  It is
    * invoked when a data representation conversion error is detected
    * by the C-interface when C is calling a Scheme function.
    */

   ___PUSH_ARGS3(___ps->temp1, /* arg 1 = error code, integer */
                 ___ps->temp2, /* arg 2 = error message, string or #f */
                 ___FIELD(___ps->temp3,0)) /* arg 3 = procedure */

   ___COVER_SFUN_CONVERSION_ERROR_HANDLER;

   ___JUMPPRM(___SET_NARGS(3),
              ___G__23__23_raise_2d_sfun_2d_conversion_2d_exception.prm)

}
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(1,___L1__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(1)
    *
    * This is the 'C function' conversion error handler.  It is invoked
    * when a data representation conversion error is detected by the
    * C-interface when Scheme is calling a C function.
    */

   int na;
   int i;

   na = ___ps->na;

   /* make space for 3 new arguments (one will replace return address) */

   ___ADJFP((na+1)+2-___FRAME_SPACE(na+1))

   ___SET_R0(___STK(-2)) /* get return address */

   for (i=0; i<na; i++)
     ___SET_STK(-i,___STK(-(i+3))) /* shift arguments up by three */

   ___SET_STK(-(na+2),___ps->temp1) /* arg 1 = error code, integer */
   ___SET_STK(-(na+1),___ps->temp2) /* arg 2 = error message, string or #f */
   ___SET_STK(-na,___ps->temp3) /* arg 3 = procedure */

   ___POP_ARGS_IN_REGS(na+3) /* load register arguments */

   ___COVER_CFUN_CONVERSION_ERROR_HANDLER;

   ___JUMPPRM(___SET_NARGS(na+3),
              ___G__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary.prm)

}
#undef ___ARG1
   ___SET_R0(___LBL(2))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(2,___L2__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(2)
    *
    * This is the stack-limit handler.  It is invoked by the ___POLL(n)
    * macro when the stack limit is reached and when an interrupt is received.
    *
    * This handler checks for which reason it was invoked and dispatches
    * to one of the following procedures:
    *
    *  ##interrupt-handler
    *  ##raise-stack-overflow-exception
    */

   int fs;
   ___SCMOBJ ra;

   /* setup internal return continuation frame */

   ra = ___ps->temp1;

   ___RETI_GET_CFS(ra,fs)

   ___ADJFP(___ROUND_TO_MULT(fs,___FRAME_ALIGN)-fs)

   ___PUSH_REGS /* push all GVM registers (live or not) */
   ___PUSH(ra)  /* push return address */

   ___ADJFP(-___RETI_RA)

   ___SET_R0(___GSTATE->internal_return)

   /* check why the handler was called */

   if (___FP_AFTER(___fp,___ps->stack_limit)
#ifdef CALL_GC_FREQUENTLY
       || --___gc_calls_to_punt < 0
#endif
      )
     {
       ___BOOL overflow;

       ___COVER_STACK_LIMIT_HANDLER_STACK_LIMIT;

       ___FRAME_STORE_RA(___R0)
       ___W_ALL
       overflow = ___stack_limit () && ___garbage_collect (0);
       ___R_ALL
       ___SET_R0(___FRAME_FETCH_RA)

       if (overflow)
         {
           ___COVER_STACK_LIMIT_HANDLER_HEAP_OVERFLOW;
           ___JUMPPRM(___SET_NARGS(0),
                      ___G__23__23_raise_2d_stack_2d_overflow_2d_exception.prm)
         }
     }

   /* prepare for next interrupt */

   ___begin_interrupt_service ();

   if (___ps->intr_enabled)
     {
       int i;

       ___COVER_STACK_LIMIT_HANDLER_INTR_ENABLED;

       for (i=0; i<___NB_INTRS; i++)
         if (___check_interrupt (i))
           break;

       ___end_interrupt_service (i+1);

       if (i < ___NB_INTRS)
         {
           ___COVER_STACK_LIMIT_HANDLER_INTERRUPT;

           ___SET_R1(___FIX(i))
           ___JUMPPRM(___SET_NARGS(1),
                      ___G__23__23_interrupt_2d_handler.prm)
         }
     }
   else
     ___end_interrupt_service (0);

   ___COVER_STACK_LIMIT_HANDLER_END;

   ___JUMPEXTPRM(___NOTHING,___R0)

}
#undef ___ARG1
   ___SET_R0(___LBL(3))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(3,___L3__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(3)
    *
    * This is the heap-limit handler.  It is invoked by the ___CHECK_HEAP(n,m)
    * macro when the heap pointer reaches the end of the current msection.
    *
    * This handler simply calls ##check-heap.
    */

   int fs;
   ___SCMOBJ ra;

   /* setup internal return continuation frame */

   ra = ___ps->temp1;

   ___RETI_GET_CFS(ra,fs)

   ___ADJFP(___ROUND_TO_MULT(fs,___FRAME_ALIGN)-fs)

   ___PUSH_REGS /* push all GVM registers (live or not) */
   ___PUSH(ra)  /* push return address */

   ___ADJFP(-___RETI_RA)

   ___SET_R0(___GSTATE->internal_return)

   /* tail call to ##check-heap */

   ___COVER_HEAP_LIMIT_HANDLER_END;

   ___JUMPPRM(___SET_NARGS(0),
              ___G__23__23_check_2d_heap.prm)

}
#undef ___ARG1
   ___SET_R0(___LBL(4))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(4,___L4__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(4)
    *
    * This is the call to nonprocedure handler.  It is invoked when
    * there is an attempt to call an object that is not a procedure.
    *
    * This handler simply tail calls ##apply-with-procedure-check-nary
    * (i.e. the continuation will be the same as that of the faulty call).
    * The arguments are the object that was in operator position followed
    * by the arguments of the faulty call.
    */

   int na;
   int i;

   na = ___ps->na;

   ___PUSH_ARGS_IN_REGS(na) /* save all arguments that are in registers */
   ___PUSH(___FIX(0))       /* make space for operator */

   for (i=0; i<na; i++)
     ___SET_STK(-i,___STK(-(i+1))) /* shift arguments up by one */

   ___SET_STK(-na,___ps->temp1) /* set operator argument */

   ___POP_ARGS_IN_REGS(na+1) /* load register arguments */

   ___COVER_NONPROC_HANDLER_END;

   ___JUMPPRM(___SET_NARGS(na+1),
              ___G__23__23_apply_2d_with_2d_procedure_2d_check_2d_nary.prm)

}
#undef ___ARG1
   ___SET_R0(___LBL(5))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(5,___L5__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(5)
    *
    * This is the call to global nonprocedure handler.  It is invoked
    * when there is an attempt to call an object that is not a procedure
    * that is bound to a global variable.
    *
    * This handler simply tail calls ##apply-global-with-procedure-check-nary
    * or ##apply-with-procedure-check-nary (i.e. the continuation will
    * be the same as that of the faulty call).
    * ##apply-global-with-procedure-check-nary is called when the global
    * variable's name is known (in this case the arguments are the variable's
    * name followed by the arguments of the faulty call).  Otherwise,
    * ##apply-with-procedure-check-nary is called and the arguments are the
    * object that was in operator position followed by the arguments of the
    * faulty call.
    */

   int na;
   int i;
   ___SCMOBJ result;
   ___SCMOBJ handler;

   na = ___ps->na;

   ___PUSH_ARGS_IN_REGS(na) /* save all arguments that are in registers */
   ___PUSH(___FIX(0))       /* make space for operator */

   for (i=0; i<na; i++)
     ___SET_STK(-i,___STK(-(i+1))) /* shift arguments up by one */

   result = ___CAST(___glo_struct*,___ps->temp4)->val;
   handler = ___G__23__23_apply_2d_with_2d_procedure_2d_check_2d_nary.prm;

#if 0

   i = ___INT(___VECTORLENGTH(___symbol_table)) - 1;

   while (i > 0)
     {
       ___SCMOBJ probe = ___FIELD(___symbol_table,i);

       while (probe != ___NUL)
         {
           if (___ps->temp4 == ___FIELD(probe,___SYMBOL_GLOBAL))
             {
               ___COVER_GLOBAL_NONPROC_HANDLER_FOUND;
               result = probe;
               handler = ___G__23__23_apply_2d_global_2d_with_2d_procedure_2d_check_2d_nary.prm;
               break;
             }
           ___COVER_GLOBAL_NONPROC_HANDLER_NEXT;
           probe = ___FIELD(probe,___SYMKEY_NEXT);
         }
       i--;
     }

#endif

   ___SET_STK(-na,result) /* set operator argument */

   ___POP_ARGS_IN_REGS(na+1) /* load register arguments */

   ___COVER_GLOBAL_NONPROC_HANDLER_END;

   ___JUMPPRM(___SET_NARGS(na+1),handler)

}
#undef ___ARG1
   ___SET_R0(___LBL(6))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(6,___L6__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(6)
    *
    * This is the wrong number of arguments handler.  It is invoked when
    * a procedure is called with a number of arguments that it does not
    * accept.
    *
    * This handler simply tail calls
    * ##raise-wrong-number-of-arguments-exception (i.e. the continuation
    * will be the same as that of the faulty call).  The arguments are the
    * object that was in operator position followed by the arguments of
    * the faulty call.
    */

   int na;
   int i;

   na = ___ps->na;

   ___PUSH_ARGS_IN_REGS(na) /* save all arguments that are in registers */
   ___PUSH(___FIX(0))       /* make space for operator */

   for (i=0; i<na; i++)
     ___SET_STK(-i,___STK(-(i+1))) /* shift arguments up by one */

   /* ___ps->temp1 points to the entry point of the procedure */

   if (___PRD_NBCLOSED(___HEADER(___ps->temp1)) == 0)
     {
       ___COVER_WRONG_NARGS_HANDLER_NONCLOSURE;
       ___SET_STK(-na,___ps->temp1) /*set operator argument when nonclosure*/
     }
   else
     {
       ___COVER_WRONG_NARGS_HANDLER_CLOSURE;
       ___SET_STK(-na,___SELF) /* set operator argument when closure */
     }

   ___POP_ARGS_IN_REGS(na+1) /* load register arguments */

   ___JUMPPRM(___SET_NARGS(na+1),
              ___G__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary.prm)

}
#undef ___ARG1
   ___SET_R0(___LBL(7))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(7,___L7__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(7)
    *
    * This is the rest parameter handler.  It is invoked when a nonnull
    * rest parameter must be constructed.
    */

   int np;
   int na;
   int i;
   ___SCMOBJ rest_param_list;

   np = ___PRD_NBPARMS(___HEADER(___ps->temp1));
   na = ___ps->na;

   ___PUSH_ARGS_IN_REGS(na) /* save all arguments that are in registers */

   if (na < np)
     {
       ___COVER_REST_PARAM_HANDLER_WRONG_NARGS;

       ___PUSH(___FIX(0)) /* make space for operator */

       for (i=0; i<na; i++)
         ___SET_STK(-i,___STK(-(i+1))) /* shift arguments up by one */

       ___SET_STK(-na,___ps->temp1) /* set operator argument */

       ___POP_ARGS_IN_REGS(na+1) /* load register arguments */

       ___JUMPPRM(___SET_NARGS(na+1),
                  ___G__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary.prm)
     }

   rest_param_list = ___NUL;

   i = na - np + 1;

   while (i > 0)
     {
       rest_param_list = ___CONS(___POP,rest_param_list);
       i--;

       if (___hp > ___ps->heap_limit)
         {
            ___BOOL need_to_gc;

            ___COVER_REST_PARAM_HANDLER_HEAP_LIMIT;

            ___W_HEAP
            need_to_gc = ___heap_limit ();
            ___R_HEAP

            if (need_to_gc)
              {
                /*
                 * We need to garbage collect, but before we do we have
                 * to remove all arguments from the stack so that the GC
                 * only sees complete continuation frames on the stack.
                 * The arguments are stored in a heap allocated vector.
                 */

                ___COVER_REST_PARAM_HANDLER_NEED_TO_GC;

                while (i > 0)
                  {
                    rest_param_list = ___CONS(___POP,rest_param_list);
                    i--;
                  }

                ___BEGIN_ALLOC_VECTOR(np)
                i = np - 1;
                ___ADD_VECTOR_ELEM(i,rest_param_list)
                while (i > 0)
                  {
                    i--;
                    ___ADD_VECTOR_ELEM(i,___POP)
                  }
                ___END_ALLOC_VECTOR(np)

                ___PUSH_ARGS2(___ps->temp1,___GET_VECTOR(np))

                ___JUMPPRM(___SET_NARGS(2),
                           ___G__23__23_rest_2d_param_2d_check_2d_heap.prm)
              }
          }
     }

   ___COVER_REST_PARAM_HANDLER_NO_NEED_TO_GC;

   ___PUSH(rest_param_list) /* rest parameter is last */

   ___POP_ARGS_IN_REGS(np) /* load register arguments */

   ___JUMPEXTPRM(___SET_NARGS(-1),___ps->temp1)

}
#undef ___ARG1
   ___SET_R0(___LBL(8))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(8,___L8__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(8)
    *
    * This is the keyword parameter handler.  It is invoked when keyword
    * parameters must be processed.
    */

   int np;
   int na;
   int nb_req_opt;
   int nb_key;
   int i;
   int j;
   int k;
   int fnk;
   ___SCMOBJ key_descr;
   ___SCMOBJ key_vals[___MAX_NB_PARMS];

   np = ___PRD_NBPARMS(___HEADER(___ps->temp1));
   na = ___ps->na;
   key_descr = ___ps->temp3;
   nb_req_opt = ___ps->temp2;
   nb_key = np - nb_req_opt;

   ___PUSH_ARGS_IN_REGS(na) /* save all arguments that are in registers */

   k = na - nb_req_opt; /* k = number of arguments that are */
                        /* non-required and non-optional */

   if (k < 0) /* not all required and optional arguments supplied? */
     {
       ___COVER_KEYWORD_PARAM_HANDLER_WRONG_NARGS1;

       wrong_nb_args1:

       ___PUSH(___FIX(0)) /* make space for operator */

       for (i=0; i<na; i++)
         ___SET_STK(-i,___STK(-(i+1))) /* shift arguments up by one */

       ___SET_STK(-na,___ps->temp1) /* set operator argument */

       ___POP_ARGS_IN_REGS(na+1) /* load register arguments */

       ___JUMPPRM(___SET_NARGS(na+1),
                  ___G__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary.prm)
     }

   /* find first non-keyword pair in remaining arguments */

   for (fnk=k-1; fnk>0; fnk-=2)
     if (!___KEYWORDP(___STK(-fnk)))
       break;

   fnk++;

   /* assign values to keyword parameters from last to first */

   for (j=nb_key-1; j>=0; j--)
     key_vals[j] = ___FIELD(key_descr,j*2+1);

   for (i=fnk+1; i<=k; i+=2)
     {
       ___SCMOBJ key = ___STK(-i);

       for (j=nb_key-1; j>=0; j--)
         if (key == ___FIELD(key_descr,j*2))
           {
             ___COVER_KEYWORD_PARAM_HANDLER_FOUND;
             key_vals[j] = ___STK(-i+1);
             goto continue1;
           }

       /* the keyword was not found in the keyword parameter descriptor */

       ___COVER_KEYWORD_PARAM_HANDLER_NOT_FOUND;

       ___PUSH(___FIX(0)) /* make space for operator */

       for (i=0; i<na; i++)
         ___SET_STK(-i,___STK(-(i+1))) /* shift arguments up by one */

       ___SET_STK(-na,___ps->temp1) /* set operator argument */

       ___POP_ARGS_IN_REGS(na+1) /* load register arguments */

       ___JUMPPRM(___SET_NARGS(na+1),
                  ___G__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception_2d_nary.prm)

       continue1:;
     }

   if (k & 1) /* keyword arguments must come in pairs */
     {
       ___COVER_KEYWORD_PARAM_HANDLER_WRONG_NARGS2;

       goto wrong_nb_args1;
     }

   if (fnk != 0)
     {
       ___COVER_KEYWORD_PARAM_HANDLER_KEYWORD_EXPECTED;

       ___PUSH(___FIX(0)) /* make space for operator */

       for (i=0; i<na; i++)
         ___SET_STK(-i,___STK(-(i+1))) /* shift arguments up by one */

       ___SET_STK(-na,___ps->temp1) /* set operator argument */

       ___POP_ARGS_IN_REGS(na+1) /* load register arguments */

       ___JUMPPRM(___SET_NARGS(na+1),
                  ___G__23__23_raise_2d_keyword_2d_expected_2d_exception_2d_nary.prm)
     }

   ___ADJFP(-k) /* remove keyword arguments */

   for (i=0; i<nb_key; i++) /* push value of all keyword params */
     ___PUSH(key_vals[i])

   ___POP_ARGS_IN_REGS(np) /* load register arguments */

   ___COVER_KEYWORD_PARAM_HANDLER_END;

   ___JUMPEXTPRM(___SET_NARGS(-1),___ps->temp1)

}
#undef ___ARG1
   ___SET_R0(___LBL(9))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(9,___L9__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(9)
    *
    * This is the keyword and rest parameter handler.  It is invoked when
    * keyword parameters must be processed and a rest parameter must be
    * constructed.
    */

   int np;
   int na;
   int nb_req_opt;
   int nb_key;
   int i;
   int j;
   int k;
   int fnk;
   ___SCMOBJ key_descr;
   ___SCMOBJ key_vals[___MAX_NB_PARMS];
   ___SCMOBJ rest_param_list;

   np = ___PRD_NBPARMS(___HEADER(___ps->temp1));
   na = ___ps->na;
   key_descr = ___ps->temp3;
   nb_req_opt = ___ps->temp2;
   nb_key = (np-1) - nb_req_opt;

   ___PUSH_ARGS_IN_REGS(na) /* save all arguments that are in registers */

   k = na - nb_req_opt; /* k = number of arguments that are */
                        /* non-required and non-optional */

   if (k < 0) /* not all required and optional arguments supplied? */
     {
       ___COVER_KEYWORD_REST_PARAM_HANDLER_WRONG_NARGS1;

       wrong_nb_args2:

       ___PUSH(___FIX(0)) /* make space for operator */

       for (i=0; i<na; i++)
         ___SET_STK(-i,___STK(-(i+1))) /* shift arguments up by one */

       ___SET_STK(-na,___ps->temp1) /* set operator argument */

       ___POP_ARGS_IN_REGS(na+1) /* load register arguments */

       ___JUMPPRM(___SET_NARGS(na+1),
                  ___G__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary.prm)
     }

   /* find first non-keyword pair in remaining arguments */

   for (fnk=k-1; fnk>0; fnk-=2)
     if (!___KEYWORDP(___STK(-fnk)))
       break;

   fnk++;

   /* assign values to keyword parameters from last to first */

   for (j=nb_key-1; j>=0; j--)
     key_vals[j] = ___FIELD(key_descr,j*2+1);

   for (i=fnk+1; i<=k; i+=2)
     {
       ___SCMOBJ key = ___STK(-i);

       for (j=nb_key-1; j>=0; j--)
         if (key == ___FIELD(key_descr,j*2))
           {
             ___COVER_KEYWORD_REST_PARAM_HANDLER_FOUND;
             key_vals[j] = ___STK(-i+1);
             goto continue2;
           }

       /* the keyword was not found in the keyword parameter descriptor */

       if (!___ps->temp4) /* not DSSSL style rest parameter? */
         {
           ___COVER_KEYWORD_REST_PARAM_HANDLER_NOT_FOUND;

           ___PUSH(___FIX(0)) /* make space for operator */

           for (i=0; i<na; i++)
             ___SET_STK(-i,___STK(-(i+1))) /* shift arguments up by one */

           ___SET_STK(-na,___ps->temp1) /* set operator argument */

           ___POP_ARGS_IN_REGS(na+1) /* load register arguments */

           ___JUMPPRM(___SET_NARGS(na+1),
                      ___G__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception_2d_nary.prm)
         }

       continue2:;
     }

   if (!___ps->temp4) /* not DSSSL style rest parameter? */
     i = fnk;
   else
     {
#ifdef ___REJECT_ILLEGAL_DSSSL_PARAMETER_LIST

       if (k & 1) /* keyword arguments must come in pairs */
         {
           ___COVER_KEYWORD_REST_PARAM_HANDLER_WRONG_NARGS2;

           goto wrong_nb_args2;
         }

       if (fnk != 0)
         {
           ___COVER_KEYWORD_REST_PARAM_HANDLER_KEYWORD_EXPECTED;

           ___PUSH(___FIX(0)) /* make space for operator */

           for (i=0; i<na; i++)
             ___SET_STK(-i,___STK(-(i+1))) /* shift arguments up by one */

           ___SET_STK(-na,___ps->temp1) /* set operator argument */

           ___POP_ARGS_IN_REGS(na+1) /* load register arguments */

           ___JUMPPRM(___SET_NARGS(na+1),
                      ___G__23__23_raise_2d_keyword_2d_expected_2d_exception_2d_nary.prm)
         }

#endif

       i = k;
     }

   j = k - i;

   rest_param_list = ___NUL;

   while (i > 0)
     {
       rest_param_list = ___CONS(___POP,rest_param_list);
       i--;

       if (___hp > ___ps->heap_limit)
         {
            ___BOOL need_to_gc;

            ___COVER_KEYWORD_REST_PARAM_HANDLER_HEAP_LIMIT;

            ___W_HEAP
            need_to_gc = ___heap_limit ();
            ___R_HEAP

            if (need_to_gc)
              {
                /*
                 * We need to garbage collect, but before we do we have
                 * to remove all arguments from the stack so that the GC
                 * only sees complete continuation frames on the stack.
                 * The arguments are stored in a heap allocated vector.
                 */

                ___COVER_KEYWORD_REST_PARAM_HANDLER_NEED_TO_GC;

                while (i > 0)
                  {
                    rest_param_list = ___CONS(___POP,rest_param_list);
                    i--;
                  }

                for (i=0; i<nb_key; i++) /*push value of all keyword params*/
                  ___PUSH(key_vals[i])

                ___BEGIN_ALLOC_VECTOR(np)
                i = np - 1;
                ___ADD_VECTOR_ELEM(i,rest_param_list)
                while (i > 0)
                  {
                    i--;
                    ___ADD_VECTOR_ELEM(i,___POP)
                  }
                ___END_ALLOC_VECTOR(np)

                ___PUSH_ARGS2(___ps->temp1,___GET_VECTOR(np))

                ___JUMPPRM(___SET_NARGS(2),
                           ___G__23__23_rest_2d_param_2d_check_2d_heap.prm)
              }
          }
     }

   while (j-- > 0)
     ___POP;

   ___COVER_KEYWORD_REST_PARAM_HANDLER_NO_NEED_TO_GC;

   for (i=0; i<nb_key; i++) /* push value of all keyword params */
     ___PUSH(key_vals[i])

   ___PUSH(rest_param_list) /* rest parameter is last */

   ___POP_ARGS_IN_REGS(np) /* load register arguments */

   ___JUMPEXTPRM(___SET_NARGS(-1),___ps->temp1)

}
#undef ___ARG1
   ___SET_R0(___LBL(10))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(10,___L10__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(10)
    *
    * This is the force handler.  It is invoked when a promise is forced.
    */

   ___SCMOBJ ra;
   ___SCMOBJ promise;
   ___SCMOBJ result;

   ra = ___ps->temp1;
   promise = ___ps->temp2;
   result = ___FIELD(promise,___PROMISE_RESULT);

   if (promise != result)
     {
       /* promise is determined, return cached result */

       ___COVER_FORCE_HANDLER_DETERMINED;

       ___ps->temp2 = result;
       ___JUMPEXTPRM(___NOTHING,ra)
     }
   else
     {
       /* promise is not determined */

       /* setup internal return continuation frame */

       int fs;

       ___RETI_GET_CFS(ra,fs)

       ___ADJFP(___ROUND_TO_MULT(fs,___FRAME_ALIGN)-fs)

       ___PUSH_REGS /* push all GVM registers (live or not) */
       ___PUSH(ra)  /* push return address */

       ___ADJFP(-___RETI_RA)

       ___SET_R0(___GSTATE->internal_return)

       /* tail call to ##force-undetermined */

       ___PUSH_ARGS2(promise,___FIELD(promise,___PROMISE_THUNK))

       ___COVER_FORCE_HANDLER_NOT_DETERMINED;

       ___JUMPPRM(___SET_NARGS(2),
                  ___G__23__23_force_2d_undetermined.prm)
     }

}
#undef ___ARG1
   ___SET_R0(___LBL(11))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(11,___L11__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

     /*
      * ___LBL(11)
      *
      * This is the return to C handler.  It is invoked when control
      * must return to C (i.e. back from the call to ___call).
      *
      * Note that the continuation frame is not removed from the stack (it
      * contains the stack marker which is needed by ___call).
      */

     ___SCMOBJ unwind_destination = ___STK(2-___FRAME_SPACE(2));

     if (___FIELD(unwind_destination,0) != ___FAL) /* first return? */
       {
         ___COVER_RETURN_TO_C_HANDLER_FIRST_RETURN;
         ___FRAME_STORE_RA(___GSTATE->handler_return_to_c)
         ___W_ALL
         ___THROW(___FIX(___UNWIND_C_STACK));  /* jump back inside ___call */
       }
     else
       {
         ___COVER_RETURN_TO_C_HANDLER_MULTIPLE_RETURN;
         ___SET_R0(___GSTATE->handler_return_to_c)
         ___JUMPPRM(___SET_NARGS(0),
                    ___G__23__23_raise_2d_multiple_2d_c_2d_return_2d_exception.prm)
       }

}
#undef ___ARG1
   ___SET_R0(___LBL(12))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(12,___L12__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(12)
    *
    * This is the break handler.  It is invoked when a procedure
    * attempts to return to its caller and the caller's stack frame
    * is not on top of the stack because it has been captured.
    *
    * At this point the callee will have cleaned up the stack so that the
    * frame pointer (___fp) points to the break frame.  The break frame
    * contains a pointer to the caller's continuation frame, which
    * contains the address in the caller where control will return (the
    * return address ret_adr1).  The caller's continuation frame can either
    * be in the stack or in the heap.  The two situations are depicted below:
    *
    *              STACK                      STACK              HEAP
    *          |            |             |            |               caller's
    *          +------------+             +------------+    +------------+frame
    *  ___fp ->| call frame ---+  ___fp ->| call frame ---->|    HEAD    |
    *          |<ALIGN PAD> |  |          |<ALIGN PAD> |    |  ret_adr1  |
    *          +------------+  |          +------------+    |  slot fs   |
    *          |     .      |  |          |     .      |    |    ...     |
    *          |     .      |  |          |     .      |    | slot link ----+
    *          |     .      |  |          |     .      |    |    ...     |  |
    *          |     .      |  |          |     .      |    |  slot 1    |  |
    *          +------------+  |          |            |    +------------+  |
    *          |  ret_adr1  |<-+          |            |                    |
    *          |  RESERVED  |             |            |                    |
    * caller's |  slot fs   |             |            |                    |
    * frame    |    ...     |             |            |                    |
    *          |  ret_adr2  |             |            |                    |
    *          |    ...     |             |            |                    |
    *          |  slot 1    |             |     .      |    +------------+  |
    *          +------------+             |     .      |    |    HEAD    |<-+
    *          |  RESERVED  |             |     .      |    |  ret_adr2  |
    *          |    ...     |             |     .      |    |    ...    ----+
    *          +------------+             +------------+    +------------+  V
    *                                                                      ...
    *
    * These cases are distinguished by the tag on the pointer to the
    * caller's frame (i.e. 'call frame').
    *
    * The break handler puts a copy of the caller's frame on the top of
    * the stack except that the slot 'link' is set to the address of the
    * break handler.  The frame pointer in the break frame is modified
    * so that it points to the frame of the caller's caller.  Finally a
    * jump to the return address in the caller's frame (ret_adr1) is
    * performed.  At that point the stack will be in the following state
    * respectively:
    *
    *              STACK                      STACK              HEAP
    *          |            |             |            |
    *          +------------+             +------------+
    *  ___fp ->|  RESERVED  |     ___fp ->|  RESERVED  | ^
    *          |  slot fs   |             |  slot fs   | |
    *          |    ...     |             |    ...     | | ADDED BY BREAK
    *          | break hdlr |             | break hdlr | | HANDLER
    *          |    ...     |             |    ...     | |
    *          |  slot 1    |             |  slot 1    | v
    *          +------------+             +------------+
    *          |new call fr.---+          |new call fr.--+  +------------+
    *          |<ALIGN PAD> |  |          |<ALIGN PAD> | |  |    HEAD    |
    *          +------------+  |          +------------+ |  |  ret_adr1  |
    *          |     .      |  |          |     .      | |  |  slot fs   |
    *          |     .      |  |          |     .      | |  |    ...     |
    *          |     .      |  |          |     .      | |  | slot link ----+
    *          |     .      |  |          |     .      | |  |    ...     |  |
    *          +------------+  |          |            | |  |  slot 1    |  |
    *          |  ret_adr1  |  |          |            | |  +------------+  |
    *          |  RESERVED  |  |          |            | |                  |
    *          |  slot fs   |  |          |            | |                  |
    *          |    ...     |  |          |            | |                  |
    *          |  ret_adr2  |  |          |            | |                  |
    *          |    ...     |  |          |            | |                  |
    *          |  slot 1    |  |          |     .      | |  +------------+  |
    *          +------------+  |          |     .      | +->|    HEAD    |<-+
    *          |  ret_adr2  |<-+          |     .      |    |  ret_adr2  |
    *          |    ...     | (see note)  |     .      |    |    ...    ----+
    *          +------------+             +------------+    +------------+  V
    *                                                                      ...
    *
    * Note that in the first case, the pointer to the caller's frame is
    * normally advanced to the frame following the caller's frame and the
    * return address ret_adr2 is saved in it.  However, if the frame
    * following the caller's frame is a break frame, then the content of
    * that break frame is copied to the topmost break frame.  This
    * ensures that break frames never contain pointers to other break
    * frames which is needed to properly implement tail-calls.
    */

   int fs;
   int link;
   int i;
   ___SCMOBJ *fp;
   ___SCMOBJ ra1;
   ___SCMOBJ ra2;
   ___SCMOBJ cf;

   cf = ___STK(-___BREAK_FRAME_NEXT); /* pointer to caller's frame */

   if (___TYP(cf) == ___tFIXNUM)
     {
       /* caller's frame is in the stack */

       /* cf can't be equal to ___FIX(0) */

       fp = ___CAST(___SCMOBJ*,cf);

       ra1 = ___FP_STK(fp,-___FRAME_STACK_RA);

       if (ra1 == ___GSTATE->internal_return)
         {
           ___SCMOBJ actual_ra = ___FP_STK(fp,___RETI_RA);
           ___RETI_GET_FS_LINK(actual_ra,fs,link)
           ___COVER_BREAK_HANDLER_STACK_RETI;
         }
       else
         {
           ___RETN_GET_FS_LINK(ra1,fs,link)
           ___COVER_BREAK_HANDLER_STACK_RETN;
         }

       ___FP_ADJFP(fp,-___FRAME_SPACE(fs)); /* get base of frame */

       for (i=fs; i>0; i--)
         ___SET_STK(i,___FP_STK(fp,i))

       ra2 = ___STK(link+1);

       if (ra2 == ___GSTATE->handler_break)
         {
           /* first frame of that section */

           ___COVER_BREAK_HANDLER_STACK_FIRST_FRAME;

           ___SET_STK(-___BREAK_FRAME_NEXT,
                      ___FP_STK(fp,-___BREAK_FRAME_NEXT))
         }
       else
         {
           /* not the first frame of that section */

           ___COVER_BREAK_HANDLER_STACK_NOT_FIRST_FRAME;

           ___FP_SET_STK(fp,-___FRAME_STACK_RA,ra2)
           ___SET_STK(-___BREAK_FRAME_NEXT,___CAST(___SCMOBJ,fp))
           ___SET_STK(link+1,___GSTATE->handler_break)
         }
     }
   else
     {
       /* caller's frame is in the heap */

       fp = ___BODY_AS(cf,___tSUBTYPED); /* get pointer to frame's body */

       ra1 = fp[___FRAME_RA];

       if (ra1 == ___GSTATE->internal_return)
         {
           ___SCMOBJ actual_ra = fp[___FRAME_RETI_RA];
           ___RETI_GET_FS_LINK(actual_ra,fs,link)
           ___COVER_BREAK_HANDLER_HEAP_RETI;
         }
       else
         {
           ___RETN_GET_FS_LINK(ra1,fs,link)
           ___COVER_BREAK_HANDLER_HEAP_RETN;
         }

       fp += fs+1; /* get base of frame */

       for (i=fs; i>0; i--)
         ___SET_STK(i,___FP_STK(fp,i))

       ___SET_STK(-___BREAK_FRAME_NEXT,___STK(link+1))
       ___SET_STK(link+1,___GSTATE->handler_break)
     }

   ___ADJFP(___FRAME_SPACE(fs))

   ___JUMPEXTPRM(___NOTHING,ra1)

}
#undef ___ARG1
   ___SET_R0(___LBL(13))
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L))
___DEF_SLBL(13,___L13__23__23_kernel_2d_handlers)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   /*
    * ___LBL(13)
    *
    * This is the internal return handler.  It is invoked when an
    * internal return point is returned to.
    *
    * Internal return points are used by the compiler when some routine
    * (e.g.  garbage collector) has to be called but it would be space
    * inefficient to generate the code to construct a normal continuation
    * frame (all the live GVM registers would have to be pushed on the
    * stack).  With internal return points it is not necessary for the
    * caller to save the live GVM registers before the routine is called,
    * and restore the GVM registers when the routine returns.  Instead it
    * is the called routine which saves and restores all the registers.
    *
    * The continuation frame for an internal return point has this layout:
    *
    *              STACK
    *          |            |
    *          +------------+
    *  ___fp ->|  RESERVED  | ^ <-- added to make stack and heap length equal
    *          |<ALIGN PAD> | | <-- words added for alignment of frame
    *          |  ret_adr   | | <-- internal return address (back to caller)
    *          | GVM reg N  | | ADDED BY ROUTINE
    *          |    ...     | |
    *          | GVM reg 0  | |
    *          |<ALIGN PAD> | v <-- to force known offset from ___fp to ret_adr
    *          |  slot fs   | ^
    *          |    ...     | | PUT ON STACK BY CALLER OF ROUTINE
    *          |  slot 1    | v
    *          +------------+
    *          |    ...     |
    */

   int fs;
   ___SCMOBJ ira;

   /* save result in case we are returning from ##force-undetermined */

   ___ps->temp2 = ___R1;

   /* make ___fp point to internal return address */

   ___ADJFP(___RETI_RA)

   /* pop return address and all GVM registers */

   ira = ___POP;
   ___POP_REGS

   /* get number of slots put on stack by caller */

   ___RETI_GET_CFS(ira,fs)

   /* adjust ___fp so that slot fs is on top of stack */

   ___ADJFP(fs-___ROUND_TO_MULT(fs,___FRAME_ALIGN))

   /* jump to internal return point */

   ___COVER_INTERNAL_RETURN_HANDLER_END;

   ___JUMPEXTPRM(___NOTHING,ira)

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_dynamic_2d_env_2d_bind
#undef ___PH_LBL0
#define ___PH_LBL0 30
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_dynamic_2d_env_2d_bind)
___DEF_P_HLBL(___L1__23__23_dynamic_2d_env_2d_bind)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_dynamic_2d_env_2d_bind)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_dynamic_2d_env_2d_bind)
   ___SET_R3(___CURRENTTHREAD)
   ___SET_R4(___UNCHECKEDSTRUCTUREREF(___R3,___FIX(20L),___SUB(4),___FAL))
   ___UNCHECKEDSTRUCTURESET(___R3,___R1,___FIX(20L),___SUB(4),___FAL)
   ___SET_R1(___VECTORREF(___R1,___FIX(0L)))
   ___SET_R1(___VECTORREF(___R1,___FIX(0L)))
   ___UNCHECKEDSTRUCTURESET(___R3,___R1,___FIX(21L),___SUB(4),___FAL)
   ___UNCHECKEDSTRUCTURESET(___R3,___R1,___FIX(22L),___SUB(4),___FAL)
   ___UNCHECKEDSTRUCTURESET(___R3,___R1,___FIX(23L),___SUB(4),___FAL)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R4)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___R2)
___DEF_SLBL(1,___L1__23__23_dynamic_2d_env_2d_bind)
   ___SET_R2(___CURRENTTHREAD)
   ___UNCHECKEDSTRUCTURESET(___R2,___STK(-2),___FIX(20L),___SUB(4),___FAL)
   ___SET_R3(___VECTORREF(___STK(-2),___FIX(0L)))
   ___SET_R3(___VECTORREF(___R3,___FIX(0L)))
   ___UNCHECKEDSTRUCTURESET(___R2,___R3,___FIX(21L),___SUB(4),___FAL)
   ___UNCHECKEDSTRUCTURESET(___R2,___R3,___FIX(22L),___SUB(4),___FAL)
   ___UNCHECKEDSTRUCTURESET(___R2,___R3,___FIX(23L),___SUB(4),___FAL)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_disable_2d_interrupts_21_
#undef ___PH_LBL0
#define ___PH_LBL0 33
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_disable_2d_interrupts_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_disable_2d_interrupts_21_)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_disable_2d_interrupts_21_)
{ ___SCMOBJ ___RESULT;
___disable_interrupts (); ___RESULT = ___VOID;
   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_enable_2d_interrupts_21_
#undef ___PH_LBL0
#define ___PH_LBL0 35
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_enable_2d_interrupts_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_enable_2d_interrupts_21_)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_enable_2d_interrupts_21_)
{ ___SCMOBJ ___RESULT;
___enable_interrupts (); ___RESULT = ___VOID;
   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_interrupt_2d_handler
#undef ___PH_LBL0
#define ___PH_LBL0 37
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_interrupt_2d_handler)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_interrupt_2d_handler)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_interrupt_2d_handler)
   ___SET_R1(___VECTORREF(___GLO(167,___G__23__23_interrupt_2d_vector),___R1))
   ___IF(___NOT(___PROCEDUREP(___R1)))
   ___GOTO(___L1__23__23_interrupt_2d_handler)
   ___END_IF
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___R1)
___DEF_GLBL(___L1__23__23_interrupt_2d_handler)
   ___SET_R1(___VOID)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_interrupt_2d_vector_2d_set_21_
#undef ___PH_LBL0
#define ___PH_LBL0 39
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_interrupt_2d_vector_2d_set_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_interrupt_2d_vector_2d_set_21_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_interrupt_2d_vector_2d_set_21_)
   ___VECTORSET(___GLO(167,___G__23__23_interrupt_2d_vector),___R1,___R2) ___SET_R1(___GLO(167,___G__23__23_interrupt_2d_vector))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_heartbeat_2d_interval_2d_set_21_
#undef ___PH_LBL0
#define ___PH_LBL0 41
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_heartbeat_2d_interval_2d_set_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_heartbeat_2d_interval_2d_set_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_heartbeat_2d_interval_2d_set_21_)
#define ___ARG1 ___R1
#define ___ARG2 ___SUB(8)
{ ___SCMOBJ ___RESULT;

   ___FLONUM_VAL(___ARG2) = ___set_heartbeat_interval (___FLONUM_VAL(___ARG1));
   ___RESULT = ___ARG2;

   ___SET_R1(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 43
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(9))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_heap_2d_overflow_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 46
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_heap_2d_overflow_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_heap_2d_overflow_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_heap_2d_overflow_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(2,___S__23__23_type_2d_0_2d_d69cd396_2d_01e0_2d_4dcb_2d_87dc_2d_31acea8e0e5f))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_heap_2d_overflow_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 48
#undef ___PD_ALL
#define ___PD_ALL ___D_R1 ___D_R2 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_R1 ___R_R2 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_P_HLBL(___L1__23__23_raise_2d_heap_2d_overflow_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_heap_2d_overflow_2d_exception)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
   ___SET_R1(___LBL(1))
   ___JUMPINT(___SET_NARGS(1),___PRC(611),___L__23__23_with_2d_no_2d_result_2d_expected)
___DEF_SLBL(1,___L1__23__23_raise_2d_heap_2d_overflow_2d_exception)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(1,0,0,0)
   ___SET_R1(___SUB(13))
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 51
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(14))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_stack_2d_overflow_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 54
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_stack_2d_overflow_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_stack_2d_overflow_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_stack_2d_overflow_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(3,___S__23__23_type_2d_0_2d_f512c9f6_2d_3b24_2d_4c5c_2d_8c8b_2d_cabd75b2f951))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_stack_2d_overflow_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 56
#undef ___PD_ALL
#define ___PD_ALL ___D_R1 ___D_R2 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_R1 ___R_R2 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_stack_2d_overflow_2d_exception)
___DEF_P_HLBL(___L1__23__23_raise_2d_stack_2d_overflow_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_stack_2d_overflow_2d_exception)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_raise_2d_stack_2d_overflow_2d_exception)
   ___SET_R1(___LBL(1))
   ___JUMPINT(___SET_NARGS(1),___PRC(611),___L__23__23_with_2d_no_2d_result_2d_expected)
___DEF_SLBL(1,___L1__23__23_raise_2d_stack_2d_overflow_2d_exception)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(1,0,0,0)
   ___SET_R1(___SUB(16))
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 59
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(17))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_nonprocedure_2d_operator_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 62
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_nonprocedure_2d_operator_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_nonprocedure_2d_operator_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_nonprocedure_2d_operator_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(14,___S__23__23_type_2d_4_2d_f39d07ce_2d_436d_2d_40ca_2d_b81f_2d_cdc65d16b7f2))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_nonprocedure_2d_operator_2d_exception_2d_operator
#undef ___PH_LBL0
#define ___PH_LBL0 64
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_nonprocedure_2d_operator_2d_exception_2d_operator)
___DEF_P_HLBL(___L1_nonprocedure_2d_operator_2d_exception_2d_operator)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_nonprocedure_2d_operator_2d_exception_2d_operator)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_nonprocedure_2d_operator_2d_exception_2d_operator)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(14,___S__23__23_type_2d_4_2d_f39d07ce_2d_436d_2d_40ca_2d_b81f_2d_cdc65d16b7f2)))
   ___GOTO(___L2_nonprocedure_2d_operator_2d_exception_2d_operator)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_nonprocedure_2d_operator_2d_exception_2d_operator)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(59),___L0__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
___DEF_GLBL(___L2_nonprocedure_2d_operator_2d_exception_2d_operator)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(1L),___SUB(17),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_nonprocedure_2d_operator_2d_exception_2d_arguments
#undef ___PH_LBL0
#define ___PH_LBL0 67
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_nonprocedure_2d_operator_2d_exception_2d_arguments)
___DEF_P_HLBL(___L1_nonprocedure_2d_operator_2d_exception_2d_arguments)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_nonprocedure_2d_operator_2d_exception_2d_arguments)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_nonprocedure_2d_operator_2d_exception_2d_arguments)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(14,___S__23__23_type_2d_4_2d_f39d07ce_2d_436d_2d_40ca_2d_b81f_2d_cdc65d16b7f2)))
   ___GOTO(___L2_nonprocedure_2d_operator_2d_exception_2d_arguments)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_nonprocedure_2d_operator_2d_exception_2d_arguments)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(59),___L0__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
___DEF_GLBL(___L2_nonprocedure_2d_operator_2d_exception_2d_arguments)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(2L),___SUB(17),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_nonprocedure_2d_operator_2d_exception_2d_code
#undef ___PH_LBL0
#define ___PH_LBL0 70
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_nonprocedure_2d_operator_2d_exception_2d_code)
___DEF_P_HLBL(___L1_nonprocedure_2d_operator_2d_exception_2d_code)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_nonprocedure_2d_operator_2d_exception_2d_code)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_nonprocedure_2d_operator_2d_exception_2d_code)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(14,___S__23__23_type_2d_4_2d_f39d07ce_2d_436d_2d_40ca_2d_b81f_2d_cdc65d16b7f2)))
   ___GOTO(___L2_nonprocedure_2d_operator_2d_exception_2d_code)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_nonprocedure_2d_operator_2d_exception_2d_code)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(59),___L0__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
___DEF_GLBL(___L2_nonprocedure_2d_operator_2d_exception_2d_code)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(3L),___SUB(17),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_nonprocedure_2d_operator_2d_exception_2d_rte
#undef ___PH_LBL0
#define ___PH_LBL0 73
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_nonprocedure_2d_operator_2d_exception_2d_rte)
___DEF_P_HLBL(___L1_nonprocedure_2d_operator_2d_exception_2d_rte)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_nonprocedure_2d_operator_2d_exception_2d_rte)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_nonprocedure_2d_operator_2d_exception_2d_rte)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(14,___S__23__23_type_2d_4_2d_f39d07ce_2d_436d_2d_40ca_2d_b81f_2d_cdc65d16b7f2)))
   ___GOTO(___L2_nonprocedure_2d_operator_2d_exception_2d_rte)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_nonprocedure_2d_operator_2d_exception_2d_rte)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(59),___L0__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception)
___DEF_GLBL(___L2_nonprocedure_2d_operator_2d_exception_2d_rte)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(4L),___SUB(17),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_apply_2d_global_2d_with_2d_procedure_2d_check_2d_nary
#undef ___PH_LBL0
#define ___PH_LBL0 76
#undef ___PD_ALL
#define ___PD_ALL ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_apply_2d_global_2d_with_2d_procedure_2d_check_2d_nary)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_apply_2d_global_2d_with_2d_procedure_2d_check_2d_nary)
   ___IF_NARGS_EQ(1,___SET_R2(___NUL))
   ___GET_REST(0,1,0,0)
___DEF_GLBL(___L__23__23_apply_2d_global_2d_with_2d_procedure_2d_check_2d_nary)
   ___SET_R1(___GLOBALVARREF(___R1))
   ___JUMPINT(___SET_NARGS(2),___PRC(80),___L__23__23_apply_2d_with_2d_procedure_2d_check)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_apply_2d_with_2d_procedure_2d_check_2d_nary
#undef ___PH_LBL0
#define ___PH_LBL0 78
#undef ___PD_ALL
#define ___PD_ALL ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_apply_2d_with_2d_procedure_2d_check_2d_nary)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_apply_2d_with_2d_procedure_2d_check_2d_nary)
   ___IF_NARGS_EQ(1,___SET_R2(___NUL))
   ___GET_REST(0,1,0,0)
___DEF_GLBL(___L__23__23_apply_2d_with_2d_procedure_2d_check_2d_nary)
   ___JUMPINT(___SET_NARGS(2),___PRC(80),___L__23__23_apply_2d_with_2d_procedure_2d_check)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_apply_2d_with_2d_procedure_2d_check
#undef ___PH_LBL0
#define ___PH_LBL0 80
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_apply_2d_with_2d_procedure_2d_check)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_apply_2d_with_2d_procedure_2d_check)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_apply_2d_with_2d_procedure_2d_check)
   ___IF(___PROCEDUREP(___R1))
   ___GOTO(___L1__23__23_apply_2d_with_2d_procedure_2d_check)
   ___END_IF
   ___SET_STK(1,___R1)
   ___SET_R1(___R2)
   ___SET_R3(___FAL)
   ___SET_R2(___FAL)
   ___ADJFP(1)
   ___JUMPINT(___SET_NARGS(4),___PRC(82),___L__23__23_raise_2d_nonprocedure_2d_operator_2d_exception)
___DEF_GLBL(___L1__23__23_apply_2d_with_2d_procedure_2d_check)
   ___JUMPPRM(___SET_NARGS(2),___PRM(69,___G__23__23_apply))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_nonprocedure_2d_operator_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 82
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R1 ___W_R2 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_nonprocedure_2d_operator_2d_exception)
___DEF_P_HLBL(___L1__23__23_raise_2d_nonprocedure_2d_operator_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_nonprocedure_2d_operator_2d_exception)
   ___IF_NARGS_EQ(4,___NOTHING)
   ___WRONG_NARGS(0,4,0,0)
___DEF_GLBL(___L__23__23_raise_2d_nonprocedure_2d_operator_2d_exception)
   ___BEGIN_ALLOC_STRUCTURE(5)
   ___ADD_STRUCTURE_ELEM(0,___SUB(17))
   ___ADD_STRUCTURE_ELEM(1,___STK(0))
   ___ADD_STRUCTURE_ELEM(2,___R1)
   ___ADD_STRUCTURE_ELEM(3,___R2)
   ___ADD_STRUCTURE_ELEM(4,___R3)
   ___END_ALLOC_STRUCTURE(5)
   ___SET_R1(___GET_STRUCTURE(5))
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___ADJFP(-1)
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_raise_2d_nonprocedure_2d_operator_2d_exception)
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 85
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(19))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_wrong_2d_number_2d_of_2d_arguments_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 88
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_wrong_2d_number_2d_of_2d_arguments_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_wrong_2d_number_2d_of_2d_arguments_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_wrong_2d_number_2d_of_2d_arguments_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(4,___S__23__23_type_2d_2_2d_2138cd7f_2d_8c42_2d_4164_2d_b56a_2d_a8c7badf3323))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure
#undef ___PH_LBL0
#define ___PH_LBL0 90
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure)
___DEF_P_HLBL(___L1_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(4,___S__23__23_type_2d_2_2d_2138cd7f_2d_8c42_2d_4164_2d_b56a_2d_a8c7badf3323)))
   ___GOTO(___L2_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(85),___L0__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___DEF_GLBL(___L2_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(1L),___SUB(19),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments
#undef ___PH_LBL0
#define ___PH_LBL0 93
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments)
___DEF_P_HLBL(___L1_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(4,___S__23__23_type_2d_2_2d_2138cd7f_2d_8c42_2d_4164_2d_b56a_2d_a8c7badf3323)))
   ___GOTO(___L2_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(85),___L0__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___DEF_GLBL(___L2_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(2L),___SUB(19),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary
#undef ___PH_LBL0
#define ___PH_LBL0 96
#undef ___PD_ALL
#define ___PD_ALL ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary)
   ___IF_NARGS_EQ(1,___SET_R2(___NUL))
   ___GET_REST(0,1,0,0)
___DEF_GLBL(___L__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary)
   ___JUMPINT(___SET_NARGS(2),___PRC(98),___L__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 98
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_R1 ___D_R2 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_R1 ___R_R2 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_R1 ___W_R2 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___DEF_P_HLBL(___L1__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
   ___BEGIN_ALLOC_STRUCTURE(3)
   ___ADD_STRUCTURE_ELEM(0,___SUB(19))
   ___ADD_STRUCTURE_ELEM(1,___R1)
   ___ADD_STRUCTURE_ELEM(2,___R2)
   ___END_ALLOC_STRUCTURE(3)
   ___SET_R1(___GET_STRUCTURE(3))
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception)
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 101
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(21))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_keyword_2d_expected_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 104
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_keyword_2d_expected_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_keyword_2d_expected_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_keyword_2d_expected_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(7,___S__23__23_type_2d_2_2d_3fd6c57f_2d_3c80_2d_4436_2d_a430_2d_57ea4457c11e))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_keyword_2d_expected_2d_exception_2d_procedure
#undef ___PH_LBL0
#define ___PH_LBL0 106
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_keyword_2d_expected_2d_exception_2d_procedure)
___DEF_P_HLBL(___L1_keyword_2d_expected_2d_exception_2d_procedure)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_keyword_2d_expected_2d_exception_2d_procedure)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_keyword_2d_expected_2d_exception_2d_procedure)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(7,___S__23__23_type_2d_2_2d_3fd6c57f_2d_3c80_2d_4436_2d_a430_2d_57ea4457c11e)))
   ___GOTO(___L2_keyword_2d_expected_2d_exception_2d_procedure)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_keyword_2d_expected_2d_exception_2d_procedure)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(101),___L0__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception)
___DEF_GLBL(___L2_keyword_2d_expected_2d_exception_2d_procedure)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(1L),___SUB(21),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_keyword_2d_expected_2d_exception_2d_arguments
#undef ___PH_LBL0
#define ___PH_LBL0 109
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_keyword_2d_expected_2d_exception_2d_arguments)
___DEF_P_HLBL(___L1_keyword_2d_expected_2d_exception_2d_arguments)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_keyword_2d_expected_2d_exception_2d_arguments)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_keyword_2d_expected_2d_exception_2d_arguments)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(7,___S__23__23_type_2d_2_2d_3fd6c57f_2d_3c80_2d_4436_2d_a430_2d_57ea4457c11e)))
   ___GOTO(___L2_keyword_2d_expected_2d_exception_2d_arguments)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_keyword_2d_expected_2d_exception_2d_arguments)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(101),___L0__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception)
___DEF_GLBL(___L2_keyword_2d_expected_2d_exception_2d_arguments)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(2L),___SUB(21),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_keyword_2d_expected_2d_exception_2d_nary
#undef ___PH_LBL0
#define ___PH_LBL0 112
#undef ___PD_ALL
#define ___PD_ALL ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_keyword_2d_expected_2d_exception_2d_nary)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_keyword_2d_expected_2d_exception_2d_nary)
   ___IF_NARGS_EQ(1,___SET_R2(___NUL))
   ___GET_REST(0,1,0,0)
___DEF_GLBL(___L__23__23_raise_2d_keyword_2d_expected_2d_exception_2d_nary)
   ___JUMPINT(___SET_NARGS(2),___PRC(114),___L__23__23_raise_2d_keyword_2d_expected_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_keyword_2d_expected_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 114
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_R1 ___D_R2 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_R1 ___R_R2 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_R1 ___W_R2 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_keyword_2d_expected_2d_exception)
___DEF_P_HLBL(___L1__23__23_raise_2d_keyword_2d_expected_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_keyword_2d_expected_2d_exception)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_raise_2d_keyword_2d_expected_2d_exception)
   ___BEGIN_ALLOC_STRUCTURE(3)
   ___ADD_STRUCTURE_ELEM(0,___SUB(21))
   ___ADD_STRUCTURE_ELEM(1,___R1)
   ___ADD_STRUCTURE_ELEM(2,___R2)
   ___END_ALLOC_STRUCTURE(3)
   ___SET_R1(___GET_STRUCTURE(3))
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_raise_2d_keyword_2d_expected_2d_exception)
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 117
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(23))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_unknown_2d_keyword_2d_argument_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 120
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_unknown_2d_keyword_2d_argument_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_unknown_2d_keyword_2d_argument_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_unknown_2d_keyword_2d_argument_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(6,___S__23__23_type_2d_2_2d_3f9f8aaa_2d_ea21_2d_4f2b_2d_bc06_2d_f65950e6c408))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure
#undef ___PH_LBL0
#define ___PH_LBL0 122
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure)
___DEF_P_HLBL(___L1_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(6,___S__23__23_type_2d_2_2d_3f9f8aaa_2d_ea21_2d_4f2b_2d_bc06_2d_f65950e6c408)))
   ___GOTO(___L2_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(117),___L0__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception)
___DEF_GLBL(___L2_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(1L),___SUB(23),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments
#undef ___PH_LBL0
#define ___PH_LBL0 125
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments)
___DEF_P_HLBL(___L1_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(6,___S__23__23_type_2d_2_2d_3f9f8aaa_2d_ea21_2d_4f2b_2d_bc06_2d_f65950e6c408)))
   ___GOTO(___L2_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(117),___L0__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception)
___DEF_GLBL(___L2_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(2L),___SUB(23),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception_2d_nary
#undef ___PH_LBL0
#define ___PH_LBL0 128
#undef ___PD_ALL
#define ___PD_ALL ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception_2d_nary)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception_2d_nary)
   ___IF_NARGS_EQ(1,___SET_R2(___NUL))
   ___GET_REST(0,1,0,0)
___DEF_GLBL(___L__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception_2d_nary)
   ___JUMPINT(___SET_NARGS(2),___PRC(130),___L__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 130
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_R1 ___D_R2 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_R1 ___R_R2 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_R1 ___W_R2 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception)
___DEF_P_HLBL(___L1__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception)
   ___BEGIN_ALLOC_STRUCTURE(3)
   ___ADD_STRUCTURE_ELEM(0,___SUB(23))
   ___ADD_STRUCTURE_ELEM(1,___R1)
   ___ADD_STRUCTURE_ELEM(2,___R2)
   ___END_ALLOC_STRUCTURE(3)
   ___SET_R1(___GET_STRUCTURE(3))
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception)
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 133
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(25))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_cfun_2d_conversion_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 136
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_cfun_2d_conversion_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_cfun_2d_conversion_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_cfun_2d_conversion_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(11,___S__23__23_type_2d_4_2d_9f09b552_2d_0fb7_2d_42c5_2d_b0d4_2d_212155841d53))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_cfun_2d_conversion_2d_exception_2d_procedure
#undef ___PH_LBL0
#define ___PH_LBL0 138
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_cfun_2d_conversion_2d_exception_2d_procedure)
___DEF_P_HLBL(___L1_cfun_2d_conversion_2d_exception_2d_procedure)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_cfun_2d_conversion_2d_exception_2d_procedure)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_cfun_2d_conversion_2d_exception_2d_procedure)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(11,___S__23__23_type_2d_4_2d_9f09b552_2d_0fb7_2d_42c5_2d_b0d4_2d_212155841d53)))
   ___GOTO(___L2_cfun_2d_conversion_2d_exception_2d_procedure)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_cfun_2d_conversion_2d_exception_2d_procedure)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(133),___L0__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
___DEF_GLBL(___L2_cfun_2d_conversion_2d_exception_2d_procedure)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(1L),___SUB(25),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_cfun_2d_conversion_2d_exception_2d_arguments
#undef ___PH_LBL0
#define ___PH_LBL0 141
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_cfun_2d_conversion_2d_exception_2d_arguments)
___DEF_P_HLBL(___L1_cfun_2d_conversion_2d_exception_2d_arguments)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_cfun_2d_conversion_2d_exception_2d_arguments)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_cfun_2d_conversion_2d_exception_2d_arguments)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(11,___S__23__23_type_2d_4_2d_9f09b552_2d_0fb7_2d_42c5_2d_b0d4_2d_212155841d53)))
   ___GOTO(___L2_cfun_2d_conversion_2d_exception_2d_arguments)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_cfun_2d_conversion_2d_exception_2d_arguments)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(133),___L0__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
___DEF_GLBL(___L2_cfun_2d_conversion_2d_exception_2d_arguments)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(2L),___SUB(25),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_cfun_2d_conversion_2d_exception_2d_code
#undef ___PH_LBL0
#define ___PH_LBL0 144
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_cfun_2d_conversion_2d_exception_2d_code)
___DEF_P_HLBL(___L1_cfun_2d_conversion_2d_exception_2d_code)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_cfun_2d_conversion_2d_exception_2d_code)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_cfun_2d_conversion_2d_exception_2d_code)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(11,___S__23__23_type_2d_4_2d_9f09b552_2d_0fb7_2d_42c5_2d_b0d4_2d_212155841d53)))
   ___GOTO(___L2_cfun_2d_conversion_2d_exception_2d_code)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_cfun_2d_conversion_2d_exception_2d_code)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(133),___L0__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
___DEF_GLBL(___L2_cfun_2d_conversion_2d_exception_2d_code)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(3L),___SUB(25),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_cfun_2d_conversion_2d_exception_2d_message
#undef ___PH_LBL0
#define ___PH_LBL0 147
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_cfun_2d_conversion_2d_exception_2d_message)
___DEF_P_HLBL(___L1_cfun_2d_conversion_2d_exception_2d_message)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_cfun_2d_conversion_2d_exception_2d_message)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_cfun_2d_conversion_2d_exception_2d_message)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(11,___S__23__23_type_2d_4_2d_9f09b552_2d_0fb7_2d_42c5_2d_b0d4_2d_212155841d53)))
   ___GOTO(___L2_cfun_2d_conversion_2d_exception_2d_message)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_cfun_2d_conversion_2d_exception_2d_message)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(133),___L0__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception)
___DEF_GLBL(___L2_cfun_2d_conversion_2d_exception_2d_message)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(4L),___SUB(25),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary
#undef ___PH_LBL0
#define ___PH_LBL0 150
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary)
___DEF_P_HLBL(___L1__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary)
   ___IF_NARGS_EQ(3,___PUSH(___R1) ___SET_R1(___R2) ___SET_R2(___R3) ___SET_R3(___NUL))
   ___GET_REST(0,3,0,0)
___DEF_GLBL(___L__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary)
   ___BEGIN_ALLOC_STRUCTURE(5)
   ___ADD_STRUCTURE_ELEM(0,___SUB(25))
   ___ADD_STRUCTURE_ELEM(1,___R2)
   ___ADD_STRUCTURE_ELEM(2,___R3)
   ___ADD_STRUCTURE_ELEM(3,___STK(0))
   ___ADD_STRUCTURE_ELEM(4,___R1)
   ___END_ALLOC_STRUCTURE(5)
   ___SET_R1(___GET_STRUCTURE(5))
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___ADJFP(-1)
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary)
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 153
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(27))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_sfun_2d_conversion_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 156
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_sfun_2d_conversion_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_sfun_2d_conversion_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_sfun_2d_conversion_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(10,___S__23__23_type_2d_4_2d_54dfbc02_2d_718d_2d_4a34_2d_91ab_2d_d1861da7500a))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_sfun_2d_conversion_2d_exception_2d_procedure
#undef ___PH_LBL0
#define ___PH_LBL0 158
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_sfun_2d_conversion_2d_exception_2d_procedure)
___DEF_P_HLBL(___L1_sfun_2d_conversion_2d_exception_2d_procedure)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_sfun_2d_conversion_2d_exception_2d_procedure)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_sfun_2d_conversion_2d_exception_2d_procedure)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(10,___S__23__23_type_2d_4_2d_54dfbc02_2d_718d_2d_4a34_2d_91ab_2d_d1861da7500a)))
   ___GOTO(___L2_sfun_2d_conversion_2d_exception_2d_procedure)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_sfun_2d_conversion_2d_exception_2d_procedure)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(153),___L0__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
___DEF_GLBL(___L2_sfun_2d_conversion_2d_exception_2d_procedure)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(1L),___SUB(27),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_sfun_2d_conversion_2d_exception_2d_arguments
#undef ___PH_LBL0
#define ___PH_LBL0 161
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_sfun_2d_conversion_2d_exception_2d_arguments)
___DEF_P_HLBL(___L1_sfun_2d_conversion_2d_exception_2d_arguments)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_sfun_2d_conversion_2d_exception_2d_arguments)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_sfun_2d_conversion_2d_exception_2d_arguments)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(10,___S__23__23_type_2d_4_2d_54dfbc02_2d_718d_2d_4a34_2d_91ab_2d_d1861da7500a)))
   ___GOTO(___L2_sfun_2d_conversion_2d_exception_2d_arguments)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_sfun_2d_conversion_2d_exception_2d_arguments)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(153),___L0__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
___DEF_GLBL(___L2_sfun_2d_conversion_2d_exception_2d_arguments)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(2L),___SUB(27),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_sfun_2d_conversion_2d_exception_2d_code
#undef ___PH_LBL0
#define ___PH_LBL0 164
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_sfun_2d_conversion_2d_exception_2d_code)
___DEF_P_HLBL(___L1_sfun_2d_conversion_2d_exception_2d_code)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_sfun_2d_conversion_2d_exception_2d_code)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_sfun_2d_conversion_2d_exception_2d_code)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(10,___S__23__23_type_2d_4_2d_54dfbc02_2d_718d_2d_4a34_2d_91ab_2d_d1861da7500a)))
   ___GOTO(___L2_sfun_2d_conversion_2d_exception_2d_code)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_sfun_2d_conversion_2d_exception_2d_code)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(153),___L0__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
___DEF_GLBL(___L2_sfun_2d_conversion_2d_exception_2d_code)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(3L),___SUB(27),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_sfun_2d_conversion_2d_exception_2d_message
#undef ___PH_LBL0
#define ___PH_LBL0 167
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_sfun_2d_conversion_2d_exception_2d_message)
___DEF_P_HLBL(___L1_sfun_2d_conversion_2d_exception_2d_message)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_sfun_2d_conversion_2d_exception_2d_message)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_sfun_2d_conversion_2d_exception_2d_message)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(10,___S__23__23_type_2d_4_2d_54dfbc02_2d_718d_2d_4a34_2d_91ab_2d_d1861da7500a)))
   ___GOTO(___L2_sfun_2d_conversion_2d_exception_2d_message)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_sfun_2d_conversion_2d_exception_2d_message)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(153),___L0__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception)
___DEF_GLBL(___L2_sfun_2d_conversion_2d_exception_2d_message)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(4L),___SUB(27),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_sfun_2d_conversion_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 170
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_R1 ___W_R2 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_sfun_2d_conversion_2d_exception)
___DEF_P_HLBL(___L1__23__23_raise_2d_sfun_2d_conversion_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_sfun_2d_conversion_2d_exception)
   ___IF_NARGS_EQ(3,___NOTHING)
   ___WRONG_NARGS(0,3,0,0)
___DEF_GLBL(___L__23__23_raise_2d_sfun_2d_conversion_2d_exception)
   ___BEGIN_ALLOC_STRUCTURE(5)
   ___ADD_STRUCTURE_ELEM(0,___SUB(27))
   ___ADD_STRUCTURE_ELEM(1,___R3)
   ___ADD_STRUCTURE_ELEM(2,___NUL)
   ___ADD_STRUCTURE_ELEM(3,___R1)
   ___ADD_STRUCTURE_ELEM(4,___R2)
   ___END_ALLOC_STRUCTURE(5)
   ___SET_R1(___GET_STRUCTURE(5))
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_raise_2d_sfun_2d_conversion_2d_exception)
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 173
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(29))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_multiple_2d_c_2d_return_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 176
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_multiple_2d_c_2d_return_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_multiple_2d_c_2d_return_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_multiple_2d_c_2d_return_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(1,___S__23__23_type_2d_0_2d_73c66686_2d_a08f_2d_4c7c_2d_a0f1_2d_5ad7771f242a))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_multiple_2d_c_2d_return_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 178
#undef ___PD_ALL
#define ___PD_ALL ___D_R1 ___D_R2 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_R1 ___R_R2 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_multiple_2d_c_2d_return_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_multiple_2d_c_2d_return_2d_exception)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_raise_2d_multiple_2d_c_2d_return_2d_exception)
   ___SET_R1(___SUB(31))
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 180
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(32))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_number_2d_of_2d_arguments_2d_limit_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 183
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_number_2d_of_2d_arguments_2d_limit_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_number_2d_of_2d_arguments_2d_limit_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_number_2d_of_2d_arguments_2d_limit_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(8,___S__23__23_type_2d_2_2d_f9519b37_2d_d6d4_2d_4748_2d_8eb1_2d_a0c8dc18c5e7))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure
#undef ___PH_LBL0
#define ___PH_LBL0 185
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure)
___DEF_P_HLBL(___L1_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(8,___S__23__23_type_2d_2_2d_f9519b37_2d_d6d4_2d_4748_2d_8eb1_2d_a0c8dc18c5e7)))
   ___GOTO(___L2_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(180),___L0__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___DEF_GLBL(___L2_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(1L),___SUB(32),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments
#undef ___PH_LBL0
#define ___PH_LBL0 188
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments)
___DEF_P_HLBL(___L1_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(8,___S__23__23_type_2d_2_2d_f9519b37_2d_d6d4_2d_4748_2d_8eb1_2d_a0c8dc18c5e7)))
   ___GOTO(___L2_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(180),___L0__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___DEF_GLBL(___L2_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(2L),___SUB(32),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 191
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_R1 ___D_R2 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_R1 ___R_R2 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_R1 ___W_R2 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___DEF_P_HLBL(___L1__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
   ___BEGIN_ALLOC_STRUCTURE(3)
   ___ADD_STRUCTURE_ELEM(0,___SUB(32))
   ___ADD_STRUCTURE_ELEM(1,___R1)
   ___ADD_STRUCTURE_ELEM(2,___R2)
   ___END_ALLOC_STRUCTURE(3)
   ___SET_R1(___GET_STRUCTURE(3))
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception)
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_type_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 194
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_type_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_type_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_type_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_type_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(34))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_type_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_type_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 197
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_type_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_type_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_type_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(13,___S__23__23_type_2d_4_2d_cf06eccd_2d_bf2c_2d_4b30_2d_a6ce_2d_394b345a0dee))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_type_2d_exception_2d_procedure
#undef ___PH_LBL0
#define ___PH_LBL0 199
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_type_2d_exception_2d_procedure)
___DEF_P_HLBL(___L1_type_2d_exception_2d_procedure)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_type_2d_exception_2d_procedure)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_type_2d_exception_2d_procedure)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(13,___S__23__23_type_2d_4_2d_cf06eccd_2d_bf2c_2d_4b30_2d_a6ce_2d_394b345a0dee)))
   ___GOTO(___L2_type_2d_exception_2d_procedure)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_type_2d_exception_2d_procedure)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(194),___L0__23__23_fail_2d_check_2d_type_2d_exception)
___DEF_GLBL(___L2_type_2d_exception_2d_procedure)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(1L),___SUB(34),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_type_2d_exception_2d_arguments
#undef ___PH_LBL0
#define ___PH_LBL0 202
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_type_2d_exception_2d_arguments)
___DEF_P_HLBL(___L1_type_2d_exception_2d_arguments)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_type_2d_exception_2d_arguments)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_type_2d_exception_2d_arguments)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(13,___S__23__23_type_2d_4_2d_cf06eccd_2d_bf2c_2d_4b30_2d_a6ce_2d_394b345a0dee)))
   ___GOTO(___L2_type_2d_exception_2d_arguments)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_type_2d_exception_2d_arguments)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(194),___L0__23__23_fail_2d_check_2d_type_2d_exception)
___DEF_GLBL(___L2_type_2d_exception_2d_arguments)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(2L),___SUB(34),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_type_2d_exception_2d_arg_2d_num
#undef ___PH_LBL0
#define ___PH_LBL0 205
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_type_2d_exception_2d_arg_2d_num)
___DEF_P_HLBL(___L1_type_2d_exception_2d_arg_2d_num)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_type_2d_exception_2d_arg_2d_num)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_type_2d_exception_2d_arg_2d_num)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(13,___S__23__23_type_2d_4_2d_cf06eccd_2d_bf2c_2d_4b30_2d_a6ce_2d_394b345a0dee)))
   ___GOTO(___L2_type_2d_exception_2d_arg_2d_num)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_type_2d_exception_2d_arg_2d_num)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(194),___L0__23__23_fail_2d_check_2d_type_2d_exception)
___DEF_GLBL(___L2_type_2d_exception_2d_arg_2d_num)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(3L),___SUB(34),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_type_2d_exception_2d_type_2d_id
#undef ___PH_LBL0
#define ___PH_LBL0 208
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_type_2d_exception_2d_type_2d_id)
___DEF_P_HLBL(___L1_type_2d_exception_2d_type_2d_id)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_type_2d_exception_2d_type_2d_id)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_type_2d_exception_2d_type_2d_id)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(13,___S__23__23_type_2d_4_2d_cf06eccd_2d_bf2c_2d_4b30_2d_a6ce_2d_394b345a0dee)))
   ___GOTO(___L2_type_2d_exception_2d_type_2d_id)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_type_2d_exception_2d_type_2d_id)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(194),___L0__23__23_fail_2d_check_2d_type_2d_exception)
___DEF_GLBL(___L2_type_2d_exception_2d_type_2d_id)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(4L),___SUB(34),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_type_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 211
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_type_2d_exception)
___DEF_P_HLBL(___L1__23__23_raise_2d_type_2d_exception)
___DEF_P_HLBL(___L2__23__23_raise_2d_type_2d_exception)
___DEF_P_HLBL(___L3__23__23_raise_2d_type_2d_exception)
___DEF_P_HLBL(___L4__23__23_raise_2d_type_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_type_2d_exception)
   ___IF_NARGS_EQ(4,___NOTHING)
   ___WRONG_NARGS(0,4,0,0)
___DEF_GLBL(___L__23__23_raise_2d_type_2d_exception)
   ___SET_STK(1,___STK(0))
   ___SET_STK(0,___R2)
   ___SET_STK(2,___STK(1))
   ___SET_STK(1,___R3)
   ___SET_R3(___LBL(2))
   ___SET_R2(___FAL)
   ___ADJFP(2)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_raise_2d_type_2d_exception)
   ___JUMPINT(___SET_NARGS(6),___PRC(255),___L__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_SLBL(2,___L2__23__23_raise_2d_type_2d_exception)
   ___IF_NARGS_EQ(5,___NOTHING)
   ___WRONG_NARGS(2,5,0,0)
   ___BEGIN_ALLOC_STRUCTURE(5)
   ___ADD_STRUCTURE_ELEM(0,___SUB(34))
   ___ADD_STRUCTURE_ELEM(1,___STK(-1))
   ___ADD_STRUCTURE_ELEM(2,___STK(0))
   ___ADD_STRUCTURE_ELEM(3,___R1)
   ___ADD_STRUCTURE_ELEM(4,___R2)
   ___END_ALLOC_STRUCTURE(5)
   ___SET_R1(___GET_STRUCTURE(5))
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___CHECK_HEAP(3,4096)
___DEF_SLBL(3,___L3__23__23_raise_2d_type_2d_exception)
   ___POLL(4)
___DEF_SLBL(4,___L4__23__23_raise_2d_type_2d_exception)
   ___ADJFP(-2)
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_os_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 217
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_os_2d_exception)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_os_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_os_2d_exception)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_os_2d_exception)
   ___SET_STK(1,___R1)
   ___SET_R1(___SUB(36))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_os_2d_exception)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_os_2d_exception_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 220
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_os_2d_exception_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_os_2d_exception_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_os_2d_exception_3f_)
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___SYM(12,___S__23__23_type_2d_4_2d_c1fc166b_2d_d951_2d_4871_2d_853c_2d_2b6c8c12d28d))))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_os_2d_exception_2d_procedure
#undef ___PH_LBL0
#define ___PH_LBL0 222
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_os_2d_exception_2d_procedure)
___DEF_P_HLBL(___L1_os_2d_exception_2d_procedure)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_os_2d_exception_2d_procedure)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_os_2d_exception_2d_procedure)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(12,___S__23__23_type_2d_4_2d_c1fc166b_2d_d951_2d_4871_2d_853c_2d_2b6c8c12d28d)))
   ___GOTO(___L2_os_2d_exception_2d_procedure)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_os_2d_exception_2d_procedure)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(217),___L0__23__23_fail_2d_check_2d_os_2d_exception)
___DEF_GLBL(___L2_os_2d_exception_2d_procedure)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(1L),___SUB(36),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_os_2d_exception_2d_arguments
#undef ___PH_LBL0
#define ___PH_LBL0 225
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_os_2d_exception_2d_arguments)
___DEF_P_HLBL(___L1_os_2d_exception_2d_arguments)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_os_2d_exception_2d_arguments)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_os_2d_exception_2d_arguments)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(12,___S__23__23_type_2d_4_2d_c1fc166b_2d_d951_2d_4871_2d_853c_2d_2b6c8c12d28d)))
   ___GOTO(___L2_os_2d_exception_2d_arguments)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_os_2d_exception_2d_arguments)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(217),___L0__23__23_fail_2d_check_2d_os_2d_exception)
___DEF_GLBL(___L2_os_2d_exception_2d_arguments)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(2L),___SUB(36),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_os_2d_exception_2d_message
#undef ___PH_LBL0
#define ___PH_LBL0 228
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_os_2d_exception_2d_message)
___DEF_P_HLBL(___L1_os_2d_exception_2d_message)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_os_2d_exception_2d_message)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_os_2d_exception_2d_message)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(12,___S__23__23_type_2d_4_2d_c1fc166b_2d_d951_2d_4871_2d_853c_2d_2b6c8c12d28d)))
   ___GOTO(___L2_os_2d_exception_2d_message)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_os_2d_exception_2d_message)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(217),___L0__23__23_fail_2d_check_2d_os_2d_exception)
___DEF_GLBL(___L2_os_2d_exception_2d_message)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(3L),___SUB(36),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_os_2d_exception_2d_code
#undef ___PH_LBL0
#define ___PH_LBL0 231
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_os_2d_exception_2d_code)
___DEF_P_HLBL(___L1_os_2d_exception_2d_code)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_os_2d_exception_2d_code)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_os_2d_exception_2d_code)
   ___IF(___STRUCTUREDIOP(___R1,___SYM(12,___S__23__23_type_2d_4_2d_c1fc166b_2d_d951_2d_4871_2d_853c_2d_2b6c8c12d28d)))
   ___GOTO(___L2_os_2d_exception_2d_code)
   ___END_IF
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1_os_2d_exception_2d_code)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(217),___L0__23__23_fail_2d_check_2d_os_2d_exception)
___DEF_GLBL(___L2_os_2d_exception_2d_code)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(4L),___SUB(36),___FAL))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_raise_2d_os_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 234
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_raise_2d_os_2d_exception)
___DEF_P_HLBL(___L1__23__23_raise_2d_os_2d_exception)
___DEF_P_HLBL(___L2__23__23_raise_2d_os_2d_exception)
___DEF_P_HLBL(___L3__23__23_raise_2d_os_2d_exception)
___DEF_P_HLBL(___L4__23__23_raise_2d_os_2d_exception)
___DEF_P_HLBL(___L5__23__23_raise_2d_os_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_raise_2d_os_2d_exception)
   ___IF_NARGS_EQ(3,___PUSH(___R1) ___SET_R1(___R2) ___SET_R2(___R3) ___SET_R3(___NUL))
   ___GET_REST(0,3,0,0)
___DEF_GLBL(___L__23__23_raise_2d_os_2d_exception)
   ___SET_STK(1,___STK(0))
   ___SET_STK(0,___R2)
   ___SET_STK(2,___STK(1))
   ___SET_STK(1,___R3)
   ___SET_R3(___LBL(2))
   ___SET_R2(___FAL)
   ___ADJFP(2)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_raise_2d_os_2d_exception)
   ___JUMPINT(___SET_NARGS(6),___PRC(255),___L__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_SLBL(2,___L2__23__23_raise_2d_os_2d_exception)
   ___IF_NARGS_EQ(5,___NOTHING)
   ___WRONG_NARGS(2,5,0,0)
   ___IF(___NOT(___FIXEQ(___R2,___GLO(105,___G__23__23_err_2d_code_2d_ENOENT))))
   ___GOTO(___L6__23__23_raise_2d_os_2d_exception)
   ___END_IF
   ___BEGIN_ALLOC_STRUCTURE(3)
   ___ADD_STRUCTURE_ELEM(0,___SUB(38))
   ___ADD_STRUCTURE_ELEM(1,___STK(-1))
   ___ADD_STRUCTURE_ELEM(2,___STK(0))
   ___END_ALLOC_STRUCTURE(3)
   ___SET_R1(___GET_STRUCTURE(3))
   ___CHECK_HEAP(3,4096)
___DEF_SLBL(3,___L3__23__23_raise_2d_os_2d_exception)
   ___GOTO(___L7__23__23_raise_2d_os_2d_exception)
___DEF_GLBL(___L6__23__23_raise_2d_os_2d_exception)
   ___BEGIN_ALLOC_STRUCTURE(5)
   ___ADD_STRUCTURE_ELEM(0,___SUB(36))
   ___ADD_STRUCTURE_ELEM(1,___STK(-1))
   ___ADD_STRUCTURE_ELEM(2,___STK(0))
   ___ADD_STRUCTURE_ELEM(3,___R1)
   ___ADD_STRUCTURE_ELEM(4,___R2)
   ___END_ALLOC_STRUCTURE(5)
   ___SET_R1(___GET_STRUCTURE(5))
   ___CHECK_HEAP(4,4096)
___DEF_SLBL(4,___L4__23__23_raise_2d_os_2d_exception)
___DEF_GLBL(___L7__23__23_raise_2d_os_2d_exception)
   ___SET_R2(___CURRENTTHREAD)
   ___SET_R2(___UNCHECKEDSTRUCTUREREF(___R2,___FIX(20L),___SUB(4),___FAL))
   ___SET_R2(___VECTORREF(___R2,___FIX(4L)))
   ___SET_R2(___CDR(___R2))
   ___POLL(5)
___DEF_SLBL(5,___L5__23__23_raise_2d_os_2d_exception)
   ___ADJFP(-2)
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R2)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_argument_2d_list_2d_remove_2d_absent_21_
#undef ___PH_LBL0
#define ___PH_LBL0 241
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_P_HLBL(___L1__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_P_HLBL(___L2__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_P_HLBL(___L3__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___SET_STK(1,___R2)
   ___SET_R3(___R1)
   ___SET_R1(___R2)
   ___SET_R2(___FAL)
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___GOTO(___L6__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_GLBL(___L4__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___SET_R4(___CAR(___R3))
   ___IF(___EQP(___R4,___ABSENT))
   ___GOTO(___L8__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___END_IF
   ___IF(___FALSEP(___R2))
   ___GOTO(___L9__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___END_IF
   ___SETCDR(___R2,___R3)
___DEF_GLBL(___L5__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___SET_R2(___CDR(___R3))
   ___SET_STK(1,___R3)
   ___SET_R3(___R2)
   ___SET_R2(___STK(1))
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_GLBL(___L6__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___IF(___PAIRP(___R3))
   ___GOTO(___L4__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___END_IF
   ___IF(___NOT(___FALSEP(___R2)))
   ___GOTO(___L7__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___END_IF
   ___ADJFP(-1)
   ___JUMPPRM(___NOTHING,___R0)
___DEF_GLBL(___L7__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___SETCDR(___R2,___STK(0))
   ___ADJFP(-1)
   ___JUMPPRM(___NOTHING,___R0)
___DEF_GLBL(___L8__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___SET_R3(___CDR(___R3))
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___GOTO(___L6__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_GLBL(___L9__23__23_argument_2d_list_2d_remove_2d_absent_21_)
   ___SET_R1(___R3)
   ___GOTO(___L5__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_
#undef ___PH_LBL0
#define ___PH_LBL0 246
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___DEF_P_HLBL(___L1__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___DEF_P_HLBL(___L2__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___DEF_P_HLBL(___L3__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___SET_R3(___R1)
   ___SET_R2(___FAL)
   ___SET_R1(___FAL)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___GOTO(___L6__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___DEF_GLBL(___L4__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___SET_R4(___CAR(___R3))
   ___IF(___NOT(___KEYWORDP(___R4)))
   ___GOTO(___L7__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___END_IF
   ___SET_R4(___CADR(___R3))
   ___IF(___EQP(___R4,___ABSENT))
   ___GOTO(___L11__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___END_IF
   ___IF(___FALSEP(___R2))
   ___GOTO(___L12__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___END_IF
   ___SETCDR(___R2,___R3)
___DEF_GLBL(___L5__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___SET_R2(___CDDR(___R3))
   ___SET_STK(1,___R3)
   ___SET_R3(___R2)
   ___SET_R2(___CDR(___STK(1)))
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___DEF_GLBL(___L6__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___IF(___PAIRP(___R3))
   ___GOTO(___L4__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___END_IF
___DEF_GLBL(___L7__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___IF(___NOT(___PAIRP(___R3)))
   ___GOTO(___L9__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___END_IF
   ___SET_R3(___CAR(___R3))
   ___SET_STK(1,___R1)
   ___SET_R1(___R3)
   ___ADJFP(1)
   ___IF(___NOT(___FALSEP(___R2)))
   ___GOTO(___L10__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___END_IF
___DEF_GLBL(___L8__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___ADJFP(-1)
   ___JUMPPRM(___NOTHING,___R0)
___DEF_GLBL(___L9__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___SET_STK(1,___R1)
   ___SET_R1(___NUL)
   ___ADJFP(1)
   ___IF(___FALSEP(___R2))
   ___GOTO(___L8__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___END_IF
___DEF_GLBL(___L10__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___SETCDR(___R2,___R1)
   ___SET_R1(___STK(0))
   ___ADJFP(-1)
   ___JUMPPRM(___NOTHING,___R0)
___DEF_GLBL(___L11__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___SET_R3(___CDDR(___R3))
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___GOTO(___L6__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___DEF_GLBL(___L12__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
   ___SET_R1(___R3)
   ___GOTO(___L5__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_
#undef ___PH_LBL0
#define ___PH_LBL0 251
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
___DEF_P_HLBL(___L1__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
___DEF_P_HLBL(___L2__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
   ___SET_R3(___R1)
   ___SET_R2(___FAL)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
   ___GOTO(___L4__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
___DEF_GLBL(___L3__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
   ___SET_STK(1,___R3)
   ___SET_R3(___R4)
   ___SET_R2(___STK(1))
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
___DEF_GLBL(___L4__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
   ___SET_R4(___CDR(___R3))
   ___IF(___PAIRP(___R4))
   ___GOTO(___L3__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
   ___END_IF
   ___IF(___NOT(___FALSEP(___R2)))
   ___GOTO(___L5__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
   ___END_IF
   ___SET_R1(___CAR(___R3))
   ___JUMPPRM(___NOTHING,___R0)
___DEF_GLBL(___L5__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
   ___SET_R3(___CAR(___R3))
   ___SETCDR(___R2,___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_extract_2d_procedure_2d_and_2d_arguments
#undef ___PH_LBL0
#define ___PH_LBL0 255
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_P_HLBL(___L1__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_P_HLBL(___L2__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_P_HLBL(___L3__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_P_HLBL(___L4__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_P_HLBL(___L5__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_P_HLBL(___L6__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_P_HLBL(___L7__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_P_HLBL(___L8__23__23_extract_2d_procedure_2d_and_2d_arguments)
___DEF_P_HLBL(___L9__23__23_extract_2d_procedure_2d_and_2d_arguments)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___IF_NARGS_EQ(6,___NOTHING)
   ___WRONG_NARGS(0,6,0,0)
___DEF_GLBL(___L__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___IF(___NOT(___NULLP(___STK(-2))))
   ___GOTO(___L10__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___END_IF
   ___SET_STK(-2,___CAR(___STK(-1)))
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_STK(4,___R3)
   ___SET_R1(___CDR(___STK(-1)))
   ___SET_R0(___LBL(2))
   ___ADJFP(5)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___JUMPINT(___SET_NARGS(1),___PRC(251),___L__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_)
___DEF_SLBL(2,___L2__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___SET_R2(___NUL)
   ___SET_R0(___LBL(3))
   ___JUMPINT(___SET_NARGS(2),___PRC(241),___L__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_SLBL(3,___L3__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___SET_STK(-6,___R1)
   ___SET_R3(___STK(-2))
   ___SET_R2(___STK(-3))
   ___SET_R1(___STK(-5))
   ___SET_R0(___STK(-4))
   ___POLL(4)
___DEF_SLBL(4,___L4__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___ADJFP(-6)
   ___JUMPGENNOTSAFE(___SET_NARGS(5),___STK(5))
___DEF_GLBL(___L10__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___IF(___NOT(___PAIRP(___STK(-2))))
   ___GOTO(___L11__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___END_IF
   ___SET_R4(___CAR(___STK(-2)))
   ___SET_STK(1,___STK(-2))
   ___SET_STK(-2,___R4)
   ___SET_STK(2,___R0)
   ___SET_STK(3,___R1)
   ___SET_STK(4,___R2)
   ___SET_STK(5,___R3)
   ___SET_R1(___CDR(___STK(1)))
   ___SET_R0(___LBL(6))
   ___ADJFP(9)
   ___POLL(5)
___DEF_SLBL(5,___L5__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___JUMPINT(___SET_NARGS(1),___PRC(246),___L__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_)
___DEF_SLBL(6,___L6__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___SET_R2(___R1)
   ___SET_R1(___STK(-10))
   ___SET_R0(___LBL(7))
   ___JUMPINT(___SET_NARGS(2),___PRC(241),___L__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___DEF_SLBL(7,___L7__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___SET_STK(-10,___R1)
   ___SET_R3(___STK(-5))
   ___SET_R2(___STK(-6))
   ___SET_R1(___STK(-9))
   ___SET_R0(___STK(-7))
   ___POLL(8)
___DEF_SLBL(8,___L8__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___ADJFP(-10)
   ___JUMPGENNOTSAFE(___SET_NARGS(5),___STK(6))
___DEF_GLBL(___L11__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_STK(4,___R3)
   ___SET_R1(___STK(-1))
   ___SET_R2(___NUL)
   ___SET_R0(___LBL(3))
   ___ADJFP(5)
   ___POLL(9)
___DEF_SLBL(9,___L9__23__23_extract_2d_procedure_2d_and_2d_arguments)
   ___JUMPINT(___SET_NARGS(2),___PRC(241),___L__23__23_argument_2d_list_2d_remove_2d_absent_21_)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_force_2d_undetermined
#undef ___PH_LBL0
#define ___PH_LBL0 266
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_force_2d_undetermined)
___DEF_P_HLBL(___L1__23__23_force_2d_undetermined)
___DEF_P_HLBL(___L2__23__23_force_2d_undetermined)
___DEF_P_HLBL(___L3__23__23_force_2d_undetermined)
___DEF_P_HLBL(___L4__23__23_force_2d_undetermined)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_force_2d_undetermined)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_force_2d_undetermined)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_R0(___LBL(2))
   ___ADJFP(4)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_force_2d_undetermined)
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___R2)
___DEF_SLBL(2,___L2__23__23_force_2d_undetermined)
   ___FORCE1(3,___R1)
___DEF_SLBL(3,___L3__23__23_force_2d_undetermined)
   ___FORCE2
   ___SET_R1(___FORCE3)
#define ___ARG1 ___STK(-2)
#define ___ARG2 ___R1
{ ___SCMOBJ ___RESULT;

     if (___FIELD(___ARG1,___PROMISE_RESULT) == ___ARG1)
       {
         ___FIELD(___ARG1,___PROMISE_RESULT) = ___ARG2;
         ___FIELD(___ARG1,___PROMISE_THUNK) = ___FAL;
       }
     ___RESULT = ___FIELD(___ARG1,___PROMISE_RESULT);

   ___SET_R1(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___POLL(4)
___DEF_SLBL(4,___L4__23__23_force_2d_undetermined)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_jobs
#undef ___PH_LBL0
#define ___PH_LBL0 272
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_jobs)
___DEF_P_HLBL(___L1__23__23_make_2d_jobs)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_jobs)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_make_2d_jobs)
   ___SET_R1(___CONS(___NUL,___NUL))
   ___SETCAR(___R1,___R1)
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_make_2d_jobs)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_add_2d_job_2d_at_2d_tail_21_
#undef ___PH_LBL0
#define ___PH_LBL0 275
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_add_2d_job_2d_at_2d_tail_21_)
___DEF_P_HLBL(___L1__23__23_add_2d_job_2d_at_2d_tail_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_add_2d_job_2d_at_2d_tail_21_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_add_2d_job_2d_at_2d_tail_21_)
   ___SET_R2(___CONS(___R2,___NUL))
   ___SET_R3(___CAR(___R1))
   ___SETCDR(___R3,___R2)
   ___SETCAR(___R1,___R2)
   ___SET_R1(___VOID)
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_add_2d_job_2d_at_2d_tail_21_)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_add_2d_job_21_
#undef ___PH_LBL0
#define ___PH_LBL0 278
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_add_2d_job_21_)
___DEF_P_HLBL(___L1__23__23_add_2d_job_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_add_2d_job_21_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_add_2d_job_21_)
   ___SET_R2(___CONS(___R2,___NUL))
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_add_2d_job_21_)
   ___SET_R3(___CDR(___R1))
   ___IF(___NOT(___NULLP(___R3)))
   ___GOTO(___L2__23__23_add_2d_job_21_)
   ___END_IF
   ___SETCAR(___R1,___R2)
___DEF_GLBL(___L2__23__23_add_2d_job_21_)
   ___SETCDR(___R1,___R2)
   ___SETCDR(___R2,___R3)
   ___SET_R1(___VOID)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_execute_2d_jobs_21_
#undef ___PH_LBL0
#define ___PH_LBL0 281
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_execute_2d_jobs_21_)
___DEF_P_HLBL(___L1__23__23_execute_2d_jobs_21_)
___DEF_P_HLBL(___L2__23__23_execute_2d_jobs_21_)
___DEF_P_HLBL(___L3__23__23_execute_2d_jobs_21_)
___DEF_P_HLBL(___L4__23__23_execute_2d_jobs_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_execute_2d_jobs_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_execute_2d_jobs_21_)
   ___SET_R1(___CDR(___R1))
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_execute_2d_jobs_21_)
   ___GOTO(___L5__23__23_execute_2d_jobs_21_)
___DEF_SLBL(2,___L2__23__23_execute_2d_jobs_21_)
   ___SET_R1(___CDR(___STK(-2)))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_execute_2d_jobs_21_)
___DEF_GLBL(___L5__23__23_execute_2d_jobs_21_)
   ___IF(___NOT(___PAIRP(___R1)))
   ___GOTO(___L6__23__23_execute_2d_jobs_21_)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_R0(___LBL(2))
   ___SET_R1(___CAR(___R1))
   ___ADJFP(4)
   ___POLL(4)
___DEF_SLBL(4,___L4__23__23_execute_2d_jobs_21_)
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___R1)
___DEF_GLBL(___L6__23__23_execute_2d_jobs_21_)
   ___SET_R1(___VOID)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_execute_2d_and_2d_clear_2d_jobs_21_
#undef ___PH_LBL0
#define ___PH_LBL0 287
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_P_HLBL(___L1__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_P_HLBL(___L2__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_P_HLBL(___L3__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_P_HLBL(___L4__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
   ___SET_R2(___CDR(___R1))
   ___SETCAR(___R1,___R1)
   ___SETCDR(___R1,___NUL)
   ___SET_R1(___R2)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
   ___GOTO(___L5__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_SLBL(2,___L2__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
   ___SET_R1(___CDR(___STK(-2)))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_GLBL(___L5__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
   ___IF(___NOT(___PAIRP(___R1)))
   ___GOTO(___L6__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_R0(___LBL(2))
   ___SET_R1(___CAR(___R1))
   ___ADJFP(4)
   ___POLL(4)
___DEF_SLBL(4,___L4__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___R1)
___DEF_GLBL(___L6__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
   ___SET_R1(___VOID)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_clear_2d_jobs_21_
#undef ___PH_LBL0
#define ___PH_LBL0 293
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_clear_2d_jobs_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_clear_2d_jobs_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_clear_2d_jobs_21_)
   ___SETCAR(___R1,___R1)
   ___SETCDR(___R1,___NUL)
   ___SET_R1(___VOID)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_check_2d_heap_2d_limit
#undef ___PH_LBL0
#define ___PH_LBL0 295
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_check_2d_heap_2d_limit)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_check_2d_heap_2d_limit)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_check_2d_heap_2d_limit)
   ___SET_R1(___FAL)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_check_2d_heap
#undef ___PH_LBL0
#define ___PH_LBL0 297
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_check_2d_heap)
___DEF_P_HLBL(___L1__23__23_check_2d_heap)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_check_2d_heap)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_check_2d_heap)
   ___GOTO(___L2__23__23_check_2d_heap)
___DEF_SLBL(1,___L1__23__23_check_2d_heap)
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
___DEF_GLBL(___L2__23__23_check_2d_heap)
{ ___SCMOBJ ___RESULT;

          if (___hp > ___ps->heap_limit)
            {
              ___BOOL overflow;
              ___FRAME_STORE_RA(___R0)
              ___W_ALL
              overflow = ___heap_limit () && ___garbage_collect (0);
              ___R_ALL
              ___SET_R0(___FRAME_FETCH_RA)
              if (overflow)
                ___RESULT = ___TRU;
              else
                ___RESULT = ___FAL;
            }
          else
            ___RESULT = ___FAL;

   ___SET_R1(___RESULT)
}
   ___IF(___FALSEP(___R1))
   ___GOTO(___L3__23__23_check_2d_heap)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_GLBL(___L3__23__23_check_2d_heap)
   ___SET_R1(___VOID)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_rest_2d_param_2d_check_2d_heap
#undef ___PH_LBL0
#define ___PH_LBL0 300
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_rest_2d_param_2d_check_2d_heap)
___DEF_P_HLBL(___L1__23__23_rest_2d_param_2d_check_2d_heap)
___DEF_P_HLBL(___L2__23__23_rest_2d_param_2d_check_2d_heap)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_rest_2d_param_2d_check_2d_heap)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_rest_2d_param_2d_check_2d_heap)
   ___GOTO(___L3__23__23_rest_2d_param_2d_check_2d_heap)
___DEF_SLBL(1,___L1__23__23_rest_2d_param_2d_check_2d_heap)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
___DEF_GLBL(___L3__23__23_rest_2d_param_2d_check_2d_heap)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(2))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(311),___L__23__23_gc_2d_without_2d_exceptions)
___DEF_SLBL(2,___L2__23__23_rest_2d_param_2d_check_2d_heap)
   ___IF(___FALSEP(___R1))
   ___GOTO(___L4__23__23_rest_2d_param_2d_check_2d_heap)
   ___END_IF
   ___SET_R0(___LBL(1))
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_GLBL(___L4__23__23_rest_2d_param_2d_check_2d_heap)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPINT(___SET_NARGS(2),___PRC(309),___L__23__23_rest_2d_param_2d_resume_2d_procedure)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_rest_2d_param_2d_heap_2d_overflow
#undef ___PH_LBL0
#define ___PH_LBL0 304
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_rest_2d_param_2d_heap_2d_overflow)
___DEF_P_HLBL(___L1__23__23_rest_2d_param_2d_heap_2d_overflow)
___DEF_P_HLBL(___L2__23__23_rest_2d_param_2d_heap_2d_overflow)
___DEF_P_HLBL(___L3__23__23_rest_2d_param_2d_heap_2d_overflow)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_rest_2d_param_2d_heap_2d_overflow)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_rest_2d_param_2d_heap_2d_overflow)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(2))
   ___ADJFP(4)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_rest_2d_param_2d_heap_2d_overflow)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(2,___L2__23__23_rest_2d_param_2d_heap_2d_overflow)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_rest_2d_param_2d_heap_2d_overflow)
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(69,___G__23__23_apply))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_rest_2d_param_2d_resume_2d_procedure
#undef ___PH_LBL0
#define ___PH_LBL0 309
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_rest_2d_param_2d_resume_2d_procedure)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_rest_2d_param_2d_resume_2d_procedure)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_rest_2d_param_2d_resume_2d_procedure)
{ ___SCMOBJ ___RESULT;

   ___SCMOBJ proc;
   ___SCMOBJ args;
   int np;
   int i;

   ___POP_ARGS2(proc,args)

   np = ___INT(___VECTORLENGTH(args));

   for (i=0; i<np; i++)
     ___PUSH(___FIELD(args,i))

   ___POP_ARGS_IN_REGS(np) /* load register arguments */

   ___COVER_REST_PARAM_RESUME_PROCEDURE;

   ___JUMPEXTPRM(___SET_NARGS(-1),proc)

   ___RESULT = ___FAL; /* avoid a warning that ___RESULT is not set */

   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_gc_2d_without_2d_exceptions
#undef ___PH_LBL0
#define ___PH_LBL0 311
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_gc_2d_without_2d_exceptions)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_gc_2d_without_2d_exceptions)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_gc_2d_without_2d_exceptions)
{ ___SCMOBJ ___RESULT;

   ___BOOL overflow;

   ___FRAME_STORE_RA(___R0)
   ___W_ALL
   overflow = ___garbage_collect (0);
   ___R_ALL
   ___SET_R0(___FRAME_FETCH_RA)

   ___RESULT = ___BOOLEAN(overflow);

   ___COVER_GC_WITHOUT_EXCEPTIONS;

   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_gc
#undef ___PH_LBL0
#define ___PH_LBL0 313
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_gc)
___DEF_P_HLBL(___L1__23__23_gc)
___DEF_P_HLBL(___L2__23__23_gc)
___DEF_P_HLBL(___L3__23__23_gc)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_gc)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_gc)
   ___GOTO(___L4__23__23_gc)
___DEF_SLBL(1,___L1__23__23_gc)
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_gc)
___DEF_GLBL(___L4__23__23_gc)
{ ___SCMOBJ ___RESULT;

          ___BOOL overflow;
          ___FRAME_STORE_RA(___R0)
          ___W_ALL
          overflow = ___garbage_collect (0);
          ___R_ALL
          ___SET_R0(___FRAME_FETCH_RA)
          ___RESULT = ___BOOLEAN(overflow);

   ___SET_R1(___RESULT)
}
   ___IF(___FALSEP(___R1))
   ___GOTO(___L5__23__23_gc)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_gc)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_GLBL(___L5__23__23_gc)
   ___SET_R1(___VOID)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_add_2d_gc_2d_interrupt_2d_job_21_
#undef ___PH_LBL0
#define ___PH_LBL0 318
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_add_2d_gc_2d_interrupt_2d_job_21_)
___DEF_P_HLBL(___L1__23__23_add_2d_gc_2d_interrupt_2d_job_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_add_2d_gc_2d_interrupt_2d_job_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_add_2d_gc_2d_interrupt_2d_job_21_)
   ___SET_R2(___R1)
   ___SET_R1(___GLO(152,___G__23__23_gc_2d_interrupt_2d_jobs))
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_add_2d_gc_2d_interrupt_2d_job_21_)
   ___JUMPINT(___SET_NARGS(2),___PRC(278),___L__23__23_add_2d_job_21_)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_
#undef ___PH_LBL0
#define ___PH_LBL0 321
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_)
___DEF_P_HLBL(___L1__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_)
   ___SET_R1(___GLO(152,___G__23__23_gc_2d_interrupt_2d_jobs))
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_)
   ___JUMPINT(___SET_NARGS(1),___PRC(293),___L__23__23_clear_2d_jobs_21_)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_gc_2d_finalize_21_
#undef ___PH_LBL0
#define ___PH_LBL0 324
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_gc_2d_finalize_21_)
___DEF_P_HLBL(___L1__23__23_gc_2d_finalize_21_)
___DEF_P_HLBL(___L2__23__23_gc_2d_finalize_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_gc_2d_finalize_21_)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_gc_2d_finalize_21_)
   ___GOTO(___L3__23__23_gc_2d_finalize_21_)
___DEF_SLBL(1,___L1__23__23_gc_2d_finalize_21_)
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
___DEF_GLBL(___L3__23__23_gc_2d_finalize_21_)
{ ___SCMOBJ ___RESULT;

          ___SCMOBJ will = ___ps->executable_wills;
          if (___UNTAG(will) == 0) /* end of list? */
            ___RESULT = ___FAL;
          else
            {
              ___ps->executable_wills = ___BODY(will)[0];
              ___RESULT = will;
            }

   ___SET_R1(___RESULT)
}
   ___IF(___FALSEP(___R1))
   ___GOTO(___L4__23__23_gc_2d_finalize_21_)
   ___END_IF
   ___SET_R2(___VECTORREF(___R1,___FIX(1L)))
   ___SET_R3(___VECTORREF(___R1,___FIX(2L)))
   ___VECTORSET(___R1,___FIX(1L),___FAL)
   ___VECTORSET(___R1,___FIX(2L),___FAL)
   ___IF(___FALSEP(___R3))
   ___GOTO(___L3__23__23_gc_2d_finalize_21_)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_R1(___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_gc_2d_finalize_21_)
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R3)
___DEF_GLBL(___L4__23__23_gc_2d_finalize_21_)
   ___JUMPINT(___SET_NARGS(0),___PRC(332),___L__23__23_gc_2d_final_2d_will_2d_registry_21_)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_execute_2d_final_2d_wills_21_
#undef ___PH_LBL0
#define ___PH_LBL0 328
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_execute_2d_final_2d_wills_21_)
___DEF_P_HLBL(___L1__23__23_execute_2d_final_2d_wills_21_)
___DEF_P_HLBL(___L2__23__23_execute_2d_final_2d_wills_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_execute_2d_final_2d_wills_21_)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_execute_2d_final_2d_wills_21_)
   ___SET_R1(___CDR(___GLO(134,___G__23__23_final_2d_will_2d_registry)))
   ___SETCAR(___GLO(134,___G__23__23_final_2d_will_2d_registry),___GLO(134,___G__23__23_final_2d_will_2d_registry))
   ___SETCDR(___GLO(134,___G__23__23_final_2d_will_2d_registry),___NUL)
   ___IF(___NULLP(___R1))
   ___GOTO(___L5__23__23_execute_2d_final_2d_wills_21_)
   ___END_IF
   ___GOTO(___L4__23__23_execute_2d_final_2d_wills_21_)
___DEF_SLBL(1,___L1__23__23_execute_2d_final_2d_wills_21_)
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
___DEF_GLBL(___L3__23__23_execute_2d_final_2d_wills_21_)
   ___SET_R1(___CDR(___R1))
   ___IF(___NULLP(___R1))
   ___GOTO(___L5__23__23_execute_2d_final_2d_wills_21_)
   ___END_IF
___DEF_GLBL(___L4__23__23_execute_2d_final_2d_wills_21_)
   ___SET_R2(___CAR(___R1))
   ___SET_R3(___VECTORREF(___R2,___FIX(1L)))
   ___SET_R4(___VECTORREF(___R2,___FIX(2L)))
   ___VECTORSET(___R2,___FIX(1L),___FAL)
   ___VECTORSET(___R2,___FIX(2L),___FAL)
   ___IF(___FALSEP(___R4))
   ___GOTO(___L3__23__23_execute_2d_final_2d_wills_21_)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_R1(___R3)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_execute_2d_final_2d_wills_21_)
   ___JUMPGENNOTSAFE(___SET_NARGS(1),___R4)
___DEF_GLBL(___L5__23__23_execute_2d_final_2d_wills_21_)
   ___SET_R1(___VOID)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_gc_2d_final_2d_will_2d_registry_21_
#undef ___PH_LBL0
#define ___PH_LBL0 332
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_gc_2d_final_2d_will_2d_registry_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_gc_2d_final_2d_will_2d_registry_21_)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_gc_2d_final_2d_will_2d_registry_21_)
   ___SET_R2(___CDR(___GLO(134,___G__23__23_final_2d_will_2d_registry)))
   ___SET_R1(___GLO(134,___G__23__23_final_2d_will_2d_registry))
   ___IF(___NULLP(___R2))
   ___GOTO(___L3__23__23_gc_2d_final_2d_will_2d_registry_21_)
   ___END_IF
   ___GOTO(___L2__23__23_gc_2d_final_2d_will_2d_registry_21_)
___DEF_GLBL(___L1__23__23_gc_2d_final_2d_will_2d_registry_21_)
   ___SETCDR(___R1,___R2)
   ___SET_R1(___CDR(___R2))
   ___SET_STK(1,___R2)
   ___SET_R2(___R1)
   ___SET_R1(___STK(1))
   ___IF(___NULLP(___R2))
   ___GOTO(___L3__23__23_gc_2d_final_2d_will_2d_registry_21_)
   ___END_IF
___DEF_GLBL(___L2__23__23_gc_2d_final_2d_will_2d_registry_21_)
   ___SET_R3(___CAR(___R2))
   ___SET_R3(___VECTORREF(___R3,___FIX(2L)))
   ___IF(___NOT(___FALSEP(___R3)))
   ___GOTO(___L1__23__23_gc_2d_final_2d_will_2d_registry_21_)
   ___END_IF
   ___SET_R2(___CDR(___R2))
   ___IF(___NOT(___NULLP(___R2)))
   ___GOTO(___L2__23__23_gc_2d_final_2d_will_2d_registry_21_)
   ___END_IF
___DEF_GLBL(___L3__23__23_gc_2d_final_2d_will_2d_registry_21_)
   ___SETCAR(___GLO(134,___G__23__23_final_2d_will_2d_registry),___R1) ___SET_R1(___GLO(134,___G__23__23_final_2d_will_2d_registry))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_final_2d_will
#undef ___PH_LBL0
#define ___PH_LBL0 334
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_final_2d_will)
___DEF_P_HLBL(___L1__23__23_make_2d_final_2d_will)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_final_2d_will)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_make_2d_final_2d_will)
   ___SET_R1(___MAKEWILL(___R1,___R2))
   ___SET_R2(___CONS(___R1,___NUL))
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_make_2d_final_2d_will)
   ___SET_R3(___CDR(___GLO(134,___G__23__23_final_2d_will_2d_registry)))
   ___IF(___NOT(___NULLP(___R3)))
   ___GOTO(___L2__23__23_make_2d_final_2d_will)
   ___END_IF
   ___SETCAR(___GLO(134,___G__23__23_final_2d_will_2d_registry),___R2)
___DEF_GLBL(___L2__23__23_make_2d_final_2d_will)
   ___SETCDR(___GLO(134,___G__23__23_final_2d_will_2d_registry),___R2)
   ___SETCDR(___R2,___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_get_2d_min_2d_heap
#undef ___PH_LBL0
#define ___PH_LBL0 337
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_get_2d_min_2d_heap)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_get_2d_min_2d_heap)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_get_2d_min_2d_heap)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___get_min_heap ());
   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_set_2d_min_2d_heap_21_
#undef ___PH_LBL0
#define ___PH_LBL0 339
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_set_2d_min_2d_heap_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_set_2d_min_2d_heap_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_set_2d_min_2d_heap_21_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;
___set_min_heap (___INT(___ARG1)); ___RESULT = ___VOID;
   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_get_2d_max_2d_heap
#undef ___PH_LBL0
#define ___PH_LBL0 341
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_get_2d_max_2d_heap)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_get_2d_max_2d_heap)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_get_2d_max_2d_heap)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___get_max_heap ());
   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_set_2d_max_2d_heap_21_
#undef ___PH_LBL0
#define ___PH_LBL0 343
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_set_2d_max_2d_heap_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_set_2d_max_2d_heap_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_set_2d_max_2d_heap_21_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;
___set_max_heap (___INT(___ARG1)); ___RESULT = ___VOID;
   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_get_2d_live_2d_percent
#undef ___PH_LBL0
#define ___PH_LBL0 345
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_get_2d_live_2d_percent)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_get_2d_live_2d_percent)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_get_2d_live_2d_percent)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___get_live_percent ());
   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_set_2d_live_2d_percent_21_
#undef ___PH_LBL0
#define ___PH_LBL0 347
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_set_2d_live_2d_percent_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_set_2d_live_2d_percent_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_set_2d_live_2d_percent_21_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;
___set_live_percent (___INT(___ARG1)); ___RESULT = ___VOID;
   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_get_2d_standard_2d_level
#undef ___PH_LBL0
#define ___PH_LBL0 349
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_get_2d_standard_2d_level)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_get_2d_standard_2d_level)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_get_2d_standard_2d_level)
{ ___SCMOBJ ___RESULT;
___RESULT = ___FIX(___get_standard_level ());
   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_set_2d_standard_2d_level_21_
#undef ___PH_LBL0
#define ___PH_LBL0 351
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_set_2d_standard_2d_level_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_set_2d_standard_2d_level_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_set_2d_standard_2d_level_21_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;
___set_standard_level (___INT(___ARG1)); ___RESULT = ___VOID;
   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_set_2d_debug_2d_settings_21_
#undef ___PH_LBL0
#define ___PH_LBL0 353
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_set_2d_debug_2d_settings_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_set_2d_debug_2d_settings_21_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_set_2d_debug_2d_settings_21_)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;
___RESULT =
      ___FIX(___set_debug_settings (___INT(___ARG1), ___INT(___ARG2)));
   ___SET_R1(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_still_2d_copy
#undef ___PH_LBL0
#define ___PH_LBL0 355
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_still_2d_copy)
___DEF_P_HLBL(___L1__23__23_still_2d_copy)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_still_2d_copy)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_still_2d_copy)
   ___GOTO(___L2__23__23_still_2d_copy)
___DEF_SLBL(1,___L1__23__23_still_2d_copy)
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
___DEF_GLBL(___L2__23__23_still_2d_copy)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

___SCMOBJ result;
___WORD head = *___UNTAG(___ARG1);
___FRAME_STORE_RA(___R0)
___W_ALL
result = ___alloc_scmobj (___HD_SUBTYPE(head),
                          ___HD_BYTES(head),
                          ___STILL);
___R_ALL
___SET_R0(___FRAME_FETCH_RA)
if (!___FIXNUMP(result))
  {
    long words = ___HD_WORDS(head);
    while (words > 0)
      {
        ___UNTAG(result)[words] = ___UNTAG(___ARG1)[words];
        words--;
      }
    ___still_obj_refcount_dec (result);
  }
___RESULT = result;

   ___SET_R2(___RESULT)
}
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R2)))
   ___GOTO(___L3__23__23_still_2d_copy)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_GLBL(___L3__23__23_still_2d_copy)
   ___SET_R1(___R2)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_still_2d_obj_2d_refcount_2d_inc_21_
#undef ___PH_LBL0
#define ___PH_LBL0 358
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_still_2d_obj_2d_refcount_2d_inc_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_still_2d_obj_2d_refcount_2d_inc_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_still_2d_obj_2d_refcount_2d_inc_21_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;
___still_obj_refcount_inc (___ARG1); ___RESULT = ___ARG1;
   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_still_2d_obj_2d_refcount_2d_dec_21_
#undef ___PH_LBL0
#define ___PH_LBL0 360
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_still_2d_obj_2d_refcount_2d_dec_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_still_2d_obj_2d_refcount_2d_dec_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_still_2d_obj_2d_refcount_2d_dec_21_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;
___still_obj_refcount_dec (___ARG1); ___RESULT = ___ARG1;
   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_vector
#undef ___PH_LBL0
#define ___PH_LBL0 362
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_vector)
___DEF_P_HLBL(___L1__23__23_make_2d_vector)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_vector)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_vector)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
long words = n + 1;
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>(___LF+___LWS)))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sVECTOR, n<<___LWS, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
        result = ___TAG(___hp, ___tSUBTYPED);
        ___HEADER(result) = ___MAKE_HD_WORDS(n, ___sVECTOR);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result))
  {
    ___SCMOBJ fill = ___ARG2;
    if (fill == ___ABSENT)
      fill = ___FIX(0);
    for (i=0; i<n; i++)
      ___VECTORSET(result,___FIX(i),fill)
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_vector)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_vector)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(191,___G__23__23_make_2d_vector))
___DEF_GLBL(___L2__23__23_make_2d_vector)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_string
#undef ___PH_LBL0
#define ___PH_LBL0 365
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_string)
___DEF_P_HLBL(___L1__23__23_make_2d_string)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_string)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_string)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
long words = ___WORDS((n<<___LCS)) + 1;
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>(___LF+___LCS)))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sSTRING, n<<___LCS, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
        result = ___TAG(___hp, ___tSUBTYPED);
        ___HEADER(result) = ___MAKE_HD_BYTES((n<<___LCS), ___sSTRING);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result) && ___ARG2 != ___ABSENT)
  {
    for (i=0; i<n; i++)
      ___STRINGSET(result,___FIX(i),___ARG2);
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_string)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_string)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(185,___G__23__23_make_2d_string))
___DEF_GLBL(___L2__23__23_make_2d_string)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_s8vector
#undef ___PH_LBL0
#define ___PH_LBL0 368
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_s8vector)
___DEF_P_HLBL(___L1__23__23_make_2d_s8vector)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_s8vector)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_s8vector)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
long words = ___WORDS(n) + 1;
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>___LF))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sS8VECTOR, n, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
        result = ___TAG(___hp, ___tSUBTYPED);
        ___HEADER(result) = ___MAKE_HD_BYTES(n, ___sS8VECTOR);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result) && ___ARG2 != ___ABSENT)
  {
    for (i=0; i<n; i++)
      ___S8VECTORSET(result,___FIX(i),___ARG2)
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_s8vector)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_s8vector)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(184,___G__23__23_make_2d_s8vector))
___DEF_GLBL(___L2__23__23_make_2d_s8vector)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_u8vector
#undef ___PH_LBL0
#define ___PH_LBL0 371
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_u8vector)
___DEF_P_HLBL(___L1__23__23_make_2d_u8vector)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_u8vector)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_u8vector)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
long words = ___WORDS(n) + 1;
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>___LF))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sU8VECTOR, n, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
        result = ___TAG(___hp, ___tSUBTYPED);
        ___HEADER(result) = ___MAKE_HD_BYTES(n, ___sU8VECTOR);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result) && ___ARG2 != ___ABSENT)
  {
    for (i=0; i<n; i++)
      ___U8VECTORSET(result,___FIX(i),___ARG2)
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_u8vector)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_u8vector)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(190,___G__23__23_make_2d_u8vector))
___DEF_GLBL(___L2__23__23_make_2d_u8vector)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_s16vector
#undef ___PH_LBL0
#define ___PH_LBL0 374
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_s16vector)
___DEF_P_HLBL(___L1__23__23_make_2d_s16vector)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_s16vector)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_s16vector)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
long words = ___WORDS((n<<1)) + 1;
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>(___LF+1)))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sS16VECTOR, n<<1, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
        result = ___TAG(___hp, ___tSUBTYPED);
        ___HEADER(result) = ___MAKE_HD_BYTES((n<<1), ___sS16VECTOR);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result) && ___ARG2 != ___ABSENT)
  {
    for (i=0; i<n; i++)
      ___S16VECTORSET(result,___FIX(i),___ARG2)
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_s16vector)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_s16vector)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(181,___G__23__23_make_2d_s16vector))
___DEF_GLBL(___L2__23__23_make_2d_s16vector)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_u16vector
#undef ___PH_LBL0
#define ___PH_LBL0 377
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_u16vector)
___DEF_P_HLBL(___L1__23__23_make_2d_u16vector)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_u16vector)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_u16vector)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
long words = ___WORDS((n<<1)) + 1;
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>(___LF+1)))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sU16VECTOR, n<<1, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
        result = ___TAG(___hp, ___tSUBTYPED);
        ___HEADER(result) = ___MAKE_HD_BYTES((n<<1), ___sU16VECTOR);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result) && ___ARG2 != ___ABSENT)
  {
    for (i=0; i<n; i++)
      ___U16VECTORSET(result,___FIX(i),___ARG2)
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_u16vector)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_u16vector)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(187,___G__23__23_make_2d_u16vector))
___DEF_GLBL(___L2__23__23_make_2d_u16vector)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_s32vector
#undef ___PH_LBL0
#define ___PH_LBL0 380
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_s32vector)
___DEF_P_HLBL(___L1__23__23_make_2d_s32vector)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_s32vector)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_s32vector)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
long words = ___WORDS((n<<2)) + 1;
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>(___LF+2)))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sS32VECTOR, n<<2, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
        result = ___TAG(___hp, ___tSUBTYPED);
        ___HEADER(result) = ___MAKE_HD_BYTES((n<<2), ___sS32VECTOR);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result) && ___ARG2 != ___ABSENT)
  {
    for (i=0; i<n; i++)
      ___S32VECTORSET(result,___FIX(i),___ARG2)
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_s32vector)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_s32vector)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(182,___G__23__23_make_2d_s32vector))
___DEF_GLBL(___L2__23__23_make_2d_s32vector)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_u32vector
#undef ___PH_LBL0
#define ___PH_LBL0 383
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_u32vector)
___DEF_P_HLBL(___L1__23__23_make_2d_u32vector)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_u32vector)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_u32vector)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
long words = ___WORDS((n<<2)) + 1;
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>(___LF+2)))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sU32VECTOR, n<<2, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
        result = ___TAG(___hp, ___tSUBTYPED);
        ___HEADER(result) = ___MAKE_HD_BYTES((n<<2), ___sU32VECTOR);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result) && ___ARG2 != ___ABSENT)
  {
    for (i=0; i<n; i++)
      ___U32VECTORSET(result,___FIX(i),___ARG2)
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_u32vector)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_u32vector)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(188,___G__23__23_make_2d_u32vector))
___DEF_GLBL(___L2__23__23_make_2d_u32vector)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_s64vector
#undef ___PH_LBL0
#define ___PH_LBL0 386
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_s64vector)
___DEF_P_HLBL(___L1__23__23_make_2d_s64vector)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_s64vector)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_s64vector)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
#if ___WS == 4
long words = ___WORDS((n<<3)) + 2;
#else
long words = ___WORDS((n<<3)) + 1;
#endif
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>(___LF+3)))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sS64VECTOR, n<<3, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
#if ___WS == 4
        result = ___TAG(___CAST(___SCMOBJ*,___CAST(___SCMOBJ,___hp+2)&~7)-1,
                        ___tSUBTYPED);
#else
        result = ___TAG(___hp, ___tSUBTYPED);
#endif
        ___HEADER(result) = ___MAKE_HD_BYTES((n<<3), ___sS64VECTOR);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result) && ___ARG2 != ___ABSENT)
  {
    for (i=0; i<n; i++)
      ___S64VECTORSET(result,___FIX(i),___ARG2)
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_s64vector)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_s64vector)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(183,___G__23__23_make_2d_s64vector))
___DEF_GLBL(___L2__23__23_make_2d_s64vector)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_u64vector
#undef ___PH_LBL0
#define ___PH_LBL0 389
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_u64vector)
___DEF_P_HLBL(___L1__23__23_make_2d_u64vector)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_u64vector)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_u64vector)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
#if ___WS == 4
long words = ___WORDS((n<<3)) + 2;
#else
long words = ___WORDS((n<<3)) + 1;
#endif
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>(___LF+3)))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sU64VECTOR, n<<3, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
#if ___WS == 4
        result = ___TAG(___CAST(___SCMOBJ*,___CAST(___SCMOBJ,___hp+2)&~7)-1,
                        ___tSUBTYPED);
#else
        result = ___TAG(___hp, ___tSUBTYPED);
#endif
        ___HEADER(result) = ___MAKE_HD_BYTES((n<<3), ___sU64VECTOR);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result) && ___ARG2 != ___ABSENT)
  {
    for (i=0; i<n; i++)
      ___U64VECTORSET(result,___FIX(i),___ARG2)
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_u64vector)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_u64vector)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(189,___G__23__23_make_2d_u64vector))
___DEF_GLBL(___L2__23__23_make_2d_u64vector)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_f32vector
#undef ___PH_LBL0
#define ___PH_LBL0 392
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_f32vector)
___DEF_P_HLBL(___L1__23__23_make_2d_f32vector)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_f32vector)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_f32vector)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
long words = ___WORDS((n<<2)) + 1;
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>(___LF+2)))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sF32VECTOR, n<<2, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
        result = ___TAG(___hp, ___tSUBTYPED);
        ___HEADER(result) = ___MAKE_HD_BYTES((n<<2), ___sF32VECTOR);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result) && ___ARG2 != ___ABSENT)
  {
    ___F64 fill = ___F64UNBOX(___ARG2);
    for (i=0; i<n; i++)
      ___F32VECTORSET(result,___FIX(i),fill)
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_f32vector)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_f32vector)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(173,___G__23__23_make_2d_f32vector))
___DEF_GLBL(___L2__23__23_make_2d_f32vector)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_f64vector
#undef ___PH_LBL0
#define ___PH_LBL0 395
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_f64vector)
___DEF_P_HLBL(___L1__23__23_make_2d_f64vector)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_f64vector)
   ___IF_NARGS_EQ(1,___SET_R2(___ABSENT))
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,1,1,0)
___DEF_GLBL(___L__23__23_make_2d_f64vector)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

long i;
long n = ___INT(___ARG1);
#if ___WS == 4
long words = ___WORDS((n<<3)) + 2;
#else
long words = ___WORDS((n<<3)) + 1;
#endif
___SCMOBJ result;
if (n > (long)(unsigned long)(___LMASK>>(___LF+3)))
  result = ___FIX(___HEAP_OVERFLOW_ERR); /* requested object is too big! */
else if (words > ___MSECTION_BIGGEST)
  {
    ___FRAME_STORE_RA(___R0)
    ___W_ALL
    result = ___alloc_scmobj (___sF64VECTOR, n<<3, ___STILL);
    ___R_ALL
    ___SET_R0(___FRAME_FETCH_RA)
    if (!___FIXNUMP(result))
      ___still_obj_refcount_dec (result);
  }
else
  {
    ___BOOL overflow = 0;
    ___hp += words;
    if (___hp > ___ps->heap_limit)
      {
        ___FRAME_STORE_RA(___R0)
        ___W_ALL
        overflow = ___heap_limit () && ___garbage_collect (0);
        ___R_ALL
        ___SET_R0(___FRAME_FETCH_RA)
      }
    else
      ___hp -= words;
    if (overflow)
      result = ___FIX(___HEAP_OVERFLOW_ERR);
    else
      {
#if ___WS == 4
        result = ___TAG(___CAST(___SCMOBJ*,___CAST(___SCMOBJ,___hp+2)&~7)-1,
                        ___tSUBTYPED);
#else
        result = ___TAG(___hp, ___tSUBTYPED);
#endif
        ___HEADER(result) = ___MAKE_HD_BYTES((n<<3), ___sF64VECTOR);
        ___hp += words;
      }
  }
if (!___FIXNUMP(result) && ___ARG2 != ___ABSENT)
  {
    ___F64 fill = ___F64UNBOX(___ARG2);
    for (i=0; i<n; i++)
      ___F64VECTORSET(result,___FIX(i),fill)
  }
___RESULT = result;

   ___SET_R3(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R3)))
   ___GOTO(___L2__23__23_make_2d_f64vector)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_f64vector)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(2),___PRM(174,___G__23__23_make_2d_f64vector))
___DEF_GLBL(___L2__23__23_make_2d_f64vector)
   ___SET_R1(___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_apply
#undef ___PH_LBL0
#define ___PH_LBL0 398
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_apply)
___DEF_P_HLBL(___L1__23__23_apply)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_apply)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_apply)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_apply)
{ ___SCMOBJ ___RESULT;

     ___SCMOBJ proc;
     ___SCMOBJ args;
     ___SCMOBJ lst;
     int na;

     ___POP_ARGS2(proc,args)

     lst = args;
     na = 0;

     while (___PAIRP(lst))
       {
         ___PUSH(___CAR(lst))
         lst = ___CDR(lst);
         na++;

         if (na > ___MAX_NB_ARGS)
           {
             ___ADJFP(-na); /* remove pushed arguments */

             ___PUSH_ARGS2(proc,args)

             ___COVER_APPLY_ARGUMENT_LIMIT;

             ___JUMPPRM(___SET_NARGS(2),
                        ___G__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception.prm)
           }
       }

     ___POP_ARGS_IN_REGS(na) /* load register arguments */

     ___COVER_APPLY_ARGUMENT_LIMIT_END;

     ___JUMPEXTNOTSAFE(___SET_NARGS(na),proc)

     ___RESULT = ___FAL; /* avoid a warning that ___RESULT is not set */

   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_closure_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 401
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_closure_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_closure_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_closure_3f_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;
___RESULT = ___BOOLEAN(___HD_TYP(___HEADER(___ARG1)) != ___PERM);
   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_closure_2d_length
#undef ___PH_LBL0
#define ___PH_LBL0 403
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_closure_2d_length)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_closure_2d_length)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_closure_2d_length)
   ___SET_R1(___CLOSURELENGTH(___R1))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_closure_2d_code
#undef ___PH_LBL0
#define ___PH_LBL0 405
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_closure_2d_code)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_closure_2d_code)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_closure_2d_code)
   ___SET_R1(___CLOSURECODE(___R1))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_closure_2d_ref
#undef ___PH_LBL0
#define ___PH_LBL0 407
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_closure_2d_ref)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_closure_2d_ref)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_closure_2d_ref)
   ___SET_R1(___CLOSUREREF(___R1,___R2))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_closure_2d_set_21_
#undef ___PH_LBL0
#define ___PH_LBL0 409
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_closure_2d_set_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_closure_2d_set_21_)
   ___IF_NARGS_EQ(3,___NOTHING)
   ___WRONG_NARGS(0,3,0,0)
___DEF_GLBL(___L__23__23_closure_2d_set_21_)
   ___CLOSURESET(___R1,___R2,___R3)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_subprocedure_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 411
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_subprocedure_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_subprocedure_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_subprocedure_3f_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   if (___TYP(___ARG1) == ___tSUBTYPED &&
       ___CAST(___label_struct*,___ARG1-___tSUBTYPED)->entry_or_descr == ___ARG1 &&
       !___TESTHEADERTAG(___CAST(___SCMOBJ*,___ARG1-___tSUBTYPED)[-___LS],___sVECTOR))
     ___RESULT = ___TRU;
   else
     ___RESULT = ___FAL;

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_subprocedure_2d_id
#undef ___PH_LBL0
#define ___PH_LBL0 413
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_subprocedure_2d_id)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_subprocedure_2d_id)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_subprocedure_2d_id)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   if (___TYP(___ARG1) == ___tSUBTYPED)
     {
       ___SCMOBJ *start = ___CAST(___SCMOBJ*,___ARG1-___tSUBTYPED);
       ___SCMOBJ *ptr = start;
       while (!___TESTHEADERTAG(*ptr,___sVECTOR))
         ptr -= ___LS;
       ptr += ___LS;
       ___RESULT = ___FIX( (start-ptr)/___LS );
     }
   else
     ___RESULT = ___FIX(0);

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_subprocedure_2d_parent
#undef ___PH_LBL0
#define ___PH_LBL0 415
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_subprocedure_2d_parent)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_subprocedure_2d_parent)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_subprocedure_2d_parent)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   if (___TYP(___ARG1) == ___tSUBTYPED)
     {
       ___SCMOBJ *start = ___CAST(___SCMOBJ*,___ARG1-___tSUBTYPED);
       ___SCMOBJ *ptr = start;
       while (!___TESTHEADERTAG(*ptr,___sVECTOR))
         ptr -= ___LS;
       ptr += ___LS;
      ___RESULT = ___TAG(ptr,___tSUBTYPED);
     }
   else
     ___RESULT = ___FAL;

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_subprocedure_2d_nb_2d_parameters
#undef ___PH_LBL0
#define ___PH_LBL0 417
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_subprocedure_2d_nb_2d_parameters)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_subprocedure_2d_nb_2d_parameters)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_subprocedure_2d_nb_2d_parameters)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___RESULT = ___FIX(___PRD_NBPARMS(___CAST(___label_struct*,___ARG1-___tSUBTYPED)->header));

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_subprocedure_2d_nb_2d_closed
#undef ___PH_LBL0
#define ___PH_LBL0 419
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_subprocedure_2d_nb_2d_closed)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_subprocedure_2d_nb_2d_closed)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_subprocedure_2d_nb_2d_closed)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___RESULT = ___FIX(___PRD_NBCLOSED(___CAST(___label_struct*,___ARG1-___tSUBTYPED)->header));

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_subprocedure
#undef ___PH_LBL0
#define ___PH_LBL0 421
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_subprocedure)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_subprocedure)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_make_2d_subprocedure)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

   {
     ___SCMOBJ *start = ___CAST(___SCMOBJ*,___ARG1-___tSUBTYPED);
     ___SCMOBJ head = start[-___LS];
     int i = ___INT(___ARG2);
     if (___TESTHEADERTAG(head,___sVECTOR) &&
         i >= 0 &&
         i < ___CAST(int,___HD_FIELDS(head)))
       ___RESULT = ___TAG(start+___LS*i,___tSUBTYPED);
     else
       ___RESULT = ___FAL;
   }

   ___SET_R1(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_subprocedure_2d_parent_2d_info
#undef ___PH_LBL0
#define ___PH_LBL0 423
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_subprocedure_2d_parent_2d_info)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_subprocedure_2d_parent_2d_info)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_subprocedure_2d_parent_2d_info)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   if (___TYP(___ARG1) == ___tSUBTYPED)
     {
       ___SCMOBJ *start = ___CAST(___SCMOBJ*,___ARG1-___tSUBTYPED);
       ___SCMOBJ *ptr = start;
       while (!___TESTHEADERTAG(*ptr,___sVECTOR))
         ptr -= ___LS;
       ___RESULT = ptr[1];
     }
   else
     ___RESULT = ___FAL;

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_subprocedure_2d_parent_2d_name
#undef ___PH_LBL0
#define ___PH_LBL0 425
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_subprocedure_2d_parent_2d_name)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_subprocedure_2d_parent_2d_name)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_subprocedure_2d_parent_2d_name)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   if (___TYP(___ARG1) == ___tSUBTYPED)
     {
       ___SCMOBJ *start = ___CAST(___SCMOBJ*,___ARG1-___tSUBTYPED);
       ___SCMOBJ *ptr = start;
       while (!___TESTHEADERTAG(*ptr,___sVECTOR))
         ptr -= ___LS;
       ___RESULT = ptr[2];
     }
   else
     ___RESULT = ___FAL;

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_explode_2d_continuation
#undef ___PH_LBL0
#define ___PH_LBL0 427
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_explode_2d_continuation)
___DEF_P_HLBL(___L1__23__23_explode_2d_continuation)
___DEF_P_HLBL(___L2__23__23_explode_2d_continuation)
___DEF_P_HLBL(___L3__23__23_explode_2d_continuation)
___DEF_P_HLBL(___L4__23__23_explode_2d_continuation)
___DEF_P_HLBL(___L5__23__23_explode_2d_continuation)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_explode_2d_continuation)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_explode_2d_continuation)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_R0(___LBL(2))
   ___ADJFP(4)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_explode_2d_continuation)
   ___JUMPINT(___SET_NARGS(1),___PRC(434),___L__23__23_continuation_2d_frame)
___DEF_SLBL(2,___L2__23__23_explode_2d_continuation)
   ___SET_STK(-1,___R1)
   ___SET_R1(___STK(-2))
   ___SET_R0(___LBL(3))
   ___JUMPINT(___SET_NARGS(1),___PRC(439),___L__23__23_continuation_2d_denv)
___DEF_SLBL(3,___L3__23__23_explode_2d_continuation)
   ___BEGIN_ALLOC_VECTOR(2)
   ___ADD_VECTOR_ELEM(0,___STK(-1))
   ___ADD_VECTOR_ELEM(1,___R1)
   ___END_ALLOC_VECTOR(2)
   ___SET_R1(___GET_VECTOR(2))
   ___CHECK_HEAP(4,4096)
___DEF_SLBL(4,___L4__23__23_explode_2d_continuation)
   ___POLL(5)
___DEF_SLBL(5,___L5__23__23_explode_2d_continuation)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_continuation_2d_frame
#undef ___PH_LBL0
#define ___PH_LBL0 434
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_continuation_2d_frame)
___DEF_P_HLBL(___L1__23__23_continuation_2d_frame)
___DEF_P_HLBL(___L2__23__23_continuation_2d_frame)
___DEF_P_HLBL(___L3__23__23_continuation_2d_frame)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_continuation_2d_frame)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_continuation_2d_frame)
   ___GOTO(___L4__23__23_continuation_2d_frame)
___DEF_SLBL(1,___L1__23__23_continuation_2d_frame)
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_continuation_2d_frame)
___DEF_GLBL(___L4__23__23_continuation_2d_frame)
   ___SET_R2(___VECTORREF(___R1,___FIX(0L)))
   ___IF(___FRAMEP(___R2))
   ___GOTO(___L5__23__23_continuation_2d_frame)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_continuation_2d_frame)
   ___JUMPINT(___SET_NARGS(0),___PRC(313),___L__23__23_gc)
___DEF_GLBL(___L5__23__23_continuation_2d_frame)
   ___SET_R1(___R2)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_continuation_2d_denv
#undef ___PH_LBL0
#define ___PH_LBL0 439
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_continuation_2d_denv)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_continuation_2d_denv)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_continuation_2d_denv)
   ___SET_R1(___VECTORREF(___R1,___FIX(1L)))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_explode_2d_frame
#undef ___PH_LBL0
#define ___PH_LBL0 441
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_explode_2d_frame)
___DEF_P_HLBL(___L1__23__23_explode_2d_frame)
___DEF_P_HLBL(___L2__23__23_explode_2d_frame)
___DEF_P_HLBL(___L3__23__23_explode_2d_frame)
___DEF_P_HLBL(___L4__23__23_explode_2d_frame)
___DEF_P_HLBL(___L5__23__23_explode_2d_frame)
___DEF_P_HLBL(___L6__23__23_explode_2d_frame)
___DEF_P_HLBL(___L7__23__23_explode_2d_frame)
___DEF_P_HLBL(___L8__23__23_explode_2d_frame)
___DEF_P_HLBL(___L9__23__23_explode_2d_frame)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_explode_2d_frame)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_explode_2d_frame)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_R0(___LBL(2))
   ___ADJFP(4)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_explode_2d_frame)
   ___JUMPINT(___SET_NARGS(1),___PRC(458),___L__23__23_frame_2d_fs)
___DEF_SLBL(2,___L2__23__23_explode_2d_frame)
   ___SET_STK(-1,___R1)
   ___SET_R1(___FIXADD(___R1,___FIX(1L)))
   ___SET_R0(___LBL(3))
   ___JUMPPRM(___SET_NARGS(1),___PRM(191,___G__23__23_make_2d_vector))
___DEF_SLBL(3,___L3__23__23_explode_2d_frame)
   ___SET_STK(0,___R1)
   ___SET_R1(___STK(-2))
   ___SET_R0(___LBL(4))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(1),___PRC(452),___L__23__23_frame_2d_ret)
___DEF_SLBL(4,___L4__23__23_explode_2d_frame)
   ___VECTORSET(___STK(-4),___FIX(0L),___R1)
   ___SET_STK(-3,___STK(-7))
   ___SET_STK(-7,___STK(-6))
   ___SET_R2(___STK(-4))
   ___SET_R3(___STK(-5))
   ___SET_R1(___STK(-5))
   ___SET_R0(___STK(-3))
   ___ADJFP(-7)
   ___POLL(5)
___DEF_SLBL(5,___L5__23__23_explode_2d_frame)
   ___GOTO(___L11__23__23_explode_2d_frame)
___DEF_SLBL(6,___L6__23__23_explode_2d_frame)
   ___SET_R2(___FIXSUB(___STK(-5),___STK(-3)))
   ___SET_R2(___FIXADD(___R2,___FIX(1L)))
   ___VECTORSET(___STK(-4),___R2,___R1)
___DEF_GLBL(___L10__23__23_explode_2d_frame)
   ___SET_R3(___FIXSUB(___STK(-3),___FIX(1L)))
   ___SET_R2(___STK(-4))
   ___SET_R1(___STK(-5))
   ___SET_R0(___STK(-6))
   ___ADJFP(-7)
   ___POLL(7)
___DEF_SLBL(7,___L7__23__23_explode_2d_frame)
___DEF_GLBL(___L11__23__23_explode_2d_frame)
   ___IF(___NOT(___FIXLT(___FIX(0L),___R3)))
   ___GOTO(___L12__23__23_explode_2d_frame)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_STK(4,___R3)
   ___SET_R2(___R3)
   ___SET_R1(___STK(0))
   ___SET_R0(___LBL(9))
   ___ADJFP(7)
   ___POLL(8)
___DEF_SLBL(8,___L8__23__23_explode_2d_frame)
   ___JUMPINT(___SET_NARGS(2),___PRC(466),___L__23__23_frame_2d_slot_2d_live_3f_)
___DEF_SLBL(9,___L9__23__23_explode_2d_frame)
   ___IF(___FALSEP(___R1))
   ___GOTO(___L10__23__23_explode_2d_frame)
   ___END_IF
   ___SET_R2(___STK(-3))
   ___SET_R1(___STK(-7))
   ___SET_R0(___LBL(6))
   ___JUMPINT(___SET_NARGS(2),___PRC(470),___L__23__23_frame_2d_ref)
___DEF_GLBL(___L12__23__23_explode_2d_frame)
   ___SET_R1(___R2)
   ___ADJFP(-1)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_frame_2d_ret
#undef ___PH_LBL0
#define ___PH_LBL0 452
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_frame_2d_ret)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_frame_2d_ret)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_frame_2d_ret)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___SCMOBJ ra = ___FIELD(___ARG1,0);

   if (ra == ___GSTATE->internal_return)
     ra = ___FIELD(___ARG1,___FRAME_RETI_RA);

   ___RESULT = ra;

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_continuation_2d_ret
#undef ___PH_LBL0
#define ___PH_LBL0 454
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_continuation_2d_ret)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_continuation_2d_ret)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_continuation_2d_ret)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___SCMOBJ frame = ___FIELD(___ARG1,___CONTINUATION_FRAME);
   ___SCMOBJ ra;

   if (___TYP(frame) == ___tSUBTYPED)
     {
       /* continuation frame is in the heap */

       ra = ___FIELD(frame,0);

       if (ra == ___GSTATE->internal_return)
         ra = ___FIELD(frame,___FRAME_RETI_RA);
     }
   else
     {
       /* continuation frame is in the stack */

       ___SCMOBJ *fp = ___CAST(___SCMOBJ*,frame);

       ra = fp[___FRAME_STACK_RA];

       if (ra == ___GSTATE->internal_return)
         ra = fp[-___RETI_RA];
     }

   ___RESULT = ra;

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_return_2d_fs
#undef ___PH_LBL0
#define ___PH_LBL0 456
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_return_2d_fs)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_return_2d_fs)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_return_2d_fs)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___SCMOBJ ra = ___ARG1;
   int fs;

   ___RETN_GET_FS(ra,fs)

   ___RESULT = ___FIX(fs);

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_frame_2d_fs
#undef ___PH_LBL0
#define ___PH_LBL0 458
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_frame_2d_fs)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_frame_2d_fs)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_frame_2d_fs)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___SCMOBJ ra = ___FIELD(___ARG1,0);
   int fs;

   if (ra == ___GSTATE->internal_return)
     ___RETI_GET_FS(___FIELD(___ARG1,___FRAME_RETI_RA),fs)
   else
     ___RETN_GET_FS(ra,fs)

   ___RESULT = ___FIX(fs);

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_continuation_2d_fs
#undef ___PH_LBL0
#define ___PH_LBL0 460
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_continuation_2d_fs)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_continuation_2d_fs)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_continuation_2d_fs)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___SCMOBJ frame = ___FIELD(___ARG1,___CONTINUATION_FRAME);
   ___SCMOBJ ra;
   int fs;

   if (___TYP(frame) == ___tSUBTYPED)
     {
       /* continuation frame is in the heap */

       ra = ___FIELD(frame,0);

       if (ra == ___GSTATE->internal_return)
         ___RETI_GET_FS(___FIELD(frame,___FRAME_RETI_RA),fs)
       else
         ___RETN_GET_FS(ra,fs)
     }
   else
     {
       /* continuation frame is in the stack */

       ___SCMOBJ *fp = ___CAST(___SCMOBJ*,frame);

       ra = fp[___FRAME_STACK_RA];

       if (ra == ___GSTATE->internal_return)
         ___RETI_GET_FS(fp[-___RETI_RA],fs)
       else
         ___RETN_GET_FS(ra,fs)
     }

   ___RESULT = ___FIX(fs);

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_frame_2d_link
#undef ___PH_LBL0
#define ___PH_LBL0 462
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_frame_2d_link)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_frame_2d_link)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_frame_2d_link)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___SCMOBJ ra = ___FIELD(___ARG1,0);
   int fs;
   int link;

   if (ra == ___GSTATE->internal_return)
     ___RETI_GET_FS_LINK(___BODY_AS(___ARG1,___tSUBTYPED)[___FRAME_RETI_RA],fs,link)
   else
     ___RETN_GET_FS_LINK(ra,fs,link)

   ___RESULT = ___FIX(link);

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_continuation_2d_link
#undef ___PH_LBL0
#define ___PH_LBL0 464
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_continuation_2d_link)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_continuation_2d_link)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_continuation_2d_link)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___SCMOBJ frame = ___FIELD(___ARG1,___CONTINUATION_FRAME);
   ___SCMOBJ ra;
   int fs;
   int link;

   if (___TYP(frame) == ___tSUBTYPED)
     {
       /* continuation frame is in the heap */

       ra = ___FIELD(frame,0);

       if (ra == ___GSTATE->internal_return)
         ___RETI_GET_FS_LINK(___BODY_AS(frame,___tSUBTYPED)[___FRAME_RETI_RA],fs,link)
       else
         ___RETN_GET_FS_LINK(ra,fs,link)
     }
   else
     {
       /* continuation frame is in the stack */

       ra = ___CAST(___SCMOBJ*,frame)[___FRAME_STACK_RA];

       if (ra == ___GSTATE->internal_return)
         ___RETI_GET_FS_LINK(___CAST(___SCMOBJ*,frame)[-___RETI_RA],fs,link)
       else
         ___RETN_GET_FS_LINK(ra,fs,link)
     }

   ___RESULT = ___FIX(link);

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_frame_2d_slot_2d_live_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 466
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_frame_2d_slot_2d_live_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_frame_2d_slot_2d_live_3f_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_frame_2d_slot_2d_live_3f_)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

   int i = ___INT(___ARG2);
   ___SCMOBJ ra = ___FIELD(___ARG1,0);
   int fs;
   int link;
   ___WORD gcmap;
   ___WORD *nextgcmap = 0;

   if (ra == ___GSTATE->internal_return)
     ___RETI_GET_FS_LINK_GCMAP(___BODY_AS(___ARG1,___tSUBTYPED)[___FRAME_RETI_RA],fs,link,gcmap,nextgcmap)
   else
     ___RETN_GET_FS_LINK_GCMAP(ra,fs,link,gcmap,nextgcmap)

   if (i > ___WORD_WIDTH)
     gcmap = nextgcmap[(i-1) >> ___LOG_WORD_WIDTH];

   ___RESULT = ___BOOLEAN(gcmap & (1 << ((i-1) & (___WORD_WIDTH-1))));

   ___SET_R1(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_continuation_2d_slot_2d_live_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 468
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_continuation_2d_slot_2d_live_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_continuation_2d_slot_2d_live_3f_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_continuation_2d_slot_2d_live_3f_)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

   ___SCMOBJ frame = ___FIELD(___ARG1,___CONTINUATION_FRAME);
   int i = ___INT(___ARG2);
   ___SCMOBJ ra;
   int fs;
   int link;
   ___WORD gcmap;
   ___WORD *nextgcmap = 0;

   if (___TYP(frame) == ___tSUBTYPED)
     {
       /* continuation frame is in the heap */

       ra = ___FIELD(frame,0);

       if (ra == ___GSTATE->internal_return)
         ___RETI_GET_FS_LINK_GCMAP(___FIELD(frame,___FRAME_RETI_RA),fs,link,gcmap,nextgcmap)
       else
         ___RETN_GET_FS_LINK_GCMAP(ra,fs,link,gcmap,nextgcmap)
     }
   else
     {
       /* continuation frame is in the stack */

       ___SCMOBJ *fp = ___CAST(___SCMOBJ*,frame);

       ra = fp[___FRAME_STACK_RA];

       if (ra == ___GSTATE->internal_return)
         ___RETI_GET_FS_LINK_GCMAP(fp[-___RETI_RA],fs,link,gcmap,nextgcmap)
       else
         ___RETN_GET_FS_LINK_GCMAP(ra,fs,link,gcmap,nextgcmap)
     }

   if (i > ___WORD_WIDTH)
     gcmap = nextgcmap[(i-1) >> ___LOG_WORD_WIDTH];

   ___RESULT = ___BOOLEAN(gcmap & (1 << ((i-1) & (___WORD_WIDTH-1))));

   ___SET_R1(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_frame_2d_ref
#undef ___PH_LBL0
#define ___PH_LBL0 470
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_frame_2d_ref)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_frame_2d_ref)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_frame_2d_ref)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

   int i = ___INT(___ARG2);
   ___SCMOBJ ra = ___FIELD(___ARG1,0);
   int fs;
   int link;

   if (ra == ___GSTATE->internal_return)
     ___RETI_GET_FS_LINK(___BODY_AS(___ARG1,___tSUBTYPED)[___FRAME_RETI_RA],fs,link)
   else
     ___RETN_GET_FS_LINK(ra,fs,link)

   ___RESULT = ___BODY_AS(___ARG1,___tSUBTYPED)[fs-i+1];  /* what if i==link and frame is first in section???? */
#if 0
   if (i == link) ___RESULT = ___FIX(999999);/***********/
#endif

   ___SET_R1(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_continuation_2d_ref
#undef ___PH_LBL0
#define ___PH_LBL0 472
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_continuation_2d_ref)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_continuation_2d_ref)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_continuation_2d_ref)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

   ___SCMOBJ frame = ___FIELD(___ARG1,___CONTINUATION_FRAME);
   int i = ___INT(___ARG2);
   ___SCMOBJ ra;
   int fs;
   int link;

   if (___TYP(frame) == ___tSUBTYPED)
     {
       /* continuation frame is in the heap */

       ra = ___FIELD(frame,0);

       if (ra == ___GSTATE->internal_return)
         ___RETI_GET_FS_LINK(___BODY_AS(frame,___tSUBTYPED)[___FRAME_RETI_RA],fs,link)
       else
         ___RETN_GET_FS_LINK(ra,fs,link)

       ___RESULT = ___BODY_AS(frame,___tSUBTYPED)[fs-i+1];  /* what if i==link and frame is first in section???? */
#if 0
      if (i == link) ___RESULT = ___FIX(999999);/***********/
#endif
     }
   else
     {
       /* continuation frame is in the stack */

       ra = ___CAST(___SCMOBJ*,frame)[___FRAME_STACK_RA];

       if (ra == ___GSTATE->internal_return)
         ___RETI_GET_FS_LINK(___CAST(___SCMOBJ*,frame)[-___RETI_RA],fs,link)
       else
         ___RETN_GET_FS_LINK(ra,fs,link)

       ___RESULT = ___CAST(___SCMOBJ*,frame)[___FRAME_SPACE(fs)-i];  /* what if i==link and frame is first in section???? */
#if 0
      if (i == link) ___RESULT = ___FIX(999999);/***********/
#endif
     }

   ___SET_R1(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_continuation_2d_next
#undef ___PH_LBL0
#define ___PH_LBL0 474
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_continuation_2d_next)
___DEF_P_HLBL(___L1__23__23_continuation_2d_next)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_continuation_2d_next)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_continuation_2d_next)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

#define DYNAMIC_ENV_BIND_DENV 2

          ___SCMOBJ f = ___ARG1;
          ___SCMOBJ frame = ___FIELD(f,___CONTINUATION_FRAME);
          ___SCMOBJ denv  = ___FIELD(f,___CONTINUATION_DENV);
          ___SCMOBJ ra;
          ___SCMOBJ *fp, frame_ra, next_frame;
          int fs;
          int link;

          if (___TYP(frame)==___tSUBTYPED)
            {
              /* continuation frame is in the heap */

              ra = ___FIELD(frame,0);

              fp = ___BODY_AS(frame,___tSUBTYPED);

              if (ra == ___GSTATE->internal_return)
                ___RETI_GET_FS_LINK(fp[___FRAME_RETI_RA],fs,link)
              else
                ___RETN_GET_FS_LINK(ra,fs,link)

              fp += fs+1;

              if (ra == ___GSTATE->dynamic_env_bind_return)
                denv = fp[-DYNAMIC_ENV_BIND_DENV];

              next_frame = fp[-link-1];

              if (next_frame == 0)
                ___RESULT = ___FAL;
              else
                {
                  ___hp[0]=___MAKE_HD_WORDS(___CONTINUATION_SIZE,___sCONTINUATION);
                  ___ADD_VECTOR_ELEM(0,next_frame)
                  ___ADD_VECTOR_ELEM(1,denv)
                  ___hp+=___CONTINUATION_SIZE+1;
                  ___RESULT = ___GET_VECTOR(___CONTINUATION_SIZE);
                }
            }
          else
            {
              /* continuation frame is in the stack */

              ra = ___CAST(___SCMOBJ*,frame)[___FRAME_STACK_RA];

              if (ra == ___GSTATE->internal_return)
                ___RETI_GET_FS_LINK(___CAST(___SCMOBJ*,frame)[-___RETI_RA],fs,link)
              else
                ___RETN_GET_FS_LINK(ra,fs,link)

              fp = ___CAST(___SCMOBJ*,frame)+___FRAME_SPACE(fs);
              frame_ra = fp[-link-1];

              if (ra == ___GSTATE->dynamic_env_bind_return)
                denv = fp[-DYNAMIC_ENV_BIND_DENV];

              if (frame_ra == ___GSTATE->handler_break)
                {
                  /* first frame of that section */

                  next_frame = fp[___BREAK_FRAME_NEXT];
                }
              else
                {
                  /* not the first frame of that section */

                  *fp = frame_ra;
                  next_frame = ___CAST(___SCMOBJ,fp);
                }

              if (next_frame == 0)
                ___RESULT = ___FAL;
              else
                {
                  ___hp[0]=___MAKE_HD_WORDS(___CONTINUATION_SIZE,___sCONTINUATION);
                  ___ADD_VECTOR_ELEM(0,next_frame)
                  ___ADD_VECTOR_ELEM(1,denv)
                  ___hp+=___CONTINUATION_SIZE+1;
                  ___RESULT = ___GET_VECTOR(___CONTINUATION_SIZE);
                }
            }
       
   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(297),___L__23__23_check_2d_heap)
___DEF_SLBL(1,___L1__23__23_continuation_2d_next)
   ___SET_R1(___STK(-2))
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_type_2d_id
#undef ___PH_LBL0
#define ___PH_LBL0 477
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_type_2d_id)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_type_2d_id)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_type_2d_id)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(1L),___GLO(312,___G__23__23_type_2d_type),___PRM(309,___G__23__23_type_2d_id)))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_type_2d_name
#undef ___PH_LBL0
#define ___PH_LBL0 479
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_type_2d_name)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_type_2d_name)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_type_2d_name)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(2L),___GLO(312,___G__23__23_type_2d_type),___PRM(310,___G__23__23_type_2d_name)))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_type_2d_flags
#undef ___PH_LBL0
#define ___PH_LBL0 481
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_type_2d_flags)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_type_2d_flags)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_type_2d_flags)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(3L),___GLO(312,___G__23__23_type_2d_type),___PRM(308,___G__23__23_type_2d_flags)))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_type_2d_super
#undef ___PH_LBL0
#define ___PH_LBL0 483
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_type_2d_super)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_type_2d_super)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_type_2d_super)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(4L),___GLO(312,___G__23__23_type_2d_type),___PRM(311,___G__23__23_type_2d_super)))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_type_2d_fields
#undef ___PH_LBL0
#define ___PH_LBL0 485
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_type_2d_fields)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_type_2d_fields)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_type_2d_fields)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___R1,___FIX(5L),___GLO(312,___G__23__23_type_2d_type),___PRM(307,___G__23__23_type_2d_fields)))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_structure_2d_direct_2d_instance_2d_of_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 487
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_structure_2d_direct_2d_instance_2d_of_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_structure_2d_direct_2d_instance_2d_of_3f_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_structure_2d_direct_2d_instance_2d_of_3f_)
   ___IF(___NOT(___STRUCTUREP(___R1)))
   ___GOTO(___L1__23__23_structure_2d_direct_2d_instance_2d_of_3f_)
   ___END_IF
   ___SET_R1(___STRUCTURETYPE(___R1))
   ___SET_R1(___TYPEID(___R1))
   ___SET_R1(___BOOLEAN(___EQP(___R1,___R2)))
   ___JUMPPRM(___NOTHING,___R0)
___DEF_GLBL(___L1__23__23_structure_2d_direct_2d_instance_2d_of_3f_)
   ___SET_R1(___FAL)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_structure_2d_instance_2d_of_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 489
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_structure_2d_instance_2d_of_3f_)
___DEF_P_HLBL(___L1__23__23_structure_2d_instance_2d_of_3f_)
___DEF_P_HLBL(___L2__23__23_structure_2d_instance_2d_of_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_structure_2d_instance_2d_of_3f_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_structure_2d_instance_2d_of_3f_)
   ___IF(___NOT(___STRUCTUREP(___R1)))
   ___GOTO(___L6__23__23_structure_2d_instance_2d_of_3f_)
   ___END_IF
   ___SET_R1(___STRUCTURETYPE(___R1))
   ___SET_STK(1,___R2)
   ___SET_R2(___R1)
   ___SET_R1(___STK(1))
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_structure_2d_instance_2d_of_3f_)
   ___GOTO(___L4__23__23_structure_2d_instance_2d_of_3f_)
___DEF_GLBL(___L3__23__23_structure_2d_instance_2d_of_3f_)
   ___SET_R2(___TYPESUPER(___R2))
   ___SET_STK(1,___R1)
   ___SET_R1(___R2)
   ___ADJFP(1)
   ___IF(___FALSEP(___R1))
   ___GOTO(___L5__23__23_structure_2d_instance_2d_of_3f_)
   ___END_IF
   ___SET_R1(___STK(0))
   ___ADJFP(-1)
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_structure_2d_instance_2d_of_3f_)
___DEF_GLBL(___L4__23__23_structure_2d_instance_2d_of_3f_)
   ___SET_R3(___TYPEID(___R2))
   ___IF(___NOT(___EQP(___R3,___R1)))
   ___GOTO(___L3__23__23_structure_2d_instance_2d_of_3f_)
   ___END_IF
   ___SET_R1(___TRU)
   ___JUMPPRM(___NOTHING,___R0)
___DEF_GLBL(___L5__23__23_structure_2d_instance_2d_of_3f_)
   ___ADJFP(-1)
   ___JUMPPRM(___NOTHING,___R0)
___DEF_GLBL(___L6__23__23_structure_2d_instance_2d_of_3f_)
   ___SET_R1(___FAL)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_type_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 493
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_type_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_type_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_type_3f_)
   ___SET_R2(___TYPEID(___GLO(312,___G__23__23_type_2d_type)))
   ___SET_R1(___BOOLEAN(___STRUCTUREDIOP(___R1,___R2)))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_structure_2d_type
#undef ___PH_LBL0
#define ___PH_LBL0 495
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_structure_2d_type)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_structure_2d_type)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_structure_2d_type)
   ___SET_R1(___VECTORREF(___R1,___FIX(0L)))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_structure_2d_type_2d_set_21_
#undef ___PH_LBL0
#define ___PH_LBL0 497
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_structure_2d_type_2d_set_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_structure_2d_type_2d_set_21_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_structure_2d_type_2d_set_21_)
   ___VECTORSET(___R1,___FIX(0L),___R2)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_structure
#undef ___PH_LBL0
#define ___PH_LBL0 499
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_structure)
___DEF_P_HLBL(___L1__23__23_structure)
___DEF_P_HLBL(___L2__23__23_structure)
___DEF_P_HLBL(___L3__23__23_structure)
___DEF_P_HLBL(___L4__23__23_structure)
___DEF_P_HLBL(___L5__23__23_structure)
___DEF_P_HLBL(___L6__23__23_structure)
___DEF_P_HLBL(___L7__23__23_structure)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_structure)
   ___IF_NARGS_EQ(1,___SET_R2(___NUL))
   ___GET_REST(0,1,0,0)
___DEF_GLBL(___L__23__23_structure)
   ___SET_R3(___FIX(1L))
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_structure)
   ___GOTO(___L9__23__23_structure)
___DEF_GLBL(___L8__23__23_structure)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_STK(4,___R3)
   ___SET_R3(___FIXADD(___R3,___FIX(1L)))
   ___SET_R2(___CDR(___R2))
   ___SET_R0(___LBL(6))
   ___ADJFP(8)
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_structure)
___DEF_GLBL(___L9__23__23_structure)
   ___IF(___PAIRP(___R2))
   ___GOTO(___L8__23__23_structure)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_R2(___R1)
   ___SET_R1(___R3)
   ___SET_R0(___LBL(4))
   ___ADJFP(4)
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_structure)
   ___JUMPPRM(___SET_NARGS(2),___PRM(191,___G__23__23_make_2d_vector))
___DEF_SLBL(4,___L4__23__23_structure)
   ___SUBTYPESET(___R1,___FIX(4L))
   ___POLL(5)
___DEF_SLBL(5,___L5__23__23_structure)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___DEF_SLBL(6,___L6__23__23_structure)
   ___SET_R2(___CAR(___STK(-5)))
   ___UNCHECKEDSTRUCTURESET(___R1,___R2,___STK(-4),___STK(-6),___FAL)
   ___POLL(7)
___DEF_SLBL(7,___L7__23__23_structure)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_structure_2d_ref
#undef ___PH_LBL0
#define ___PH_LBL0 508
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_structure_2d_ref)
___DEF_P_HLBL(___L1__23__23_structure_2d_ref)
___DEF_P_HLBL(___L2__23__23_structure_2d_ref)
___DEF_P_HLBL(___L3__23__23_structure_2d_ref)
___DEF_P_HLBL(___L4__23__23_structure_2d_ref)
___DEF_P_HLBL(___L5__23__23_structure_2d_ref)
___DEF_P_HLBL(___L6__23__23_structure_2d_ref)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_structure_2d_ref)
   ___IF_NARGS_EQ(4,___NOTHING)
   ___WRONG_NARGS(0,4,0,0)
___DEF_GLBL(___L__23__23_structure_2d_ref)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_STK(4,___R3)
   ___SET_R2(___TYPEID(___R2))
   ___SET_R1(___STK(0))
   ___SET_R0(___LBL(2))
   ___ADJFP(7)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_structure_2d_ref)
   ___JUMPPRM(___SET_NARGS(2),___PRM(292,___G__23__23_structure_2d_instance_2d_of_3f_))
___DEF_SLBL(2,___L2__23__23_structure_2d_ref)
   ___IF(___NOT(___FALSEP(___R1)))
   ___GOTO(___L11__23__23_structure_2d_ref)
   ___END_IF
   ___SET_STK(-2,___STK(-7))
   ___SET_STK(-7,___FIX(1L))
   ___IF(___NOT(___FALSEP(___STK(-3))))
   ___GOTO(___L7__23__23_structure_2d_ref)
   ___END_IF
   ___SET_R1(___PRM(293,___G__23__23_structure_2d_ref))
   ___GOTO(___L8__23__23_structure_2d_ref)
___DEF_GLBL(___L7__23__23_structure_2d_ref)
   ___SET_R1(___STK(-3))
___DEF_GLBL(___L8__23__23_structure_2d_ref)
   ___SET_STK(-1,___R1)
   ___IF(___NOT(___FALSEP(___STK(-3))))
   ___GOTO(___L10__23__23_structure_2d_ref)
   ___END_IF
   ___BEGIN_ALLOC_LIST(4,___STK(-3))
   ___ADD_LIST_ELEM(1,___STK(-4))
   ___ADD_LIST_ELEM(2,___STK(-5))
   ___ADD_LIST_ELEM(3,___STK(-2))
   ___END_ALLOC_LIST(4)
   ___SET_R3(___GET_LIST(4))
   ___SET_R1(___R3)
   ___CHECK_HEAP(3,4096)
___DEF_SLBL(3,___L3__23__23_structure_2d_ref)
___DEF_GLBL(___L9__23__23_structure_2d_ref)
   ___SET_R3(___R1)
   ___SET_R1(___STK(-4))
   ___SET_R0(___STK(-6))
   ___SET_R2(___STK(-1))
   ___POLL(4)
___DEF_SLBL(4,___L4__23__23_structure_2d_ref)
   ___ADJFP(-7)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___DEF_GLBL(___L10__23__23_structure_2d_ref)
   ___SET_R3(___CONS(___STK(-2),___NUL))
   ___SET_R1(___R3)
   ___CHECK_HEAP(5,4096)
___DEF_SLBL(5,___L5__23__23_structure_2d_ref)
   ___GOTO(___L9__23__23_structure_2d_ref)
___DEF_GLBL(___L11__23__23_structure_2d_ref)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___STK(-7),___STK(-5),___STK(-4),___STK(-3)))
   ___POLL(6)
___DEF_SLBL(6,___L6__23__23_structure_2d_ref)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_structure_2d_set_21_
#undef ___PH_LBL0
#define ___PH_LBL0 516
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_structure_2d_set_21_)
___DEF_P_HLBL(___L1__23__23_structure_2d_set_21_)
___DEF_P_HLBL(___L2__23__23_structure_2d_set_21_)
___DEF_P_HLBL(___L3__23__23_structure_2d_set_21_)
___DEF_P_HLBL(___L4__23__23_structure_2d_set_21_)
___DEF_P_HLBL(___L5__23__23_structure_2d_set_21_)
___DEF_P_HLBL(___L6__23__23_structure_2d_set_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_structure_2d_set_21_)
   ___IF_NARGS_EQ(5,___NOTHING)
   ___WRONG_NARGS(0,5,0,0)
___DEF_GLBL(___L__23__23_structure_2d_set_21_)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_STK(4,___R3)
   ___SET_R2(___TYPEID(___R2))
   ___SET_R1(___STK(-1))
   ___SET_R0(___LBL(2))
   ___ADJFP(6)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_structure_2d_set_21_)
   ___JUMPPRM(___SET_NARGS(2),___PRM(292,___G__23__23_structure_2d_instance_2d_of_3f_))
___DEF_SLBL(2,___L2__23__23_structure_2d_set_21_)
   ___IF(___NOT(___FALSEP(___R1)))
   ___GOTO(___L11__23__23_structure_2d_set_21_)
   ___END_IF
   ___SET_STK(-1,___STK(-7))
   ___SET_STK(-7,___FIX(1L))
   ___IF(___NOT(___FALSEP(___STK(-2))))
   ___GOTO(___L7__23__23_structure_2d_set_21_)
   ___END_IF
   ___SET_R1(___PRM(294,___G__23__23_structure_2d_set_21_))
   ___GOTO(___L8__23__23_structure_2d_set_21_)
___DEF_GLBL(___L7__23__23_structure_2d_set_21_)
   ___SET_R1(___STK(-2))
___DEF_GLBL(___L8__23__23_structure_2d_set_21_)
   ___SET_STK(0,___R1)
   ___IF(___NOT(___FALSEP(___STK(-2))))
   ___GOTO(___L10__23__23_structure_2d_set_21_)
   ___END_IF
   ___BEGIN_ALLOC_LIST(5,___STK(-2))
   ___ADD_LIST_ELEM(1,___STK(-3))
   ___ADD_LIST_ELEM(2,___STK(-4))
   ___ADD_LIST_ELEM(3,___STK(-6))
   ___ADD_LIST_ELEM(4,___STK(-1))
   ___END_ALLOC_LIST(5)
   ___SET_R3(___GET_LIST(5))
   ___SET_R1(___R3)
   ___CHECK_HEAP(3,4096)
___DEF_SLBL(3,___L3__23__23_structure_2d_set_21_)
___DEF_GLBL(___L9__23__23_structure_2d_set_21_)
   ___SET_R3(___R1)
   ___SET_R1(___STK(-3))
   ___SET_R0(___STK(-5))
   ___SET_R2(___STK(0))
   ___POLL(4)
___DEF_SLBL(4,___L4__23__23_structure_2d_set_21_)
   ___ADJFP(-7)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___DEF_GLBL(___L10__23__23_structure_2d_set_21_)
   ___BEGIN_ALLOC_LIST(2,___STK(-6))
   ___ADD_LIST_ELEM(1,___STK(-1))
   ___END_ALLOC_LIST(2)
   ___SET_R3(___GET_LIST(2))
   ___SET_R1(___R3)
   ___CHECK_HEAP(5,4096)
___DEF_SLBL(5,___L5__23__23_structure_2d_set_21_)
   ___GOTO(___L9__23__23_structure_2d_set_21_)
___DEF_GLBL(___L11__23__23_structure_2d_set_21_)
   ___UNCHECKEDSTRUCTURESET(___STK(-7),___STK(-6),___STK(-4),___STK(-3),___STK(-2))
   ___SET_R1(___VOID)
   ___POLL(6)
___DEF_SLBL(6,___L6__23__23_structure_2d_set_21_)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_direct_2d_structure_2d_ref
#undef ___PH_LBL0
#define ___PH_LBL0 524
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_direct_2d_structure_2d_ref)
___DEF_P_HLBL(___L1__23__23_direct_2d_structure_2d_ref)
___DEF_P_HLBL(___L2__23__23_direct_2d_structure_2d_ref)
___DEF_P_HLBL(___L3__23__23_direct_2d_structure_2d_ref)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_direct_2d_structure_2d_ref)
   ___IF_NARGS_EQ(4,___NOTHING)
   ___WRONG_NARGS(0,4,0,0)
___DEF_GLBL(___L__23__23_direct_2d_structure_2d_ref)
   ___SET_R4(___TYPEID(___R2))
   ___IF(___STRUCTUREDIOP(___STK(0),___R4))
   ___GOTO(___L8__23__23_direct_2d_structure_2d_ref)
   ___END_IF
   ___SET_STK(1,___STK(0))
   ___SET_STK(0,___FIX(1L))
   ___ADJFP(1)
   ___IF(___NOT(___FALSEP(___R3)))
   ___GOTO(___L4__23__23_direct_2d_structure_2d_ref)
   ___END_IF
   ___SET_STK(1,___R1)
   ___SET_R1(___PRM(98,___G__23__23_direct_2d_structure_2d_ref))
   ___ADJFP(1)
   ___GOTO(___L5__23__23_direct_2d_structure_2d_ref)
___DEF_GLBL(___L4__23__23_direct_2d_structure_2d_ref)
   ___SET_STK(1,___R1)
   ___SET_R1(___R3)
   ___ADJFP(1)
___DEF_GLBL(___L5__23__23_direct_2d_structure_2d_ref)
   ___SET_STK(1,___R1)
   ___ADJFP(1)
   ___IF(___NOT(___FALSEP(___R3)))
   ___GOTO(___L7__23__23_direct_2d_structure_2d_ref)
   ___END_IF
   ___BEGIN_ALLOC_LIST(4,___R3)
   ___ADD_LIST_ELEM(1,___R2)
   ___ADD_LIST_ELEM(2,___STK(-1))
   ___ADD_LIST_ELEM(3,___STK(-2))
   ___END_ALLOC_LIST(4)
   ___SET_R3(___GET_LIST(4))
   ___SET_R1(___R3)
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_direct_2d_structure_2d_ref)
___DEF_GLBL(___L6__23__23_direct_2d_structure_2d_ref)
   ___SET_R3(___R1)
   ___SET_R1(___R2)
   ___SET_R2(___STK(0))
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_direct_2d_structure_2d_ref)
   ___ADJFP(-3)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___DEF_GLBL(___L7__23__23_direct_2d_structure_2d_ref)
   ___SET_R3(___CONS(___STK(-2),___NUL))
   ___SET_R1(___R3)
   ___CHECK_HEAP(3,4096)
___DEF_SLBL(3,___L3__23__23_direct_2d_structure_2d_ref)
   ___GOTO(___L6__23__23_direct_2d_structure_2d_ref)
___DEF_GLBL(___L8__23__23_direct_2d_structure_2d_ref)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___STK(0),___R1,___R2,___R3))
   ___ADJFP(-1)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_direct_2d_structure_2d_set_21_
#undef ___PH_LBL0
#define ___PH_LBL0 529
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_direct_2d_structure_2d_set_21_)
___DEF_P_HLBL(___L1__23__23_direct_2d_structure_2d_set_21_)
___DEF_P_HLBL(___L2__23__23_direct_2d_structure_2d_set_21_)
___DEF_P_HLBL(___L3__23__23_direct_2d_structure_2d_set_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_direct_2d_structure_2d_set_21_)
   ___IF_NARGS_EQ(5,___NOTHING)
   ___WRONG_NARGS(0,5,0,0)
___DEF_GLBL(___L__23__23_direct_2d_structure_2d_set_21_)
   ___SET_R4(___TYPEID(___R2))
   ___IF(___STRUCTUREDIOP(___STK(-1),___R4))
   ___GOTO(___L8__23__23_direct_2d_structure_2d_set_21_)
   ___END_IF
   ___SET_STK(1,___STK(-1))
   ___SET_STK(-1,___FIX(1L))
   ___ADJFP(1)
   ___IF(___NOT(___FALSEP(___R3)))
   ___GOTO(___L4__23__23_direct_2d_structure_2d_set_21_)
   ___END_IF
   ___SET_STK(1,___R1)
   ___SET_R1(___PRM(99,___G__23__23_direct_2d_structure_2d_set_21_))
   ___ADJFP(1)
   ___GOTO(___L5__23__23_direct_2d_structure_2d_set_21_)
___DEF_GLBL(___L4__23__23_direct_2d_structure_2d_set_21_)
   ___SET_STK(1,___R1)
   ___SET_R1(___R3)
   ___ADJFP(1)
___DEF_GLBL(___L5__23__23_direct_2d_structure_2d_set_21_)
   ___SET_STK(1,___R1)
   ___ADJFP(1)
   ___IF(___NOT(___FALSEP(___R3)))
   ___GOTO(___L7__23__23_direct_2d_structure_2d_set_21_)
   ___END_IF
   ___BEGIN_ALLOC_LIST(5,___R3)
   ___ADD_LIST_ELEM(1,___R2)
   ___ADD_LIST_ELEM(2,___STK(-1))
   ___ADD_LIST_ELEM(3,___STK(-3))
   ___ADD_LIST_ELEM(4,___STK(-2))
   ___END_ALLOC_LIST(5)
   ___SET_R3(___GET_LIST(5))
   ___SET_R1(___R3)
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_direct_2d_structure_2d_set_21_)
___DEF_GLBL(___L6__23__23_direct_2d_structure_2d_set_21_)
   ___SET_R3(___R1)
   ___SET_R1(___R2)
   ___SET_R2(___STK(0))
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_direct_2d_structure_2d_set_21_)
   ___ADJFP(-4)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___DEF_GLBL(___L7__23__23_direct_2d_structure_2d_set_21_)
   ___BEGIN_ALLOC_LIST(2,___STK(-3))
   ___ADD_LIST_ELEM(1,___STK(-2))
   ___END_ALLOC_LIST(2)
   ___SET_R3(___GET_LIST(2))
   ___SET_R1(___R3)
   ___CHECK_HEAP(3,4096)
___DEF_SLBL(3,___L3__23__23_direct_2d_structure_2d_set_21_)
   ___GOTO(___L6__23__23_direct_2d_structure_2d_set_21_)
___DEF_GLBL(___L8__23__23_direct_2d_structure_2d_set_21_)
   ___UNCHECKEDSTRUCTURESET(___STK(-1),___STK(0),___R1,___R2,___R3)
   ___SET_R1(___VOID)
   ___ADJFP(-2)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_unchecked_2d_structure_2d_ref
#undef ___PH_LBL0
#define ___PH_LBL0 534
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_unchecked_2d_structure_2d_ref)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_unchecked_2d_structure_2d_ref)
   ___IF_NARGS_EQ(4,___NOTHING)
   ___WRONG_NARGS(0,4,0,0)
___DEF_GLBL(___L__23__23_unchecked_2d_structure_2d_ref)
   ___SET_R1(___UNCHECKEDSTRUCTUREREF(___STK(0),___R1,___R2,___R3))
   ___ADJFP(-1)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_unchecked_2d_structure_2d_set_21_
#undef ___PH_LBL0
#define ___PH_LBL0 536
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_unchecked_2d_structure_2d_set_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_unchecked_2d_structure_2d_set_21_)
   ___IF_NARGS_EQ(5,___NOTHING)
   ___WRONG_NARGS(0,5,0,0)
___DEF_GLBL(___L__23__23_unchecked_2d_structure_2d_set_21_)
   ___UNCHECKEDSTRUCTURESET(___STK(-1),___STK(0),___R1,___R2,___R3) ___SET_R1(___STK(-1))
   ___ADJFP(-2)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_symbol_2d_table
#undef ___PH_LBL0
#define ___PH_LBL0 538
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_symbol_2d_table)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_symbol_2d_table)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_symbol_2d_table)
{ ___SCMOBJ ___RESULT;
___RESULT = ___GSTATE->symbol_table;
   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_keyword_2d_table
#undef ___PH_LBL0
#define ___PH_LBL0 540
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_keyword_2d_table)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_keyword_2d_table)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_keyword_2d_table)
{ ___SCMOBJ ___RESULT;
___RESULT = ___GSTATE->keyword_table;
   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_interned_2d_symbol
#undef ___PH_LBL0
#define ___PH_LBL0 542
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_interned_2d_symbol)
___DEF_P_HLBL(___L1__23__23_make_2d_interned_2d_symbol)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_interned_2d_symbol)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_make_2d_interned_2d_symbol)
   ___SET_R2(___TRU)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_make_2d_interned_2d_symbol)
   ___JUMPINT(___SET_NARGS(2),___PRC(548),___L__23__23_make_2d_interned_2d_symkey)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_interned_2d_keyword
#undef ___PH_LBL0
#define ___PH_LBL0 545
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_interned_2d_keyword)
___DEF_P_HLBL(___L1__23__23_make_2d_interned_2d_keyword)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_interned_2d_keyword)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_make_2d_interned_2d_keyword)
   ___SET_R2(___FAL)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_make_2d_interned_2d_keyword)
   ___JUMPINT(___SET_NARGS(2),___PRC(548),___L__23__23_make_2d_interned_2d_symkey)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_interned_2d_symkey
#undef ___PH_LBL0
#define ___PH_LBL0 548
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_interned_2d_symkey)
___DEF_P_HLBL(___L1__23__23_make_2d_interned_2d_symkey)
___DEF_P_HLBL(___L2__23__23_make_2d_interned_2d_symkey)
___DEF_P_HLBL(___L3__23__23_make_2d_interned_2d_symkey)
___DEF_P_HLBL(___L4__23__23_make_2d_interned_2d_symkey)
___DEF_P_HLBL(___L5__23__23_make_2d_interned_2d_symkey)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_interned_2d_symkey)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_make_2d_interned_2d_symkey)
   ___GOTO(___L6__23__23_make_2d_interned_2d_symkey)
___DEF_SLBL(1,___L1__23__23_make_2d_interned_2d_symkey)
   ___SET_R2(___STK(-1))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___POLL(2)
___DEF_SLBL(2,___L2__23__23_make_2d_interned_2d_symkey)
___DEF_GLBL(___L6__23__23_make_2d_interned_2d_symkey)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(4))
   ___ADJFP(4)
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_make_2d_interned_2d_symkey)
   ___JUMPINT(___SET_NARGS(2),___PRC(670),___L__20___kernel_23_0)
___DEF_SLBL(4,___L4__23__23_make_2d_interned_2d_symkey)
   ___IF(___FIXNUMP(___R1))
   ___GOTO(___L7__23__23_make_2d_interned_2d_symkey)
   ___END_IF
   ___POLL(5)
___DEF_SLBL(5,___L5__23__23_make_2d_interned_2d_symkey)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___DEF_GLBL(___L7__23__23_make_2d_interned_2d_symkey)
   ___SET_R0(___LBL(1))
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_make_2d_global_2d_var
#undef ___PH_LBL0
#define ___PH_LBL0 555
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_make_2d_global_2d_var)
___DEF_P_HLBL(___L1__23__23_make_2d_global_2d_var)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_make_2d_global_2d_var)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_make_2d_global_2d_var)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

          if (___FIELD(___ARG1,___SYMBOL_GLOBAL) == ___FIX(0))
            {
              ___glo_struct *p;
              ___SCMOBJ e;
              if ((e = ___alloc_global_var (&p)) != ___FIX(___NO_ERR))
                ___RESULT = e;
              else
                {
                  p->val = ___UNB1;
                  p->prm = ___FAL;
                  p->next = 0;
                  if (___ps->glo_list_head == 0)
                    ___ps->glo_list_head = ___CAST(___SCMOBJ,p);
                  else
                    ___CAST(___glo_struct*,___ps->glo_list_tail)->next
                      = ___CAST(___SCMOBJ,p);
                  ___ps->glo_list_tail = ___CAST(___SCMOBJ,p);
                  ___FIELD(___ARG1,___SYMBOL_GLOBAL) = ___CAST(___SCMOBJ,p);
                  ___RESULT = ___ARG1;
                }
            }
          else
            ___RESULT = ___ARG1;
       
   ___SET_R2(___RESULT)
}
#undef ___ARG1
   ___IF(___NOT(___FIXNUMP(___R2)))
   ___GOTO(___L2__23__23_make_2d_global_2d_var)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPINT(___SET_NARGS(0),___PRC(48),___L__23__23_raise_2d_heap_2d_overflow_2d_exception)
___DEF_SLBL(1,___L1__23__23_make_2d_global_2d_var)
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___JUMPPRM(___SET_NARGS(1),___PRM(176,___G__23__23_make_2d_global_2d_var))
___DEF_GLBL(___L2__23__23_make_2d_global_2d_var)
   ___SET_R1(___R2)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_global_2d_var_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 558
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_global_2d_var_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_global_2d_var_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_global_2d_var_3f_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___RESULT = ___BOOLEAN(___FIELD(___ARG1,___SYMBOL_GLOBAL) != ___FIX(0));

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_global_2d_var_2d_ref
#undef ___PH_LBL0
#define ___PH_LBL0 560
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_global_2d_var_2d_ref)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_global_2d_var_2d_ref)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_global_2d_var_2d_ref)
   ___SET_R1(___GLOBALVARREF(___R1))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_global_2d_var_2d_primitive_2d_ref
#undef ___PH_LBL0
#define ___PH_LBL0 562
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_global_2d_var_2d_primitive_2d_ref)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_global_2d_var_2d_primitive_2d_ref)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_global_2d_var_2d_primitive_2d_ref)
   ___SET_R1(___GLOBALVARPRIMREF(___R1))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_global_2d_var_2d_set_21_
#undef ___PH_LBL0
#define ___PH_LBL0 564
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_global_2d_var_2d_set_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_global_2d_var_2d_set_21_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_global_2d_var_2d_set_21_)
   ___GLOBALVARSET(___R1,___R2)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_global_2d_var_2d_primitive_2d_set_21_
#undef ___PH_LBL0
#define ___PH_LBL0 566
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_global_2d_var_2d_primitive_2d_set_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_global_2d_var_2d_primitive_2d_set_21_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_global_2d_var_2d_primitive_2d_set_21_)
   ___GLOBALVARPRIMSET(___R1,___R2)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_object_2d__3e_global_2d_var_2d__3e_identifier
#undef ___PH_LBL0
#define ___PH_LBL0 568
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
___DEF_P_HLBL(___L1__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
___DEF_P_HLBL(___L2__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
___DEF_P_HLBL(___L3__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
   ___SET_STK(1,___R0)
   ___SET_R2(___FAL)
   ___SET_R0(___LBL(2))
   ___ADJFP(4)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
   ___JUMPINT(___SET_NARGS(2),___PRC(573),___L__23__23_object_2d__3e_global_2d_var)
___DEF_SLBL(2,___L2__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
   ___SET_R0(___STK(-3))
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_object_2d__3e_global_2d_var_2d__3e_identifier)
   ___ADJFP(-4)
   ___JUMPINT(___SET_NARGS(1),___PRC(575),___L__23__23_global_2d_var_2d__3e_identifier)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_object_2d__3e_global_2d_var
#undef ___PH_LBL0
#define ___PH_LBL0 573
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_object_2d__3e_global_2d_var)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_object_2d__3e_global_2d_var)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_object_2d__3e_global_2d_var)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;

   ___SCMOBJ p = ___ps->glo_list_head;
   if (___ARG2 == ___FAL)
     while (p != 0 && ___CAST(___glo_struct*,p)->val != ___ARG1)
       p = ___CAST(___glo_struct*,p)->next;
   else
     while (p != 0 && ___CAST(___glo_struct*,p)->prm != ___ARG1)
       p = ___CAST(___glo_struct*,p)->next;
   ___RESULT = ___FAL;
   if (p != 0)
     {
       int len = ___INT(___VECTORLENGTH(___GSTATE->symbol_table));
       int i;

       for (i=1; i<len; i++)
         {
           ___SCMOBJ probe = ___FIELD(___GSTATE->symbol_table,i);

           while (probe != ___NUL)
             {
               if (___FIELD(probe,___SYMBOL_GLOBAL) == p)
                 {
                   ___RESULT = probe;
                   goto end_search;
                 }
               probe = ___FIELD(probe,___SYMKEY_NEXT);
             }
         }
       end_search:;
     }

   ___SET_R1(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_global_2d_var_2d__3e_identifier
#undef ___PH_LBL0
#define ___PH_LBL0 575
#undef ___PD_ALL
#define ___PD_ALL ___D_R0
#undef ___PR_ALL
#define ___PR_ALL ___R_R0
#undef ___PW_ALL
#define ___PW_ALL
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_global_2d_var_2d__3e_identifier)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_global_2d_var_2d__3e_identifier)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_global_2d_var_2d__3e_identifier)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_fail_2d_check_2d_foreign
#undef ___PH_LBL0
#define ___PH_LBL0 577
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_fail_2d_check_2d_foreign)
___DEF_P_HLBL(___L1__23__23_fail_2d_check_2d_foreign)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_fail_2d_check_2d_foreign)
   ___IF_NARGS_EQ(2,___SET_R3(___NUL))
   ___GET_REST(0,2,0,0)
___DEF_GLBL(___L__23__23_fail_2d_check_2d_foreign)
   ___SET_STK(1,___R1)
   ___SET_R1(___SYM(37,___S_foreign))
   ___ADJFP(1)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_fail_2d_check_2d_foreign)
   ___JUMPINT(___SET_NARGS(4),___PRC(211),___L__23__23_raise_2d_type_2d_exception)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_foreign_2d_released_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 580
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_foreign_2d_released_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_foreign_2d_released_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_foreign_2d_released_3f_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___RESULT = ___BOOLEAN(___CAST(void*,___FIELD(___ARG1,___FOREIGN_PTR)) == 0);

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_foreign_2d_released_3f_
#undef ___PH_LBL0
#define ___PH_LBL0 582
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_foreign_2d_released_3f_)
___DEF_P_HLBL(___L1_foreign_2d_released_3f_)
___DEF_P_HLBL(___L2_foreign_2d_released_3f_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_foreign_2d_released_3f_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_foreign_2d_released_3f_)
   ___IF(___NOT(___FOREIGNP(___R1)))
   ___GOTO(___L3_foreign_2d_released_3f_)
   ___END_IF
   ___POLL(1)
___DEF_SLBL(1,___L1_foreign_2d_released_3f_)
   ___JUMPINT(___SET_NARGS(1),___PRC(580),___L__23__23_foreign_2d_released_3f_)
___DEF_GLBL(___L3_foreign_2d_released_3f_)
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(2)
___DEF_SLBL(2,___L2_foreign_2d_released_3f_)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(577),___L0__23__23_fail_2d_check_2d_foreign)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_foreign_2d_release_21_
#undef ___PH_LBL0
#define ___PH_LBL0 586
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_foreign_2d_release_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_foreign_2d_release_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_foreign_2d_release_21_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;
___RESULT = ___release_foreign (___ARG1);
   ___SET_R2(___RESULT)
}
#undef ___ARG1
   ___IF(___EQP(___R2,___FIX(0L)))
   ___GOTO(___L1__23__23_foreign_2d_release_21_)
   ___END_IF
   ___SET_STK(1,___FAL)
   ___SET_R3(___R1)
   ___SET_R1(___R2)
   ___SET_R2(___PRC(588))
   ___ADJFP(1)
   ___SET_NARGS(4) ___JUMPINT(___NOTHING,___PRC(234),___L0__23__23_raise_2d_os_2d_exception)
___DEF_GLBL(___L1__23__23_foreign_2d_release_21_)
   ___SET_R1(___VOID)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_foreign_2d_release_21_
#undef ___PH_LBL0
#define ___PH_LBL0 588
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_foreign_2d_release_21_)
___DEF_P_HLBL(___L1_foreign_2d_release_21_)
___DEF_P_HLBL(___L2_foreign_2d_release_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_foreign_2d_release_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_foreign_2d_release_21_)
   ___IF(___NOT(___FOREIGNP(___R1)))
   ___GOTO(___L3_foreign_2d_release_21_)
   ___END_IF
   ___POLL(1)
___DEF_SLBL(1,___L1_foreign_2d_release_21_)
   ___JUMPINT(___SET_NARGS(1),___PRC(586),___L__23__23_foreign_2d_release_21_)
___DEF_GLBL(___L3_foreign_2d_release_21_)
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(2)
___DEF_SLBL(2,___L2_foreign_2d_release_21_)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(577),___L0__23__23_fail_2d_check_2d_foreign)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_foreign_2d_address
#undef ___PH_LBL0
#define ___PH_LBL0 592
#undef ___PD_ALL
#define ___PD_ALL ___D_FP
#undef ___PR_ALL
#define ___PR_ALL ___R_FP
#undef ___PW_ALL
#define ___PW_ALL
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_foreign_2d_address)
___DEF_P_HLBL(___L1__23__23_foreign_2d_address)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_foreign_2d_address)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_foreign_2d_address)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_foreign_2d_address)
   ___JUMPINT(___SET_NARGS(1),___PRC(673),___L__20___kernel_23_1)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_foreign_2d_address
#undef ___PH_LBL0
#define ___PH_LBL0 595
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_foreign_2d_address)
___DEF_P_HLBL(___L1_foreign_2d_address)
___DEF_P_HLBL(___L2_foreign_2d_address)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_foreign_2d_address)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_foreign_2d_address)
   ___IF(___NOT(___FOREIGNP(___R1)))
   ___GOTO(___L3_foreign_2d_address)
   ___END_IF
   ___POLL(1)
___DEF_SLBL(1,___L1_foreign_2d_address)
   ___JUMPINT(___SET_NARGS(1),___PRC(592),___L__23__23_foreign_2d_address)
___DEF_GLBL(___L3_foreign_2d_address)
   ___SET_R3(___R1)
   ___SET_R2(___LBL(0))
   ___SET_R1(___FIX(1L))
   ___POLL(2)
___DEF_SLBL(2,___L2_foreign_2d_address)
   ___SET_NARGS(3) ___JUMPINT(___NOTHING,___PRC(577),___L0__23__23_fail_2d_check_2d_foreign)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_system_2d_version
#undef ___PH_LBL0
#define ___PH_LBL0 599
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_system_2d_version)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_system_2d_version)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_system_2d_version)
   ___SET_R1(___FIX(400000L))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_system_2d_version
#undef ___PH_LBL0
#define ___PH_LBL0 601
#undef ___PD_ALL
#define ___PD_ALL ___D_FP
#undef ___PR_ALL
#define ___PR_ALL ___R_FP
#undef ___PW_ALL
#define ___PW_ALL
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_system_2d_version)
___DEF_P_HLBL(___L1_system_2d_version)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_system_2d_version)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L_system_2d_version)
   ___POLL(1)
___DEF_SLBL(1,___L1_system_2d_version)
   ___JUMPINT(___SET_NARGS(0),___PRC(599),___L__23__23_system_2d_version)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_system_2d_version_2d_string
#undef ___PH_LBL0
#define ___PH_LBL0 604
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_system_2d_version_2d_string)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_system_2d_version_2d_string)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_system_2d_version_2d_string)
   ___SET_R1(___SUB(40))
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_system_2d_version_2d_string
#undef ___PH_LBL0
#define ___PH_LBL0 606
#undef ___PD_ALL
#define ___PD_ALL ___D_FP
#undef ___PR_ALL
#define ___PR_ALL ___R_FP
#undef ___PW_ALL
#define ___PW_ALL
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_system_2d_version_2d_string)
___DEF_P_HLBL(___L1_system_2d_version_2d_string)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_system_2d_version_2d_string)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L_system_2d_version_2d_string)
   ___POLL(1)
___DEF_SLBL(1,___L1_system_2d_version_2d_string)
   ___JUMPINT(___SET_NARGS(0),___PRC(604),___L__23__23_system_2d_version_2d_string)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_first_2d_argument
#undef ___PH_LBL0
#define ___PH_LBL0 609
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R1 ___W_R2 ___W_R3
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_first_2d_argument)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_first_2d_argument)
   ___IF_NARGS_EQ(1,___PUSH(___R1) ___SET_R1(___FAL) ___SET_R2(___FAL) ___SET_R3(___NUL))
   ___IF_NARGS_EQ(2,___PUSH(___R1) ___SET_R1(___R2) ___SET_R2(___FAL) ___SET_R3(___NUL))
   ___IF_NARGS_EQ(3,___PUSH(___R1) ___SET_R1(___R2) ___SET_R2(___R3) ___SET_R3(___NUL))
   ___GET_REST(0,1,2,0)
___DEF_GLBL(___L__23__23_first_2d_argument)
   ___SET_R1(___STK(0))
   ___ADJFP(-1)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_with_2d_no_2d_result_2d_expected
#undef ___PH_LBL0
#define ___PH_LBL0 611
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_with_2d_no_2d_result_2d_expected)
___DEF_P_HLBL(___L1__23__23_with_2d_no_2d_result_2d_expected)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_with_2d_no_2d_result_2d_expected)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_with_2d_no_2d_result_2d_expected)
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___R1)
___DEF_SLBL(1,___L1__23__23_with_2d_no_2d_result_2d_expected)
   ___SET_R1(___R1)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_process_2d_statistics
#undef ___PH_LBL0
#define ___PH_LBL0 614
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_process_2d_statistics)
___DEF_P_HLBL(___L1__23__23_process_2d_statistics)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_process_2d_statistics)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_process_2d_statistics)
   ___BEGIN_ALLOC_F64VECTOR(20)
   ___ADD_F64VECTOR_ELEM(0,0.)
   ___ADD_F64VECTOR_ELEM(1,0.)
   ___ADD_F64VECTOR_ELEM(2,0.)
   ___ADD_F64VECTOR_ELEM(3,0.)
   ___ADD_F64VECTOR_ELEM(4,0.)
   ___ADD_F64VECTOR_ELEM(5,0.)
   ___ADD_F64VECTOR_ELEM(6,0.)
   ___ADD_F64VECTOR_ELEM(7,0.)
   ___ADD_F64VECTOR_ELEM(8,0.)
   ___ADD_F64VECTOR_ELEM(9,0.)
   ___ADD_F64VECTOR_ELEM(10,0.)
   ___ADD_F64VECTOR_ELEM(11,0.)
   ___ADD_F64VECTOR_ELEM(12,0.)
   ___ADD_F64VECTOR_ELEM(13,0.)
   ___ADD_F64VECTOR_ELEM(14,0.)
   ___ADD_F64VECTOR_ELEM(15,0.)
   ___ADD_F64VECTOR_ELEM(16,0.)
   ___ADD_F64VECTOR_ELEM(17,0.)
   ___ADD_F64VECTOR_ELEM(18,0.)
   ___ADD_F64VECTOR_ELEM(19,0.)
   ___END_ALLOC_F64VECTOR(20)
   ___SET_R1(___GET_F64VECTOR(20))
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

     int n;
     ___F64 user, sys, real;
     long minflt, majflt;
     ___W_ALL
     ___process_times (&user, &sys, &real);
     ___vm_stats (&minflt, &majflt);
     ___F64VECTORSET(___ARG1,___FIX(0),user)
     ___F64VECTORSET(___ARG1,___FIX(1),sys)
     ___F64VECTORSET(___ARG1,___FIX(2),real)
     ___F64VECTORSET(___ARG1,___FIX(3),___GSTATE->gc_user_time)
     ___F64VECTORSET(___ARG1,___FIX(4),___GSTATE->gc_sys_time)
     ___F64VECTORSET(___ARG1,___FIX(5),___GSTATE->gc_real_time)
     ___F64VECTORSET(___ARG1,___FIX(6),___GSTATE->nb_gcs)
     ___F64VECTORSET(___ARG1,___FIX(7),___bytes_allocated ())
     ___F64VECTORSET(___ARG1,___FIX(8),(2*(1+2)<<___LWS))
     n = (1<<___LWS) + 20 * sizeof (___F64) + (5<<___LWS);
     ___F64VECTORSET(___ARG1,___FIX(9),(2*n))
     ___F64VECTORSET(___ARG1,___FIX(10),minflt)
     ___F64VECTORSET(___ARG1,___FIX(11),majflt)
     ___F64VECTORSET(___ARG1,___FIX(12),___GSTATE->last_gc_user_time)
     ___F64VECTORSET(___ARG1,___FIX(13),___GSTATE->last_gc_sys_time)
     ___F64VECTORSET(___ARG1,___FIX(14),___GSTATE->last_gc_real_time)
     ___F64VECTORSET(___ARG1,___FIX(15),___GSTATE->last_gc_heap_size)
     ___F64VECTORSET(___ARG1,___FIX(16),___GSTATE->last_gc_alloc)
     ___F64VECTORSET(___ARG1,___FIX(17),___GSTATE->last_gc_live)
     ___F64VECTORSET(___ARG1,___FIX(18),___GSTATE->last_gc_movable)
     ___F64VECTORSET(___ARG1,___FIX(19),___GSTATE->last_gc_nonmovable)
     ___R_ALL
     ___RESULT = ___ARG1;
  
   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_process_2d_statistics)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_process_2d_times
#undef ___PH_LBL0
#define ___PH_LBL0 617
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_process_2d_times)
___DEF_P_HLBL(___L1__23__23_process_2d_times)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_process_2d_times)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_process_2d_times)
   ___BEGIN_ALLOC_F64VECTOR(3)
   ___ADD_F64VECTOR_ELEM(0,0.)
   ___ADD_F64VECTOR_ELEM(1,0.)
   ___ADD_F64VECTOR_ELEM(2,0.)
   ___END_ALLOC_F64VECTOR(3)
   ___SET_R1(___GET_F64VECTOR(3))
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

     ___SCMOBJ result = ___ARG1;
     ___F64 user, sys, real;
     ___process_times (&user, &sys, &real);
     ___F64VECTORSET(result,___FIX(0),user)
     ___F64VECTORSET(result,___FIX(1),sys)
     ___F64VECTORSET(result,___FIX(2),real)
     ___RESULT = result;
  
   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___CHECK_HEAP(1,4096)
___DEF_SLBL(1,___L1__23__23_process_2d_times)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_get_2d_current_2d_time_21_
#undef ___PH_LBL0
#define ___PH_LBL0 620
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_get_2d_current_2d_time_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_get_2d_current_2d_time_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_get_2d_current_2d_time_21_)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___time t;
   ___F64 ft;

   ___time_get_current_time (&t);
   ___time_to_seconds (t, &ft);
   ___F64VECTORSET(___ARG1,___FIX(0),ft)

   ___RESULT = ___VOID;

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H_err_2d_code_2d__3e_string
#undef ___PH_LBL0
#define ___PH_LBL0 622
#undef ___PD_ALL
#define ___PD_ALL ___D_FP
#undef ___PR_ALL
#define ___PR_ALL ___R_FP
#undef ___PW_ALL
#define ___PW_ALL
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0_err_2d_code_2d__3e_string)
___DEF_P_HLBL(___L1_err_2d_code_2d__3e_string)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0_err_2d_code_2d__3e_string)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L_err_2d_code_2d__3e_string)
   ___POLL(1)
___DEF_SLBL(1,___L1_err_2d_code_2d__3e_string)
   ___JUMPINT(___SET_NARGS(1),___PRC(679),___L__20___kernel_23_3)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_command_2d_line
#undef ___PH_LBL0
#define ___PH_LBL0 625
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_command_2d_line)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_command_2d_line)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_command_2d_line)
{ ___SCMOBJ ___RESULT;
___RESULT = ___GSTATE->command_line;
   ___SET_R1(___RESULT)
}
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_os_2d_condvar_2d_select_21_
#undef ___PH_LBL0
#define ___PH_LBL0 627
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_os_2d_condvar_2d_select_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_os_2d_condvar_2d_select_21_)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_os_2d_condvar_2d_select_21_)
#define ___ARG1 ___R1
#define ___ARG2 ___R2
{ ___SCMOBJ ___RESULT;
___RESULT = ___os_condvar_select (___ARG1, ___ARG2);
   ___SET_R1(___RESULT)
}
#undef ___ARG2
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_add_2d_exit_2d_job_21_
#undef ___PH_LBL0
#define ___PH_LBL0 629
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_R1 ___W_R2
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_add_2d_exit_2d_job_21_)
___DEF_P_HLBL(___L1__23__23_add_2d_exit_2d_job_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_add_2d_exit_2d_job_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_add_2d_exit_2d_job_21_)
   ___SET_R2(___R1)
   ___SET_R1(___GLO(114,___G__23__23_exit_2d_jobs))
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_add_2d_exit_2d_job_21_)
   ___JUMPINT(___SET_NARGS(2),___PRC(278),___L__23__23_add_2d_job_21_)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_clear_2d_exit_2d_jobs_21_
#undef ___PH_LBL0
#define ___PH_LBL0 632
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_clear_2d_exit_2d_jobs_21_)
___DEF_P_HLBL(___L1__23__23_clear_2d_exit_2d_jobs_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_clear_2d_exit_2d_jobs_21_)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_clear_2d_exit_2d_jobs_21_)
   ___SET_R1(___GLO(114,___G__23__23_exit_2d_jobs))
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_clear_2d_exit_2d_jobs_21_)
   ___JUMPINT(___SET_NARGS(1),___PRC(293),___L__23__23_clear_2d_jobs_21_)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_exit_2d_with_2d_err_2d_code_2d_no_2d_cleanup
#undef ___PH_LBL0
#define ___PH_LBL0 635
#undef ___PD_ALL
#define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_exit_2d_with_2d_err_2d_code_2d_no_2d_cleanup)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_exit_2d_with_2d_err_2d_code_2d_no_2d_cleanup)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_exit_2d_with_2d_err_2d_code_2d_no_2d_cleanup)
#define ___ARG1 ___R1
{ ___SCMOBJ ___RESULT;

   ___propagate_error (___ARG1);
   ___RESULT = ___VOID; /* never reached */

   ___SET_R1(___RESULT)
}
#undef ___ARG1
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_exit_2d_cleanup
#undef ___PH_LBL0
#define ___PH_LBL0 637
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_exit_2d_cleanup)
___DEF_P_HLBL(___L1__23__23_exit_2d_cleanup)
___DEF_P_HLBL(___L2__23__23_exit_2d_cleanup)
___DEF_P_HLBL(___L3__23__23_exit_2d_cleanup)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_exit_2d_cleanup)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_exit_2d_cleanup)
   ___SET_STK(1,___R0)
   ___SET_R1(___GLO(114,___G__23__23_exit_2d_jobs))
   ___SET_R0(___LBL(2))
   ___ADJFP(4)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_exit_2d_cleanup)
   ___JUMPINT(___SET_NARGS(1),___PRC(287),___L__23__23_execute_2d_and_2d_clear_2d_jobs_21_)
___DEF_SLBL(2,___L2__23__23_exit_2d_cleanup)
   ___SET_R0(___STK(-3))
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_exit_2d_cleanup)
   ___ADJFP(-4)
   ___JUMPINT(___SET_NARGS(0),___PRC(328),___L__23__23_execute_2d_final_2d_wills_21_)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_exit_2d_with_2d_err_2d_code
#undef ___PH_LBL0
#define ___PH_LBL0 642
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_exit_2d_with_2d_err_2d_code)
___DEF_P_HLBL(___L1__23__23_exit_2d_with_2d_err_2d_code)
___DEF_P_HLBL(___L2__23__23_exit_2d_with_2d_err_2d_code)
___DEF_P_HLBL(___L3__23__23_exit_2d_with_2d_err_2d_code)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_exit_2d_with_2d_err_2d_code)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_exit_2d_with_2d_err_2d_code)
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_R0(___LBL(2))
   ___ADJFP(4)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_exit_2d_with_2d_err_2d_code)
   ___JUMPINT(___SET_NARGS(0),___PRC(637),___L__23__23_exit_2d_cleanup)
___DEF_SLBL(2,___L2__23__23_exit_2d_with_2d_err_2d_code)
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_exit_2d_with_2d_err_2d_code)
   ___ADJFP(-4)
   ___JUMPINT(___SET_NARGS(1),___PRC(635),___L__23__23_exit_2d_with_2d_err_2d_code_2d_no_2d_cleanup)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_exit
#undef ___PH_LBL0
#define ___PH_LBL0 647
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_exit)
___DEF_P_HLBL(___L1__23__23_exit)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_exit)
   ___IF_NARGS_EQ(0,___SET_R1(___FIX(0L)))
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,0,1,0)
___DEF_GLBL(___L__23__23_exit)
   ___SET_R1(___FIXADD(___R1,___FIX(1L)))
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_exit)
   ___JUMPINT(___SET_NARGS(1),___PRC(642),___L__23__23_exit_2d_with_2d_err_2d_code)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_exit_2d_abnormally
#undef ___PH_LBL0
#define ___PH_LBL0 650
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_exit_2d_abnormally)
___DEF_P_HLBL(___L1__23__23_exit_2d_abnormally)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_exit_2d_abnormally)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_exit_2d_abnormally)
   ___SET_R1(___FIX(70L))
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_exit_2d_abnormally)
   ___SET_NARGS(1) ___JUMPINT(___NOTHING,___PRC(647),___L0__23__23_exit)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_exit_2d_with_2d_exception
#undef ___PH_LBL0
#define ___PH_LBL0 653
#undef ___PD_ALL
#define ___PD_ALL ___D_FP
#undef ___PR_ALL
#define ___PR_ALL ___R_FP
#undef ___PW_ALL
#define ___PW_ALL
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_exit_2d_with_2d_exception)
___DEF_P_HLBL(___L1__23__23_exit_2d_with_2d_exception)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_exit_2d_with_2d_exception)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_exit_2d_with_2d_exception)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_exit_2d_with_2d_exception)
   ___JUMPINT(___SET_NARGS(0),___PRC(650),___L__23__23_exit_2d_abnormally)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_main_2d_set_21_
#undef ___PH_LBL0
#define ___PH_LBL0 656
#undef ___PD_ALL
#define ___PD_ALL ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_R1
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_main_2d_set_21_)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_main_2d_set_21_)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__23__23_main_2d_set_21_)
   ___SET_GLO(171,___G__23__23_main,___R1)
   ___SET_R1(___VOID)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_execute_2d_modules
#undef ___PH_LBL0
#define ___PH_LBL0 658
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_execute_2d_modules)
___DEF_P_HLBL(___L1__23__23_execute_2d_modules)
___DEF_P_HLBL(___L2__23__23_execute_2d_modules)
___DEF_P_HLBL(___L3__23__23_execute_2d_modules)
___DEF_P_HLBL(___L4__23__23_execute_2d_modules)
___DEF_P_HLBL(___L5__23__23_execute_2d_modules)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_execute_2d_modules)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__23__23_execute_2d_modules)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_execute_2d_modules)
   ___GOTO(___L6__23__23_execute_2d_modules)
___DEF_SLBL(2,___L2__23__23_execute_2d_modules)
   ___SET_R2(___FIXADD(___STK(-1),___FIX(1L)))
   ___SET_R1(___STK(-2))
   ___SET_R0(___STK(-3))
   ___ADJFP(-4)
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_execute_2d_modules)
___DEF_GLBL(___L6__23__23_execute_2d_modules)
   ___SET_R3(___VECTORLENGTH(___R1))
   ___SET_R4(___FIXSUB(___R3,___FIX(1L)))
   ___IF(___NOT(___FIXEQ(___R2,___R4)))
   ___GOTO(___L7__23__23_execute_2d_modules)
   ___END_IF
   ___SET_R1(___VECTORREF(___R1,___R2))
   ___POLL(4)
___DEF_SLBL(4,___L4__23__23_execute_2d_modules)
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___R1)
___DEF_GLBL(___L7__23__23_execute_2d_modules)
   ___IF(___NOT(___FIXLT(___R2,___R3)))
   ___GOTO(___L8__23__23_execute_2d_modules)
   ___END_IF
   ___SET_STK(1,___R0)
   ___SET_STK(2,___R1)
   ___SET_STK(3,___R2)
   ___SET_R0(___LBL(2))
   ___SET_R1(___VECTORREF(___R1,___R2))
   ___ADJFP(4)
   ___POLL(5)
___DEF_SLBL(5,___L5__23__23_execute_2d_modules)
   ___JUMPGENNOTSAFE(___SET_NARGS(0),___R1)
___DEF_GLBL(___L8__23__23_execute_2d_modules)
   ___SET_R1(___VOID)
   ___JUMPPRM(___NOTHING,___R0)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_execute_2d_program
#undef ___PH_LBL0
#define ___PH_LBL0 665
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R4
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R4
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R4
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_execute_2d_program)
___DEF_P_HLBL(___L1__23__23_execute_2d_program)
___DEF_P_HLBL(___L2__23__23_execute_2d_program)
___DEF_P_HLBL(___L3__23__23_execute_2d_program)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_execute_2d_program)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_execute_2d_program)
   ___SET_R1(___VECTORREF(___GLO(262,___G__23__23_program_2d_descr),___FIX(0L)))
   ___SET_STK(1,___R0)
   ___SET_R2(___FIX(1L))
   ___SET_R0(___LBL(2))
   ___ADJFP(4)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_execute_2d_program)
   ___JUMPINT(___SET_NARGS(2),___PRC(658),___L__23__23_execute_2d_modules)
___DEF_SLBL(2,___L2__23__23_execute_2d_program)
   ___SET_R0(___STK(-3))
   ___POLL(3)
___DEF_SLBL(3,___L3__23__23_execute_2d_program)
   ___ADJFP(-4)
   ___JUMPGLONOTSAFE(___SET_NARGS(0),171,___G__23__23_main)
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_0
#undef ___PH_LBL0
#define ___PH_LBL0 670
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_0)
___DEF_P_HLBL(___L1__20___kernel_23_0)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_0)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_0)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END

           unsigned int subtype = (___arg2 != ___FAL)
                                  ? ___sSYMBOL
                                  : ___sKEYWORD;
           ___SCMOBJ obj = ___find_symkey_from_scheme_string
                             (___arg1,
                              subtype);
           if (obj == ___FAL)
             {
               unsigned long n = ___INT(___STRINGLENGTH(___arg1));
               obj = ___alloc_scmobj (___sSTRING, n<<___LCS, ___PERM);
               if (!___FIXNUMP(obj))
                 {
                   memmove (___BODY_AS(obj,___tSUBTYPED),
                            ___BODY_AS(___arg1,___tSUBTYPED),
                            n<<___LCS);
                   obj = ___new_symkey (obj, subtype);
                 }
             }
           ___result = obj;

#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_0)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_1
#undef ___PH_LBL0
#define ___PH_LBL0 673
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_1)
___DEF_P_HLBL(___L1__20___kernel_23_1)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_1)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_1)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN(unsigned long ___result)
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
 
    ___result = ___CAST(unsigned long,
                        ___CAST(void*,___FIELD(___arg1,___FOREIGN_PTR)));
    
#ifndef ___AT_END
#define ___AT_END
#endif
___BEGIN_CFUN_ULONG_TO_SCMOBJ(___result,___CFUN_RESULT)
___CFUN_SET_RESULT
___END_CFUN_ULONG_TO_SCMOBJ(___result,___CFUN_RESULT)
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR
___END_CFUN
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_1)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_2
#undef ___PH_LBL0
#define ___PH_LBL0 676
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_2)
___DEF_P_HLBL(___L1__20___kernel_23_2)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_2)
   ___IF_NARGS_EQ(3,___NOTHING)
   ___WRONG_NARGS(0,3,0,0)
___DEF_GLBL(___L__20___kernel_23_2)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R3)
   ___SET_STK(4,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(8)
#define ___NARGS 3
___BEGIN_CFUN(char* ___result)
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG(1,char* ___arg1)
___BEGIN_CFUN_SCMOBJ_TO_CHARSTRING(___ARG1,___arg1,1)
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG(2,long ___arg2)
___BEGIN_CFUN_SCMOBJ_TO_LONG(___ARG2,___arg2,2)
#define ___ARG3 ___CFUN_ARG(3)
___BEGIN_CFUN_ARG(3,___BOOL ___arg3)
___BEGIN_CFUN_SCMOBJ_TO_BOOL(___ARG3,___arg3,3)
___BEGIN_CFUN_BODY_CLEANUP
#undef ___AT_END
___CFUN_CALL(___result,___format_filepos(___arg1,___arg2,___arg3))
#ifndef ___AT_END
#define ___AT_END
#endif
___BEGIN_CFUN_CHARSTRING_TO_SCMOBJ(___result,___CFUN_RESULT)
___CFUN_SET_RESULT
___END_CFUN_CHARSTRING_TO_SCMOBJ(___result,___CFUN_RESULT)
___END_CFUN_BODY_CLEANUP
___END_CFUN_SCMOBJ_TO_BOOL(___ARG3,___arg3,3)
___END_CFUN_ARG(3)
#undef ___ARG3
___END_CFUN_SCMOBJ_TO_LONG(___ARG2,___arg2,2)
___END_CFUN_ARG(2)
#undef ___ARG2
___END_CFUN_SCMOBJ_TO_CHARSTRING(___ARG1,___arg1,1)
___END_CFUN_ARG(1)
#undef ___ARG1
___CFUN_ERROR_CLEANUP
___END_CFUN
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_2)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(4))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_3
#undef ___PH_LBL0
#define ___PH_LBL0 679
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_3)
___DEF_P_HLBL(___L1__20___kernel_23_3)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_3)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_3)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_err_code_to_string(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_3)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_4
#undef ___PH_LBL0
#define ___PH_LBL0 682
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_4)
___DEF_P_HLBL(___L1__20___kernel_23_4)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_4)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__20___kernel_23_4)
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 0
___BEGIN_CFUN_SCMOBJ
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_path_homedir())
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_4)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_5
#undef ___PH_LBL0
#define ___PH_LBL0 685
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_5)
___DEF_P_HLBL(___L1__20___kernel_23_5)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_5)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__20___kernel_23_5)
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 0
___BEGIN_CFUN_SCMOBJ
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_path_gambcdir())
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_5)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_6
#undef ___PH_LBL0
#define ___PH_LBL0 688
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_6)
___DEF_P_HLBL(___L1__20___kernel_23_6)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_6)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_6)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_path_normalize_directory(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_6)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_7
#undef ___PH_LBL0
#define ___PH_LBL0 691
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_7)
___DEF_P_HLBL(___L1__20___kernel_23_7)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_7)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_7)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_getenv(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_7)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_8
#undef ___PH_LBL0
#define ___PH_LBL0 694
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_8)
___DEF_P_HLBL(___L1__20___kernel_23_8)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_8)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_8)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_setenv(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_8)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_9
#undef ___PH_LBL0
#define ___PH_LBL0 697
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_9)
___DEF_P_HLBL(___L1__20___kernel_23_9)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_9)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__20___kernel_23_9)
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 0
___BEGIN_CFUN_SCMOBJ
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_environ())
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_9)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_10
#undef ___PH_LBL0
#define ___PH_LBL0 700
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_10)
___DEF_P_HLBL(___L1__20___kernel_23_10)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_10)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_10)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_shell_command(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_10)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_11
#undef ___PH_LBL0
#define ___PH_LBL0 703
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_11)
___DEF_P_HLBL(___L1__20___kernel_23_11)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_11)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_11)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_kind(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_11)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_12
#undef ___PH_LBL0
#define ___PH_LBL0 706
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_12)
___DEF_P_HLBL(___L1__20___kernel_23_12)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_12)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_12)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_force_output(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_12)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_13
#undef ___PH_LBL0
#define ___PH_LBL0 709
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_13)
___DEF_P_HLBL(___L1__20___kernel_23_13)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_13)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_13)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_close(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_13)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_14
#undef ___PH_LBL0
#define ___PH_LBL0 712
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_14)
___DEF_P_HLBL(___L1__20___kernel_23_14)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_14)
   ___IF_NARGS_EQ(3,___NOTHING)
   ___WRONG_NARGS(0,3,0,0)
___DEF_GLBL(___L__20___kernel_23_14)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R3)
   ___SET_STK(4,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(8)
#define ___NARGS 3
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
#define ___ARG3 ___CFUN_ARG(3)
___BEGIN_CFUN_ARG_SCMOBJ(3)
#define ___arg3 ___ARG3
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_stream_seek(___arg1,___arg2,___arg3))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg3
___END_CFUN_ARG_SCMOBJ(3)
#undef ___ARG3
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_14)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(4))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_15
#undef ___PH_LBL0
#define ___PH_LBL0 715
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_15)
___DEF_P_HLBL(___L1__20___kernel_23_15)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_15)
   ___IF_NARGS_EQ(4,___NOTHING)
   ___WRONG_NARGS(0,4,0,0)
___DEF_GLBL(___L__20___kernel_23_15)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R3)
   ___SET_STK(4,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(7)
#define ___NARGS 4
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
#define ___ARG3 ___CFUN_ARG(3)
___BEGIN_CFUN_ARG_SCMOBJ(3)
#define ___arg3 ___ARG3
#define ___ARG4 ___CFUN_ARG(4)
___BEGIN_CFUN_ARG_SCMOBJ(4)
#define ___arg4 ___ARG4
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_stream_read(___arg1,___arg2,___arg3,___arg4))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg4
___END_CFUN_ARG_SCMOBJ(4)
#undef ___ARG4
#undef ___arg3
___END_CFUN_ARG_SCMOBJ(3)
#undef ___ARG3
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_15)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(5))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_16
#undef ___PH_LBL0
#define ___PH_LBL0 718
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_16)
___DEF_P_HLBL(___L1__20___kernel_23_16)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_16)
   ___IF_NARGS_EQ(4,___NOTHING)
   ___WRONG_NARGS(0,4,0,0)
___DEF_GLBL(___L__20___kernel_23_16)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R3)
   ___SET_STK(4,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(7)
#define ___NARGS 4
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
#define ___ARG3 ___CFUN_ARG(3)
___BEGIN_CFUN_ARG_SCMOBJ(3)
#define ___arg3 ___ARG3
#define ___ARG4 ___CFUN_ARG(4)
___BEGIN_CFUN_ARG_SCMOBJ(4)
#define ___arg4 ___ARG4
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_stream_write(___arg1,___arg2,___arg3,___arg4))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg4
___END_CFUN_ARG_SCMOBJ(4)
#undef ___ARG4
#undef ___arg3
___END_CFUN_ARG_SCMOBJ(3)
#undef ___ARG3
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_16)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(5))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_17
#undef ___PH_LBL0
#define ___PH_LBL0 721
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_17)
___DEF_P_HLBL(___L1__20___kernel_23_17)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_17)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_17)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_stream_width(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_17)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_18
#undef ___PH_LBL0
#define ___PH_LBL0 724
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_18)
___DEF_P_HLBL(___L1__20___kernel_23_18)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_18)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_18)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_stream_default_options(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_18)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_19
#undef ___PH_LBL0
#define ___PH_LBL0 727
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_19)
___DEF_P_HLBL(___L1__20___kernel_23_19)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_19)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_19)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_stream_options_set(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_19)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_20
#undef ___PH_LBL0
#define ___PH_LBL0 730
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_20)
___DEF_P_HLBL(___L1__20___kernel_23_20)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_20)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_20)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_stream_open_predefined(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_20)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_21
#undef ___PH_LBL0
#define ___PH_LBL0 733
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_21)
___DEF_P_HLBL(___L1__20___kernel_23_21)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_21)
   ___IF_NARGS_EQ(3,___NOTHING)
   ___WRONG_NARGS(0,3,0,0)
___DEF_GLBL(___L__20___kernel_23_21)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R3)
   ___SET_STK(4,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(8)
#define ___NARGS 3
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
#define ___ARG3 ___CFUN_ARG(3)
___BEGIN_CFUN_ARG_SCMOBJ(3)
#define ___arg3 ___ARG3
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_stream_open_path(___arg1,___arg2,___arg3))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg3
___END_CFUN_ARG_SCMOBJ(3)
#undef ___ARG3
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_21)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(4))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_22
#undef ___PH_LBL0
#define ___PH_LBL0 736
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_22)
___DEF_P_HLBL(___L1__20___kernel_23_22)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_22)
   ___IF_NARGS_EQ(4,___NOTHING)
   ___WRONG_NARGS(0,4,0,0)
___DEF_GLBL(___L__20___kernel_23_22)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R3)
   ___SET_STK(4,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(7)
#define ___NARGS 4
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
#define ___ARG3 ___CFUN_ARG(3)
___BEGIN_CFUN_ARG_SCMOBJ(3)
#define ___arg3 ___ARG3
#define ___ARG4 ___CFUN_ARG(4)
___BEGIN_CFUN_ARG_SCMOBJ(4)
#define ___arg4 ___ARG4
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_stream_open_process(___arg1,___arg2,___arg3,___arg4))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg4
___END_CFUN_ARG_SCMOBJ(4)
#undef ___ARG4
#undef ___arg3
___END_CFUN_ARG_SCMOBJ(3)
#undef ___ARG3
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_22)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(5))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_23
#undef ___PH_LBL0
#define ___PH_LBL0 739
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_23)
___DEF_P_HLBL(___L1__20___kernel_23_23)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_23)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_23)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_process_pid(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_23)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_24
#undef ___PH_LBL0
#define ___PH_LBL0 742
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_24)
___DEF_P_HLBL(___L1__20___kernel_23_24)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_24)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_24)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_process_status(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_24)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_25
#undef ___PH_LBL0
#define ___PH_LBL0 745
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_25)
___DEF_P_HLBL(___L1__20___kernel_23_25)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_25)
   ___IF_NARGS_EQ(3,___NOTHING)
   ___WRONG_NARGS(0,3,0,0)
___DEF_GLBL(___L__20___kernel_23_25)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R3)
   ___SET_STK(4,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(8)
#define ___NARGS 3
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
#define ___ARG3 ___CFUN_ARG(3)
___BEGIN_CFUN_ARG_SCMOBJ(3)
#define ___arg3 ___ARG3
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tcp_client_open(___arg1,___arg2,___arg3))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg3
___END_CFUN_ARG_SCMOBJ(3)
#undef ___ARG3
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_25)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(4))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_26
#undef ___PH_LBL0
#define ___PH_LBL0 748
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_26)
___DEF_P_HLBL(___L1__20___kernel_23_26)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_26)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_26)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tcp_client_socket_info(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_26)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_27
#undef ___PH_LBL0
#define ___PH_LBL0 751
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_27)
___DEF_P_HLBL(___L1__20___kernel_23_27)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_27)
   ___IF_NARGS_EQ(4,___NOTHING)
   ___WRONG_NARGS(0,4,0,0)
___DEF_GLBL(___L__20___kernel_23_27)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R3)
   ___SET_STK(4,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(7)
#define ___NARGS 4
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
#define ___ARG3 ___CFUN_ARG(3)
___BEGIN_CFUN_ARG_SCMOBJ(3)
#define ___arg3 ___ARG3
#define ___ARG4 ___CFUN_ARG(4)
___BEGIN_CFUN_ARG_SCMOBJ(4)
#define ___arg4 ___ARG4
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tcp_server_open(___arg1,___arg2,___arg3,___arg4))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg4
___END_CFUN_ARG_SCMOBJ(4)
#undef ___ARG4
#undef ___arg3
___END_CFUN_ARG_SCMOBJ(3)
#undef ___ARG3
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_27)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(5))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_28
#undef ___PH_LBL0
#define ___PH_LBL0 754
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_28)
___DEF_P_HLBL(___L1__20___kernel_23_28)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_28)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_28)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tcp_server_read(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_28)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_29
#undef ___PH_LBL0
#define ___PH_LBL0 757
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_29)
___DEF_P_HLBL(___L1__20___kernel_23_29)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_29)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_29)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_directory_open_path(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_29)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_30
#undef ___PH_LBL0
#define ___PH_LBL0 760
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_30)
___DEF_P_HLBL(___L1__20___kernel_23_30)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_30)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_30)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_directory_read(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_30)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_31
#undef ___PH_LBL0
#define ___PH_LBL0 763
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_31)
___DEF_P_HLBL(___L1__20___kernel_23_31)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_31)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_31)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_event_queue_open(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_31)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_32
#undef ___PH_LBL0
#define ___PH_LBL0 766
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_32)
___DEF_P_HLBL(___L1__20___kernel_23_32)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_32)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_32)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_event_queue_read(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_32)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_33
#undef ___PH_LBL0
#define ___PH_LBL0 769
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_33)
___DEF_P_HLBL(___L1__20___kernel_23_33)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_33)
   ___IF_NARGS_EQ(3,___NOTHING)
   ___WRONG_NARGS(0,3,0,0)
___DEF_GLBL(___L__20___kernel_23_33)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R3)
   ___SET_STK(4,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(8)
#define ___NARGS 3
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
#define ___ARG3 ___CFUN_ARG(3)
___BEGIN_CFUN_ARG_SCMOBJ(3)
#define ___arg3 ___ARG3
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tty_type_set(___arg1,___arg2,___arg3))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg3
___END_CFUN_ARG_SCMOBJ(3)
#undef ___ARG3
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_33)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(4))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_34
#undef ___PH_LBL0
#define ___PH_LBL0 772
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_34)
___DEF_P_HLBL(___L1__20___kernel_23_34)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_34)
   ___IF_NARGS_EQ(3,___NOTHING)
   ___WRONG_NARGS(0,3,0,0)
___DEF_GLBL(___L__20___kernel_23_34)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R3)
   ___SET_STK(4,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(8)
#define ___NARGS 3
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
#define ___ARG3 ___CFUN_ARG(3)
___BEGIN_CFUN_ARG_SCMOBJ(3)
#define ___arg3 ___ARG3
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tty_text_attributes_set(___arg1,___arg2,___arg3))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg3
___END_CFUN_ARG_SCMOBJ(3)
#undef ___ARG3
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_34)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(4))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_35
#undef ___PH_LBL0
#define ___PH_LBL0 775
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_35)
___DEF_P_HLBL(___L1__20___kernel_23_35)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_35)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_35)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tty_history(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_35)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_36
#undef ___PH_LBL0
#define ___PH_LBL0 778
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_36)
___DEF_P_HLBL(___L1__20___kernel_23_36)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_36)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_36)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tty_history_set(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_36)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_37
#undef ___PH_LBL0
#define ___PH_LBL0 781
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_37)
___DEF_P_HLBL(___L1__20___kernel_23_37)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_37)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_37)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tty_max_history_length_set(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_37)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_38
#undef ___PH_LBL0
#define ___PH_LBL0 784
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_38)
___DEF_P_HLBL(___L1__20___kernel_23_38)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_38)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_38)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tty_paren_balance_duration_set(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_38)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_39
#undef ___PH_LBL0
#define ___PH_LBL0 787
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_39)
___DEF_P_HLBL(___L1__20___kernel_23_39)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_39)
   ___IF_NARGS_EQ(6,___NOTHING)
   ___WRONG_NARGS(0,6,0,0)
___DEF_GLBL(___L__20___kernel_23_39)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R3)
   ___SET_STK(4,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(5)
#define ___NARGS 6
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
#define ___ARG3 ___CFUN_ARG(3)
___BEGIN_CFUN_ARG_SCMOBJ(3)
#define ___arg3 ___ARG3
#define ___ARG4 ___CFUN_ARG(4)
___BEGIN_CFUN_ARG_SCMOBJ(4)
#define ___arg4 ___ARG4
#define ___ARG5 ___CFUN_ARG(5)
___BEGIN_CFUN_ARG_SCMOBJ(5)
#define ___arg5 ___ARG5
#define ___ARG6 ___CFUN_ARG(6)
___BEGIN_CFUN_ARG_SCMOBJ(6)
#define ___arg6 ___ARG6
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tty_mode_set(___arg1,___arg2,___arg3,___arg4,___arg5,___arg6))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg6
___END_CFUN_ARG_SCMOBJ(6)
#undef ___ARG6
#undef ___arg5
___END_CFUN_ARG_SCMOBJ(5)
#undef ___ARG5
#undef ___arg4
___END_CFUN_ARG_SCMOBJ(4)
#undef ___ARG4
#undef ___arg3
___END_CFUN_ARG_SCMOBJ(3)
#undef ___ARG3
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_39)
   ___ADJFP(-8)
   ___JUMPPRM(___NOTHING,___STK(7))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_40
#undef ___PH_LBL0
#define ___PH_LBL0 790
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_40)
___DEF_P_HLBL(___L1__20___kernel_23_40)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_40)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_40)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_device_tty_input_set(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_40)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_41
#undef ___PH_LBL0
#define ___PH_LBL0 793
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_41)
___DEF_P_HLBL(___L1__20___kernel_23_41)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_41)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_41)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_port_decode_chars(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_41)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_42
#undef ___PH_LBL0
#define ___PH_LBL0 796
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_42)
___DEF_P_HLBL(___L1__20___kernel_23_42)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_42)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_42)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_port_encode_chars(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_42)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_43
#undef ___PH_LBL0
#define ___PH_LBL0 799
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_43)
___DEF_P_HLBL(___L1__20___kernel_23_43)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_43)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_43)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_file_info(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_43)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_44
#undef ___PH_LBL0
#define ___PH_LBL0 802
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_44)
___DEF_P_HLBL(___L1__20___kernel_23_44)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_44)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_44)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_user_info(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_44)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_45
#undef ___PH_LBL0
#define ___PH_LBL0 805
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_45)
___DEF_P_HLBL(___L1__20___kernel_23_45)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_45)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__20___kernel_23_45)
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 0
___BEGIN_CFUN_SCMOBJ
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_user_name())
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_45)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_46
#undef ___PH_LBL0
#define ___PH_LBL0 808
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_46)
___DEF_P_HLBL(___L1__20___kernel_23_46)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_46)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_46)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_group_info(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_46)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_47
#undef ___PH_LBL0
#define ___PH_LBL0 811
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_47)
___DEF_P_HLBL(___L1__20___kernel_23_47)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_47)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_47)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_host_info(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_47)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_48
#undef ___PH_LBL0
#define ___PH_LBL0 814
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_48)
___DEF_P_HLBL(___L1__20___kernel_23_48)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_48)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__20___kernel_23_48)
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 0
___BEGIN_CFUN_SCMOBJ
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_host_name())
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_48)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_49
#undef ___PH_LBL0
#define ___PH_LBL0 817
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_49)
___DEF_P_HLBL(___L1__20___kernel_23_49)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_49)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_49)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_service_info(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_49)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_50
#undef ___PH_LBL0
#define ___PH_LBL0 820
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_50)
___DEF_P_HLBL(___L1__20___kernel_23_50)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_50)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_50)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_protocol_info(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_50)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_51
#undef ___PH_LBL0
#define ___PH_LBL0 823
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_51)
___DEF_P_HLBL(___L1__20___kernel_23_51)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_51)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_51)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_network_info(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_51)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_52
#undef ___PH_LBL0
#define ___PH_LBL0 826
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_52)
___DEF_P_HLBL(___L1__20___kernel_23_52)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_52)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__20___kernel_23_52)
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 0
___BEGIN_CFUN_SCMOBJ
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_getpid())
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_52)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_53
#undef ___PH_LBL0
#define ___PH_LBL0 829
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_53)
___DEF_P_HLBL(___L1__20___kernel_23_53)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_53)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__20___kernel_23_53)
   ___SET_STK(1,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 0
___BEGIN_CFUN_SCMOBJ
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_getppid())
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_53)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(1))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_54
#undef ___PH_LBL0
#define ___PH_LBL0 832
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_54)
___DEF_P_HLBL(___L1__20___kernel_23_54)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_54)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_54)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_create_directory(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_54)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_55
#undef ___PH_LBL0
#define ___PH_LBL0 835
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_55)
___DEF_P_HLBL(___L1__20___kernel_23_55)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_55)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_55)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_create_fifo(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_55)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_56
#undef ___PH_LBL0
#define ___PH_LBL0 838
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_56)
___DEF_P_HLBL(___L1__20___kernel_23_56)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_56)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_56)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_create_link(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_56)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_57
#undef ___PH_LBL0
#define ___PH_LBL0 841
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_57)
___DEF_P_HLBL(___L1__20___kernel_23_57)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_57)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_57)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_create_symbolic_link(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_57)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_58
#undef ___PH_LBL0
#define ___PH_LBL0 844
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_58)
___DEF_P_HLBL(___L1__20___kernel_23_58)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_58)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_58)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_delete_directory(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_58)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_59
#undef ___PH_LBL0
#define ___PH_LBL0 847
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_59)
___DEF_P_HLBL(___L1__20___kernel_23_59)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_59)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_59)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_set_current_directory(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_59)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_60
#undef ___PH_LBL0
#define ___PH_LBL0 850
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_60)
___DEF_P_HLBL(___L1__20___kernel_23_60)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_60)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_60)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_rename_file(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_60)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_61
#undef ___PH_LBL0
#define ___PH_LBL0 853
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_61)
___DEF_P_HLBL(___L1__20___kernel_23_61)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_61)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_61)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_copy_file(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_61)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_62
#undef ___PH_LBL0
#define ___PH_LBL0 856
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_62)
___DEF_P_HLBL(___L1__20___kernel_23_62)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_62)
   ___IF_NARGS_EQ(1,___NOTHING)
   ___WRONG_NARGS(0,1,0,0)
___DEF_GLBL(___L__20___kernel_23_62)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 1
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_delete_file(___arg1))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_62)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(2))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__20___kernel_23_63
#undef ___PH_LBL0
#define ___PH_LBL0 859
#undef ___PD_ALL
#define ___PD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R2
#undef ___PR_ALL
#define ___PR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R2
#undef ___PW_ALL
#define ___PW_ALL ___W_FP ___W_R0
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__20___kernel_23_63)
___DEF_P_HLBL(___L1__20___kernel_23_63)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__20___kernel_23_63)
   ___IF_NARGS_EQ(2,___NOTHING)
   ___WRONG_NARGS(0,2,0,0)
___DEF_GLBL(___L__20___kernel_23_63)
   ___SET_STK(1,___R1)
   ___SET_STK(2,___R2)
   ___SET_STK(3,___R0)
   ___SET_R0(___LBL(1))
   ___ADJFP(4)
#define ___NARGS 2
___BEGIN_CFUN_SCMOBJ
#define ___ARG1 ___CFUN_ARG(1)
___BEGIN_CFUN_ARG_SCMOBJ(1)
#define ___arg1 ___ARG1
#define ___ARG2 ___CFUN_ARG(2)
___BEGIN_CFUN_ARG_SCMOBJ(2)
#define ___arg2 ___ARG2
___BEGIN_CFUN_BODY
#undef ___AT_END
___CFUN_CALL(___result,___os_load_object_file(___arg1,___arg2))
#ifndef ___AT_END
#define ___AT_END
#endif
___CFUN_SET_RESULT_SCMOBJ
___END_CFUN_BODY
#undef ___arg2
___END_CFUN_ARG_SCMOBJ(2)
#undef ___ARG2
#undef ___arg1
___END_CFUN_ARG_SCMOBJ(1)
#undef ___ARG1
___CFUN_ERROR_SCMOBJ
___END_CFUN_SCMOBJ
#undef ___NARGS
   ___JUMPPRM(___NOTHING,___R0)
___DEF_SLBL(1,___L1__20___kernel_23_63)
   ___ADJFP(-4)
   ___JUMPPRM(___NOTHING,___STK(3))
___END_P_SW
___END_P_COD

#undef ___PH_PROC
#define ___PH_PROC ___H__23__23_main
#undef ___PH_LBL0
#define ___PH_LBL0 862
#undef ___PD_ALL
#define ___PD_ALL ___D_FP
#undef ___PR_ALL
#define ___PR_ALL ___R_FP
#undef ___PW_ALL
#define ___PW_ALL
___BEGIN_P_COD
___BEGIN_P_HLBL
___DEF_P_HLBL_INTRO
___DEF_P_HLBL(___L0__23__23_main)
___DEF_P_HLBL(___L1__23__23_main)
___END_P_HLBL
___BEGIN_P_SW
___DEF_SLBL(0,___L0__23__23_main)
   ___IF_NARGS_EQ(0,___NOTHING)
   ___WRONG_NARGS(0,0,0,0)
___DEF_GLBL(___L__23__23_main)
   ___POLL(1)
___DEF_SLBL(1,___L1__23__23_main)
   ___JUMPINT(___SET_NARGS(0),___PRC(637),___L__23__23_exit_2d_cleanup)
___END_P_SW
___END_P_COD

___END_M_SW
___END_M_COD

___BEGIN_LBL
 ___DEF_LBL_INTRO(___H__20___kernel," _kernel",___REF_FAL,13,0)
,___DEF_LBL_PROC(___H__20___kernel,0,0)
,___DEF_LBL_RET(___H__20___kernel,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_RET(___H__20___kernel,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_RET(___H__20___kernel,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__20___kernel,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_RET(___H__20___kernel,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__20___kernel,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__20___kernel,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__20___kernel,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__20___kernel,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__20___kernel,___IFD(___RETI,4,4,0x3f0L))
,___DEF_LBL_PROC(___H__20___kernel,0,0)
,___DEF_LBL_RET(___H__20___kernel,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_INTRO(___H__23__23_kernel_2d_handlers,"##kernel-handlers",___REF_FAL,14,0)
,___DEF_LBL_PROC(___H__23__23_kernel_2d_handlers,0,0)
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_kernel_2d_handlers,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_INTRO(___H__23__23_dynamic_2d_env_2d_bind,"##dynamic-env-bind",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_dynamic_2d_env_2d_bind,2,0)
,___DEF_LBL_RET(___H__23__23_dynamic_2d_env_2d_bind,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_INTRO(___H__23__23_disable_2d_interrupts_21_,"##disable-interrupts!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_disable_2d_interrupts_21_,0,0)
,___DEF_LBL_INTRO(___H__23__23_enable_2d_interrupts_21_,"##enable-interrupts!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_enable_2d_interrupts_21_,0,0)
,___DEF_LBL_INTRO(___H__23__23_interrupt_2d_handler,"##interrupt-handler",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_interrupt_2d_handler,1,0)
,___DEF_LBL_INTRO(___H__23__23_interrupt_2d_vector_2d_set_21_,"##interrupt-vector-set!",___REF_FAL,1,0)

,___DEF_LBL_PROC(___H__23__23_interrupt_2d_vector_2d_set_21_,2,0)
,___DEF_LBL_INTRO(___H__23__23_heartbeat_2d_interval_2d_set_21_,"##heartbeat-interval-set!",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H__23__23_heartbeat_2d_interval_2d_set_21_,1,0)
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception,"##fail-check-heap-overflow-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_heap_2d_overflow_2d_exception_3f_,"heap-overflow-exception?",___REF_FAL,1,0)

,___DEF_LBL_PROC(___H_heap_2d_overflow_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H__23__23_raise_2d_heap_2d_overflow_2d_exception,"##raise-heap-overflow-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_heap_2d_overflow_2d_exception,0,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_heap_2d_overflow_2d_exception,0,0)
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception,"##fail-check-stack-overflow-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_stack_2d_overflow_2d_exception_3f_,"stack-overflow-exception?",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H_stack_2d_overflow_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H__23__23_raise_2d_stack_2d_overflow_2d_exception,"##raise-stack-overflow-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_stack_2d_overflow_2d_exception,0,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_stack_2d_overflow_2d_exception,0,0)
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception,"##fail-check-nonprocedure-operator-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_nonprocedure_2d_operator_2d_exception_3f_,"nonprocedure-operator-exception?",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H_nonprocedure_2d_operator_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H_nonprocedure_2d_operator_2d_exception_2d_operator,"nonprocedure-operator-exception-operator",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_nonprocedure_2d_operator_2d_exception_2d_operator,1,0)
,___DEF_LBL_RET(___H_nonprocedure_2d_operator_2d_exception_2d_operator,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_nonprocedure_2d_operator_2d_exception_2d_arguments,"nonprocedure-operator-exception-arguments",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_nonprocedure_2d_operator_2d_exception_2d_arguments,1,0)
,___DEF_LBL_RET(___H_nonprocedure_2d_operator_2d_exception_2d_arguments,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_nonprocedure_2d_operator_2d_exception_2d_code,"nonprocedure-operator-exception-code",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_nonprocedure_2d_operator_2d_exception_2d_code,1,0)
,___DEF_LBL_RET(___H_nonprocedure_2d_operator_2d_exception_2d_code,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_nonprocedure_2d_operator_2d_exception_2d_rte,"nonprocedure-operator-exception-rte",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_nonprocedure_2d_operator_2d_exception_2d_rte,1,0)
,___DEF_LBL_RET(___H_nonprocedure_2d_operator_2d_exception_2d_rte,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_apply_2d_global_2d_with_2d_procedure_2d_check_2d_nary,"##apply-global-with-procedure-check-nary",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_apply_2d_global_2d_with_2d_procedure_2d_check_2d_nary,2,0)
,___DEF_LBL_INTRO(___H__23__23_apply_2d_with_2d_procedure_2d_check_2d_nary,"##apply-with-procedure-check-nary",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_apply_2d_with_2d_procedure_2d_check_2d_nary,2,0)
,___DEF_LBL_INTRO(___H__23__23_apply_2d_with_2d_procedure_2d_check,"##apply-with-procedure-check",___REF_FAL,
1,0)
,___DEF_LBL_PROC(___H__23__23_apply_2d_with_2d_procedure_2d_check,2,0)
,___DEF_LBL_INTRO(___H__23__23_raise_2d_nonprocedure_2d_operator_2d_exception,"##raise-nonprocedure-operator-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_nonprocedure_2d_operator_2d_exception,4,0)
,___DEF_LBL_RET(___H__23__23_raise_2d_nonprocedure_2d_operator_2d_exception,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception,"##fail-check-wrong-number-of-arguments-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_wrong_2d_number_2d_of_2d_arguments_2d_exception_3f_,"wrong-number-of-arguments-exception?",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H_wrong_2d_number_2d_of_2d_arguments_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure,"wrong-number-of-arguments-exception-procedure",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure,1,0)
,___DEF_LBL_RET(___H_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments,"wrong-number-of-arguments-exception-arguments",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments,1,0)
,___DEF_LBL_RET(___H_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary,"##raise-wrong-number-of-arguments-exception-nary",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary,2,0)
,___DEF_LBL_INTRO(___H__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception,"##raise-wrong-number-of-arguments-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception,2,0)
,___DEF_LBL_RET(___H__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception,"##fail-check-keyword-expected-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_keyword_2d_expected_2d_exception_3f_,"keyword-expected-exception?",___REF_FAL,
1,0)
,___DEF_LBL_PROC(___H_keyword_2d_expected_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H_keyword_2d_expected_2d_exception_2d_procedure,"keyword-expected-exception-procedure",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_keyword_2d_expected_2d_exception_2d_procedure,1,0)
,___DEF_LBL_RET(___H_keyword_2d_expected_2d_exception_2d_procedure,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_keyword_2d_expected_2d_exception_2d_arguments,"keyword-expected-exception-arguments",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_keyword_2d_expected_2d_exception_2d_arguments,1,0)
,___DEF_LBL_RET(___H_keyword_2d_expected_2d_exception_2d_arguments,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_raise_2d_keyword_2d_expected_2d_exception_2d_nary,"##raise-keyword-expected-exception-nary",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_keyword_2d_expected_2d_exception_2d_nary,2,0)
,___DEF_LBL_INTRO(___H__23__23_raise_2d_keyword_2d_expected_2d_exception,"##raise-keyword-expected-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_keyword_2d_expected_2d_exception,2,0)
,___DEF_LBL_RET(___H__23__23_raise_2d_keyword_2d_expected_2d_exception,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception,"##fail-check-unknown-keyword-argument-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_unknown_2d_keyword_2d_argument_2d_exception_3f_,"unknown-keyword-argument-exception?",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H_unknown_2d_keyword_2d_argument_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure,"unknown-keyword-argument-exception-procedure",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure,1,0)
,___DEF_LBL_RET(___H_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments,"unknown-keyword-argument-exception-arguments",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments,1,0)
,___DEF_LBL_RET(___H_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception_2d_nary,"##raise-unknown-keyword-argument-exception-nary",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception_2d_nary,2,0)
,___DEF_LBL_INTRO(___H__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception,"##raise-unknown-keyword-argument-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception,2,0)
,___DEF_LBL_RET(___H__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception,"##fail-check-cfun-conversion-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_cfun_2d_conversion_2d_exception_3f_,"cfun-conversion-exception?",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H_cfun_2d_conversion_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H_cfun_2d_conversion_2d_exception_2d_procedure,"cfun-conversion-exception-procedure",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_cfun_2d_conversion_2d_exception_2d_procedure,1,0)
,___DEF_LBL_RET(___H_cfun_2d_conversion_2d_exception_2d_procedure,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_cfun_2d_conversion_2d_exception_2d_arguments,"cfun-conversion-exception-arguments",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_cfun_2d_conversion_2d_exception_2d_arguments,1,0)
,___DEF_LBL_RET(___H_cfun_2d_conversion_2d_exception_2d_arguments,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_cfun_2d_conversion_2d_exception_2d_code,"cfun-conversion-exception-code",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_cfun_2d_conversion_2d_exception_2d_code,1,0)
,___DEF_LBL_RET(___H_cfun_2d_conversion_2d_exception_2d_code,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_cfun_2d_conversion_2d_exception_2d_message,"cfun-conversion-exception-message",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_cfun_2d_conversion_2d_exception_2d_message,1,0)
,___DEF_LBL_RET(___H_cfun_2d_conversion_2d_exception_2d_message,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary,"##raise-cfun-conversion-exception-nary",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary,4,0)
,___DEF_LBL_RET(___H__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception,"##fail-check-sfun-conversion-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_sfun_2d_conversion_2d_exception_3f_,"sfun-conversion-exception?",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H_sfun_2d_conversion_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H_sfun_2d_conversion_2d_exception_2d_procedure,"sfun-conversion-exception-procedure",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_sfun_2d_conversion_2d_exception_2d_procedure,1,0)
,___DEF_LBL_RET(___H_sfun_2d_conversion_2d_exception_2d_procedure,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_sfun_2d_conversion_2d_exception_2d_arguments,"sfun-conversion-exception-arguments",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_sfun_2d_conversion_2d_exception_2d_arguments,1,0)
,___DEF_LBL_RET(___H_sfun_2d_conversion_2d_exception_2d_arguments,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_sfun_2d_conversion_2d_exception_2d_code,"sfun-conversion-exception-code",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_sfun_2d_conversion_2d_exception_2d_code,1,0)
,___DEF_LBL_RET(___H_sfun_2d_conversion_2d_exception_2d_code,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_sfun_2d_conversion_2d_exception_2d_message,"sfun-conversion-exception-message",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_sfun_2d_conversion_2d_exception_2d_message,1,0)
,___DEF_LBL_RET(___H_sfun_2d_conversion_2d_exception_2d_message,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_raise_2d_sfun_2d_conversion_2d_exception,"##raise-sfun-conversion-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_sfun_2d_conversion_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_raise_2d_sfun_2d_conversion_2d_exception,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception,"##fail-check-multiple-c-return-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_multiple_2d_c_2d_return_2d_exception_3f_,"multiple-c-return-exception?",___REF_FAL,
1,0)
,___DEF_LBL_PROC(___H_multiple_2d_c_2d_return_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H__23__23_raise_2d_multiple_2d_c_2d_return_2d_exception,"##raise-multiple-c-return-exception",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_multiple_2d_c_2d_return_2d_exception,0,0)
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception,"##fail-check-number-of-arguments-limit-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_number_2d_of_2d_arguments_2d_limit_2d_exception_3f_,"number-of-arguments-limit-exception?",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H_number_2d_of_2d_arguments_2d_limit_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure,"number-of-arguments-limit-exception-procedure",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure,1,0)
,___DEF_LBL_RET(___H_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments,"number-of-arguments-limit-exception-arguments",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments,1,0)
,___DEF_LBL_RET(___H_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception,"##raise-number-of-arguments-limit-exception",
___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception,2,0)
,___DEF_LBL_RET(___H__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_type_2d_exception,"##fail-check-type-exception",___REF_FAL,
2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_type_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_type_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_type_2d_exception_3f_,"type-exception?",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H_type_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H_type_2d_exception_2d_procedure,"type-exception-procedure",___REF_FAL,2,0)

,___DEF_LBL_PROC(___H_type_2d_exception_2d_procedure,1,0)
,___DEF_LBL_RET(___H_type_2d_exception_2d_procedure,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_type_2d_exception_2d_arguments,"type-exception-arguments",___REF_FAL,2,0)

,___DEF_LBL_PROC(___H_type_2d_exception_2d_arguments,1,0)
,___DEF_LBL_RET(___H_type_2d_exception_2d_arguments,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_type_2d_exception_2d_arg_2d_num,"type-exception-arg-num",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_type_2d_exception_2d_arg_2d_num,1,0)
,___DEF_LBL_RET(___H_type_2d_exception_2d_arg_2d_num,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_type_2d_exception_2d_type_2d_id,"type-exception-type-id",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_type_2d_exception_2d_type_2d_id,1,0)
,___DEF_LBL_RET(___H_type_2d_exception_2d_type_2d_id,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_raise_2d_type_2d_exception,"##raise-type-exception",___REF_FAL,5,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_type_2d_exception,4,0)
,___DEF_LBL_RET(___H__23__23_raise_2d_type_2d_exception,___IFD(___RETI,3,4,0x3f7L))
,___DEF_LBL_PROC(___H__23__23_raise_2d_type_2d_exception,5,0)
,___DEF_LBL_RET(___H__23__23_raise_2d_type_2d_exception,___IFD(___RETI,2,4,0x3f0L))
,___DEF_LBL_RET(___H__23__23_raise_2d_type_2d_exception,___IFD(___RETI,2,4,0x3f0L))
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_os_2d_exception,"##fail-check-os-exception",___REF_FAL,2,
0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_os_2d_exception,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_os_2d_exception,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H_os_2d_exception_3f_,"os-exception?",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H_os_2d_exception_3f_,1,0)
,___DEF_LBL_INTRO(___H_os_2d_exception_2d_procedure,"os-exception-procedure",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_os_2d_exception_2d_procedure,1,0)
,___DEF_LBL_RET(___H_os_2d_exception_2d_procedure,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_os_2d_exception_2d_arguments,"os-exception-arguments",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_os_2d_exception_2d_arguments,1,0)
,___DEF_LBL_RET(___H_os_2d_exception_2d_arguments,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_os_2d_exception_2d_message,"os-exception-message",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_os_2d_exception_2d_message,1,0)
,___DEF_LBL_RET(___H_os_2d_exception_2d_message,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_os_2d_exception_2d_code,"os-exception-code",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_os_2d_exception_2d_code,1,0)
,___DEF_LBL_RET(___H_os_2d_exception_2d_code,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_raise_2d_os_2d_exception,"##raise-os-exception",___REF_FAL,6,0)
,___DEF_LBL_PROC(___H__23__23_raise_2d_os_2d_exception,4,0)
,___DEF_LBL_RET(___H__23__23_raise_2d_os_2d_exception,___IFD(___RETI,3,4,0x3f7L))
,___DEF_LBL_PROC(___H__23__23_raise_2d_os_2d_exception,5,0)
,___DEF_LBL_RET(___H__23__23_raise_2d_os_2d_exception,___IFD(___RETI,2,4,0x3f0L))
,___DEF_LBL_RET(___H__23__23_raise_2d_os_2d_exception,___IFD(___RETI,2,4,0x3f0L))
,___DEF_LBL_RET(___H__23__23_raise_2d_os_2d_exception,___IFD(___RETI,2,4,0x3f0L))
,___DEF_LBL_INTRO(___H__23__23_argument_2d_list_2d_remove_2d_absent_21_,"##argument-list-remove-absent!",
___REF_FAL,4,0)
,___DEF_LBL_PROC(___H__23__23_argument_2d_list_2d_remove_2d_absent_21_,2,0)
,___DEF_LBL_RET(___H__23__23_argument_2d_list_2d_remove_2d_absent_21_,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_RET(___H__23__23_argument_2d_list_2d_remove_2d_absent_21_,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_RET(___H__23__23_argument_2d_list_2d_remove_2d_absent_21_,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_,"##argument-list-remove-absent-keys!",
___REF_FAL,4,0)
,___DEF_LBL_PROC(___H__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_,1,0)
,___DEF_LBL_RET(___H__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_,"##argument-list-fix-rest-param!",
___REF_FAL,3,0)
,___DEF_LBL_PROC(___H__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_,1,0)
,___DEF_LBL_RET(___H__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_extract_2d_procedure_2d_and_2d_arguments,"##extract-procedure-and-arguments",
___REF_FAL,10,0)
,___DEF_LBL_PROC(___H__23__23_extract_2d_procedure_2d_and_2d_arguments,6,0)
,___DEF_LBL_RET(___H__23__23_extract_2d_procedure_2d_and_2d_arguments,___IFD(___RETI,8,3,0x3f7dL))
,___DEF_LBL_RET(___H__23__23_extract_2d_procedure_2d_and_2d_arguments,___IFD(___RETN,7,3,0x7dL))
,___DEF_LBL_RET(___H__23__23_extract_2d_procedure_2d_and_2d_arguments,___IFD(___RETN,7,3,0x7dL))
,___DEF_LBL_RET(___H__23__23_extract_2d_procedure_2d_and_2d_arguments,___IFD(___RETI,8,8,0x3f43L))
,___DEF_LBL_RET(___H__23__23_extract_2d_procedure_2d_and_2d_arguments,___IFD(___RETI,12,4,0x3f0f7L))
,___DEF_LBL_RET(___H__23__23_extract_2d_procedure_2d_and_2d_arguments,___IFD(___RETN,11,4,0xf7L))
,___DEF_LBL_RET(___H__23__23_extract_2d_procedure_2d_and_2d_arguments,___IFD(___RETN,11,4,0xf5L))
,___DEF_LBL_RET(___H__23__23_extract_2d_procedure_2d_and_2d_arguments,___IFD(___RETI,12,12,0x3f083L))
,___DEF_LBL_RET(___H__23__23_extract_2d_procedure_2d_and_2d_arguments,___IFD(___RETI,8,3,0x3f7dL))
,___DEF_LBL_INTRO(___H__23__23_force_2d_undetermined,"##force-undetermined",___REF_FAL,5,0)
,___DEF_LBL_PROC(___H__23__23_force_2d_undetermined,2,0)
,___DEF_LBL_RET(___H__23__23_force_2d_undetermined,___IFD(___RETI,4,0,0x3f3L))
,___DEF_LBL_RET(___H__23__23_force_2d_undetermined,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_RET(___H__23__23_force_2d_undetermined,___IFD(___RETI,4,0,0x3f3L))
,___DEF_LBL_RET(___H__23__23_force_2d_undetermined,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_jobs,"##make-jobs",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_jobs,0,0)
,___DEF_LBL_RET(___H__23__23_make_2d_jobs,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_add_2d_job_2d_at_2d_tail_21_,"##add-job-at-tail!",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_add_2d_job_2d_at_2d_tail_21_,2,0)
,___DEF_LBL_RET(___H__23__23_add_2d_job_2d_at_2d_tail_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_add_2d_job_21_,"##add-job!",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_add_2d_job_21_,2,0)
,___DEF_LBL_RET(___H__23__23_add_2d_job_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_execute_2d_jobs_21_,"##execute-jobs!",___REF_FAL,5,0)
,___DEF_LBL_PROC(___H__23__23_execute_2d_jobs_21_,1,0)
,___DEF_LBL_RET(___H__23__23_execute_2d_jobs_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_execute_2d_jobs_21_,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_RET(___H__23__23_execute_2d_jobs_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_execute_2d_jobs_21_,___IFD(___RETI,4,0,0x3f3L))
,___DEF_LBL_INTRO(___H__23__23_execute_2d_and_2d_clear_2d_jobs_21_,"##execute-and-clear-jobs!",___REF_FAL,5,
0)
,___DEF_LBL_PROC(___H__23__23_execute_2d_and_2d_clear_2d_jobs_21_,1,0)
,___DEF_LBL_RET(___H__23__23_execute_2d_and_2d_clear_2d_jobs_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_execute_2d_and_2d_clear_2d_jobs_21_,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_RET(___H__23__23_execute_2d_and_2d_clear_2d_jobs_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_execute_2d_and_2d_clear_2d_jobs_21_,___IFD(___RETI,4,0,0x3f3L))
,___DEF_LBL_INTRO(___H__23__23_clear_2d_jobs_21_,"##clear-jobs!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_clear_2d_jobs_21_,1,0)
,___DEF_LBL_INTRO(___H__23__23_check_2d_heap_2d_limit,"##check-heap-limit",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_check_2d_heap_2d_limit,0,0)
,___DEF_LBL_INTRO(___H__23__23_check_2d_heap,"##check-heap",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_check_2d_heap,0,0)
,___DEF_LBL_RET(___H__23__23_check_2d_heap,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_INTRO(___H__23__23_rest_2d_param_2d_check_2d_heap,"##rest-param-check-heap",___REF_FAL,3,0)

,___DEF_LBL_PROC(___H__23__23_rest_2d_param_2d_check_2d_heap,2,0)
,___DEF_LBL_RET(___H__23__23_rest_2d_param_2d_check_2d_heap,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_RET(___H__23__23_rest_2d_param_2d_check_2d_heap,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_rest_2d_param_2d_heap_2d_overflow,"##rest-param-heap-overflow",___REF_FAL,4,
0)
,___DEF_LBL_PROC(___H__23__23_rest_2d_param_2d_heap_2d_overflow,2,0)
,___DEF_LBL_RET(___H__23__23_rest_2d_param_2d_heap_2d_overflow,___IFD(___RETI,4,0,0x3f7L))
,___DEF_LBL_RET(___H__23__23_rest_2d_param_2d_heap_2d_overflow,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_RET(___H__23__23_rest_2d_param_2d_heap_2d_overflow,___IFD(___RETI,4,4,0x3f0L))
,___DEF_LBL_INTRO(___H__23__23_rest_2d_param_2d_resume_2d_procedure,"##rest-param-resume-procedure",___REF_FAL,
1,0)
,___DEF_LBL_PROC(___H__23__23_rest_2d_param_2d_resume_2d_procedure,2,0)
,___DEF_LBL_INTRO(___H__23__23_gc_2d_without_2d_exceptions,"##gc-without-exceptions",___REF_FAL,1,0)

,___DEF_LBL_PROC(___H__23__23_gc_2d_without_2d_exceptions,0,0)
,___DEF_LBL_INTRO(___H__23__23_gc,"##gc",___REF_FAL,4,0)
,___DEF_LBL_PROC(___H__23__23_gc,0,0)
,___DEF_LBL_RET(___H__23__23_gc,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_gc,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_gc,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_INTRO(___H__23__23_add_2d_gc_2d_interrupt_2d_job_21_,"##add-gc-interrupt-job!",___REF_FAL,2,0)

,___DEF_LBL_PROC(___H__23__23_add_2d_gc_2d_interrupt_2d_job_21_,1,0)
,___DEF_LBL_RET(___H__23__23_add_2d_gc_2d_interrupt_2d_job_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_,"##clear-gc-interrupt-jobs!",___REF_FAL,2,
0)
,___DEF_LBL_PROC(___H__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_,0,0)
,___DEF_LBL_RET(___H__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_gc_2d_finalize_21_,"##gc-finalize!",___REF_FAL,3,0)
,___DEF_LBL_PROC(___H__23__23_gc_2d_finalize_21_,0,0)
,___DEF_LBL_RET(___H__23__23_gc_2d_finalize_21_,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_gc_2d_finalize_21_,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_INTRO(___H__23__23_execute_2d_final_2d_wills_21_,"##execute-final-wills!",___REF_FAL,3,0)
,___DEF_LBL_PROC(___H__23__23_execute_2d_final_2d_wills_21_,0,0)
,___DEF_LBL_RET(___H__23__23_execute_2d_final_2d_wills_21_,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_RET(___H__23__23_execute_2d_final_2d_wills_21_,___IFD(___RETI,4,0,0x3f3L))
,___DEF_LBL_INTRO(___H__23__23_gc_2d_final_2d_will_2d_registry_21_,"##gc-final-will-registry!",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H__23__23_gc_2d_final_2d_will_2d_registry_21_,0,0)
,___DEF_LBL_INTRO(___H__23__23_make_2d_final_2d_will,"##make-final-will",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_final_2d_will,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_final_2d_will,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_get_2d_min_2d_heap,"##get-min-heap",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_get_2d_min_2d_heap,0,0)
,___DEF_LBL_INTRO(___H__23__23_set_2d_min_2d_heap_21_,"##set-min-heap!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_set_2d_min_2d_heap_21_,1,0)
,___DEF_LBL_INTRO(___H__23__23_get_2d_max_2d_heap,"##get-max-heap",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_get_2d_max_2d_heap,0,0)
,___DEF_LBL_INTRO(___H__23__23_set_2d_max_2d_heap_21_,"##set-max-heap!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_set_2d_max_2d_heap_21_,1,0)
,___DEF_LBL_INTRO(___H__23__23_get_2d_live_2d_percent,"##get-live-percent",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_get_2d_live_2d_percent,0,0)
,___DEF_LBL_INTRO(___H__23__23_set_2d_live_2d_percent_21_,"##set-live-percent!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_set_2d_live_2d_percent_21_,1,0)
,___DEF_LBL_INTRO(___H__23__23_get_2d_standard_2d_level,"##get-standard-level",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_get_2d_standard_2d_level,0,0)
,___DEF_LBL_INTRO(___H__23__23_set_2d_standard_2d_level_21_,"##set-standard-level!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_set_2d_standard_2d_level_21_,1,0)
,___DEF_LBL_INTRO(___H__23__23_set_2d_debug_2d_settings_21_,"##set-debug-settings!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_set_2d_debug_2d_settings_21_,2,0)
,___DEF_LBL_INTRO(___H__23__23_still_2d_copy,"##still-copy",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_still_2d_copy,1,0)
,___DEF_LBL_RET(___H__23__23_still_2d_copy,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_INTRO(___H__23__23_still_2d_obj_2d_refcount_2d_inc_21_,"##still-obj-refcount-inc!",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H__23__23_still_2d_obj_2d_refcount_2d_inc_21_,1,0)
,___DEF_LBL_INTRO(___H__23__23_still_2d_obj_2d_refcount_2d_dec_21_,"##still-obj-refcount-dec!",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H__23__23_still_2d_obj_2d_refcount_2d_dec_21_,1,0)
,___DEF_LBL_INTRO(___H__23__23_make_2d_vector,"##make-vector",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_vector,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_vector,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_string,"##make-string",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_string,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_string,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_s8vector,"##make-s8vector",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_s8vector,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_s8vector,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_u8vector,"##make-u8vector",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_u8vector,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_u8vector,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_s16vector,"##make-s16vector",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_s16vector,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_s16vector,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_u16vector,"##make-u16vector",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_u16vector,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_u16vector,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_s32vector,"##make-s32vector",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_s32vector,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_s32vector,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_u32vector,"##make-u32vector",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_u32vector,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_u32vector,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_s64vector,"##make-s64vector",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_s64vector,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_s64vector,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_u64vector,"##make-u64vector",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_u64vector,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_u64vector,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_f32vector,"##make-f32vector",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_f32vector,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_f32vector,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_f64vector,"##make-f64vector",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_f64vector,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_f64vector,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_INTRO(___H__23__23_apply,"##apply",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_apply,2,0)
,___DEF_LBL_RET(___H__23__23_apply,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_closure_3f_,"##closure?",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_closure_3f_,1,0)
,___DEF_LBL_INTRO(___H__23__23_closure_2d_length,"##closure-length",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_closure_2d_length,1,0)
,___DEF_LBL_INTRO(___H__23__23_closure_2d_code,"##closure-code",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_closure_2d_code,1,0)
,___DEF_LBL_INTRO(___H__23__23_closure_2d_ref,"##closure-ref",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_closure_2d_ref,2,0)
,___DEF_LBL_INTRO(___H__23__23_closure_2d_set_21_,"##closure-set!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_closure_2d_set_21_,3,0)
,___DEF_LBL_INTRO(___H__23__23_subprocedure_3f_,"##subprocedure?",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_subprocedure_3f_,1,0)
,___DEF_LBL_INTRO(___H__23__23_subprocedure_2d_id,"##subprocedure-id",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_subprocedure_2d_id,1,0)
,___DEF_LBL_INTRO(___H__23__23_subprocedure_2d_parent,"##subprocedure-parent",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_subprocedure_2d_parent,1,0)
,___DEF_LBL_INTRO(___H__23__23_subprocedure_2d_nb_2d_parameters,"##subprocedure-nb-parameters",___REF_FAL,
1,0)
,___DEF_LBL_PROC(___H__23__23_subprocedure_2d_nb_2d_parameters,1,0)
,___DEF_LBL_INTRO(___H__23__23_subprocedure_2d_nb_2d_closed,"##subprocedure-nb-closed",___REF_FAL,1,0)

,___DEF_LBL_PROC(___H__23__23_subprocedure_2d_nb_2d_closed,1,0)
,___DEF_LBL_INTRO(___H__23__23_make_2d_subprocedure,"##make-subprocedure",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_subprocedure,2,0)
,___DEF_LBL_INTRO(___H__23__23_subprocedure_2d_parent_2d_info,"##subprocedure-parent-info",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H__23__23_subprocedure_2d_parent_2d_info,1,0)
,___DEF_LBL_INTRO(___H__23__23_subprocedure_2d_parent_2d_name,"##subprocedure-parent-name",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H__23__23_subprocedure_2d_parent_2d_name,1,0)
,___DEF_LBL_INTRO(___H__23__23_explode_2d_continuation,"##explode-continuation",___REF_FAL,6,0)
,___DEF_LBL_PROC(___H__23__23_explode_2d_continuation,1,0)
,___DEF_LBL_RET(___H__23__23_explode_2d_continuation,___IFD(___RETI,4,0,0x3f3L))
,___DEF_LBL_RET(___H__23__23_explode_2d_continuation,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_RET(___H__23__23_explode_2d_continuation,___IFD(___RETN,3,0,0x5L))
,___DEF_LBL_RET(___H__23__23_explode_2d_continuation,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_RET(___H__23__23_explode_2d_continuation,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_INTRO(___H__23__23_continuation_2d_frame,"##continuation-frame",___REF_FAL,4,0)
,___DEF_LBL_PROC(___H__23__23_continuation_2d_frame,1,0)
,___DEF_LBL_RET(___H__23__23_continuation_2d_frame,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_RET(___H__23__23_continuation_2d_frame,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_continuation_2d_frame,___IFD(___RETI,4,0,0x3f3L))
,___DEF_LBL_INTRO(___H__23__23_continuation_2d_denv,"##continuation-denv",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_continuation_2d_denv,1,0)
,___DEF_LBL_INTRO(___H__23__23_explode_2d_frame,"##explode-frame",___REF_FAL,10,0)
,___DEF_LBL_PROC(___H__23__23_explode_2d_frame,1,0)
,___DEF_LBL_RET(___H__23__23_explode_2d_frame,___IFD(___RETI,4,0,0x3f3L))
,___DEF_LBL_RET(___H__23__23_explode_2d_frame,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_RET(___H__23__23_explode_2d_frame,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_RET(___H__23__23_explode_2d_frame,___IFD(___RETN,7,0,0xfL))
,___DEF_LBL_RET(___H__23__23_explode_2d_frame,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_RET(___H__23__23_explode_2d_frame,___IFD(___RETN,7,1,0x1fL))
,___DEF_LBL_RET(___H__23__23_explode_2d_frame,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_RET(___H__23__23_explode_2d_frame,___IFD(___RETI,8,1,0x3f1fL))
,___DEF_LBL_RET(___H__23__23_explode_2d_frame,___IFD(___RETN,7,1,0x1fL))
,___DEF_LBL_INTRO(___H__23__23_frame_2d_ret,"##frame-ret",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_frame_2d_ret,1,0)
,___DEF_LBL_INTRO(___H__23__23_continuation_2d_ret,"##continuation-ret",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_continuation_2d_ret,1,0)
,___DEF_LBL_INTRO(___H__23__23_return_2d_fs,"##return-fs",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_return_2d_fs,1,0)
,___DEF_LBL_INTRO(___H__23__23_frame_2d_fs,"##frame-fs",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_frame_2d_fs,1,0)
,___DEF_LBL_INTRO(___H__23__23_continuation_2d_fs,"##continuation-fs",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_continuation_2d_fs,1,0)
,___DEF_LBL_INTRO(___H__23__23_frame_2d_link,"##frame-link",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_frame_2d_link,1,0)
,___DEF_LBL_INTRO(___H__23__23_continuation_2d_link,"##continuation-link",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_continuation_2d_link,1,0)
,___DEF_LBL_INTRO(___H__23__23_frame_2d_slot_2d_live_3f_,"##frame-slot-live?",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_frame_2d_slot_2d_live_3f_,2,0)
,___DEF_LBL_INTRO(___H__23__23_continuation_2d_slot_2d_live_3f_,"##continuation-slot-live?",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H__23__23_continuation_2d_slot_2d_live_3f_,2,0)
,___DEF_LBL_INTRO(___H__23__23_frame_2d_ref,"##frame-ref",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_frame_2d_ref,2,0)
,___DEF_LBL_INTRO(___H__23__23_continuation_2d_ref,"##continuation-ref",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_continuation_2d_ref,2,0)
,___DEF_LBL_INTRO(___H__23__23_continuation_2d_next,"##continuation-next",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_continuation_2d_next,1,0)
,___DEF_LBL_RET(___H__23__23_continuation_2d_next,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_INTRO(___H__23__23_type_2d_id,"##type-id",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_type_2d_id,1,0)
,___DEF_LBL_INTRO(___H__23__23_type_2d_name,"##type-name",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_type_2d_name,1,0)
,___DEF_LBL_INTRO(___H__23__23_type_2d_flags,"##type-flags",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_type_2d_flags,1,0)
,___DEF_LBL_INTRO(___H__23__23_type_2d_super,"##type-super",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_type_2d_super,1,0)
,___DEF_LBL_INTRO(___H__23__23_type_2d_fields,"##type-fields",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_type_2d_fields,1,0)
,___DEF_LBL_INTRO(___H__23__23_structure_2d_direct_2d_instance_2d_of_3f_,"##structure-direct-instance-of?",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_structure_2d_direct_2d_instance_2d_of_3f_,2,0)
,___DEF_LBL_INTRO(___H__23__23_structure_2d_instance_2d_of_3f_,"##structure-instance-of?",___REF_FAL,3,0)

,___DEF_LBL_PROC(___H__23__23_structure_2d_instance_2d_of_3f_,2,0)
,___DEF_LBL_RET(___H__23__23_structure_2d_instance_2d_of_3f_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_structure_2d_instance_2d_of_3f_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_type_3f_,"##type?",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_type_3f_,1,0)
,___DEF_LBL_INTRO(___H__23__23_structure_2d_type,"##structure-type",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_structure_2d_type,1,0)
,___DEF_LBL_INTRO(___H__23__23_structure_2d_type_2d_set_21_,"##structure-type-set!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_structure_2d_type_2d_set_21_,2,0)
,___DEF_LBL_INTRO(___H__23__23_structure,"##structure",___REF_FAL,8,0)
,___DEF_LBL_PROC(___H__23__23_structure,2,0)
,___DEF_LBL_RET(___H__23__23_structure,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_structure,___IFD(___RETI,8,0,0x3f0fL))
,___DEF_LBL_RET(___H__23__23_structure,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_RET(___H__23__23_structure,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_structure,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_RET(___H__23__23_structure,___IFD(___RETN,7,0,0xfL))
,___DEF_LBL_RET(___H__23__23_structure,___IFD(___RETI,8,0,0x3f01L))
,___DEF_LBL_INTRO(___H__23__23_structure_2d_ref,"##structure-ref",___REF_FAL,7,0)
,___DEF_LBL_PROC(___H__23__23_structure_2d_ref,4,0)
,___DEF_LBL_RET(___H__23__23_structure_2d_ref,___IFD(___RETI,8,1,0x3f1fL))
,___DEF_LBL_RET(___H__23__23_structure_2d_ref,___IFD(___RETN,7,1,0x1fL))
,___DEF_LBL_RET(___H__23__23_structure_2d_ref,___IFD(___RETI,8,1,0x3f4bL))
,___DEF_LBL_RET(___H__23__23_structure_2d_ref,___IFD(___RETI,8,8,0x3f41L))
,___DEF_LBL_RET(___H__23__23_structure_2d_ref,___IFD(___RETI,8,1,0x3f4bL))
,___DEF_LBL_RET(___H__23__23_structure_2d_ref,___IFD(___RETI,8,1,0x3f02L))
,___DEF_LBL_INTRO(___H__23__23_structure_2d_set_21_,"##structure-set!",___REF_FAL,7,0)
,___DEF_LBL_PROC(___H__23__23_structure_2d_set_21_,5,0)
,___DEF_LBL_RET(___H__23__23_structure_2d_set_21_,___IFD(___RETI,8,2,0x3f3fL))
,___DEF_LBL_RET(___H__23__23_structure_2d_set_21_,___IFD(___RETN,7,2,0x3fL))
,___DEF_LBL_RET(___H__23__23_structure_2d_set_21_,___IFD(___RETI,8,2,0x3f95L))
,___DEF_LBL_RET(___H__23__23_structure_2d_set_21_,___IFD(___RETI,8,8,0x3f81L))
,___DEF_LBL_RET(___H__23__23_structure_2d_set_21_,___IFD(___RETI,8,2,0x3f95L))
,___DEF_LBL_RET(___H__23__23_structure_2d_set_21_,___IFD(___RETI,8,2,0x3f04L))
,___DEF_LBL_INTRO(___H__23__23_direct_2d_structure_2d_ref,"##direct-structure-ref",___REF_FAL,4,0)
,___DEF_LBL_PROC(___H__23__23_direct_2d_structure_2d_ref,4,0)
,___DEF_LBL_RET(___H__23__23_direct_2d_structure_2d_ref,___IFD(___RETI,4,4,0x3f9L))
,___DEF_LBL_RET(___H__23__23_direct_2d_structure_2d_ref,___IFD(___RETI,4,4,0x3f9L))
,___DEF_LBL_RET(___H__23__23_direct_2d_structure_2d_ref,___IFD(___RETI,4,4,0x3f9L))
,___DEF_LBL_INTRO(___H__23__23_direct_2d_structure_2d_set_21_,"##direct-structure-set!",___REF_FAL,4,0)

,___DEF_LBL_PROC(___H__23__23_direct_2d_structure_2d_set_21_,5,0)
,___DEF_LBL_RET(___H__23__23_direct_2d_structure_2d_set_21_,___IFD(___RETI,5,8,0x3f11L))
,___DEF_LBL_RET(___H__23__23_direct_2d_structure_2d_set_21_,___IFD(___RETI,5,8,0x3f11L))
,___DEF_LBL_RET(___H__23__23_direct_2d_structure_2d_set_21_,___IFD(___RETI,5,8,0x3f11L))
,___DEF_LBL_INTRO(___H__23__23_unchecked_2d_structure_2d_ref,"##unchecked-structure-ref",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H__23__23_unchecked_2d_structure_2d_ref,4,0)
,___DEF_LBL_INTRO(___H__23__23_unchecked_2d_structure_2d_set_21_,"##unchecked-structure-set!",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H__23__23_unchecked_2d_structure_2d_set_21_,5,0)
,___DEF_LBL_INTRO(___H__23__23_symbol_2d_table,"##symbol-table",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_symbol_2d_table,0,0)
,___DEF_LBL_INTRO(___H__23__23_keyword_2d_table,"##keyword-table",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_keyword_2d_table,0,0)
,___DEF_LBL_INTRO(___H__23__23_make_2d_interned_2d_symbol,"##make-interned-symbol",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_interned_2d_symbol,1,0)
,___DEF_LBL_RET(___H__23__23_make_2d_interned_2d_symbol,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_make_2d_interned_2d_keyword,"##make-interned-keyword",___REF_FAL,2,0)

,___DEF_LBL_PROC(___H__23__23_make_2d_interned_2d_keyword,1,0)
,___DEF_LBL_RET(___H__23__23_make_2d_interned_2d_keyword,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_make_2d_interned_2d_symkey,"##make-interned-symkey",___REF_FAL,6,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_interned_2d_symkey,2,0)
,___DEF_LBL_RET(___H__23__23_make_2d_interned_2d_symkey,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_RET(___H__23__23_make_2d_interned_2d_symkey,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_make_2d_interned_2d_symkey,___IFD(___RETI,4,0,0x3f7L))
,___DEF_LBL_RET(___H__23__23_make_2d_interned_2d_symkey,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_RET(___H__23__23_make_2d_interned_2d_symkey,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_INTRO(___H__23__23_make_2d_global_2d_var,"##make-global-var",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_make_2d_global_2d_var,1,0)
,___DEF_LBL_RET(___H__23__23_make_2d_global_2d_var,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_INTRO(___H__23__23_global_2d_var_3f_,"##global-var?",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_global_2d_var_3f_,1,0)
,___DEF_LBL_INTRO(___H__23__23_global_2d_var_2d_ref,"##global-var-ref",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_global_2d_var_2d_ref,1,0)
,___DEF_LBL_INTRO(___H__23__23_global_2d_var_2d_primitive_2d_ref,"##global-var-primitive-ref",___REF_FAL,1,
0)
,___DEF_LBL_PROC(___H__23__23_global_2d_var_2d_primitive_2d_ref,1,0)
,___DEF_LBL_INTRO(___H__23__23_global_2d_var_2d_set_21_,"##global-var-set!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_global_2d_var_2d_set_21_,2,0)
,___DEF_LBL_INTRO(___H__23__23_global_2d_var_2d_primitive_2d_set_21_,"##global-var-primitive-set!",___REF_FAL,
1,0)
,___DEF_LBL_PROC(___H__23__23_global_2d_var_2d_primitive_2d_set_21_,2,0)
,___DEF_LBL_INTRO(___H__23__23_object_2d__3e_global_2d_var_2d__3e_identifier,"##object->global-var->identifier",
___REF_FAL,4,0)
,___DEF_LBL_PROC(___H__23__23_object_2d__3e_global_2d_var_2d__3e_identifier,1,0)
,___DEF_LBL_RET(___H__23__23_object_2d__3e_global_2d_var_2d__3e_identifier,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_RET(___H__23__23_object_2d__3e_global_2d_var_2d__3e_identifier,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_object_2d__3e_global_2d_var_2d__3e_identifier,___IFD(___RETI,4,4,0x3f0L))
,___DEF_LBL_INTRO(___H__23__23_object_2d__3e_global_2d_var,"##object->global-var",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_object_2d__3e_global_2d_var,2,0)
,___DEF_LBL_INTRO(___H__23__23_global_2d_var_2d__3e_identifier,"##global-var->identifier",___REF_FAL,1,0)

,___DEF_LBL_PROC(___H__23__23_global_2d_var_2d__3e_identifier,1,0)
,___DEF_LBL_INTRO(___H__23__23_fail_2d_check_2d_foreign,"##fail-check-foreign",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_fail_2d_check_2d_foreign,3,0)
,___DEF_LBL_RET(___H__23__23_fail_2d_check_2d_foreign,___IFD(___RETI,1,4,0x3f1L))
,___DEF_LBL_INTRO(___H__23__23_foreign_2d_released_3f_,"##foreign-released?",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_foreign_2d_released_3f_,1,0)
,___DEF_LBL_INTRO(___H_foreign_2d_released_3f_,"foreign-released?",___REF_FAL,3,0)
,___DEF_LBL_PROC(___H_foreign_2d_released_3f_,1,0)
,___DEF_LBL_RET(___H_foreign_2d_released_3f_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H_foreign_2d_released_3f_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_foreign_2d_release_21_,"##foreign-release!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_foreign_2d_release_21_,1,0)
,___DEF_LBL_INTRO(___H_foreign_2d_release_21_,"foreign-release!",___REF_FAL,3,0)
,___DEF_LBL_PROC(___H_foreign_2d_release_21_,1,0)
,___DEF_LBL_RET(___H_foreign_2d_release_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H_foreign_2d_release_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_foreign_2d_address,"##foreign-address",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_foreign_2d_address,1,0)
,___DEF_LBL_RET(___H__23__23_foreign_2d_address,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H_foreign_2d_address,"foreign-address",___REF_FAL,3,0)
,___DEF_LBL_PROC(___H_foreign_2d_address,1,0)
,___DEF_LBL_RET(___H_foreign_2d_address,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H_foreign_2d_address,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_system_2d_version,"##system-version",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_system_2d_version,0,0)
,___DEF_LBL_INTRO(___H_system_2d_version,"system-version",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_system_2d_version,0,0)
,___DEF_LBL_RET(___H_system_2d_version,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_system_2d_version_2d_string,"##system-version-string",___REF_FAL,1,0)

,___DEF_LBL_PROC(___H__23__23_system_2d_version_2d_string,0,0)
,___DEF_LBL_INTRO(___H_system_2d_version_2d_string,"system-version-string",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_system_2d_version_2d_string,0,0)
,___DEF_LBL_RET(___H_system_2d_version_2d_string,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_first_2d_argument,"##first-argument",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_first_2d_argument,4,0)
,___DEF_LBL_INTRO(___H__23__23_with_2d_no_2d_result_2d_expected,"##with-no-result-expected",___REF_FAL,2,
0)
,___DEF_LBL_PROC(___H__23__23_with_2d_no_2d_result_2d_expected,1,0)
,___DEF_LBL_RET(___H__23__23_with_2d_no_2d_result_2d_expected,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_INTRO(___H__23__23_process_2d_statistics,"##process-statistics",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_process_2d_statistics,0,0)
,___DEF_LBL_RET(___H__23__23_process_2d_statistics,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_process_2d_times,"##process-times",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_process_2d_times,0,0)
,___DEF_LBL_RET(___H__23__23_process_2d_times,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_get_2d_current_2d_time_21_,"##get-current-time!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_get_2d_current_2d_time_21_,1,0)
,___DEF_LBL_INTRO(___H_err_2d_code_2d__3e_string,"err-code->string",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H_err_2d_code_2d__3e_string,1,0)
,___DEF_LBL_RET(___H_err_2d_code_2d__3e_string,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_command_2d_line,"##command-line",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_command_2d_line,0,0)
,___DEF_LBL_INTRO(___H__23__23_os_2d_condvar_2d_select_21_,"##os-condvar-select!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_os_2d_condvar_2d_select_21_,2,0)
,___DEF_LBL_INTRO(___H__23__23_add_2d_exit_2d_job_21_,"##add-exit-job!",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_add_2d_exit_2d_job_21_,1,0)
,___DEF_LBL_RET(___H__23__23_add_2d_exit_2d_job_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_clear_2d_exit_2d_jobs_21_,"##clear-exit-jobs!",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_clear_2d_exit_2d_jobs_21_,0,0)
,___DEF_LBL_RET(___H__23__23_clear_2d_exit_2d_jobs_21_,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_exit_2d_with_2d_err_2d_code_2d_no_2d_cleanup,"##exit-with-err-code-no-cleanup",
___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_exit_2d_with_2d_err_2d_code_2d_no_2d_cleanup,1,0)
,___DEF_LBL_INTRO(___H__23__23_exit_2d_cleanup,"##exit-cleanup",___REF_FAL,4,0)
,___DEF_LBL_PROC(___H__23__23_exit_2d_cleanup,0,0)
,___DEF_LBL_RET(___H__23__23_exit_2d_cleanup,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_RET(___H__23__23_exit_2d_cleanup,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_exit_2d_cleanup,___IFD(___RETI,4,4,0x3f0L))
,___DEF_LBL_INTRO(___H__23__23_exit_2d_with_2d_err_2d_code,"##exit-with-err-code",___REF_FAL,4,0)
,___DEF_LBL_PROC(___H__23__23_exit_2d_with_2d_err_2d_code,1,0)
,___DEF_LBL_RET(___H__23__23_exit_2d_with_2d_err_2d_code,___IFD(___RETI,4,0,0x3f3L))
,___DEF_LBL_RET(___H__23__23_exit_2d_with_2d_err_2d_code,___IFD(___RETN,3,0,0x3L))
,___DEF_LBL_RET(___H__23__23_exit_2d_with_2d_err_2d_code,___IFD(___RETI,4,4,0x3f0L))
,___DEF_LBL_INTRO(___H__23__23_exit,"##exit",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_exit,1,0)
,___DEF_LBL_RET(___H__23__23_exit,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_exit_2d_abnormally,"##exit-abnormally",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_exit_2d_abnormally,0,0)
,___DEF_LBL_RET(___H__23__23_exit_2d_abnormally,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_exit_2d_with_2d_exception,"##exit-with-exception",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_exit_2d_with_2d_exception,1,0)
,___DEF_LBL_RET(___H__23__23_exit_2d_with_2d_exception,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_INTRO(___H__23__23_main_2d_set_21_,"##main-set!",___REF_FAL,1,0)
,___DEF_LBL_PROC(___H__23__23_main_2d_set_21_,1,0)
,___DEF_LBL_INTRO(___H__23__23_execute_2d_modules,"##execute-modules",___REF_FAL,6,0)
,___DEF_LBL_PROC(___H__23__23_execute_2d_modules,2,0)
,___DEF_LBL_RET(___H__23__23_execute_2d_modules,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_execute_2d_modules,___IFD(___RETN,3,0,0x7L))
,___DEF_LBL_RET(___H__23__23_execute_2d_modules,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_execute_2d_modules,___IFD(___RETI,0,0,0x3fL))
,___DEF_LBL_RET(___H__23__23_execute_2d_modules,___IFD(___RETI,4,0,0x3f7L))
,___DEF_LBL_INTRO(___H__23__23_execute_2d_program,"##execute-program",___REF_FAL,4,0)
,___DEF_LBL_PROC(___H__23__23_execute_2d_program,0,0)
,___DEF_LBL_RET(___H__23__23_execute_2d_program,___IFD(___RETI,4,0,0x3f1L))
,___DEF_LBL_RET(___H__23__23_execute_2d_program,___IFD(___RETN,3,0,0x1L))
,___DEF_LBL_RET(___H__23__23_execute_2d_program,___IFD(___RETI,4,4,0x3f0L))
,___DEF_LBL_INTRO(___H__20___kernel_23_0," _kernel#0",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_0,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_0,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_1," _kernel#1",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_1,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_1,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_2," _kernel#2",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_2,3,0)
,___DEF_LBL_RET(___H__20___kernel_23_2,___IFD(___RETN,4,3,0xfL))
,___DEF_LBL_INTRO(___H__20___kernel_23_3," _kernel#3",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_3,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_3,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_4," _kernel#4",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_4,0,0)
,___DEF_LBL_RET(___H__20___kernel_23_4,___IFD(___RETN,1,0,0x1L))
,___DEF_LBL_INTRO(___H__20___kernel_23_5," _kernel#5",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_5,0,0)
,___DEF_LBL_RET(___H__20___kernel_23_5,___IFD(___RETN,1,0,0x1L))
,___DEF_LBL_INTRO(___H__20___kernel_23_6," _kernel#6",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_6,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_6,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_7," _kernel#7",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_7,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_7,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_8," _kernel#8",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_8,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_8,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_9," _kernel#9",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_9,0,0)
,___DEF_LBL_RET(___H__20___kernel_23_9,___IFD(___RETN,1,0,0x1L))
,___DEF_LBL_INTRO(___H__20___kernel_23_10," _kernel#10",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_10,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_10,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_11," _kernel#11",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_11,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_11,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_12," _kernel#12",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_12,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_12,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_13," _kernel#13",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_13,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_13,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_14," _kernel#14",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_14,3,0)
,___DEF_LBL_RET(___H__20___kernel_23_14,___IFD(___RETN,4,3,0xfL))
,___DEF_LBL_INTRO(___H__20___kernel_23_15," _kernel#15",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_15,4,0)
,___DEF_LBL_RET(___H__20___kernel_23_15,___IFD(___RETN,5,4,0x1fL))
,___DEF_LBL_INTRO(___H__20___kernel_23_16," _kernel#16",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_16,4,0)
,___DEF_LBL_RET(___H__20___kernel_23_16,___IFD(___RETN,5,4,0x1fL))
,___DEF_LBL_INTRO(___H__20___kernel_23_17," _kernel#17",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_17,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_17,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_18," _kernel#18",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_18,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_18,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_19," _kernel#19",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_19,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_19,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_20," _kernel#20",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_20,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_20,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_21," _kernel#21",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_21,3,0)
,___DEF_LBL_RET(___H__20___kernel_23_21,___IFD(___RETN,4,3,0xfL))
,___DEF_LBL_INTRO(___H__20___kernel_23_22," _kernel#22",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_22,4,0)
,___DEF_LBL_RET(___H__20___kernel_23_22,___IFD(___RETN,5,4,0x1fL))
,___DEF_LBL_INTRO(___H__20___kernel_23_23," _kernel#23",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_23,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_23,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_24," _kernel#24",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_24,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_24,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_25," _kernel#25",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_25,3,0)
,___DEF_LBL_RET(___H__20___kernel_23_25,___IFD(___RETN,4,3,0xfL))
,___DEF_LBL_INTRO(___H__20___kernel_23_26," _kernel#26",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_26,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_26,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_27," _kernel#27",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_27,4,0)
,___DEF_LBL_RET(___H__20___kernel_23_27,___IFD(___RETN,5,4,0x1fL))
,___DEF_LBL_INTRO(___H__20___kernel_23_28," _kernel#28",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_28,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_28,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_29," _kernel#29",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_29,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_29,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_30," _kernel#30",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_30,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_30,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_31," _kernel#31",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_31,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_31,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_32," _kernel#32",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_32,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_32,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_33," _kernel#33",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_33,3,0)
,___DEF_LBL_RET(___H__20___kernel_23_33,___IFD(___RETN,4,3,0xfL))
,___DEF_LBL_INTRO(___H__20___kernel_23_34," _kernel#34",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_34,3,0)
,___DEF_LBL_RET(___H__20___kernel_23_34,___IFD(___RETN,4,3,0xfL))
,___DEF_LBL_INTRO(___H__20___kernel_23_35," _kernel#35",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_35,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_35,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_36," _kernel#36",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_36,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_36,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_37," _kernel#37",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_37,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_37,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_38," _kernel#38",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_38,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_38,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_39," _kernel#39",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_39,6,0)
,___DEF_LBL_RET(___H__20___kernel_23_39,___IFD(___RETN,7,6,0x7fL))
,___DEF_LBL_INTRO(___H__20___kernel_23_40," _kernel#40",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_40,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_40,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_41," _kernel#41",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_41,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_41,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_42," _kernel#42",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_42,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_42,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_43," _kernel#43",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_43,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_43,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_44," _kernel#44",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_44,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_44,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_45," _kernel#45",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_45,0,0)
,___DEF_LBL_RET(___H__20___kernel_23_45,___IFD(___RETN,1,0,0x1L))
,___DEF_LBL_INTRO(___H__20___kernel_23_46," _kernel#46",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_46,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_46,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_47," _kernel#47",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_47,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_47,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_48," _kernel#48",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_48,0,0)
,___DEF_LBL_RET(___H__20___kernel_23_48,___IFD(___RETN,1,0,0x1L))
,___DEF_LBL_INTRO(___H__20___kernel_23_49," _kernel#49",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_49,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_49,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_50," _kernel#50",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_50,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_50,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_51," _kernel#51",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_51,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_51,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_52," _kernel#52",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_52,0,0)
,___DEF_LBL_RET(___H__20___kernel_23_52,___IFD(___RETN,1,0,0x1L))
,___DEF_LBL_INTRO(___H__20___kernel_23_53," _kernel#53",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_53,0,0)
,___DEF_LBL_RET(___H__20___kernel_23_53,___IFD(___RETN,1,0,0x1L))
,___DEF_LBL_INTRO(___H__20___kernel_23_54," _kernel#54",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_54,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_54,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_55," _kernel#55",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_55,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_55,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_56," _kernel#56",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_56,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_56,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_57," _kernel#57",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_57,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_57,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_58," _kernel#58",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_58,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_58,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_59," _kernel#59",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_59,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_59,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_60," _kernel#60",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_60,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_60,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_61," _kernel#61",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_61,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_61,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__20___kernel_23_62," _kernel#62",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_62,1,0)
,___DEF_LBL_RET(___H__20___kernel_23_62,___IFD(___RETN,2,1,0x3L))
,___DEF_LBL_INTRO(___H__20___kernel_23_63," _kernel#63",___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__20___kernel_23_63,2,0)
,___DEF_LBL_RET(___H__20___kernel_23_63,___IFD(___RETN,3,2,0x7L))
,___DEF_LBL_INTRO(___H__23__23_main,0,___REF_FAL,2,0)
,___DEF_LBL_PROC(___H__23__23_main,0,0)
,___DEF_LBL_RET(___H__23__23_main,___IFD(___RETI,0,0,0x3fL))
___END_LBL

___BEGIN_MOD1
___DEF_PRM(0,___G__20___kernel,1)
___DEF_PRM(169,___G__23__23_kernel_2d_handlers,15)
___DEF_PRM(101,___G__23__23_dynamic_2d_env_2d_bind,30)
___DEF_PRM(100,___G__23__23_disable_2d_interrupts_21_,33)
___DEF_PRM(102,___G__23__23_enable_2d_interrupts_21_,35)
___DEF_PRM(166,___G__23__23_interrupt_2d_handler,37)
___DEF_PRM(168,___G__23__23_interrupt_2d_vector_2d_set_21_,39)
___DEF_PRM(165,___G__23__23_heartbeat_2d_interval_2d_set_21_,41)
___DEF_PRM(123,___G__23__23_fail_2d_check_2d_heap_2d_overflow_2d_exception,43)
___DEF_PRM(326,___G_heap_2d_overflow_2d_exception_3f_,46)
___DEF_PRM(264,___G__23__23_raise_2d_heap_2d_overflow_2d_exception,48)
___DEF_PRM(130,___G__23__23_fail_2d_check_2d_stack_2d_overflow_2d_exception,51)
___DEF_PRM(349,___G_stack_2d_overflow_2d_exception_3f_,54)
___DEF_PRM(272,___G__23__23_raise_2d_stack_2d_overflow_2d_exception,56)
___DEF_PRM(126,___G__23__23_fail_2d_check_2d_nonprocedure_2d_operator_2d_exception,59)
___DEF_PRM(335,___G_nonprocedure_2d_operator_2d_exception_3f_,62)
___DEF_PRM(333,___G_nonprocedure_2d_operator_2d_exception_2d_operator,64)
___DEF_PRM(331,___G_nonprocedure_2d_operator_2d_exception_2d_arguments,67)
___DEF_PRM(332,___G_nonprocedure_2d_operator_2d_exception_2d_code,70)
___DEF_PRM(334,___G_nonprocedure_2d_operator_2d_exception_2d_rte,73)
___DEF_PRM(70,___G__23__23_apply_2d_global_2d_with_2d_procedure_2d_check_2d_nary,76)
___DEF_PRM(72,___G__23__23_apply_2d_with_2d_procedure_2d_check_2d_nary,78)
___DEF_PRM(71,___G__23__23_apply_2d_with_2d_procedure_2d_check,80)
___DEF_PRM(268,___G__23__23_raise_2d_nonprocedure_2d_operator_2d_exception,82)
___DEF_PRM(133,___G__23__23_fail_2d_check_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception,85)
___DEF_PRM(362,___G_wrong_2d_number_2d_of_2d_arguments_2d_exception_3f_,88)
___DEF_PRM(361,___G_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_procedure,90)
___DEF_PRM(360,___G_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_arguments,93)
___DEF_PRM(277,___G__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception_2d_nary,96)
___DEF_PRM(276,___G__23__23_raise_2d_wrong_2d_number_2d_of_2d_arguments_2d_exception,98)
___DEF_PRM(124,___G__23__23_fail_2d_check_2d_keyword_2d_expected_2d_exception,101)
___DEF_PRM(329,___G_keyword_2d_expected_2d_exception_3f_,104)
___DEF_PRM(328,___G_keyword_2d_expected_2d_exception_2d_procedure,106)
___DEF_PRM(327,___G_keyword_2d_expected_2d_exception_2d_arguments,109)
___DEF_PRM(266,___G__23__23_raise_2d_keyword_2d_expected_2d_exception_2d_nary,112)
___DEF_PRM(265,___G__23__23_raise_2d_keyword_2d_expected_2d_exception,114)
___DEF_PRM(132,___G__23__23_fail_2d_check_2d_unknown_2d_keyword_2d_argument_2d_exception,117)
___DEF_PRM(359,___G_unknown_2d_keyword_2d_argument_2d_exception_3f_,120)
___DEF_PRM(358,___G_unknown_2d_keyword_2d_argument_2d_exception_2d_procedure,122)
___DEF_PRM(357,___G_unknown_2d_keyword_2d_argument_2d_exception_2d_arguments,125)
___DEF_PRM(275,___G__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception_2d_nary,128)
___DEF_PRM(274,___G__23__23_raise_2d_unknown_2d_keyword_2d_argument_2d_exception,130)
___DEF_PRM(121,___G__23__23_fail_2d_check_2d_cfun_2d_conversion_2d_exception,133)
___DEF_PRM(321,___G_cfun_2d_conversion_2d_exception_3f_,136)
___DEF_PRM(320,___G_cfun_2d_conversion_2d_exception_2d_procedure,138)
___DEF_PRM(317,___G_cfun_2d_conversion_2d_exception_2d_arguments,141)
___DEF_PRM(318,___G_cfun_2d_conversion_2d_exception_2d_code,144)
___DEF_PRM(319,___G_cfun_2d_conversion_2d_exception_2d_message,147)
___DEF_PRM(263,___G__23__23_raise_2d_cfun_2d_conversion_2d_exception_2d_nary,150)
___DEF_PRM(129,___G__23__23_fail_2d_check_2d_sfun_2d_conversion_2d_exception,153)
___DEF_PRM(348,___G_sfun_2d_conversion_2d_exception_3f_,156)
___DEF_PRM(347,___G_sfun_2d_conversion_2d_exception_2d_procedure,158)
___DEF_PRM(344,___G_sfun_2d_conversion_2d_exception_2d_arguments,161)
___DEF_PRM(345,___G_sfun_2d_conversion_2d_exception_2d_code,164)
___DEF_PRM(346,___G_sfun_2d_conversion_2d_exception_2d_message,167)
___DEF_PRM(271,___G__23__23_raise_2d_sfun_2d_conversion_2d_exception,170)
___DEF_PRM(125,___G__23__23_fail_2d_check_2d_multiple_2d_c_2d_return_2d_exception,173)
___DEF_PRM(330,___G_multiple_2d_c_2d_return_2d_exception_3f_,176)
___DEF_PRM(267,___G__23__23_raise_2d_multiple_2d_c_2d_return_2d_exception,178)
___DEF_PRM(127,___G__23__23_fail_2d_check_2d_number_2d_of_2d_arguments_2d_limit_2d_exception,180)
___DEF_PRM(338,___G_number_2d_of_2d_arguments_2d_limit_2d_exception_3f_,183)
___DEF_PRM(337,___G_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_procedure,185)
___DEF_PRM(336,___G_number_2d_of_2d_arguments_2d_limit_2d_exception_2d_arguments,188)
___DEF_PRM(269,___G__23__23_raise_2d_number_2d_of_2d_arguments_2d_limit_2d_exception,191)
___DEF_PRM(131,___G__23__23_fail_2d_check_2d_type_2d_exception,194)
___DEF_PRM(356,___G_type_2d_exception_3f_,197)
___DEF_PRM(354,___G_type_2d_exception_2d_procedure,199)
___DEF_PRM(353,___G_type_2d_exception_2d_arguments,202)
___DEF_PRM(352,___G_type_2d_exception_2d_arg_2d_num,205)
___DEF_PRM(355,___G_type_2d_exception_2d_type_2d_id,208)
___DEF_PRM(273,___G__23__23_raise_2d_type_2d_exception,211)
___DEF_PRM(128,___G__23__23_fail_2d_check_2d_os_2d_exception,217)
___DEF_PRM(343,___G_os_2d_exception_3f_,220)
___DEF_PRM(342,___G_os_2d_exception_2d_procedure,222)
___DEF_PRM(339,___G_os_2d_exception_2d_arguments,225)
___DEF_PRM(341,___G_os_2d_exception_2d_message,228)
___DEF_PRM(340,___G_os_2d_exception_2d_code,231)
___DEF_PRM(270,___G__23__23_raise_2d_os_2d_exception,234)
___DEF_PRM(74,___G__23__23_argument_2d_list_2d_remove_2d_absent_21_,241)
___DEF_PRM(75,___G__23__23_argument_2d_list_2d_remove_2d_absent_2d_keys_21_,246)
___DEF_PRM(73,___G__23__23_argument_2d_list_2d_fix_2d_rest_2d_param_21_,251)
___DEF_PRM(120,___G__23__23_extract_2d_procedure_2d_and_2d_arguments,255)
___DEF_PRM(138,___G__23__23_force_2d_undetermined,266)
___DEF_PRM(180,___G__23__23_make_2d_jobs,272)
___DEF_PRM(68,___G__23__23_add_2d_job_2d_at_2d_tail_21_,275)
___DEF_PRM(67,___G__23__23_add_2d_job_21_,278)
___DEF_PRM(108,___G__23__23_execute_2d_jobs_21_,281)
___DEF_PRM(106,___G__23__23_execute_2d_and_2d_clear_2d_jobs_21_,287)
___DEF_PRM(83,___G__23__23_clear_2d_jobs_21_,293)
___DEF_PRM(80,___G__23__23_check_2d_heap_2d_limit,295)
___DEF_PRM(79,___G__23__23_check_2d_heap,297)
___DEF_PRM(278,___G__23__23_rest_2d_param_2d_check_2d_heap,300)
___DEF_PRM(279,___G__23__23_rest_2d_param_2d_heap_2d_overflow,304)
___DEF_PRM(280,___G__23__23_rest_2d_param_2d_resume_2d_procedure,309)
___DEF_PRM(153,___G__23__23_gc_2d_without_2d_exceptions,311)
___DEF_PRM(149,___G__23__23_gc,313)
___DEF_PRM(66,___G__23__23_add_2d_gc_2d_interrupt_2d_job_21_,318)
___DEF_PRM(82,___G__23__23_clear_2d_gc_2d_interrupt_2d_jobs_21_,321)
___DEF_PRM(151,___G__23__23_gc_2d_finalize_21_,324)
___DEF_PRM(107,___G__23__23_execute_2d_final_2d_wills_21_,328)
___DEF_PRM(150,___G__23__23_gc_2d_final_2d_will_2d_registry_21_,332)
___DEF_PRM(175,___G__23__23_make_2d_final_2d_will,334)
___DEF_PRM(157,___G__23__23_get_2d_min_2d_heap,337)
___DEF_PRM(285,___G__23__23_set_2d_min_2d_heap_21_,339)
___DEF_PRM(156,___G__23__23_get_2d_max_2d_heap,341)
___DEF_PRM(284,___G__23__23_set_2d_max_2d_heap_21_,343)
___DEF_PRM(155,___G__23__23_get_2d_live_2d_percent,345)
___DEF_PRM(283,___G__23__23_set_2d_live_2d_percent_21_,347)
___DEF_PRM(158,___G__23__23_get_2d_standard_2d_level,349)
___DEF_PRM(286,___G__23__23_set_2d_standard_2d_level_21_,351)
___DEF_PRM(282,___G__23__23_set_2d_debug_2d_settings_21_,353)
___DEF_PRM(287,___G__23__23_still_2d_copy,355)
___DEF_PRM(289,___G__23__23_still_2d_obj_2d_refcount_2d_inc_21_,358)
___DEF_PRM(288,___G__23__23_still_2d_obj_2d_refcount_2d_dec_21_,360)
___DEF_PRM(191,___G__23__23_make_2d_vector,362)
___DEF_PRM(185,___G__23__23_make_2d_string,365)
___DEF_PRM(184,___G__23__23_make_2d_s8vector,368)
___DEF_PRM(190,___G__23__23_make_2d_u8vector,371)
___DEF_PRM(181,___G__23__23_make_2d_s16vector,374)
___DEF_PRM(187,___G__23__23_make_2d_u16vector,377)
___DEF_PRM(182,___G__23__23_make_2d_s32vector,380)
___DEF_PRM(188,___G__23__23_make_2d_u32vector,383)
___DEF_PRM(183,___G__23__23_make_2d_s64vector,386)
___DEF_PRM(189,___G__23__23_make_2d_u64vector,389)
___DEF_PRM(173,___G__23__23_make_2d_f32vector,392)
___DEF_PRM(174,___G__23__23_make_2d_f64vector,395)
___DEF_PRM(69,___G__23__23_apply,398)
___DEF_PRM(88,___G__23__23_closure_3f_,401)
___DEF_PRM(85,___G__23__23_closure_2d_length,403)
___DEF_PRM(84,___G__23__23_closure_2d_code,405)
___DEF_PRM(86,___G__23__23_closure_2d_ref,407)
___DEF_PRM(87,___G__23__23_closure_2d_set_21_,409)
___DEF_PRM(303,___G__23__23_subprocedure_3f_,411)
___DEF_PRM(297,___G__23__23_subprocedure_2d_id,413)
___DEF_PRM(300,___G__23__23_subprocedure_2d_parent,415)
___DEF_PRM(299,___G__23__23_subprocedure_2d_nb_2d_parameters,417)
___DEF_PRM(298,___G__23__23_subprocedure_2d_nb_2d_closed,419)
___DEF_PRM(186,___G__23__23_make_2d_subprocedure,421)
___DEF_PRM(301,___G__23__23_subprocedure_2d_parent_2d_info,423)
___DEF_PRM(302,___G__23__23_subprocedure_2d_parent_2d_name,425)
___DEF_PRM(118,___G__23__23_explode_2d_continuation,427)
___DEF_PRM(91,___G__23__23_continuation_2d_frame,434)
___DEF_PRM(90,___G__23__23_continuation_2d_denv,439)
___DEF_PRM(119,___G__23__23_explode_2d_frame,441)
___DEF_PRM(146,___G__23__23_frame_2d_ret,452)
___DEF_PRM(96,___G__23__23_continuation_2d_ret,454)
___DEF_PRM(281,___G__23__23_return_2d_fs,456)
___DEF_PRM(143,___G__23__23_frame_2d_fs,458)
___DEF_PRM(92,___G__23__23_continuation_2d_fs,460)
___DEF_PRM(144,___G__23__23_frame_2d_link,462)
___DEF_PRM(93,___G__23__23_continuation_2d_link,464)
___DEF_PRM(147,___G__23__23_frame_2d_slot_2d_live_3f_,466)
___DEF_PRM(97,___G__23__23_continuation_2d_slot_2d_live_3f_,468)
___DEF_PRM(145,___G__23__23_frame_2d_ref,470)
___DEF_PRM(95,___G__23__23_continuation_2d_ref,472)
___DEF_PRM(94,___G__23__23_continuation_2d_next,474)
___DEF_PRM(309,___G__23__23_type_2d_id,477)
___DEF_PRM(310,___G__23__23_type_2d_name,479)
___DEF_PRM(308,___G__23__23_type_2d_flags,481)
___DEF_PRM(311,___G__23__23_type_2d_super,483)
___DEF_PRM(307,___G__23__23_type_2d_fields,485)
___DEF_PRM(291,___G__23__23_structure_2d_direct_2d_instance_2d_of_3f_,487)
___DEF_PRM(292,___G__23__23_structure_2d_instance_2d_of_3f_,489)
___DEF_PRM(313,___G__23__23_type_3f_,493)
___DEF_PRM(295,___G__23__23_structure_2d_type,495)
___DEF_PRM(296,___G__23__23_structure_2d_type_2d_set_21_,497)
___DEF_PRM(290,___G__23__23_structure,499)
___DEF_PRM(293,___G__23__23_structure_2d_ref,508)
___DEF_PRM(294,___G__23__23_structure_2d_set_21_,516)
___DEF_PRM(98,___G__23__23_direct_2d_structure_2d_ref,524)
___DEF_PRM(99,___G__23__23_direct_2d_structure_2d_set_21_,529)
___DEF_PRM(314,___G__23__23_unchecked_2d_structure_2d_ref,534)
___DEF_PRM(315,___G__23__23_unchecked_2d_structure_2d_set_21_,536)
___DEF_PRM(304,___G__23__23_symbol_2d_table,538)
___DEF_PRM(170,___G__23__23_keyword_2d_table,540)
___DEF_PRM(178,___G__23__23_make_2d_interned_2d_symbol,542)
___DEF_PRM(177,___G__23__23_make_2d_interned_2d_keyword,545)
___DEF_PRM(179,___G__23__23_make_2d_interned_2d_symkey,548)
___DEF_PRM(176,___G__23__23_make_2d_global_2d_var,555)
___DEF_PRM(164,___G__23__23_global_2d_var_3f_,558)
___DEF_PRM(162,___G__23__23_global_2d_var_2d_ref,560)
___DEF_PRM(160,___G__23__23_global_2d_var_2d_primitive_2d_ref,562)
___DEF_PRM(163,___G__23__23_global_2d_var_2d_set_21_,564)
___DEF_PRM(161,___G__23__23_global_2d_var_2d_primitive_2d_set_21_,566)
___DEF_PRM(196,___G__23__23_object_2d__3e_global_2d_var_2d__3e_identifier,568)
___DEF_PRM(195,___G__23__23_object_2d__3e_global_2d_var,573)
___DEF_PRM(159,___G__23__23_global_2d_var_2d__3e_identifier,575)
___DEF_PRM(122,___G__23__23_fail_2d_check_2d_foreign,577)
___DEF_PRM(141,___G__23__23_foreign_2d_released_3f_,580)
___DEF_PRM(325,___G_foreign_2d_released_3f_,582)
___DEF_PRM(140,___G__23__23_foreign_2d_release_21_,586)
___DEF_PRM(324,___G_foreign_2d_release_21_,588)
___DEF_PRM(139,___G__23__23_foreign_2d_address,592)
___DEF_PRM(323,___G_foreign_2d_address,595)
___DEF_PRM(305,___G__23__23_system_2d_version,599)
___DEF_PRM(350,___G_system_2d_version,601)
___DEF_PRM(306,___G__23__23_system_2d_version_2d_string,604)
___DEF_PRM(351,___G_system_2d_version_2d_string,606)
___DEF_PRM(135,___G__23__23_first_2d_argument,609)
___DEF_PRM(316,___G__23__23_with_2d_no_2d_result_2d_expected,611)
___DEF_PRM(259,___G__23__23_process_2d_statistics,614)
___DEF_PRM(260,___G__23__23_process_2d_times,617)
___DEF_PRM(154,___G__23__23_get_2d_current_2d_time_21_,620)
___DEF_PRM(322,___G_err_2d_code_2d__3e_string,622)
___DEF_PRM(89,___G__23__23_command_2d_line,625)
___DEF_PRM(197,___G__23__23_os_2d_condvar_2d_select_21_,627)
___DEF_PRM(65,___G__23__23_add_2d_exit_2d_job_21_,629)
___DEF_PRM(81,___G__23__23_clear_2d_exit_2d_jobs_21_,632)
___DEF_PRM(116,___G__23__23_exit_2d_with_2d_err_2d_code_2d_no_2d_cleanup,635)
___DEF_PRM(113,___G__23__23_exit_2d_cleanup,637)
___DEF_PRM(115,___G__23__23_exit_2d_with_2d_err_2d_code,642)
___DEF_PRM(111,___G__23__23_exit,647)
___DEF_PRM(112,___G__23__23_exit_2d_abnormally,650)
___DEF_PRM(117,___G__23__23_exit_2d_with_2d_exception,653)
___DEF_PRM(172,___G__23__23_main_2d_set_21_,656)
___DEF_PRM(109,___G__23__23_execute_2d_modules,658)
___DEF_PRM(110,___G__23__23_execute_2d_program,665)
___DEF_PRM(1,___G__20___kernel_23_0,670)
___DEF_PRM(2,___G__20___kernel_23_1,673)
___DEF_PRM(13,___G__20___kernel_23_2,676)
___DEF_PRM(24,___G__20___kernel_23_3,679)
___DEF_PRM(35,___G__20___kernel_23_4,682)
___DEF_PRM(46,___G__20___kernel_23_5,685)
___DEF_PRM(57,___G__20___kernel_23_6,688)
___DEF_PRM(62,___G__20___kernel_23_7,691)
___DEF_PRM(63,___G__20___kernel_23_8,694)
___DEF_PRM(64,___G__20___kernel_23_9,697)
___DEF_PRM(3,___G__20___kernel_23_10,700)
___DEF_PRM(4,___G__20___kernel_23_11,703)
___DEF_PRM(5,___G__20___kernel_23_12,706)
___DEF_PRM(6,___G__20___kernel_23_13,709)
___DEF_PRM(7,___G__20___kernel_23_14,712)
___DEF_PRM(8,___G__20___kernel_23_15,715)
___DEF_PRM(9,___G__20___kernel_23_16,718)
___DEF_PRM(10,___G__20___kernel_23_17,721)
___DEF_PRM(11,___G__20___kernel_23_18,724)
___DEF_PRM(12,___G__20___kernel_23_19,727)
___DEF_PRM(14,___G__20___kernel_23_20,730)
___DEF_PRM(15,___G__20___kernel_23_21,733)
___DEF_PRM(16,___G__20___kernel_23_22,736)
___DEF_PRM(17,___G__20___kernel_23_23,739)
___DEF_PRM(18,___G__20___kernel_23_24,742)
___DEF_PRM(19,___G__20___kernel_23_25,745)
___DEF_PRM(20,___G__20___kernel_23_26,748)
___DEF_PRM(21,___G__20___kernel_23_27,751)
___DEF_PRM(22,___G__20___kernel_23_28,754)
___DEF_PRM(23,___G__20___kernel_23_29,757)
___DEF_PRM(25,___G__20___kernel_23_30,760)
___DEF_PRM(26,___G__20___kernel_23_31,763)
___DEF_PRM(27,___G__20___kernel_23_32,766)
___DEF_PRM(28,___G__20___kernel_23_33,769)
___DEF_PRM(29,___G__20___kernel_23_34,772)
___DEF_PRM(30,___G__20___kernel_23_35,775)
___DEF_PRM(31,___G__20___kernel_23_36,778)
___DEF_PRM(32,___G__20___kernel_23_37,781)
___DEF_PRM(33,___G__20___kernel_23_38,784)
___DEF_PRM(34,___G__20___kernel_23_39,787)
___DEF_PRM(36,___G__20___kernel_23_40,790)
___DEF_PRM(37,___G__20___kernel_23_41,793)
___DEF_PRM(38,___G__20___kernel_23_42,796)
___DEF_PRM(39,___G__20___kernel_23_43,799)
___DEF_PRM(40,___G__20___kernel_23_44,802)
___DEF_PRM(41,___G__20___kernel_23_45,805)
___DEF_PRM(42,___G__20___kernel_23_46,808)
___DEF_PRM(43,___G__20___kernel_23_47,811)
___DEF_PRM(44,___G__20___kernel_23_48,814)
___DEF_PRM(45,___G__20___kernel_23_49,817)
___DEF_PRM(47,___G__20___kernel_23_50,820)
___DEF_PRM(48,___G__20___kernel_23_51,823)
___DEF_PRM(49,___G__20___kernel_23_52,826)
___DEF_PRM(50,___G__20___kernel_23_53,829)
___DEF_PRM(51,___G__20___kernel_23_54,832)
___DEF_PRM(52,___G__20___kernel_23_55,835)
___DEF_PRM(53,___G__20___kernel_23_56,838)
___DEF_PRM(54,___G__20___kernel_23_57,841)
___DEF_PRM(55,___G__20___kernel_23_58,844)
___DEF_PRM(56,___G__20___kernel_23_59,847)
___DEF_PRM(58,___G__20___kernel_23_60,850)
___DEF_PRM(59,___G__20___kernel_23_61,853)
___DEF_PRM(60,___G__20___kernel_23_62,856)
___DEF_PRM(61,___G__20___kernel_23_63,859)
___END_MOD1

___BEGIN_MOD2
___DEF_SYM2(0,___S__23__23_type_2d_0_2d_0bf9b656_2d_b071_2d_404a_2d_a514_2d_0fb9d05cf518,"##type-0-0bf9b656-b071-404a-a514-0fb9d05cf518")

___DEF_SYM2(1,___S__23__23_type_2d_0_2d_73c66686_2d_a08f_2d_4c7c_2d_a0f1_2d_5ad7771f242a,"##type-0-73c66686-a08f-4c7c-a0f1-5ad7771f242a")

___DEF_SYM2(2,___S__23__23_type_2d_0_2d_d69cd396_2d_01e0_2d_4dcb_2d_87dc_2d_31acea8e0e5f,"##type-0-d69cd396-01e0-4dcb-87dc-31acea8e0e5f")

___DEF_SYM2(3,___S__23__23_type_2d_0_2d_f512c9f6_2d_3b24_2d_4c5c_2d_8c8b_2d_cabd75b2f951,"##type-0-f512c9f6-3b24-4c5c-8c8b-cabd75b2f951")

___DEF_SYM2(4,___S__23__23_type_2d_2_2d_2138cd7f_2d_8c42_2d_4164_2d_b56a_2d_a8c7badf3323,"##type-2-2138cd7f-8c42-4164-b56a-a8c7badf3323")

___DEF_SYM2(5,___S__23__23_type_2d_2_2d_299ccee1_2d_77d2_2d_4a6d_2d_ab24_2d_2ebf14297315,"##type-2-299ccee1-77d2-4a6d-ab24-2ebf14297315")

___DEF_SYM2(6,___S__23__23_type_2d_2_2d_3f9f8aaa_2d_ea21_2d_4f2b_2d_bc06_2d_f65950e6c408,"##type-2-3f9f8aaa-ea21-4f2b-bc06-f65950e6c408")

___DEF_SYM2(7,___S__23__23_type_2d_2_2d_3fd6c57f_2d_3c80_2d_4436_2d_a430_2d_57ea4457c11e,"##type-2-3fd6c57f-3c80-4436-a430-57ea4457c11e")

___DEF_SYM2(8,___S__23__23_type_2d_2_2d_f9519b37_2d_d6d4_2d_4748_2d_8eb1_2d_a0c8dc18c5e7,"##type-2-f9519b37-d6d4-4748-8eb1-a0c8dc18c5e7")

___DEF_SYM2(9,___S__23__23_type_2d_26_2d_d05e0aa7_2d_e235_2d_441d_2d_aa41_2d_c1ac02065460,"##type-26-d05e0aa7-e235-441d-aa41-c1ac02065460")

___DEF_SYM2(10,___S__23__23_type_2d_4_2d_54dfbc02_2d_718d_2d_4a34_2d_91ab_2d_d1861da7500a,"##type-4-54dfbc02-718d-4a34-91ab-d1861da7500a")

___DEF_SYM2(11,___S__23__23_type_2d_4_2d_9f09b552_2d_0fb7_2d_42c5_2d_b0d4_2d_212155841d53,"##type-4-9f09b552-0fb7-42c5-b0d4-212155841d53")

___DEF_SYM2(12,___S__23__23_type_2d_4_2d_c1fc166b_2d_d951_2d_4871_2d_853c_2d_2b6c8c12d28d,"##type-4-c1fc166b-d951-4871-853c-2b6c8c12d28d")

___DEF_SYM2(13,___S__23__23_type_2d_4_2d_cf06eccd_2d_bf2c_2d_4b30_2d_a6ce_2d_394b345a0dee,"##type-4-cf06eccd-bf2c-4b30-a6ce-394b345a0dee")

___DEF_SYM2(14,___S__23__23_type_2d_4_2d_f39d07ce_2d_436d_2d_40ca_2d_b81f_2d_cdc65d16b7f2,"##type-4-f39d07ce-436d-40ca-b81f-cdc65d16b7f2")

___DEF_SYM2(15,___S__23__23_type_2d_5,"##type-5")
___DEF_SYM2(16,___S_arg_2d_num,"arg-num")
___DEF_SYM2(17,___S_arguments,"arguments")
___DEF_SYM2(18,___S_btq_2d_color,"btq-color")
___DEF_SYM2(19,___S_btq_2d_deq_2d_next,"btq-deq-next")
___DEF_SYM2(20,___S_btq_2d_deq_2d_prev,"btq-deq-prev")
___DEF_SYM2(21,___S_btq_2d_left,"btq-left")
___DEF_SYM2(22,___S_btq_2d_leftmost,"btq-leftmost")
___DEF_SYM2(23,___S_btq_2d_parent,"btq-parent")
___DEF_SYM2(24,___S_cfun_2d_conversion_2d_exception,"cfun-conversion-exception")
___DEF_SYM2(25,___S_code,"code")
___DEF_SYM2(26,___S_cont,"cont")
___DEF_SYM2(27,___S_denv,"denv")
___DEF_SYM2(28,___S_denv_2d_cache1,"denv-cache1")
___DEF_SYM2(29,___S_denv_2d_cache2,"denv-cache2")
___DEF_SYM2(30,___S_denv_2d_cache3,"denv-cache3")
___DEF_SYM2(31,___S_end_2d_condvar,"end-condvar")
___DEF_SYM2(32,___S_exception,"exception")
___DEF_SYM2(33,___S_exception_3f_,"exception?")
___DEF_SYM2(34,___S_fields,"fields")
___DEF_SYM2(35,___S_flags,"flags")
___DEF_SYM2(36,___S_floats,"floats")
___DEF_SYM2(37,___S_foreign,"foreign")
___DEF_SYM2(38,___S_heap_2d_overflow_2d_exception,"heap-overflow-exception")
___DEF_SYM2(39,___S_id,"id")
___DEF_SYM2(40,___S_keyword_2d_expected_2d_exception,"keyword-expected-exception")
___DEF_SYM2(41,___S_mailbox,"mailbox")
___DEF_SYM2(42,___S_message,"message")
___DEF_SYM2(43,___S_multiple_2d_c_2d_return_2d_exception,"multiple-c-return-exception")
___DEF_SYM2(44,___S_name,"name")
___DEF_SYM2(45,___S_no_2d_such_2d_file_2d_or_2d_directory_2d_exception,"no-such-file-or-directory-exception")

___DEF_SYM2(46,___S_nonprocedure_2d_operator_2d_exception,"nonprocedure-operator-exception")

___DEF_SYM2(47,___S_number_2d_of_2d_arguments_2d_limit_2d_exception,"number-of-arguments-limit-exception")

___DEF_SYM2(48,___S_operator,"operator")
___DEF_SYM2(49,___S_os_2d_exception,"os-exception")
___DEF_SYM2(50,___S_procedure,"procedure")
___DEF_SYM2(51,___S_repl_2d_channel,"repl-channel")
___DEF_SYM2(52,___S_result,"result")
___DEF_SYM2(53,___S_rte,"rte")
___DEF_SYM2(54,___S_sfun_2d_conversion_2d_exception,"sfun-conversion-exception")
___DEF_SYM2(55,___S_specific,"specific")
___DEF_SYM2(56,___S_stack_2d_overflow_2d_exception,"stack-overflow-exception")
___DEF_SYM2(57,___S_super,"super")
___DEF_SYM2(58,___S_tgroup,"tgroup")
___DEF_SYM2(59,___S_thread,"thread")
___DEF_SYM2(60,___S_threads_2d_deq_2d_next,"threads-deq-next")
___DEF_SYM2(61,___S_threads_2d_deq_2d_prev,"threads-deq-prev")
___DEF_SYM2(62,___S_toq_2d_color,"toq-color")
___DEF_SYM2(63,___S_toq_2d_left,"toq-left")
___DEF_SYM2(64,___S_toq_2d_leftmost,"toq-leftmost")
___DEF_SYM2(65,___S_toq_2d_parent,"toq-parent")
___DEF_SYM2(66,___S_type,"type")
___DEF_SYM2(67,___S_type_2d_exception,"type-exception")
___DEF_SYM2(68,___S_type_2d_id,"type-id")
___DEF_SYM2(69,___S_unknown_2d_keyword_2d_argument_2d_exception,"unknown-keyword-argument-exception")

___DEF_SYM2(70,___S_wrong_2d_number_2d_of_2d_arguments_2d_exception,"wrong-number-of-arguments-exception")

___END_MOD2

#endif

Generated by  Doxygen 1.6.0   Back to index