Commit c62502cf authored by Erick Gallesio's avatar Erick Gallesio

Added make-thread in autoloads

parent 01ebcdb5
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 01-Jan-2000 15:04 (eg)
;;;; Last file update: 13-Apr-2006 11:50 (eg)
;;;; Last file update: 13-Apr-2006 17:55 (eg)
;;;;
(include "runtime.stk") ; Definition necessary for the bootstrap
......@@ -47,6 +47,7 @@
(autoload "compfile" compile-file)
(syntax-autoload "match" match-case match-lambda)
(autoload "getopt" %print-usage)
(autoload "threads" make-thread)
(syntax-autoload "getopt" parse-arguments)
(syntax-autoload "trace" trace untrace)
(autoload "pp" pp pretty-print)
......
/*
This file was automatically generated on Thu Apr 13 13:27:59 2006 by make-C-boot
This file was automatically generated on Thu Apr 13 17:56:21 2006 by make-C-boot
This is a dump of the image in file /mnt/users/eg/Projects/STklos/lib/boot.img3
***DO NOT EDIT BY HAND***
*/
#include "stklos.h"
char* STk_boot_consts = "#(pair? car map apply map* cdr for-each* *expander-list* assq expander? application-expander symbol? initial-expander install-expander! eq? delete! remove-expander! syntax-expand macro-expand \"too many optional parameters: ~a\" error gensym module-imports symbol-value* \"symbol ``~S'' not found\" symbol-value %%set-current-module find-module quote select-module %modules-stack current-module %create-module %module-create %module-restore raise %module-handler with-handler values void append define-module reverse %module-imports-set! memq import \"module `~S' does not exist\" %module-import module-exports %module-exports-set! export \"bad symbol `~S'\" %module-export in-module %symbol-define for-each %define-exported-symbols caar cdar cadr cddr caaar cdaar cadar cddar caadr cdadr caddr cdddr caaaar cdaaar cadaar cddaar caadar cdadar caddar cdddar caaadr cdaadr cadadr cddadr caaddr cdaddr cadddr cddddr %make-continuation %fresh-continuation? %restore-continuation %call/cc call/cc call-with-current-continuation dynamic-wind set-car! set-cdr! procedure? \"bad procedure ~S\" call-with-values open-file &i/o-filename-error location message \"cannot open file ~S\" format backtrace %vm-backtrace filename make-condition %set-std-port! close-port %make-with-file with-input-from-file current-input-port \"r\" with-output-to-file current-output-port \"w\" with-error-to-file current-error-port open-input-string with-input-from-string open-output-string get-output-string with-output-to-string %port-file-fd %make-with-port with-input-from-port with-output-to-port with-error-to-port %call-with open-input-file call-with-input-file open-output-file call-with-output-file rationalize \"bad rational ~S\" floor / positive? negative? - exact? 0.0 rational? %make-promise lambda delay length \"~a?\" string->symbol begin define make-struct-type \"make-~a\" make-struct and struct? struct-is-a? \"~a-~a\" %fast-struct-ref set! setter %fast-struct-set! define-struct %binary->n-ary %bit-or bit-or %bit-and bit-and %bit-xor bit-xor expt quotient bit-shift \"G\" symbol->string string? \"bad gensym prefix ~S\" number->string string-append string->uninterned-symbol filter remove filter! remove! equal? delete every any call-with-input-string call-with-output-string :read-char key-get :ready? :eof? :close vector %open-input-virtual open-input-virtual :write-char :write-string :flush %open-output-virtual open-output-virtual read read-from-string parse-expression *code-constants* list->vector %execute eval-from-string *%program-args* :argv argv :program-name program-name hash-table-hash %make-hash-table make-hash-table cons hash-table-map hash-table->alist hash-table-exists? hash-table-set! alist->hash-table hash-table-ref hash-table-update! hash-table-ref/default hash-table-update!/default hash-table-keys hash-table-values hash-table-for-each hash-table-fold hash-table-merge! hash-table-equivalence-function hash-table-hash-function hash-table-copy let list fluid-let generic? parameter? %procedure-plist :setter \"no setter defined for ~S\" key-set! %set-procedure-plist! vector-ref vector-set! string-ref string-set! slot-ref slot-set! struct-ref struct-set! let* clock \"Elapsed time: ~S ms\\n\" time (void) do + >= dotimes when while unless until \"call/ec\" call/ec ((normal . \"0\") (bold . \"1\") (no-bold . \"21\") (italic . \"2\") (no-italic . \"22\") (underline . \"4\") (no-undeline . \"24\") (blink . \"5\") (no-blink . \"25\") (reverse . \"7\") (no-reverse . \"27\") (black . \"30\") (bg-black . \"40\") (red . \"31\") (bg-red . \"41\") (green . \"32\") (bg-green . \"42\") (yellow . \"33\") (bg-yellow . \"43\") (blue . \"34\") (bg-blue . \"44\") (magenta . \"35\") (bg-magenta . \"45\") (cyan . \"36\") (bg-cyan . \"46\") (white . \"37\") (bg-white . \"47\")) assoc \"\" \"m\" \"\\x1b[\" \";\" ansi-color \"bad command ~S\" input-port? input-string-port? port->list \"bad port ~S\" eof-object? %port->list port->string read-line \"\\n\" port->sexp-list port->string-list display newline print printerr \"| \" exec exec-list argc module? apropos \"bad module ~S\" module-symbols string-find? \"**** ~A\\n**** EXIT\\n\" exit die running-os cygwin-windows posixify-file-name string-length #\\/ char=? \"/\" \".\" string-split decompose-file-name \"^(.*)/(.+)$\" \"\\\\1\" regexp-replace string=? dirname \"^(.*)/(.*)$\" \"\\\\2\" basename (unix cygwin-windows) memv windows #\\\\ #\\? file-separator \"~A~A~A\" make-path port-idle-register! %port-idle port-idle-unregister! port-idle-reset! expand-file-name %chmod write execute chmod \"bad option ~S\" integer? receive cond case-lambda \"bad clause ~S\" compute-arity = zero? else \"no matching clause in list ~S for ~S\" read-with-shared-structure write* write-with-shared-structure read/ss write/ss condition? condition-has-type? \"bad type for condition ~S\" condition-ref %define-condition-type-accessors %parameter-dynenv-push! parameterize %parameter-dynenv-pop! require-extension \"requires at least one clause\" srfi not null? ok? x if \"srfi-~a\" or %has-feature? \"extension ~S is absent\" *%autoloads* %try-load-tmp \":\" *path-separator* \"ostk\" \"stk\" \"scm\" \"so\" *load-suffixes* *load-verbose* *load-path* getenv %build-path-from-shell-variable \"STKLOS_LOAD_PATH\" %library-prefix version \"~/.stklos/ext\" \"/share/stklos/\" \"/lib/stklos/\" list? load-path \"bad list of path names ~S\" \"bad path name ~S\" make-parameter \"bad list of suffixes ~S\" load-suffixes load-verbose current-loading-file file-exists? file-is-readable? \".?.?/\" regexp-match %guess-pathname try-load \";; Loading file ~S.\\n\" \";; File ~S loaded.\\n\" load \"cannot load file ~S\" find-path require provide provided? require/provide member \"WARNING: ~S was not provided~%\" %%include include autoload-file remove-autoload! autoload \"~S has not been defined in ~S\" syntax-autoload (stklos STklos srfi-0 ((srfi-1 lists) \"srfi-1\") ((srfi-2 and-let*) \"srfi-2\") ((srfi-4 hvectors) \"srfi-4\") srfi-6 ((srfi-7 program) \"srfi-7\") srfi-8 ((srfi-9 records) \"srfi-9\") srfi-10 (srfi-11 \"srfi-11\") ((srfi-13 strings) \"srfi-13\") ((srfi-14 charsets) \"srfi-14\") ((srfi-16 case-lambda)) srfi-17 srfi-22 ((srfi-23 error)) (srfi-26 \"srfi-26\") ((srfi-27 random)) srfi-28 srfi-30 srfi-31 srfi-34 (srfi-35 \"srfi-35\") (srfi-36 \"srfi-36\") (conditions \"srfi-35\" \"srfi-36\") srfi-38 ((srfi-39 parameters)) srfi-48 srfi-55 (srfi-60 \"srfi-60\") srfi-62 (srfi-66 \"srfi-66\") ((srfi-69 hash-tables) \"srfi-69\") srfi-70) *all-features* srfi0-register-feature! (and or not) cond-expand \"no clause match\" \"srfi-0\" MBE some butlast \"negative argument ~S\" hyg:untag-no-tags hyg:untag-vanilla hyg:untag-lambda hyg:untag-letrec hyg:untag-named-let hyg:untag-let hyg:untag-let* hyg:untag-do hyg:untag-list hyg:untag-list* hyg:untag-quasiquote hyg:flatten mbe:ellipsis? mbe:split-at-ellipsis mbe:get-ellipsis-nestings mbe:ellipsis-sub-envs mbe:contained-in? hyg:rassq hyg:tag vector? vector->list ... hyg:untag quasiquote (if begin) (set! define) letrec case unquote \"takes exactly one expression\" unquote-splicing \"invalid context within quasiquote\" append! reverse! list-tail substring \"%%\" mbe:position mbe:append-map mbe:matches-pattern? mbe:get-bindings mbe:expand-pattern \"bad-arg\" \"no matching clause for ~S\" find-clause %find-macro-clause syntax-rules define-syntax \"in `~S', bad syntax-rules ~S\" define-macro args regexp-replace-all replace-string \"\\\\\\\\[0-9]\" regexp-match-positions string->number \"cannot match \\\\~A in model\" list-ref replace-submodels keyword? \"value expected after keyword ~S\" :input :output :error :wait :fork :args %run-process run-process SIGTERM process-signal process-kill SIGSTOP process-stop SIGCONT process-continue *compiler-port* warn-use-undef *compiler-options* (+ - * / = < <= > >= cons car cdr null? list not vector-ref vector-set! string-ref string-set! eq? eqv? equal? void) *compiler-inline* (%set-current-module %%set-current-module %%execute %%execute-handler) *always-inlined* *code-instr* *code-labels* label? NOP this-instr next-instr this-arg1 this-arg2 next-arg1 next-arg2 GOTO copy-tree RETURN PUSH (IM-FALSE IM-TRUE IM-NIL IM-MINUS1 IM-ZERO IM-ONE IM-VOID) IM-FALSE FALSE-PUSH IM-TRUE TRUE-PUSH IM-NIL NIL-PUSH IM-MINUS1 MINUS1-PUSH IM-ZERO ZERO-PUSH IM-ONE ONE-PUSH IM-VOID VOID-PUSH SMALL-INT INT-PUSH CONSTANT CONSTANT-PUSH IN-NOT (IN-NUMEQ IN-NUMDIFF IN-NUMLT IN-NUMGT IN-NUMLE IN-NUMGE IN-EQ IN-EQV IN-EQUAL) IN-NUMEQ IN-NUMDIFF IN-NUMLT IN-NUMGE IN-NUMGT IN-NUMLE IN-EQ IN-NOT-EQ IN-EQV IN-NOT-EQV IN-EQUAL IN-NOT-EQUAL JUMP-FALSE (IN-NUMEQ IN-NUMLT IN-NUMGT IN-NUMLE IN-NUMGE IN-EQ IN-EQV IN-EQUAL IN-NOT) JUMP-NUMDIFF JUMP-NUMEQ JUMP-NUMGE JUMP-NUMGT JUMP-NUMLE JUMP-NUMLT JUMP-NOT-EQ JUMP-NOT-EQV JUMP-NOT-EQUAL JUMP-TRUE GLOBAL-REF INVOKE GREF-INVOKE peephole ((NOP 0) (IM-FALSE 0) (IM-TRUE 0) (IM-NIL 0) (IM-MINUS1 0) (IM-ZERO 0) (IM-ONE 0) (IM-VOID 0) (SMALL-INT 1) (CONSTANT 1) (GLOBAL-REF 1) (UGLOBAL-REF 1) (LOCAL-REF0 0) (LOCAL-REF1 0) (LOCAL-REF2 0) (LOCAL-REF3 0) (LOCAL-REF4 0) (LOCAL-REF 1) (DEEP-LOCAL-REF 1) (GLOBAL-SET 1) (UGLOBAL-SET 1) (LOCAL-SET0 0) (LOCAL-SET1 0) (LOCAL-SET2 0) (LOCAL-SET3 0) (LOCAL-SET4 0) (LOCAL-SET 1) (DEEP-LOCAL-SET 1) (GOTO 1) (JUMP-FALSE 1) (JUMP-TRUE 1) (DEFINE-SYMBOL 1) (POP 0) (PUSH 0) (DBG-VM 1) (CREATE-CLOSURE 2) (RETURN 0) (PREPARE-CALL 0) (INVOKE 1) (TAIL-INVOKE 1) (ENTER-LET-STAR 1) (ENTER-LET 1) (ENTER-TAIL-LET-STAR 1) (ENTER-TAIL-LET 1) (LEAVE-LET 0) (PUSH-HANDLER 1) (POP-HANDLER 0) (END-OF-CODE 0) (IN-ADD2 0) (IN-SUB2 0) (IN-MUL2 0) (IN-DIV2 0) (IN-NUMEQ 0) (IN-NUMLT 0) (IN-NUMGT 0) (IN-NUMLE 0) (IN-NUMGE 0) (IN-INCR 0) (IN-DECR 0) (IN-CONS 0) (IN-NULLP 0) (IN-CAR 0) (IN-CDR 0) (IN-LIST 1) (IN-NOT 0) (IN-VREF 0) (IN-VSET 0) (IN-SREF 0) (IN-SSET 0) (IN-EQ 0) (IN-EQV 0) (IN-EQUAL 0) (IN-APPLY 2) (MAKE-EXPANDER 1) (SET-CUR-MOD 0) (UNUSED-1 0) (UNUSED-2 0) (FALSE-PUSH 0) (TRUE-PUSH 0) (NIL-PUSH 0) (MINUS1-PUSH 0) (ZERO-PUSH 0) (ONE-PUSH 0) (VOID-PUSH 0) (INT-PUSH 1) (CONSTANT-PUSH 1) (GREF-INVOKE 2) (UGREF-INVOKE 2) (IN-NUMDIFF 0) (IN-NOT-EQ 0) (IN-NOT-EQV 0) (IN-NOT-EQUAL 0) (JUMP-NUMDIFF 1) (JUMP-NUMEQ 1) (JUMP-NUMLT 1) (JUMP-NUMLE 1) (JUMP-NUMGT 1) (JUMP-NUMGE 1) (JUMP-NOT-EQ 1) (JUMP-NOT-EQV 1) (JUMP-NOT-EQUAL 1)) INSTRUCTION-SET *lab-equiv* \"non existent opcode ~S\" panic info-opcode (GOTO JUMP-FALSE JUMP-TRUE JUMP-NUMDIFF JUMP-NUMGE JUMP-NUMGT JUMP-NUMGE JUMP-NUMLT JUMP-NUMLE JUMP-NOT-EQ JUMP-NOT-EQV JUMP-NOT-EQUAL CREATE-CLOSURE PUSH-HANDLER) use-address? string-upcase #\\space make-string pretty-mnemonic old+ make-vector \"Instruction with more than 2 parameters ~S\" assemble \"L~A:\" \"\\t~A\\n\" display-code \"Cannot decode ~S opcode\" find-opcode remainder \"\\t;; ==> ~A\" vector-length \"\\n~A: ~A\" \" ~A\" \" ~S ~S\" \"cannot disassemble instruction (~S)\" \"\\n~A:\\n\" disassemble-code %procedure-code disassemble \"cannot disassemble ~S\" \"*** PANIC *** \" \"~A: \" %epair? \"~A:~A: \" %epair-file %epair-line \"~AError: ~A~A\\n\" compiler-error \"~Awarning: ~A~A\\n\" \"**** Warning;\\n~A~A\\n\" compiler-warning unbound symbol-bound? \"used outside of a quasiquote context\" compiler:time-display compiler:gen-line-number (set! *code-labels* 0) initialize-compilation get-generated-code new-label emit emit-label fetch-constant <= compile-constant \"bad usage in ~S\" compile-quote *known-globals* *forward-globals* known-var? new-global \"reference to undefined symbol ~S\" compiler-warn-undef warn-use-undef-postpone verify-global compiler-show-undefined-symbols \"ill formed definition ~S\" define->lambda \"bad definition\" compile DEFINE-SYMBOL \"bad variable name ~S\" \"internal define forbidden here\" compile-define symbol-in-env? GLOBAL-SET LOCAL-REF0 LOCAL-SET0 LOCAL-REF1 LOCAL-SET1 LOCAL-REF2 LOCAL-SET2 LOCAL-REF3 LOCAL-SET3 LOCAL-REF4 LOCAL-SET4 LOCAL-REF LOCAL-SET DEEP-LOCAL-REF DEEP-LOCAL-SET compile-access compile-reference \"~S is a bad symbol\" \"bad assignment syntax in ~S\" compile-set! \"bad syntax in ~S\" compile-if extended-lambda->lambda form e MAKE-EXPANDER macro-eval compile-define-macro compile-when compile-unless compile-and compile-or compile-begin extend-env extend-current-env rewrite-body CREATE-CLOSURE compile-user-lambda ext-lambda-key-get 'lambda make-keyword build-let* \"illegal ~a parameter: ~a\" \"optional\" \"keyword\" (:optional :key :rest) \"duplicate parameter ~S\" \"bad class name ~S\" \"bad procedure parameter ~S\" last-pair :rest :optional :key \"illegal lambda list ending with ~a\" \"rest parameter must be a single symbol\" parse-parameter-list rewrite-params-and-body method \"bad definition ~S\" compile-lambda compile-args compile-var-args PREPARE-CALL DBG-VM generate-PREPARE-CALL TAIL-INVOKE compile-normal-call can-be-inlined \"1 argument required (~A provided)\" \"2 arguments required (~A provided)\" \"3 arguments required (~A provided)\" SET-CUR-MOD \"1 arg. only (~S)\" %%execute-handler EXEC-HANDLER IN-INCR IN-ADD2 \"needs at least one argument\" IN-DECR IN-SUB2 * IN-MUL2 IN-DIV2 (= < > <= >=) O < > IN-CONS IN-CAR IN-CDR IN-NULLP IN-LIST IN-VREF IN-VSET IN-SREF IN-SSET eqv? \"unimplemented inline primitive ~S\" compile-primitive-call ENTER-TAIL-LET ENTER-LET LEAVE-LET \"bad number of parameters ~S\" compile-lambda-call compile-call \"duplicate binding ~S\" \"malformed binding ~S\" valid-let-bindings? \"ill formed letrec ~S\" compile-letrec \"ill formed named let ~S\" compile-named-let \"ill formed let ~S\" compile-let \"ill formed let* ~S\" ENTER-TAIL-LET-STAR ENTER-LET-STAR compile-let* \"invalid clause ~S\" \"else not in last clause ~S\" => rewrite-cond-clauses \"bad '=>' clause syntax ~S\" compile-cond ok \"duplicate case value ~S in ~S\" \"ill formed case clause ~S\" \"invalid clause syntax in ~S\" \"invalid case clause\" \"invalid case\" rewrite-case-clauses \"no key given\" compile-case \"bad binding ~S\" rewrite-do \"bad syntax\" compile-do backquotify 'quasiquote 'unquote assv compile-quasiquote PUSH-HANDLER POP-HANDLER compile-with-handler %read include-file \"bad include directive ~S\" compile-include compiler-maybe-do-autoload %%label \"bad usage ~S\" compile-%%label %%goto compile-%%goto compile-%%source-pos generate-line-info gen-line-info %%source-pos END-OF-CODE parse eval class-redefinition \"bad class ~S\" %error-bad-class \"bad generic function ~S\" %error-bad-generic \"bad method ~S\" %error-bad-method make-closure <top> specializers formals slot-definition-getter slot-definition-setter slot-definition-accessor declare-slots <generic> generic :name ??? %make <method> :generic-function :specializers :procedure basic-make \"cannot make ~S with ~S\" make class? name class-name direct-supers class-direct-supers direct-slots class-direct-slots direct-subclasses class-direct-subclasses direct-methods class-direct-methods cpl class-precedence-list slots class-slots slot-definition-name slot-definition-options :instance :allocation slot-definition-allocation :getter :accessor :init-form slot-definition-init-form :init-keyword slot-definition-init-keyword getters-n-setters slot-init-function class-slot-definition generic-function-name methods generic-function-methods method? generic-function method-generic-function method-specializers procedure method-procedure class-of is-a? <class> find-class compute-slots \"bad slot name ~S\" %compute-slots :dsupers :slots \"metaclass\" ensure-metaclass-with-supers ensure-metaclass ensure-class :metaclass define-class <object> \"super class ~S is duplicated in class ~S\" \"slot ~S is duplicated in class ~S\" ensure-generic-function define-generic :default add-method-in-classes! remove-method-in-classes! compute-new-list-of-methods add-method! next-method ensure-method ensure-method* \"gf\" define-method object-eqv? (<top> <top>) object-equal? write-object \"#[instance ~A]\" address-of (<object> <top>) slot-bound? \"#[~A ~A]\" (<class> <top>) \"#[~A ~A ~A]\" (<generic> <top>) \"#[~A ~A (~A)]\" display-object slot-unbound (<class> <object> <top>) \"slot ~S is unbound in #p~A (an object of class ~S)\" slot-missing (<class> <object> <top> . <top>) \"no slot with name `~S' in #p~A (an object of class ~S)\" no-next-method (<generic> <top> <top>) \"no next method for ~S in call ~S\" no-applicable-method \"no applicable method for ~S\\nin call ~S\" no-method \"no method defined for ~S\" shallow-clone (<object>) %allocate-instance deep-clone instance? remove-class-accessors (<class>) <accessor-method> update-direct-method (<method> <class> <class>) update-direct-subclass (<class> <class> <class>) (<class> <class>) redefined compute-get-n-set nfields :class :each-subclass :virtual :slot-ref :slot-set! \"a :slot-ref and a :slot-set! must be supplied in ~S\" :active :before-slot-ref :after-slot-ref :before-slot-set! :after-slot-set! %fast-slot-ref %fast-slot-set! \"allocation type \\\"~S\\\" is unknown\" compute-slot-accessors o val %slot-ref closure? %procedure-arity \"bad getter closure for slot `~S' in ~S: ~S\" \"bad setter closure for slot `~S' in ~S: ~S\" list* compute-getters-n-setters compute-cpl initialize %initialize-object (<method> <top>) allocate-instance make-instance (<class> . <top>) slot-exists-using-class? slot-bound-using-class? slot-ref-using-class slot-set-using-class! %modify-instance change-object-class change-class (<object> <class>) compute-applicable-methods find-method method-more-specific? (<method> <method> <top>) %method-more-specific? sort-applicable-methods sort apply-method (<generic> <top> <top> <top>) %set-next-method! apply-methods (<generic> <list> <top>) apply-generic class-subclasses class-methods list2set mapappend slot-value (<object> <top> <top>) describe \"describe\" %object-system-initialized struct-type %time time? second micro-second 1000000.0 time-seconds \"bad time ~S\" time->seconds number? real? round inexact->exact 1000000 seconds->time \"cannot convert ~S to a time\" \"bad number ~S\" :second :minute :hour :day :month :year %date date->seconds seconds->date make-date date? %seconds->date \"#[date ~A-~A-~A ~A:~A:~A]\" year month day hour minute struct-type-change-writer! date-second date-minute date-hour date-day date-month date-year date-week-day date-year-day date-dst date-tz struct->list seconds->list current-second current-date seconds->string \"bad string ~S\" #\\% #\\~ %seconds->string date->string \"date\" :undefined-symbol-warning pragma \"unknown pragma ~S\" stklos-pragma define-reader-ctor string-downcase string-lower string-upper \"*** Obsolete function set-load-path!. Use load-path instead.\\n\" set-load-path! \"*** Obsolete function set-load-suffixes!. Use load-suffixes instead.\\n\" set-load-suffixes! flush-output-port flush port-rewind rewind-file-port hash-table->list hash-table-put! hash-table-get hash-table-delete! hash-table-remove! REPL (main-repl repl) interactive-port? interactive? repl-level repl-backtrace :interactive \"TERM\" (\"rxvt\" \"xterm\" \"xterm-color\" \"linux\" \"cygwin\") do-color (help ?) blue bold \"Available Commands:\\n- ,backtrace ,bt Show the stack when last error occurred\\t\\n- ,quit ,q\\t Exit STklos\\n- ,help ,? ,h\\t This help\\n\" clear (quit q) (backtrace bt) %display-backtrace \"bad command name: ~S. Type ,help for some help\\n\" do-repl-command %build-error-location red \"**** Error:\\n~A: ~A\\n\" \"\\t(type \\\"\" underline \",help\" \"\\\" for more information)\\n\" display-error-message &error-message &message \"**** Unknown condition raised.\\n\" \"Condition type: ~A\\n\" struct-type-name \"Condition slots: ~S\\n\" \"**** The following non-condition was raised: ~S\\n\" repl-handler \"[~A] \" magenta \"~A> \" module-name black display-prompt :in G2995 :out G2996 :err G2997 \";; ~A\\n\" repl %initialize-signals green \"STklos version ~A\\t\\t\\t[~A]\\n\" machine-type \"Copyright 1999-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr>\\n\" normal main-repl (REPL) compile-file \"compfile\" ((match-case . \"match\") (match-lambda . \"match\")) %print-usage \"getopt\" ((parse-arguments . \"getopt\")) ((trace . \"trace\") (untrace . \"trace\")) pp \"pp\" pretty-print random-integer \"srfi-27\" random-real ((with-exception-handler . \"srfi-34\") (guard . \"srfi-34\")) ((define-condition-type . \"srfi-35\") (condition . \"srfi-35\")) srfi48:help \"srfi-48\" srfi48:format-fixed %before-exit-hook main \"STKLOS_FRAMES\" \" - ...\\nSet shell variable STKLOS_FRAMES to set visible frames\\n\" \" - \" %procedure-name \"<<let/call>>\" \" @ [~S:~S]\\n\" \"???\" \"let\" \"**** Error while ~A ~S\\n\" \"\\tWhere: ~A\\n\" \"\\tReason: ~A\\n\" \"EXIT\\n\" %simple-fatal-exception-handler :no-init-file :load :file :sexpr \"~/.stklos/stklosrc\" \"loading file\" \"executing file\" \"evaluating\")";
char* STk_boot_consts = "#(pair? car map apply map* cdr for-each* *expander-list* assq expander? application-expander symbol? initial-expander install-expander! eq? delete! remove-expander! syntax-expand macro-expand \"too many optional parameters: ~a\" error gensym module-imports symbol-value* \"symbol ``~S'' not found\" symbol-value %%set-current-module find-module quote select-module %modules-stack current-module %create-module %module-create %module-restore raise %module-handler with-handler values void append define-module reverse %module-imports-set! memq import \"module `~S' does not exist\" %module-import module-exports %module-exports-set! export \"bad symbol `~S'\" %module-export in-module %symbol-define for-each %define-exported-symbols caar cdar cadr cddr caaar cdaar cadar cddar caadr cdadr caddr cdddr caaaar cdaaar cadaar cddaar caadar cdadar caddar cdddar caaadr cdaadr cadadr cddadr caaddr cdaddr cadddr cddddr %make-continuation %fresh-continuation? %restore-continuation %call/cc call/cc call-with-current-continuation dynamic-wind set-car! set-cdr! procedure? \"bad procedure ~S\" call-with-values open-file &i/o-filename-error location message \"cannot open file ~S\" format backtrace %vm-backtrace filename make-condition %set-std-port! close-port %make-with-file with-input-from-file current-input-port \"r\" with-output-to-file current-output-port \"w\" with-error-to-file current-error-port open-input-string with-input-from-string open-output-string get-output-string with-output-to-string %port-file-fd %make-with-port with-input-from-port with-output-to-port with-error-to-port %call-with open-input-file call-with-input-file open-output-file call-with-output-file rationalize \"bad rational ~S\" floor / positive? negative? - exact? 0.0 rational? %make-promise lambda delay length \"~a?\" string->symbol begin define make-struct-type \"make-~a\" make-struct and struct? struct-is-a? \"~a-~a\" %fast-struct-ref set! setter %fast-struct-set! define-struct %binary->n-ary %bit-or bit-or %bit-and bit-and %bit-xor bit-xor expt quotient bit-shift \"G\" symbol->string string? \"bad gensym prefix ~S\" number->string string-append string->uninterned-symbol filter remove filter! remove! equal? delete every any call-with-input-string call-with-output-string :read-char key-get :ready? :eof? :close vector %open-input-virtual open-input-virtual :write-char :write-string :flush %open-output-virtual open-output-virtual read read-from-string parse-expression *code-constants* list->vector %execute eval-from-string *%program-args* :argv argv :program-name program-name hash-table-hash %make-hash-table make-hash-table cons hash-table-map hash-table->alist hash-table-exists? hash-table-set! alist->hash-table hash-table-ref hash-table-update! hash-table-ref/default hash-table-update!/default hash-table-keys hash-table-values hash-table-for-each hash-table-fold hash-table-merge! hash-table-equivalence-function hash-table-hash-function hash-table-copy let list fluid-let generic? parameter? %procedure-plist :setter \"no setter defined for ~S\" key-set! %set-procedure-plist! vector-ref vector-set! string-ref string-set! slot-ref slot-set! struct-ref struct-set! let* clock \"Elapsed time: ~S ms\\n\" time (void) do + >= dotimes when while unless until \"call/ec\" call/ec ((normal . \"0\") (bold . \"1\") (no-bold . \"21\") (italic . \"2\") (no-italic . \"22\") (underline . \"4\") (no-undeline . \"24\") (blink . \"5\") (no-blink . \"25\") (reverse . \"7\") (no-reverse . \"27\") (black . \"30\") (bg-black . \"40\") (red . \"31\") (bg-red . \"41\") (green . \"32\") (bg-green . \"42\") (yellow . \"33\") (bg-yellow . \"43\") (blue . \"34\") (bg-blue . \"44\") (magenta . \"35\") (bg-magenta . \"45\") (cyan . \"36\") (bg-cyan . \"46\") (white . \"37\") (bg-white . \"47\")) assoc \"\" \"m\" \"\\x1b[\" \";\" ansi-color \"bad command ~S\" input-port? input-string-port? port->list \"bad port ~S\" eof-object? %port->list port->string read-line \"\\n\" port->sexp-list port->string-list display newline print printerr \"| \" exec exec-list argc module? apropos \"bad module ~S\" module-symbols string-find? \"**** ~A\\n**** EXIT\\n\" exit die running-os cygwin-windows posixify-file-name string-length #\\/ char=? \"/\" \".\" string-split decompose-file-name \"^(.*)/(.+)$\" \"\\\\1\" regexp-replace string=? dirname \"^(.*)/(.*)$\" \"\\\\2\" basename (unix cygwin-windows) memv windows #\\\\ #\\? file-separator \"~A~A~A\" make-path port-idle-register! %port-idle port-idle-unregister! port-idle-reset! expand-file-name %chmod write execute chmod \"bad option ~S\" integer? receive cond case-lambda \"bad clause ~S\" compute-arity = zero? else \"no matching clause in list ~S for ~S\" read-with-shared-structure write* write-with-shared-structure read/ss write/ss condition? condition-has-type? \"bad type for condition ~S\" condition-ref %define-condition-type-accessors %parameter-dynenv-push! parameterize %parameter-dynenv-pop! require-extension \"requires at least one clause\" srfi not null? ok? x if \"srfi-~a\" or %has-feature? \"extension ~S is absent\" *%autoloads* %try-load-tmp \":\" *path-separator* \"ostk\" \"stk\" \"scm\" \"so\" *load-suffixes* *load-verbose* *load-path* getenv %build-path-from-shell-variable \"STKLOS_LOAD_PATH\" %library-prefix version \"~/.stklos/ext\" \"/share/stklos/\" \"/lib/stklos/\" list? load-path \"bad list of path names ~S\" \"bad path name ~S\" make-parameter \"bad list of suffixes ~S\" load-suffixes load-verbose current-loading-file file-exists? file-is-readable? \".?.?/\" regexp-match %guess-pathname try-load \";; Loading file ~S.\\n\" \";; File ~S loaded.\\n\" load \"cannot load file ~S\" find-path require provide provided? require/provide member \"WARNING: ~S was not provided~%\" %%include include autoload-file remove-autoload! autoload \"~S has not been defined in ~S\" syntax-autoload (stklos STklos srfi-0 ((srfi-1 lists) \"srfi-1\") ((srfi-2 and-let*) \"srfi-2\") ((srfi-4 hvectors) \"srfi-4\") srfi-6 ((srfi-7 program) \"srfi-7\") srfi-8 ((srfi-9 records) \"srfi-9\") srfi-10 (srfi-11 \"srfi-11\") ((srfi-13 strings) \"srfi-13\") ((srfi-14 charsets) \"srfi-14\") ((srfi-16 case-lambda)) srfi-17 srfi-22 ((srfi-23 error)) (srfi-26 \"srfi-26\") ((srfi-27 random)) srfi-28 srfi-30 srfi-31 srfi-34 (srfi-35 \"srfi-35\") (srfi-36 \"srfi-36\") (conditions \"srfi-35\" \"srfi-36\") srfi-38 ((srfi-39 parameters)) srfi-48 srfi-55 (srfi-60 \"srfi-60\") srfi-62 (srfi-66 \"srfi-66\") ((srfi-69 hash-tables) \"srfi-69\") srfi-70) *all-features* srfi0-register-feature! (and or not) cond-expand \"no clause match\" \"srfi-0\" MBE some butlast \"negative argument ~S\" hyg:untag-no-tags hyg:untag-vanilla hyg:untag-lambda hyg:untag-letrec hyg:untag-named-let hyg:untag-let hyg:untag-let* hyg:untag-do hyg:untag-list hyg:untag-list* hyg:untag-quasiquote hyg:flatten mbe:ellipsis? mbe:split-at-ellipsis mbe:get-ellipsis-nestings mbe:ellipsis-sub-envs mbe:contained-in? hyg:rassq hyg:tag vector? vector->list ... hyg:untag quasiquote (if begin) (set! define) letrec case unquote \"takes exactly one expression\" unquote-splicing \"invalid context within quasiquote\" append! reverse! list-tail substring \"%%\" mbe:position mbe:append-map mbe:matches-pattern? mbe:get-bindings mbe:expand-pattern \"bad-arg\" \"no matching clause for ~S\" find-clause %find-macro-clause syntax-rules define-syntax \"in `~S', bad syntax-rules ~S\" define-macro args regexp-replace-all replace-string \"\\\\\\\\[0-9]\" regexp-match-positions string->number \"cannot match \\\\~A in model\" list-ref replace-submodels keyword? \"value expected after keyword ~S\" :input :output :error :wait :fork :args %run-process run-process SIGTERM process-signal process-kill SIGSTOP process-stop SIGCONT process-continue *compiler-port* warn-use-undef *compiler-options* (+ - * / = < <= > >= cons car cdr null? list not vector-ref vector-set! string-ref string-set! eq? eqv? equal? void) *compiler-inline* (%set-current-module %%set-current-module %%execute %%execute-handler) *always-inlined* *code-instr* *code-labels* label? NOP this-instr next-instr this-arg1 this-arg2 next-arg1 next-arg2 GOTO copy-tree RETURN PUSH (IM-FALSE IM-TRUE IM-NIL IM-MINUS1 IM-ZERO IM-ONE IM-VOID) IM-FALSE FALSE-PUSH IM-TRUE TRUE-PUSH IM-NIL NIL-PUSH IM-MINUS1 MINUS1-PUSH IM-ZERO ZERO-PUSH IM-ONE ONE-PUSH IM-VOID VOID-PUSH SMALL-INT INT-PUSH CONSTANT CONSTANT-PUSH IN-NOT (IN-NUMEQ IN-NUMDIFF IN-NUMLT IN-NUMGT IN-NUMLE IN-NUMGE IN-EQ IN-EQV IN-EQUAL) IN-NUMEQ IN-NUMDIFF IN-NUMLT IN-NUMGE IN-NUMGT IN-NUMLE IN-EQ IN-NOT-EQ IN-EQV IN-NOT-EQV IN-EQUAL IN-NOT-EQUAL JUMP-FALSE (IN-NUMEQ IN-NUMLT IN-NUMGT IN-NUMLE IN-NUMGE IN-EQ IN-EQV IN-EQUAL IN-NOT) JUMP-NUMDIFF JUMP-NUMEQ JUMP-NUMGE JUMP-NUMGT JUMP-NUMLE JUMP-NUMLT JUMP-NOT-EQ JUMP-NOT-EQV JUMP-NOT-EQUAL JUMP-TRUE GLOBAL-REF INVOKE GREF-INVOKE peephole ((NOP 0) (IM-FALSE 0) (IM-TRUE 0) (IM-NIL 0) (IM-MINUS1 0) (IM-ZERO 0) (IM-ONE 0) (IM-VOID 0) (SMALL-INT 1) (CONSTANT 1) (GLOBAL-REF 1) (UGLOBAL-REF 1) (LOCAL-REF0 0) (LOCAL-REF1 0) (LOCAL-REF2 0) (LOCAL-REF3 0) (LOCAL-REF4 0) (LOCAL-REF 1) (DEEP-LOCAL-REF 1) (GLOBAL-SET 1) (UGLOBAL-SET 1) (LOCAL-SET0 0) (LOCAL-SET1 0) (LOCAL-SET2 0) (LOCAL-SET3 0) (LOCAL-SET4 0) (LOCAL-SET 1) (DEEP-LOCAL-SET 1) (GOTO 1) (JUMP-FALSE 1) (JUMP-TRUE 1) (DEFINE-SYMBOL 1) (POP 0) (PUSH 0) (DBG-VM 1) (CREATE-CLOSURE 2) (RETURN 0) (PREPARE-CALL 0) (INVOKE 1) (TAIL-INVOKE 1) (ENTER-LET-STAR 1) (ENTER-LET 1) (ENTER-TAIL-LET-STAR 1) (ENTER-TAIL-LET 1) (LEAVE-LET 0) (PUSH-HANDLER 1) (POP-HANDLER 0) (END-OF-CODE 0) (IN-ADD2 0) (IN-SUB2 0) (IN-MUL2 0) (IN-DIV2 0) (IN-NUMEQ 0) (IN-NUMLT 0) (IN-NUMGT 0) (IN-NUMLE 0) (IN-NUMGE 0) (IN-INCR 0) (IN-DECR 0) (IN-CONS 0) (IN-NULLP 0) (IN-CAR 0) (IN-CDR 0) (IN-LIST 1) (IN-NOT 0) (IN-VREF 0) (IN-VSET 0) (IN-SREF 0) (IN-SSET 0) (IN-EQ 0) (IN-EQV 0) (IN-EQUAL 0) (IN-APPLY 2) (MAKE-EXPANDER 1) (SET-CUR-MOD 0) (UNUSED-1 0) (UNUSED-2 0) (FALSE-PUSH 0) (TRUE-PUSH 0) (NIL-PUSH 0) (MINUS1-PUSH 0) (ZERO-PUSH 0) (ONE-PUSH 0) (VOID-PUSH 0) (INT-PUSH 1) (CONSTANT-PUSH 1) (GREF-INVOKE 2) (UGREF-INVOKE 2) (IN-NUMDIFF 0) (IN-NOT-EQ 0) (IN-NOT-EQV 0) (IN-NOT-EQUAL 0) (JUMP-NUMDIFF 1) (JUMP-NUMEQ 1) (JUMP-NUMLT 1) (JUMP-NUMLE 1) (JUMP-NUMGT 1) (JUMP-NUMGE 1) (JUMP-NOT-EQ 1) (JUMP-NOT-EQV 1) (JUMP-NOT-EQUAL 1)) INSTRUCTION-SET *lab-equiv* \"non existent opcode ~S\" panic info-opcode (GOTO JUMP-FALSE JUMP-TRUE JUMP-NUMDIFF JUMP-NUMGE JUMP-NUMGT JUMP-NUMGE JUMP-NUMLT JUMP-NUMLE JUMP-NOT-EQ JUMP-NOT-EQV JUMP-NOT-EQUAL CREATE-CLOSURE PUSH-HANDLER) use-address? string-upcase #\\space make-string pretty-mnemonic old+ make-vector \"Instruction with more than 2 parameters ~S\" assemble \"L~A:\" \"\\t~A\\n\" display-code \"Cannot decode ~S opcode\" find-opcode remainder \"\\t;; ==> ~A\" vector-length \"\\n~A: ~A\" \" ~A\" \" ~S ~S\" \"cannot disassemble instruction (~S)\" \"\\n~A:\\n\" disassemble-code %procedure-code disassemble \"cannot disassemble ~S\" \"*** PANIC *** \" \"~A: \" %epair? \"~A:~A: \" %epair-file %epair-line \"~AError: ~A~A\\n\" compiler-error \"~Awarning: ~A~A\\n\" \"**** Warning;\\n~A~A\\n\" compiler-warning unbound symbol-bound? \"used outside of a quasiquote context\" compiler:time-display compiler:gen-line-number (set! *code-labels* 0) initialize-compilation get-generated-code new-label emit emit-label fetch-constant <= compile-constant \"bad usage in ~S\" compile-quote *known-globals* *forward-globals* known-var? new-global \"reference to undefined symbol ~S\" compiler-warn-undef warn-use-undef-postpone verify-global compiler-show-undefined-symbols \"ill formed definition ~S\" define->lambda \"bad definition\" compile DEFINE-SYMBOL \"bad variable name ~S\" \"internal define forbidden here\" compile-define symbol-in-env? GLOBAL-SET LOCAL-REF0 LOCAL-SET0 LOCAL-REF1 LOCAL-SET1 LOCAL-REF2 LOCAL-SET2 LOCAL-REF3 LOCAL-SET3 LOCAL-REF4 LOCAL-SET4 LOCAL-REF LOCAL-SET DEEP-LOCAL-REF DEEP-LOCAL-SET compile-access compile-reference \"~S is a bad symbol\" \"bad assignment syntax in ~S\" compile-set! \"bad syntax in ~S\" compile-if extended-lambda->lambda form e MAKE-EXPANDER macro-eval compile-define-macro compile-when compile-unless compile-and compile-or compile-begin extend-env extend-current-env rewrite-body CREATE-CLOSURE compile-user-lambda ext-lambda-key-get 'lambda make-keyword build-let* \"illegal ~a parameter: ~a\" \"optional\" \"keyword\" (:optional :key :rest) \"duplicate parameter ~S\" \"bad class name ~S\" \"bad procedure parameter ~S\" last-pair :rest :optional :key \"illegal lambda list ending with ~a\" \"rest parameter must be a single symbol\" parse-parameter-list rewrite-params-and-body method \"bad definition ~S\" compile-lambda compile-args compile-var-args PREPARE-CALL DBG-VM generate-PREPARE-CALL TAIL-INVOKE compile-normal-call can-be-inlined \"1 argument required (~A provided)\" \"2 arguments required (~A provided)\" \"3 arguments required (~A provided)\" SET-CUR-MOD \"1 arg. only (~S)\" %%execute-handler EXEC-HANDLER IN-INCR IN-ADD2 \"needs at least one argument\" IN-DECR IN-SUB2 * IN-MUL2 IN-DIV2 (= < > <= >=) O < > IN-CONS IN-CAR IN-CDR IN-NULLP IN-LIST IN-VREF IN-VSET IN-SREF IN-SSET eqv? \"unimplemented inline primitive ~S\" compile-primitive-call ENTER-TAIL-LET ENTER-LET LEAVE-LET \"bad number of parameters ~S\" compile-lambda-call compile-call \"duplicate binding ~S\" \"malformed binding ~S\" valid-let-bindings? \"ill formed letrec ~S\" compile-letrec \"ill formed named let ~S\" compile-named-let \"ill formed let ~S\" compile-let \"ill formed let* ~S\" ENTER-TAIL-LET-STAR ENTER-LET-STAR compile-let* \"invalid clause ~S\" \"else not in last clause ~S\" => rewrite-cond-clauses \"bad '=>' clause syntax ~S\" compile-cond ok \"duplicate case value ~S in ~S\" \"ill formed case clause ~S\" \"invalid clause syntax in ~S\" \"invalid case clause\" \"invalid case\" rewrite-case-clauses \"no key given\" compile-case \"bad binding ~S\" rewrite-do \"bad syntax\" compile-do backquotify 'quasiquote 'unquote assv compile-quasiquote PUSH-HANDLER POP-HANDLER compile-with-handler %read include-file \"bad include directive ~S\" compile-include compiler-maybe-do-autoload %%label \"bad usage ~S\" compile-%%label %%goto compile-%%goto compile-%%source-pos generate-line-info gen-line-info %%source-pos END-OF-CODE parse eval class-redefinition \"bad class ~S\" %error-bad-class \"bad generic function ~S\" %error-bad-generic \"bad method ~S\" %error-bad-method make-closure <top> specializers formals slot-definition-getter slot-definition-setter slot-definition-accessor declare-slots <generic> generic :name ??? %make <method> :generic-function :specializers :procedure basic-make \"cannot make ~S with ~S\" make class? name class-name direct-supers class-direct-supers direct-slots class-direct-slots direct-subclasses class-direct-subclasses direct-methods class-direct-methods cpl class-precedence-list slots class-slots slot-definition-name slot-definition-options :instance :allocation slot-definition-allocation :getter :accessor :init-form slot-definition-init-form :init-keyword slot-definition-init-keyword getters-n-setters slot-init-function class-slot-definition generic-function-name methods generic-function-methods method? generic-function method-generic-function method-specializers procedure method-procedure class-of is-a? <class> find-class compute-slots \"bad slot name ~S\" %compute-slots :dsupers :slots \"metaclass\" ensure-metaclass-with-supers ensure-metaclass ensure-class :metaclass define-class <object> \"super class ~S is duplicated in class ~S\" \"slot ~S is duplicated in class ~S\" ensure-generic-function define-generic :default add-method-in-classes! remove-method-in-classes! compute-new-list-of-methods add-method! next-method ensure-method ensure-method* \"gf\" define-method object-eqv? (<top> <top>) object-equal? write-object \"#[instance ~A]\" address-of (<object> <top>) slot-bound? \"#[~A ~A]\" (<class> <top>) \"#[~A ~A ~A]\" (<generic> <top>) \"#[~A ~A (~A)]\" display-object slot-unbound (<class> <object> <top>) \"slot ~S is unbound in #p~A (an object of class ~S)\" slot-missing (<class> <object> <top> . <top>) \"no slot with name `~S' in #p~A (an object of class ~S)\" no-next-method (<generic> <top> <top>) \"no next method for ~S in call ~S\" no-applicable-method \"no applicable method for ~S\\nin call ~S\" no-method \"no method defined for ~S\" shallow-clone (<object>) %allocate-instance deep-clone instance? remove-class-accessors (<class>) <accessor-method> update-direct-method (<method> <class> <class>) update-direct-subclass (<class> <class> <class>) (<class> <class>) redefined compute-get-n-set nfields :class :each-subclass :virtual :slot-ref :slot-set! \"a :slot-ref and a :slot-set! must be supplied in ~S\" :active :before-slot-ref :after-slot-ref :before-slot-set! :after-slot-set! %fast-slot-ref %fast-slot-set! \"allocation type \\\"~S\\\" is unknown\" compute-slot-accessors o val %slot-ref closure? %procedure-arity \"bad getter closure for slot `~S' in ~S: ~S\" \"bad setter closure for slot `~S' in ~S: ~S\" list* compute-getters-n-setters compute-cpl initialize %initialize-object (<method> <top>) allocate-instance make-instance (<class> . <top>) slot-exists-using-class? slot-bound-using-class? slot-ref-using-class slot-set-using-class! %modify-instance change-object-class change-class (<object> <class>) compute-applicable-methods find-method method-more-specific? (<method> <method> <top>) %method-more-specific? sort-applicable-methods sort apply-method (<generic> <top> <top> <top>) %set-next-method! apply-methods (<generic> <list> <top>) apply-generic class-subclasses class-methods list2set mapappend slot-value (<object> <top> <top>) describe \"describe\" %object-system-initialized struct-type %time time? second micro-second 1000000.0 time-seconds \"bad time ~S\" time->seconds number? real? round inexact->exact 1000000 seconds->time \"cannot convert ~S to a time\" \"bad number ~S\" :second :minute :hour :day :month :year %date date->seconds seconds->date make-date date? %seconds->date \"#[date ~A-~A-~A ~A:~A:~A]\" year month day hour minute struct-type-change-writer! date-second date-minute date-hour date-day date-month date-year date-week-day date-year-day date-dst date-tz struct->list seconds->list current-second current-date seconds->string \"bad string ~S\" #\\% #\\~ %seconds->string date->string \"date\" :undefined-symbol-warning pragma \"unknown pragma ~S\" stklos-pragma define-reader-ctor string-downcase string-lower string-upper \"*** Obsolete function set-load-path!. Use load-path instead.\\n\" set-load-path! \"*** Obsolete function set-load-suffixes!. Use load-suffixes instead.\\n\" set-load-suffixes! flush-output-port flush port-rewind rewind-file-port hash-table->list hash-table-put! hash-table-get hash-table-delete! hash-table-remove! REPL (main-repl repl) interactive-port? interactive? repl-level repl-backtrace :interactive \"TERM\" (\"rxvt\" \"xterm\" \"xterm-color\" \"linux\" \"cygwin\") do-color (help ?) blue bold \"Available Commands:\\n- ,backtrace ,bt Show the stack when last error occurred\\t\\n- ,quit ,q\\t Exit STklos\\n- ,help ,? ,h\\t This help\\n\" clear (quit q) (backtrace bt) %display-backtrace \"bad command name: ~S. Type ,help for some help\\n\" do-repl-command %build-error-location red \"**** Error:\\n~A: ~A\\n\" \"\\t(type \\\"\" underline \",help\" \"\\\" for more information)\\n\" display-error-message &error-message &message \"**** Unknown condition raised.\\n\" \"Condition type: ~A\\n\" struct-type-name \"Condition slots: ~S\\n\" \"**** The following non-condition was raised: ~S\\n\" repl-handler \"[~A] \" magenta \"~A> \" module-name black display-prompt :in G2995 :out G2996 :err G2997 \";; ~A\\n\" repl %initialize-signals green \"STklos version ~A\\t\\t\\t[~A]\\n\" machine-type \"Copyright 1999-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr>\\n\" normal main-repl (REPL) compile-file \"compfile\" ((match-case . \"match\") (match-lambda . \"match\")) %print-usage \"getopt\" make-thread \"threads\" ((parse-arguments . \"getopt\")) ((trace . \"trace\") (untrace . \"trace\")) pp \"pp\" pretty-print random-integer \"srfi-27\" random-real ((with-exception-handler . \"srfi-34\") (guard . \"srfi-34\")) ((define-condition-type . \"srfi-35\") (condition . \"srfi-35\")) srfi48:help \"srfi-48\" srfi48:format-fixed %before-exit-hook main \"STKLOS_FRAMES\" \" - ...\\nSet shell variable STKLOS_FRAMES to set visible frames\\n\" \" - \" %procedure-name \"<<let/call>>\" \" @ [~S:~S]\\n\" \"???\" \"let\" \"**** Error while ~A ~S\\n\" \"\\tWhere: ~A\\n\" \"\\tReason: ~A\\n\" \"EXIT\\n\" %simple-fatal-exception-handler :no-init-file :load :file :sexpr \"~/.stklos/stklosrc\" \"loading file\" \"executing file\" \"evaluating\")";
STk_instr STk_boot_code [] = {
0x23, /* 0 */
......@@ -3696,122 +3696,127 @@ STk_instr STk_boot_code [] = {
0x21, 0xa, 0x48a, 0x62, 0xe, 0x25, 0x55, 0x1a8, 0x55, 0x1a9, /* 36840 */
0x55, 0x48a, 0x55, 0x48b, 0xa, 0x14, 0x27, 0x4, 0x24, 0x25, /* 36850 */
0xa, 0x48a, 0x21, 0x12, 0x100, 0x21, 0xa, 0x3, 0x27, 0x2, /* 36860 */
0x24, 0x24, 0x1f, 0x48a, 0x25, 0x55, 0x48c, 0xa, 0x177, 0x21, /* 36870 */
0x56, 0x28, 0x2, 0x13, 0x177, 0x25, 0x55, 0x48d, 0xa, 0x177, /* 36880 */
0x21, 0x56, 0x28, 0x2, 0x13, 0x177, 0x23, 0x2e, 0xffff, 0x25, /* 36890 */
0xa, 0x48e, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x48f, 0x56, 0x19e, /* 36900 */
0x1, 0xc, 0x21, 0xa, 0x48e, 0x62, 0xe, 0x25, 0x55, 0x1a8, /* 36910 */
0x55, 0x1a9, 0x55, 0x48e, 0x55, 0x48f, 0xa, 0x14, 0x27, 0x4, /* 36920 */
0x24, 0x25, 0xa, 0x48e, 0x21, 0x12, 0x100, 0x21, 0xa, 0x3, /* 36930 */
0x27, 0x2, 0x24, 0x24, 0x1f, 0x48e, 0x23, 0x2e, 0xffff, 0x25, /* 36940 */
0xa, 0x490, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x48f, 0x56, 0x19e, /* 36950 */
0x24, 0x24, 0x1f, 0x48a, 0x23, 0x2e, 0xffff, 0x25, 0xa, 0x48c, /* 36870 */
0x21, 0x2b, 0x1, 0x25, 0x55, 0x48d, 0x56, 0x19e, 0x1, 0xc, /* 36880 */
0x21, 0xa, 0x48c, 0x62, 0xe, 0x25, 0x55, 0x1a8, 0x55, 0x1a9, /* 36890 */
0x55, 0x48c, 0x55, 0x48d, 0xa, 0x14, 0x27, 0x4, 0x24, 0x25, /* 36900 */
0xa, 0x48c, 0x21, 0x12, 0x100, 0x21, 0xa, 0x3, 0x27, 0x2, /* 36910 */
0x24, 0x24, 0x1f, 0x48c, 0x25, 0x55, 0x48e, 0xa, 0x177, 0x21, /* 36920 */
0x56, 0x28, 0x2, 0x13, 0x177, 0x25, 0x55, 0x48f, 0xa, 0x177, /* 36930 */
0x21, 0x56, 0x28, 0x2, 0x13, 0x177, 0x23, 0x2e, 0xffff, 0x25, /* 36940 */
0xa, 0x490, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x491, 0x56, 0x19e, /* 36950 */
0x1, 0xc, 0x21, 0xa, 0x490, 0x62, 0xe, 0x25, 0x55, 0x1a8, /* 36960 */
0x55, 0x1a9, 0x55, 0x490, 0x55, 0x48f, 0xa, 0x14, 0x27, 0x4, /* 36970 */
0x55, 0x1a9, 0x55, 0x490, 0x55, 0x491, 0xa, 0x14, 0x27, 0x4, /* 36970 */
0x24, 0x25, 0xa, 0x490, 0x21, 0x12, 0x100, 0x21, 0xa, 0x3, /* 36980 */
0x27, 0x2, 0x24, 0x24, 0x1f, 0x490, 0x23, 0x2e, 0xffff, 0x25, /* 36990 */
0xa, 0x491, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x492, 0x56, 0x19e, /* 37000 */
0x1, 0xc, 0x21, 0xa, 0x491, 0x62, 0xe, 0x25, 0x55, 0x1a8, /* 37010 */
0x55, 0x1a9, 0x55, 0x491, 0x55, 0x492, 0xa, 0x14, 0x27, 0x4, /* 37020 */
0x24, 0x25, 0xa, 0x491, 0x21, 0x12, 0x100, 0x21, 0xa, 0x3, /* 37030 */
0x27, 0x2, 0x24, 0x24, 0x1f, 0x491, 0x23, 0x2e, 0xffff, 0x25, /* 37040 */
0xa, 0x493, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x492, 0x56, 0x19e, /* 37050 */
0xa, 0x492, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x491, 0x56, 0x19e, /* 37000 */
0x1, 0xc, 0x21, 0xa, 0x492, 0x62, 0xe, 0x25, 0x55, 0x1a8, /* 37010 */
0x55, 0x1a9, 0x55, 0x492, 0x55, 0x491, 0xa, 0x14, 0x27, 0x4, /* 37020 */
0x24, 0x25, 0xa, 0x492, 0x21, 0x12, 0x100, 0x21, 0xa, 0x3, /* 37030 */
0x27, 0x2, 0x24, 0x24, 0x1f, 0x492, 0x23, 0x2e, 0xffff, 0x25, /* 37040 */
0xa, 0x493, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x494, 0x56, 0x19e, /* 37050 */
0x1, 0xc, 0x21, 0xa, 0x493, 0x62, 0xe, 0x25, 0x55, 0x1a8, /* 37060 */
0x55, 0x1a9, 0x55, 0x493, 0x55, 0x492, 0xa, 0x14, 0x27, 0x4, /* 37070 */
0x55, 0x1a9, 0x55, 0x493, 0x55, 0x494, 0xa, 0x14, 0x27, 0x4, /* 37070 */
0x24, 0x25, 0xa, 0x493, 0x21, 0x12, 0x100, 0x21, 0xa, 0x3, /* 37080 */
0x27, 0x2, 0x24, 0x24, 0x1f, 0x493, 0x25, 0x55, 0x494, 0xa, /* 37090 */
0x177, 0x21, 0x56, 0x28, 0x2, 0x13, 0x177, 0x25, 0x55, 0x495, /* 37100 */
0xa, 0x177, 0x21, 0x56, 0x28, 0x2, 0x13, 0x177, 0x23, 0x2e, /* 37110 */
0xffff, 0x25, 0xa, 0x496, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x497, /* 37120 */
0x56, 0x19e, 0x1, 0xc, 0x21, 0xa, 0x496, 0x62, 0xe, 0x25, /* 37130 */
0x55, 0x1a8, 0x55, 0x1a9, 0x55, 0x496, 0x55, 0x497, 0xa, 0x14, /* 37140 */
0x27, 0x4, 0x24, 0x25, 0xa, 0x496, 0x21, 0x12, 0x100, 0x21, /* 37150 */
0xa, 0x3, 0x27, 0x2, 0x24, 0x24, 0x1f, 0x496, 0x23, 0x2e, /* 37160 */
0xffff, 0x25, 0xa, 0x498, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x497, /* 37170 */
0x27, 0x2, 0x24, 0x24, 0x1f, 0x493, 0x23, 0x2e, 0xffff, 0x25, /* 37090 */
0xa, 0x495, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x494, 0x56, 0x19e, /* 37100 */
0x1, 0xc, 0x21, 0xa, 0x495, 0x62, 0xe, 0x25, 0x55, 0x1a8, /* 37110 */
0x55, 0x1a9, 0x55, 0x495, 0x55, 0x494, 0xa, 0x14, 0x27, 0x4, /* 37120 */
0x24, 0x25, 0xa, 0x495, 0x21, 0x12, 0x100, 0x21, 0xa, 0x3, /* 37130 */
0x27, 0x2, 0x24, 0x24, 0x1f, 0x495, 0x25, 0x55, 0x496, 0xa, /* 37140 */
0x177, 0x21, 0x56, 0x28, 0x2, 0x13, 0x177, 0x25, 0x55, 0x497, /* 37150 */
0xa, 0x177, 0x21, 0x56, 0x28, 0x2, 0x13, 0x177, 0x23, 0x2e, /* 37160 */
0xffff, 0x25, 0xa, 0x498, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x499, /* 37170 */
0x56, 0x19e, 0x1, 0xc, 0x21, 0xa, 0x498, 0x62, 0xe, 0x25, /* 37180 */
0x55, 0x1a8, 0x55, 0x1a9, 0x55, 0x498, 0x55, 0x497, 0xa, 0x14, /* 37190 */
0x55, 0x1a8, 0x55, 0x1a9, 0x55, 0x498, 0x55, 0x499, 0xa, 0x14, /* 37190 */
0x27, 0x4, 0x24, 0x25, 0xa, 0x498, 0x21, 0x12, 0x100, 0x21, /* 37200 */
0xa, 0x3, 0x27, 0x2, 0x24, 0x24, 0x1f, 0x498, 0xa, 0x27, /* 37210 */
0x1f, 0x499, 0xa, 0x27, 0x1f, 0x49a, 0x23, 0x126, 0x2, 0x25, /* 37220 */
0x4d, 0x4d, 0x2b, 0x2, 0x23, 0x33, 0x0, 0x25, 0x12, 0x201, /* 37230 */
0x21, 0x56, 0x92, 0x1, 0x21, 0x12, 0x200, 0x5e, 0x23, 0x25, /* 37240 */
0x25, 0x25, 0x12, 0x201, 0x21, 0x56, 0x2a, 0x1, 0x21, 0x12, /* 37250 */
0x200, 0x21, 0x56, 0x1d8, 0x2, 0x21, 0x2b, 0x1, 0x25, 0xa, /* 37260 */
0x337, 0x21, 0x1, 0x3b, 0x21, 0xc, 0x3b, 0x21, 0xa, 0x1d7, /* 37270 */
0x27, 0x1, 0x24, 0x24, 0x12, 0x201, 0x24, 0x16, 0x23, 0x57, /* 37280 */
0x1, 0x25, 0x25, 0x25, 0x55, 0x49b, 0x56, 0x182, 0x1, 0x21, /* 37290 */
0x29, 0x1, 0xc, 0x1d, 0x8, 0x25, 0xc, 0x21, 0x56, 0x1ed, /* 37300 */
0x1, 0x1c, 0x1, 0x1, 0x2c, 0x1e, 0x5, 0x8, 0xa, 0x1e, /* 37310 */
0x1, 0x1, 0x21, 0x25, 0xc, 0x21, 0x56, 0x92, 0x1, 0x21, /* 37320 */
0x2b, 0x2, 0xd, 0x21, 0x5, 0x5f, 0x6, 0xc, 0x21, 0xd, /* 37330 */
0x36, 0x1c, 0x1, 0x1, 0x1d, 0x1b, 0x25, 0x55, 0x49c, 0x25, /* 37340 */
0x25, 0x12, 0x100, 0x21, 0x56, 0x1d7, 0x1, 0x21, 0xc, 0x21, /* 37350 */
0xd, 0x31, 0x21, 0x56, 0x1d8, 0x2, 0x3b, 0x21, 0xa, 0x1d7, /* 37360 */
0x27, 0x1, 0x24, 0x12, 0x100, 0x24, 0x24, 0x15, 0x25, 0x25, /* 37370 */
0x56, 0x75, 0x0, 0x21, 0x2b, 0x1, 0x25, 0x23, 0x6b, 0x1, /* 37380 */
0x25, 0xc, 0x21, 0x56, 0xaf, 0x1, 0x1d, 0xb, 0x25, 0xc, /* 37390 */
0x21, 0x12, 0x100, 0x21, 0xa, 0x120, 0x27, 0x2, 0x24, 0x25, /* 37400 */
0x55, 0x49d, 0x12, 0x100, 0x21, 0x56, 0x120, 0x2, 0x25, 0xc, /* 37410 */
0x3d, 0x21, 0x29, 0x1, 0x25, 0x25, 0xc, 0x21, 0x56, 0x5e, /* 37420 */
0x1, 0x1d, 0x8, 0x25, 0xc, 0x21, 0x56, 0x49e, 0x1, 0x1c, /* 37430 */
0x8, 0xc, 0x1e, 0x4, 0x9, 0x49f, 0x1c, 0x1, 0xc, 0x21, /* 37440 */
0x12, 0x200, 0x21, 0x56, 0x120, 0x2, 0x2c, 0xc, 0x3e, 0x1d, /* 37450 */
0x1a, 0x25, 0x12, 0x100, 0x21, 0x55, 0x4a0, 0x25, 0xc, 0x21, /* 37460 */
0x56, 0x3b, 0x1, 0x21, 0x25, 0xc, 0x21, 0x56, 0x3c, 0x1, /* 37470 */
0x21, 0xa, 0x66, 0x27, 0x4, 0x1c, 0x8, 0x25, 0x12, 0x100, /* 37480 */
0x21, 0xa, 0x121, 0x27, 0x1, 0x24, 0x21, 0x25, 0x25, 0x12, /* 37490 */
0x101, 0x26, 0x0, 0x21, 0x12, 0x100, 0x26, 0x1, 0x21, 0x56, /* 37500 */
0x37, 0x2, 0x25, 0xc, 0x21, 0xa, 0x444, 0x27, 0x1, 0x24, /* 37510 */
0x24, 0x24, 0x1f, 0x45e, 0x23, 0xaa, 0x2, 0xd, 0x1d, 0x13, /* 37520 */
0xd, 0x21, 0xc, 0x3c, 0x1d, 0x3, 0x1, 0x1c, 0x6, 0x25, /* 37530 */
0xc, 0x21, 0x56, 0x3a, 0x1, 0x21, 0x3f, 0x2, 0x24, 0x25, /* 37540 */
0xc, 0x21, 0x25, 0x4d, 0x29, 0x1, 0x25, 0x23, 0x7d, 0x1, /* 37550 */
0xc, 0x3c, 0x1d, 0x6, 0x55, 0x4a1, 0x4d, 0x3f, 0x2, 0x24, /* 37560 */
0x25, 0x25, 0xc, 0x21, 0x56, 0x39, 0x1, 0x21, 0x56, 0x5e, /* 37570 */
0x1, 0x1d, 0x3c, 0x25, 0x25, 0x25, 0xc, 0x21, 0x56, 0x39, /* 37580 */
0x1, 0x21, 0x56, 0x49e, 0x1, 0x21, 0x2b, 0x1, 0x25, 0xc, /* 37590 */
0x21, 0x56, 0xaf, 0x1, 0x1e, 0xa, 0x25, 0x12, 0x100, 0x21, /* 37600 */
0x56, 0x3a, 0x1, 0x1e, 0x1, 0x1, 0x1d, 0xd, 0xc, 0x21, /* 37610 */
0x25, 0x12, 0x100, 0x21, 0x56, 0x3a, 0x1, 0x21, 0x3f, 0x2, /* 37620 */
0x24, 0x25, 0x12, 0x100, 0x3e, 0x21, 0x12, 0x200, 0x27, 0x1, /* 37630 */
0x24, 0x1c, 0x28, 0x25, 0xc, 0x21, 0x56, 0x39, 0x1, 0x1e, /* 37640 */
0x1f, 0x25, 0xc, 0x21, 0x56, 0x3a, 0x1, 0x1d, 0xd, 0x55, /* 37650 */
0x4a2, 0x25, 0xc, 0x21, 0x56, 0x3a, 0x1, 0x21, 0x3f, 0x2, /* 37660 */
0x1c, 0xb, 0x25, 0xc, 0x3e, 0x21, 0x12, 0x100, 0x27, 0x1, /* 37670 */
0x1c, 0x1, 0x7, 0x24, 0x21, 0x29, 0x1, 0xc, 0x1b, 0x100, /* 37680 */
0x2c, 0xc, 0x2c, 0x27, 0x1, 0x24, 0x1f, 0x461, 0x23, 0x91, /* 37690 */
0x4, 0x25, 0x25, 0x56, 0x75, 0x0, 0x21, 0x4d, 0x2b, 0x2, /* 37700 */
0x25, 0xd, 0x21, 0x55, 0x4a3, 0x12, 0x103, 0x21, 0x12, 0x102, /* 37710 */
0x21, 0x56, 0x66, 0x4, 0x25, 0x12, 0x101, 0x21, 0x56, 0x163, /* 37720 */
0x1, 0x1d, 0x4f, 0x25, 0x12, 0x101, 0x21, 0xa, 0x469, 0x21, /* 37730 */
0x56, 0x164, 0x2, 0x1d, 0x1f, 0x25, 0x12, 0x101, 0x21, 0x55, /* 37740 */
0x67, 0x56, 0x166, 0x2, 0x15, 0x25, 0xd, 0x21, 0x55, 0x4a4, /* 37750 */
0x25, 0x12, 0x102, 0x21, 0xc, 0x21, 0x56, 0x461, 0x2, 0x3d, /* 37760 */
0x21, 0x56, 0x66, 0x3, 0x1c, 0x1, 0x7, 0x25, 0x12, 0x101, /* 37770 */
0x21, 0xa, 0x46a, 0x21, 0x56, 0x164, 0x2, 0x1d, 0x14, 0x25, /* 37780 */
0xd, 0x21, 0x55, 0x4a5, 0x25, 0x12, 0x101, 0x21, 0x55, 0x64, /* 37790 */
0x56, 0x166, 0x2, 0x21, 0x56, 0x66, 0x3, 0x1c, 0x4, 0x7, /* 37800 */
0x1c, 0x1, 0x7, 0xc, 0x1d, 0xb, 0x25, 0xc, 0x21, 0x12, /* 37810 */
0x100, 0x21, 0x56, 0x45e, 0x2, 0x1c, 0x1, 0x7, 0x25, 0xd, /* 37820 */
0x21, 0x55, 0x4a6, 0x56, 0x66, 0x2, 0x25, 0x54, 0x46, 0xa, /* 37830 */
0x12e, 0x27, 0x1, 0x24, 0x24, 0x1f, 0x4a7, 0x25, 0x25, 0xa, /* 37840 */
0xd2, 0x21, 0x55, 0x4a8, 0x4d, 0x56, 0xbf, 0x3, 0x21, 0x25, /* 37850 */
0xa, 0xd2, 0x21, 0x55, 0x4a9, 0x4d, 0x56, 0xbf, 0x3, 0x21, /* 37860 */
0x25, 0xa, 0xd2, 0x21, 0x55, 0x4aa, 0x4d, 0x56, 0xbf, 0x3, /* 37870 */
0x21, 0x25, 0xa, 0xd2, 0x21, 0x55, 0x4ab, 0x4d, 0x56, 0xbf, /* 37880 */
0x3, 0x21, 0x29, 0x4, 0xf, 0x1e, 0xd, 0x25, 0x25, 0x55, /* 37890 */
0x4ac, 0x56, 0x14e, 0x1, 0x21, 0x56, 0x198, 0x1, 0x1c, 0x1, /* 37900 */
0x7, 0xe, 0x1d, 0x1d, 0x23, 0x10, 0x1, 0x25, 0x55, 0x4ad, /* 37910 */
0x12, 0x102, 0x21, 0xc, 0x21, 0x54, 0x7, 0xa, 0x4a7, 0x27, /* 37920 */
0x4, 0x24, 0x2d, 0x7, 0x25, 0xe, 0x21, 0x56, 0x19b, 0x1, /* 37930 */
0x2e, 0x1c, 0x1, 0x7, 0xd, 0x1d, 0x41, 0x23, 0x10, 0x1, /* 37940 */
0x25, 0x55, 0x4ae, 0x12, 0x101, 0x21, 0xc, 0x21, 0x54, 0x2, /* 37950 */
0xa, 0x4a7, 0x27, 0x4, 0x24, 0x2d, 0x2b, 0x25, 0xd, 0x21, /* 37960 */
0x56, 0x19b, 0x1, 0x25, 0x25, 0x25, 0x56, 0xd6, 0x0, 0x21, /* 37970 */
0x25, 0x56, 0xd4, 0x0, 0x3b, 0x21, 0x56, 0x49a, 0x1, 0x21, /* 37980 */
0x29, 0x1, 0x25, 0x56, 0x499, 0x0, 0x25, 0xc, 0x21, 0x56, /* 37990 */
0x154, 0x1, 0x1d, 0x3, 0xc, 0x1c, 0x1, 0x5, 0x2c, 0x2e, /* 38000 */
0x1c, 0x2a, 0xc, 0x1d, 0x23, 0x23, 0x10, 0x1, 0x25, 0x55, /* 38010 */
0x4af, 0x12, 0x100, 0x21, 0xc, 0x21, 0x54, 0x4, 0xa, 0x4a7, /* 38020 */
0x27, 0x4, 0x24, 0x2d, 0xd, 0x25, 0x25, 0xc, 0x21, 0x56, /* 38030 */
0xcc, 0x1, 0x21, 0x56, 0x337, 0x1, 0x5, 0x2e, 0x1c, 0x4, /* 38040 */
0xa, 0x3, 0x27, 0x2, 0x24, 0x24, 0x1f, 0x498, 0x23, 0x2e, /* 37210 */
0xffff, 0x25, 0xa, 0x49a, 0x21, 0x2b, 0x1, 0x25, 0x55, 0x499, /* 37220 */
0x56, 0x19e, 0x1, 0xc, 0x21, 0xa, 0x49a, 0x62, 0xe, 0x25, /* 37230 */
0x55, 0x1a8, 0x55, 0x1a9, 0x55, 0x49a, 0x55, 0x499, 0xa, 0x14, /* 37240 */
0x27, 0x4, 0x24, 0x25, 0xa, 0x49a, 0x21, 0x12, 0x100, 0x21, /* 37250 */
0xa, 0x3, 0x27, 0x2, 0x24, 0x24, 0x1f, 0x49a, 0xa, 0x27, /* 37260 */
0x1f, 0x49b, 0xa, 0x27, 0x1f, 0x49c, 0x23, 0x126, 0x2, 0x25, /* 37270 */
0x4d, 0x4d, 0x2b, 0x2, 0x23, 0x33, 0x0, 0x25, 0x12, 0x201, /* 37280 */
0x21, 0x56, 0x92, 0x1, 0x21, 0x12, 0x200, 0x5e, 0x23, 0x25, /* 37290 */
0x25, 0x25, 0x12, 0x201, 0x21, 0x56, 0x2a, 0x1, 0x21, 0x12, /* 37300 */
0x200, 0x21, 0x56, 0x1d8, 0x2, 0x21, 0x2b, 0x1, 0x25, 0xa, /* 37310 */
0x337, 0x21, 0x1, 0x3b, 0x21, 0xc, 0x3b, 0x21, 0xa, 0x1d7, /* 37320 */
0x27, 0x1, 0x24, 0x24, 0x12, 0x201, 0x24, 0x16, 0x23, 0x57, /* 37330 */
0x1, 0x25, 0x25, 0x25, 0x55, 0x49d, 0x56, 0x182, 0x1, 0x21, /* 37340 */
0x29, 0x1, 0xc, 0x1d, 0x8, 0x25, 0xc, 0x21, 0x56, 0x1ed, /* 37350 */
0x1, 0x1c, 0x1, 0x1, 0x2c, 0x1e, 0x5, 0x8, 0xa, 0x1e, /* 37360 */
0x1, 0x1, 0x21, 0x25, 0xc, 0x21, 0x56, 0x92, 0x1, 0x21, /* 37370 */
0x2b, 0x2, 0xd, 0x21, 0x5, 0x5f, 0x6, 0xc, 0x21, 0xd, /* 37380 */
0x36, 0x1c, 0x1, 0x1, 0x1d, 0x1b, 0x25, 0x55, 0x49e, 0x25, /* 37390 */
0x25, 0x12, 0x100, 0x21, 0x56, 0x1d7, 0x1, 0x21, 0xc, 0x21, /* 37400 */
0xd, 0x31, 0x21, 0x56, 0x1d8, 0x2, 0x3b, 0x21, 0xa, 0x1d7, /* 37410 */
0x27, 0x1, 0x24, 0x12, 0x100, 0x24, 0x24, 0x15, 0x25, 0x25, /* 37420 */
0x56, 0x75, 0x0, 0x21, 0x2b, 0x1, 0x25, 0x23, 0x6b, 0x1, /* 37430 */
0x25, 0xc, 0x21, 0x56, 0xaf, 0x1, 0x1d, 0xb, 0x25, 0xc, /* 37440 */
0x21, 0x12, 0x100, 0x21, 0xa, 0x120, 0x27, 0x2, 0x24, 0x25, /* 37450 */
0x55, 0x49f, 0x12, 0x100, 0x21, 0x56, 0x120, 0x2, 0x25, 0xc, /* 37460 */
0x3d, 0x21, 0x29, 0x1, 0x25, 0x25, 0xc, 0x21, 0x56, 0x5e, /* 37470 */
0x1, 0x1d, 0x8, 0x25, 0xc, 0x21, 0x56, 0x4a0, 0x1, 0x1c, /* 37480 */
0x8, 0xc, 0x1e, 0x4, 0x9, 0x4a1, 0x1c, 0x1, 0xc, 0x21, /* 37490 */
0x12, 0x200, 0x21, 0x56, 0x120, 0x2, 0x2c, 0xc, 0x3e, 0x1d, /* 37500 */
0x1a, 0x25, 0x12, 0x100, 0x21, 0x55, 0x4a2, 0x25, 0xc, 0x21, /* 37510 */
0x56, 0x3b, 0x1, 0x21, 0x25, 0xc, 0x21, 0x56, 0x3c, 0x1, /* 37520 */
0x21, 0xa, 0x66, 0x27, 0x4, 0x1c, 0x8, 0x25, 0x12, 0x100, /* 37530 */
0x21, 0xa, 0x121, 0x27, 0x1, 0x24, 0x21, 0x25, 0x25, 0x12, /* 37540 */
0x101, 0x26, 0x0, 0x21, 0x12, 0x100, 0x26, 0x1, 0x21, 0x56, /* 37550 */
0x37, 0x2, 0x25, 0xc, 0x21, 0xa, 0x444, 0x27, 0x1, 0x24, /* 37560 */
0x24, 0x24, 0x1f, 0x45e, 0x23, 0xaa, 0x2, 0xd, 0x1d, 0x13, /* 37570 */
0xd, 0x21, 0xc, 0x3c, 0x1d, 0x3, 0x1, 0x1c, 0x6, 0x25, /* 37580 */
0xc, 0x21, 0x56, 0x3a, 0x1, 0x21, 0x3f, 0x2, 0x24, 0x25, /* 37590 */
0xc, 0x21, 0x25, 0x4d, 0x29, 0x1, 0x25, 0x23, 0x7d, 0x1, /* 37600 */
0xc, 0x3c, 0x1d, 0x6, 0x55, 0x4a3, 0x4d, 0x3f, 0x2, 0x24, /* 37610 */
0x25, 0x25, 0xc, 0x21, 0x56, 0x39, 0x1, 0x21, 0x56, 0x5e, /* 37620 */
0x1, 0x1d, 0x3c, 0x25, 0x25, 0x25, 0xc, 0x21, 0x56, 0x39, /* 37630 */
0x1, 0x21, 0x56, 0x4a0, 0x1, 0x21, 0x2b, 0x1, 0x25, 0xc, /* 37640 */
0x21, 0x56, 0xaf, 0x1, 0x1e, 0xa, 0x25, 0x12, 0x100, 0x21, /* 37650 */
0x56, 0x3a, 0x1, 0x1e, 0x1, 0x1, 0x1d, 0xd, 0xc, 0x21, /* 37660 */
0x25, 0x12, 0x100, 0x21, 0x56, 0x3a, 0x1, 0x21, 0x3f, 0x2, /* 37670 */
0x24, 0x25, 0x12, 0x100, 0x3e, 0x21, 0x12, 0x200, 0x27, 0x1, /* 37680 */
0x24, 0x1c, 0x28, 0x25, 0xc, 0x21, 0x56, 0x39, 0x1, 0x1e, /* 37690 */
0x1f, 0x25, 0xc, 0x21, 0x56, 0x3a, 0x1, 0x1d, 0xd, 0x55, /* 37700 */
0x4a4, 0x25, 0xc, 0x21, 0x56, 0x3a, 0x1, 0x21, 0x3f, 0x2, /* 37710 */
0x1c, 0xb, 0x25, 0xc, 0x3e, 0x21, 0x12, 0x100, 0x27, 0x1, /* 37720 */
0x1c, 0x1, 0x7, 0x24, 0x21, 0x29, 0x1, 0xc, 0x1b, 0x100, /* 37730 */
0x2c, 0xc, 0x2c, 0x27, 0x1, 0x24, 0x1f, 0x461, 0x23, 0x91, /* 37740 */
0x4, 0x25, 0x25, 0x56, 0x75, 0x0, 0x21, 0x4d, 0x2b, 0x2, /* 37750 */
0x25, 0xd, 0x21, 0x55, 0x4a5, 0x12, 0x103, 0x21, 0x12, 0x102, /* 37760 */
0x21, 0x56, 0x66, 0x4, 0x25, 0x12, 0x101, 0x21, 0x56, 0x163, /* 37770 */
0x1, 0x1d, 0x4f, 0x25, 0x12, 0x101, 0x21, 0xa, 0x469, 0x21, /* 37780 */
0x56, 0x164, 0x2, 0x1d, 0x1f, 0x25, 0x12, 0x101, 0x21, 0x55, /* 37790 */
0x67, 0x56, 0x166, 0x2, 0x15, 0x25, 0xd, 0x21, 0x55, 0x4a6, /* 37800 */
0x25, 0x12, 0x102, 0x21, 0xc, 0x21, 0x56, 0x461, 0x2, 0x3d, /* 37810 */
0x21, 0x56, 0x66, 0x3, 0x1c, 0x1, 0x7, 0x25, 0x12, 0x101, /* 37820 */
0x21, 0xa, 0x46a, 0x21, 0x56, 0x164, 0x2, 0x1d, 0x14, 0x25, /* 37830 */
0xd, 0x21, 0x55, 0x4a7, 0x25, 0x12, 0x101, 0x21, 0x55, 0x64, /* 37840 */
0x56, 0x166, 0x2, 0x21, 0x56, 0x66, 0x3, 0x1c, 0x4, 0x7, /* 37850 */
0x1c, 0x1, 0x7, 0xc, 0x1d, 0xb, 0x25, 0xc, 0x21, 0x12, /* 37860 */
0x100, 0x21, 0x56, 0x45e, 0x2, 0x1c, 0x1, 0x7, 0x25, 0xd, /* 37870 */
0x21, 0x55, 0x4a8, 0x56, 0x66, 0x2, 0x25, 0x54, 0x46, 0xa, /* 37880 */
0x12e, 0x27, 0x1, 0x24, 0x24, 0x1f, 0x4a9, 0x25, 0x25, 0xa, /* 37890 */
0xd2, 0x21, 0x55, 0x4aa, 0x4d, 0x56, 0xbf, 0x3, 0x21, 0x25, /* 37900 */
0xa, 0xd2, 0x21, 0x55, 0x4ab, 0x4d, 0x56, 0xbf, 0x3, 0x21, /* 37910 */
0x25, 0xa, 0xd2, 0x21, 0x55, 0x4ac, 0x4d, 0x56, 0xbf, 0x3, /* 37920 */
0x21, 0x25, 0xa, 0xd2, 0x21, 0x55, 0x4ad, 0x4d, 0x56, 0xbf, /* 37930 */
0x3, 0x21, 0x29, 0x4, 0xf, 0x1e, 0xd, 0x25, 0x25, 0x55, /* 37940 */
0x4ae, 0x56, 0x14e, 0x1, 0x21, 0x56, 0x198, 0x1, 0x1c, 0x1, /* 37950 */
0x7, 0xe, 0x1d, 0x1d, 0x23, 0x10, 0x1, 0x25, 0x55, 0x4af, /* 37960 */
0x12, 0x102, 0x21, 0xc, 0x21, 0x54, 0x7, 0xa, 0x4a9, 0x27, /* 37970 */
0x4, 0x24, 0x2d, 0x7, 0x25, 0xe, 0x21, 0x56, 0x19b, 0x1, /* 37980 */
0x2e, 0x1c, 0x1, 0x7, 0xd, 0x1d, 0x41, 0x23, 0x10, 0x1, /* 37990 */
0x25, 0x55, 0x4b0, 0x12, 0x101, 0x21, 0xc, 0x21, 0x54, 0x2, /* 38000 */
0xa, 0x4a9, 0x27, 0x4, 0x24, 0x2d, 0x2b, 0x25, 0xd, 0x21, /* 38010 */
0x56, 0x19b, 0x1, 0x25, 0x25, 0x25, 0x56, 0xd6, 0x0, 0x21, /* 38020 */
0x25, 0x56, 0xd4, 0x0, 0x3b, 0x21, 0x56, 0x49c, 0x1, 0x21, /* 38030 */
0x29, 0x1, 0x25, 0x56, 0x49b, 0x0, 0x25, 0xc, 0x21, 0x56, /* 38040 */
0x154, 0x1, 0x1d, 0x3, 0xc, 0x1c, 0x1, 0x5, 0x2c, 0x2e, /* 38050 */
0x1c, 0x2a, 0xc, 0x1d, 0x23, 0x23, 0x10, 0x1, 0x25, 0x55, /* 38060 */
0x4b1, 0x12, 0x100, 0x21, 0xc, 0x21, 0x54, 0x4, 0xa, 0x4a9, /* 38070 */
0x27, 0x4, 0x24, 0x2d, 0xd, 0x25, 0x25, 0xc, 0x21, 0x56, /* 38080 */
0xcc, 0x1, 0x21, 0x56, 0x337, 0x1, 0x5, 0x2e, 0x1c, 0x4, /* 38090 */
0x25, 0x56, 0x485, 0x0, 0x2c, 0x2f};
No preview for this file type
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment