wisp-cvs Mailing List for Wisp interpreter (Page 26)
Status: Alpha
Brought to you by:
digg
Menu
▾
▴
wisp-cvs — Automatic announcements of commits to the CVS repository
You can subscribe to this list here.
| 2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(30) |
Sep
(312) |
Oct
|
Nov
|
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(5) |
Feb
(131) |
Mar
(17) |
Apr
(184) |
May
(252) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(2) |
Nov
|
Dec
|
|
From: <di...@us...> - 2002-09-18 21:15:45
|
Update of /cvsroot/wisp/wisp/doc
In directory usw-pr-cvs1:/tmp/cvs-serv1563/doc
Modified Files:
paw.txt wisp.vim worth.vim
Log Message:
Implemented |<u8vector>|.
Index: paw.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/paw.txt,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- paw.txt 4 Sep 2002 14:33:22 -0000 1.10
+++ paw.txt 18 Sep 2002 21:15:12 -0000 1.11
@@ -59,7 +59,7 @@
* |vector-set!|.
-3. Prefer |ref| where possible <new>
+3. Prefer |ref| where possible <act>
The |ref| procedure should be the preferred way to access members
of strings and vectors of any kind. Accordingly, PAW-3
obsoletes |string-ref| and |vector-ref| of R5RS and the
@@ -90,8 +90,8 @@
(|len| /vector/).
-5. Prefer |len| where possible <new>
- The |len| procedure should be the preferred way to access length of
+5. Prefer |length| where possible <act>
+ The |length| procedure should be the preferred way to access length of
simple compound objects of any kind. Accordingly, PAW-5 obsoletes
|string-length| and |vector-length| of R5RS. Furthermore, PAW-5
obsoletes the |record-type-slot-count| procedure.
Index: wisp.vim
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/wisp.vim,v
retrieving revision 1.229
retrieving revision 1.230
diff -u -d -r1.229 -r1.230
--- wisp.vim 18 Sep 2002 21:11:05 -0000 1.229
+++ wisp.vim 18 Sep 2002 21:15:12 -0000 1.230
@@ -114,6 +114,12 @@
syn keyword wispSyntax string-template sub swap! syntax-rules try type
syn keyword wispSyntax unless unquote use when while
+" FIXME: I don't really think types should be lumped together with
+" syntax ...
+
+syn keyword wispSyntax <box> <c16string> <macro> <record-type>
+syn keyword wispSyntax <u8vector> <vector>
+
syn keyword wispFunc * + - / /= < << <= = > >= >> abs address-of
syn keyword wispFunc alist->dict alist->vector alist-copy analyse angle
syn keyword wispFunc append append-reverse apply assert-object-type
@@ -208,7 +214,7 @@
syn keyword wispFunc system-constant tcchangeattr tcgetattr
syn keyword wispFunc tcgetattr-raw tcsetattr-raw tenth third toposplit
syn keyword wispFunc transcript-off transcript-on translate tree-copy
-syn keyword wispFunc truncate tty? type-of ubyte? unix-time
+syn keyword wispFunc truncate tty? type-of u8vector? ubyte? unix-time
syn keyword wispFunc unpack-be-integer unpack-le-integer unsure-collect
syn keyword wispFunc utf-8->c16string utf-8-first-byte->length uwyde?
syn keyword wispFunc vector vector->list vector-append vector-copy
Index: worth.vim
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/worth.vim,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- worth.vim 18 Sep 2002 21:14:22 -0000 1.23
+++ worth.vim 18 Sep 2002 21:15:12 -0000 1.24
@@ -21,7 +21,7 @@
syn keyword wispSyntax ->reg ->ureg :> <: again begin believe binary
syn keyword wispSyntax conform copy delete else flush if if-empty
syn keyword wispSyntax if-int-const register repeat stack<=! stack=!
-syn keyword wispSyntax stack>=! then until while
+syn keyword wispSyntax stack>=! then unless until while
syn keyword wispFunc * + - --byte@ --cell@ --tetra@ --wyde@ -2rot
syn keyword wispFunc ->wisp-bool -rot / /mod 0= 1+ 1- 2* 2drop 2dup
@@ -29,11 +29,12 @@
syn keyword wispFunc WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED
syn keyword wispFunc WSTOPSIG WTERMSIG abs and argc argc-argv-envp
syn keyword wispFunc argv-envp arshift bsf bsr bury byte! byte@ byte@++
-syn keyword wispFunc cell! cell+ cell- cell@ cell@++ cellfill cellmove
-syn keyword wispFunc cells cr d+ d- d>s dhexprint dig drop dup emit
-syn keyword wispFunc emit-digit encode-digit fill get-type
-syn keyword wispFunc go-access-slot hexprint lshift m+ max min mod move
-syn keyword wispFunc negate nip not octas or over require-c8string
+syn keyword wispFunc bytefill bytemove cell! cell+ cell- cell@ cell@++
+syn keyword wispFunc cellfill cellmove cells cr d+ d- d>s decons
+syn keyword wispFunc dhexprint dig drop dup emit emit-digit
+syn keyword wispFunc encode-digit fill get-type go-access-slot hexprint
+syn keyword wispFunc lshift m+ max min mod move negate nip not octas or
+syn keyword wispFunc over require-c8string require-cons
syn keyword wispFunc require-record-type require-string-length
syn keyword wispFunc require-vector rol ror rot rshift s>d sp! sp@
syn keyword wispFunc space square string-data string-length swap
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv1563/src/builtin
Modified Files:
dictbase.wisp lists.wisp parser.wisp stdenv.wisp tostring.wisp
vectors.wisp
Log Message:
Implemented |<u8vector>|.
Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.253
retrieving revision 1.254
diff -u -d -r1.253 -r1.254
--- dictbase.wisp 18 Sep 2002 21:12:38 -0000 1.253
+++ dictbase.wisp 18 Sep 2002 21:15:21 -0000 1.254
@@ -21,6 +21,7 @@
(local <box> (asm RT_box))
(local <c16string> (asm RT_c16string))
(local <record-type> (asm RT_record_type))
+(local <u8vector> (asm RT_u8vector))
(local <vector> (asm RT_vector))
(local address-of (asm NN_encui))
(local apply (asm NN_apply))
@@ -152,6 +153,7 @@
(local sys:sync (asm NN_sys_sync))
(local truncate (asm NN_truncate))
(local type-of (asm NN_type_of))
+(local u8vector? (asm NN_u8vector_huh))
(local unix-time (asm NN_unix_time))
(local unsigned-get-bit (asm NN_unsigned_get_bit))
(local utf-8-first-byte->length (asm NN_utf_8_first_byte2length))
Index: lists.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/lists.wisp,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -d -r1.108 -r1.109
--- lists.wisp 18 Sep 2002 21:12:38 -0000 1.108
+++ lists.wisp 18 Sep 2002 21:15:21 -0000 1.109
@@ -281,6 +281,11 @@
d)
; {{{ |vector->list|
+; Note that this implementation works on all types that implement
+; |ref| and |length| in a vector-like fashion; in particular, on
+; |<u8vector>| and |<c16string>|. Still, it is probably
+; desirable to add a fast path for instances of |<vector>| once
+; the translator is able to optimize it properly.
(define (vector->list vec)
(do ((i (- (length vec) 1) (- i 1))
(l '() (cons vec[i] l)))
Index: parser.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/parser.wisp,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -d -r1.121 -r1.122
--- parser.wisp 18 Sep 2002 21:11:14 -0000 1.121
+++ parser.wisp 18 Sep 2002 21:15:21 -0000 1.122
@@ -157,7 +157,19 @@
((b) #\1)
((o) #\3)
((d) #\0)
- (else (raise 'invalid-reader-syntax "#$[name]")))))
+ ((u) (my width (string->integer
+ (read-char-sequence
+ port char-digit?))
+ (case width
+ ((8) (if (eqv? (read-char port)
+ #\open)
+ 'u8
+ (raise 'invalid-reader-syntax
+ "#$,[name]$,[width]")))
+ (else (raise 'invalid-reader-syntax
+ "#$,[name]$,[width]")))))
+ (else (raise 'invalid-reader-syntax
+ "#$,[name]")))))
(else
(case (read-char port)
((#\<) (raise 'unreadable (string-copy "#<")))
@@ -263,6 +275,8 @@
(read-list port))
((eqv? t #\V)
(list->vector (read-block port #\close)))
+ ((eqv? t 'u8)
+ (list->vector (read-block port #\close) <u8vector>))
((eqv? t #\B)
(if (eqv? (peek-token port) #\.)
(begin
Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.369
retrieving revision 1.370
diff -u -d -r1.369 -r1.370
--- stdenv.wisp 18 Sep 2002 21:12:38 -0000 1.369
+++ stdenv.wisp 18 Sep 2002 21:15:21 -0000 1.370
@@ -12,14 +12,14 @@
(cons 'list
(map (lambda (x) `(cons ',x ,x))
'(* + - / /= < << <= <box> <c16string> <class> <file>
- <macro> <port> <record-type> <vector> = > >= >> abs acons!
- address-of alist->dict alist-copy analyse and append
- append-reverse apply assert assert-object-type assoc assq
- assv atom? big-integer? bind bit? boolean? box-empty!
- box-empty? box-ref box? broketed? builtin-modules
- c16string? c8string? caaaar caaadr caaar caadar caaddr
- caadr caar cadaar cadadr cadar caddar cadddr caddr cadr
- call-with-in/out-files call-with-input-file
+ <macro> <port> <record-type> <u8vector> <vector> = > >= >>
+ abs acons! address-of alist->dict alist-copy analyse and
+ append append-reverse apply assert assert-object-type
+ assoc assq assv atom? big-integer? bind bit? boolean?
+ box-empty! box-empty? box-ref box? broketed?
+ builtin-modules c16string? c8string? caaaar caaadr caaar
+ caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr
+ caddr cadr call-with-in/out-files call-with-input-file
call-with-output-file car car! car* cardinal? case catch
cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr
cddar cdddar cddddr cdddr cddr cdr cdr! cdr* ceiling
@@ -89,7 +89,7 @@
symbol<? symbol>=? symbol>? symbol? system-constant
tcchangeattr tcgetattr tcgetattr-raw tcsetattr-raw tenth
third toposplit translate tree-copy truncate try tty? type
- type-of ubyte? unix-time unpack-be-integer
+ type-of u8vector? ubyte? unix-time unpack-be-integer
unpack-le-integer unsure-collect use utf-8->c16string
utf-8-first-byte->length uwyde? vector vector->list
vector-append vector-copy vector-fill! vector-move!
Index: tostring.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/tostring.wisp,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -d -r1.80 -r1.81
--- tostring.wisp 18 Sep 2002 21:06:31 -0000 1.80
+++ tostring.wisp 18 Sep 2002 21:15:23 -0000 1.81
@@ -119,6 +119,10 @@
(begin
(emit #\#)
(loop (vector->list s)))))
+ ((u8vector? s) (if (not (check-duplicity s))
+ (begin
+ (emit "#u8")
+ (loop (vector->list s)))))
((cons? s) (if (not (check-duplicity s))
(cond
((and (cons? (cdr s))
Index: vectors.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/vectors.wisp,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -d -r1.64 -r1.65
--- vectors.wisp 7 Sep 2002 21:59:27 -0000 1.64
+++ vectors.wisp 18 Sep 2002 21:15:23 -0000 1.65
@@ -8,8 +8,8 @@
;;;; The fundamentals
-(define (list->vector l)
- (my vec (make-vector (length l))
+(define (list->vector l (vectype <vector>))
+ (my vec (new vectype (length l))
(my i 0
(while (not (null? l))
(set! vec[i] (car l))
|
|
From: <di...@us...> - 2002-09-18 21:15:26
|
Update of /cvsroot/wisp/wisp/src/native In directory usw-pr-cvs1:/tmp/cvs-serv1563/src/native Modified Files: vectors.s vectors.wth Log Message: Implemented |<u8vector>|. Index: vectors.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/vectors.s,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- vectors.s 18 Sep 2002 21:12:38 -0000 1.1 +++ vectors.s 18 Sep 2002 21:15:23 -0000 1.2 @@ -1,5 +1,134 @@ .section .text .align 16 +N_make_u8vector: +.byte 144,81,131,249,1,15,133,5,0,0,0,88,64,106,7,80,88,80,61,2,0,0,0,15 +.byte 132,8,0,0,0,88,137,193,233 +.long N_signal_argcount - (.+4) +.byte 88,88,80,104,0,1,0,0,104 +.long N_make_u8vector.L2 +.byte 80,233 +.long decui$1 - (.+4) +.byte 91,80,57,216,15,140,13,0,0,0,88,88,104 +.long WB_range +.byte 80,233 +.long raise$2 - (.+4) +.byte 88,91,91,80,83,104 +.long N_make_u8vector.L4 +.byte 83,233 +.long decui$1 - (.+4) +.byte 80,61,0,0,0,192,15,130,13,0,0,0,88,88,104 +.long WB_out_of_memory +.byte 80,233 +.long raise$2 - (.+4) +.byte 88,91,137,195,131,195,8,80,104 +.long N_make_u8vector.L6 +.byte 83,233 +.long salloc$1 - (.+4) +.byte 199,0 +.long RT_u8vector +.byte 91,137,193,131,193,4,137,25,91,137,193,131,193,8,137,199,131,199,4 +.byte 139,63,80,137,216,137,203,137,249,137,223,252,243,170,88,195 +.global N_make_u8vector,NN_make_u8vector,N_make_u8vector.L2,N_make_u8vector.L4,N_make_u8vector.L6 +.equiv NN_make_u8vector, N_make_u8vector + 1 +.equiv N_make_u8vector.L2, N_make_u8vector + 56 +.equiv N_make_u8vector.L4, N_make_u8vector + 95 +.equiv N_make_u8vector.L6, N_make_u8vector + 139 +.section .text +.align 16 +N_u8vector_length: +.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233 +.long N_signal_argcount - (.+4) +.byte 88,88,137,195,131,227,3,80,80,133,219,15,132,8,0,0,0,88,106,19,233 +.byte 22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139 +.byte 0,80,88,61 +.long RT_u8vector +.byte 15,132,12,0,0,0,88,104 +.long WB_u8vector_huh +.byte 80,233 +.long raise$2 - (.+4) +.byte 88,5,4,0,0,0,139,0,80,233 +.long encui$1 - (.+4) +.global N_u8vector_length,NN_u8vector_length +.equiv NN_u8vector_length, N_u8vector_length + 1 +.section .text +.align 16 +N_u8vector_ref: +.byte 144,81,131,249,2,15,133,160,0,0,0,88,88,80,104 +.long N_u8vector_ref.L1 +.byte 80,233 +.long decsi$1 - (.+4) +.byte 91,89,137,207,131,231,3,83,80,81,81,133,255,15,132,8,0,0,0,88,106 +.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0 +.byte 88,139,0,80,88,61 +.long RT_u8vector +.byte 15,132,12,0,0,0,88,104 +.long WB_u8vector_huh +.byte 80,233 +.long raise$2 - (.+4) +.byte 88,137,195,131,195,8,5,4,0,0,0,139,0,89,83,80,81,133,201,15,141,6 +.byte 0,0,0,88,91,1,216,83,80,88,91,83,80,57,216,15,130,15,0,0,0,88,88 +.byte 88,88,104 +.long WB_range +.byte 80,233 +.long raise$2 - (.+4) +.byte 88,91,91,89,1,195,15,182,27,83,233 +.long encui$1 - (.+4) +.byte 88,80,61,253,255,255,255,15,132,8,0,0,0,88,137,193,233 +.long N_signal_argcount - (.+4) +.byte 88,88,80,104,0,1,0,0,104 +.long N_u8vector_ref.L11 +.byte 80,233 +.long decui$1 - (.+4) +.byte 91,80,57,216,15,140,13,0,0,0,88,88,104 +.long WB_range +.byte 80,233 +.long raise$2 - (.+4) +.byte 88,91,91,89,80,81,83,104 +.long N_u8vector_ref.L13 +.byte 83,233 +.long decsi$1 - (.+4) +.byte 91,89,137,207,131,231,3,83,80,81,81,133,255,15,132,8,0,0,0,88,106 +.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0 +.byte 88,139,0,80,88,61 +.long RT_u8vector +.byte 15,132,12,0,0,0,88,104 +.long WB_u8vector_huh +.byte 80,233 +.long raise$2 - (.+4) +.byte 88,137,195,131,195,8,5,4,0,0,0,139,0,89,83,80,81,133,201,15,141,6 +.byte 0,0,0,88,91,1,216,83,80,88,91,83,80,57,216,15,130,15,0,0,0,88,88 +.byte 88,88,104 +.long WB_range +.byte 80,233 +.long raise$2 - (.+4) +.byte 88,91,91,89,1,195,88,136,3,106,27,88,195 +.global N_u8vector_ref,NN_u8vector_ref,N_u8vector_ref.L1,N_u8vector_ref.L11,N_u8vector_ref.L13 +.equiv NN_u8vector_ref, N_u8vector_ref + 1 +.equiv N_u8vector_ref.L1, N_u8vector_ref + 25 +.equiv N_u8vector_ref.L11, N_u8vector_ref + 211 +.equiv N_u8vector_ref.L13, N_u8vector_ref + 252 +.section .text +.align 16 +N_u8vector_huh: +.byte 144,186 +.long RT_u8vector +.byte 233 +.long discriminator_body - (.+4) +.global N_u8vector_huh,NN_u8vector_huh +.equiv NN_u8vector_huh, N_u8vector_huh + 1 +.section .text +.align 16 +RT_u8vector: +.long RT_record_type +.byte 1,0,0,0 +.long NN_u8vector_huh +.long NN_u8vector_ref +.long NN_u8vector_length +.long NN_make_u8vector +.byte 19,0,0,0,19,0,0,0 +.global RT_u8vector +.section .text +.align 16 N_vector_move: .byte 144,81,131,249,5,15,132,8,0,0,0,88,137,193,233 .long N_signal_argcount - (.+4) Index: vectors.wth =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/vectors.wth,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- vectors.wth 18 Sep 2002 21:12:38 -0000 1.1 +++ vectors.wth 18 Sep 2002 21:15:23 -0000 1.2 @@ -1,4 +1,4 @@ -;;;; vectors.wth - generic vectors +;;;; vectors.wth - vectors ;; ;; Copyleft © 2002 by Andres Soolo (di...@us...) ;; This file is licensed under the GNU GPL v2. If you @@ -10,19 +10,26 @@ (extern WB_out_of_memory) (extern WB_range) +(extern WB_u8vector_huh) (extern WB_vector_huh) (extern decsi$1) (extern decui$1) (extern encsi$1) (extern encui$1) +(extern salloc$1) (extern valloc$1) (macro decsi <: swap (flush) 'decsi$1 jump :>) (macro decui <: swap (flush) 'decui$1 jump :>) (macro encsi <: swap (flush) 'encsi$1 jump :>) (macro encui <: swap (flush) 'encui$1 jump :>) +(macro salloc <: swap (flush) 'salloc$1 jump :>) (macro valloc <: swap (flush) 'valloc$1 jump :>) +(macro rdecui ; (node limit) + over decui swap over swap + >= if drop 'WB_range swap go-raise then nip) + (extern RT_vector) (assemble RT_vector (tetra RT_record_type) @@ -94,5 +101,59 @@ -rot cells swap vector-data + 2swap cells swap vector-data + rot tetramove VOID) + +(extern RT_u8vector) +(assemble RT_u8vector + (tetra RT_record_type) + (tetra 1) + (tetra NN_u8vector_huh) + (tetra NN_u8vector_ref) + (tetra NN_u8vector_length) + (tetra NN_make_u8vector) + (tetra 19) ; FALSE + (tetra 19)) ; FALSE + +(native u8vector_huh 'RT_u8vector go-discriminate) + +(native u8vector_ref + dup 2 = if + drop dup decsi rot ; (nindex index vec) + require-u8vector dup vector-data swap vector-length + rot ; (nindex vecdata veclen index) + dup 0 < if over + then + 2dup swap u>= if ; catches negative indices too + drop drop drop 'WB_range swap go-raise + then + nip rot drop + byte@ (flush) 'encui$1 jump + else + dup -3 = argc drop ; (vec nindex obj) + 256 rdecui + -rot dup decsi rot ; (obj nindex index vec) + require-u8vector dup vector-data swap vector-length + rot ; (obj nindex vecdata veclen index) + dup 0 < if over + then + 2dup swap u>= if ; catches negative indices too + drop drop drop 'WB_range swap go-raise + then + nip rot drop + byte! VOID + then) + +(native u8vector_length dup 1 = argc drop + require-u8vector u8vector-length (flush) 'encui$1 jump) + +; Note that the only pointer in an u8vector is the type indicator. +; However, the type resides in static, non-gc:ible memory, so +; we can safely allocate u8vectors nonscannably. +(native make_u8vector dup 1 = if ZERO swap 1+ then dup 2 = argc drop + ; (nlength object) + 256 rdecui + swap dup decui ; (object nlength length) + dup #xC0000000 u>= if + drop 'WB_out_of_memory swap go-raise + then nip dup 2 cells + salloc ; (object length body node) + 'RT_u8vector over cell! ; store type + tuck 1 cells + cell! ; store length + tuck swap ; (node node object) + swap dup u8vector-data swap u8vector-length rot bytefill) ; vim: ft=worth |
|
From: <di...@us...> - 2002-09-18 21:14:26
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv1479/modules
Modified Files:
linux.wrti
Log Message:
Created the |argc-argv-envp| and |argv-envp| macros.
Index: linux.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/linux.wrti,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- linux.wrti 18 Sep 2002 21:07:35 -0000 1.22
+++ linux.wrti 18 Sep 2002 21:14:23 -0000 1.23
@@ -10,6 +10,10 @@
(ifndef _linux.wrti_ (define _linux.wrti_)
+ ; These are supposed to be used immediately in the start of |_start|.
+ (macro argc-argv-envp (stack=! 1) sp@ 2dup swap cells + cell+)
+ (macro argv-envp argc-argv-envp rot drop)
+
(macro \sys ,(mov %eax ,0) drop ,(int #x80))
(macro \skt (stack=! 1) ,(mov %ebx ,0) drop
(flush) ,(mov %ecx %esp) 102 \sys)
|
|
From: <di...@us...> - 2002-09-18 21:14:25
|
Update of /cvsroot/wisp/wisp/doc/examples
In directory usw-pr-cvs1:/tmp/cvs-serv1479/doc/examples
Modified Files:
Makefile.am
Added Files:
argenv.wth
Log Message:
Created the |argc-argv-envp| and |argv-envp| macros.
--- NEW FILE: argenv.wth ---
;;;; argenv.wth - demonstrate usage of the |argv-envp| macro
;;
;; Copyleft © 2002 by Andres Soolo (di...@us...)
;; This file is licensed under the GNU GPL v2. If you
;; don't know what that means, please do read the GPL.
;;
;;;; @(#) $Id: argenv.wth,v 1.1 2002/09/18 21:14:23 digg Exp $
(include io)
(include linux)
(defun strlen
swap dup
begin dup byte@ while
1+
repeat
swap - swap)
(defun _start argv-envp
swap
begin cell@++ dup while
dup hexprint space dup strlen type cr
repeat
drop cr
begin cell@++ dup while
dup hexprint space dup strlen type cr
repeat)
; vim: ft=worth
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/Makefile.am,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- Makefile.am 4 Sep 2002 14:34:44 -0000 1.36
+++ Makefile.am 18 Sep 2002 21:14:23 -0000 1.37
@@ -9,7 +9,7 @@
EXTRA_DIST = closure.wisp quine.wisp signal.wisp \
rawkey.wisp \
find.wisp \
- hello.was hello.wth banana.wth false.wth angry.wth \
+ hello.was hello.wth banana.wth false.wth angry.wth argenv.wth \
.cvsignore
exampledir = ${prefix}/share/doc/wisp/examples
@@ -22,7 +22,8 @@
install-readable: closure.wisp quine.wisp signal.wisp \
rawkey.wisp \
find.wisp \
- hello.was hello.wth banana.wth false.wth angry.wth
+ hello.was hello.wth banana.wth false.wth angry.wth \
+ argenv.wth
install -m644 $^ ${exampledir}
check: quine-check
|
|
From: <di...@us...> - 2002-09-18 21:14:25
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv1479/doc Modified Files: worth.vim Log Message: Created the |argc-argv-envp| and |argv-envp| macros. Index: worth.vim =================================================================== RCS file: /cvsroot/wisp/wisp/doc/worth.vim,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- worth.vim 18 Sep 2002 21:12:24 -0000 1.22 +++ worth.vim 18 Sep 2002 21:14:22 -0000 1.23 @@ -27,39 +27,39 @@ syn keyword wispFunc ->wisp-bool -rot / /mod 0= 1+ 1- 2* 2drop 2dup syn keyword wispFunc 2rot 2swap < <= <> = > >= ?dup WCOREDUMP syn keyword wispFunc WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED -syn keyword wispFunc WSTOPSIG WTERMSIG abs and argc arshift bsf bsr -syn keyword wispFunc bury byte! byte@ byte@++ cell! cell+ cell- cell@ -syn keyword wispFunc cell@++ cellfill cellmove cells cr d+ d- d>s -syn keyword wispFunc dhexprint dig drop dup emit emit-digit -syn keyword wispFunc encode-digit fill get-type go-access-slot hexprint -syn keyword wispFunc lshift m+ max min mod move negate nip not octas or -syn keyword wispFunc over require-c8string require-record-type -syn keyword wispFunc require-string-length require-vector rol ror rot -syn keyword wispFunc rshift s>d sp! sp@ space square string-data -syn keyword wispFunc string-length swap sys.accept sys.access sys.alarm -syn keyword wispFunc sys.bind sys.brk sys.chdir sys.chmod sys.chroot -syn keyword wispFunc sys.close sys.connect sys.creat sys.dup sys.dup2 -syn keyword wispFunc sys.execve sys.exit sys.fchdir sys.fchmod -syn keyword wispFunc sys.fdatasync sys.flock sys.fork sys.fstat -syn keyword wispFunc sys.fsync sys.ftruncate sys.getcwd sys.getdents -syn keyword wispFunc sys.getegid sys.geteuid sys.getgid sys.getpeername -syn keyword wispFunc sys.getpgid sys.getpgrp sys.getpid sys.getppid -syn keyword wispFunc sys.getsid sys.getsockname sys.getuid sys.ioctl -syn keyword wispFunc sys.ioctl2 sys.kill sys.link sys.listen sys.lseek -syn keyword wispFunc sys.lstat sys.mkdir sys.mlock sys.mlockall -syn keyword wispFunc sys.munlock sys.munlockall sys.nanosleep sys.nice -syn keyword wispFunc sys.open sys.pause sys.pipe sys.read sys.rename -syn keyword wispFunc sys.rmdir sys.select sys.setgid sys.setpgid -syn keyword wispFunc sys.setregid sys.setreuid sys.setsid sys.setuid -syn keyword wispFunc sys.shutdown sys.socket sys.stat sys.stime -syn keyword wispFunc sys.swapoff sys.swapon sys.symlink sys.sync -syn keyword wispFunc sys.time sys.truncate sys.umask sys.unlink -syn keyword wispFunc sys.vhangup sys.waitpid sys.write sys.write-char -syn keyword wispFunc tetra! tetra+ tetra- tetra@ tetra@++ tetrafill -syn keyword wispFunc tetramove tetras tuck type u< u<= u> u>= -syn keyword wispFunc vector-data vector-length wisp-bool-> -syn keyword wispFunc wisp-epilogue wisp-prologue within wyde! wyde+ -syn keyword wispFunc wyde- wyde@ wyde@++ wydes xor +syn keyword wispFunc WSTOPSIG WTERMSIG abs and argc argc-argv-envp +syn keyword wispFunc argv-envp arshift bsf bsr bury byte! byte@ byte@++ +syn keyword wispFunc cell! cell+ cell- cell@ cell@++ cellfill cellmove +syn keyword wispFunc cells cr d+ d- d>s dhexprint dig drop dup emit +syn keyword wispFunc emit-digit encode-digit fill get-type +syn keyword wispFunc go-access-slot hexprint lshift m+ max min mod move +syn keyword wispFunc negate nip not octas or over require-c8string +syn keyword wispFunc require-record-type require-string-length +syn keyword wispFunc require-vector rol ror rot rshift s>d sp! sp@ +syn keyword wispFunc space square string-data string-length swap +syn keyword wispFunc sys.accept sys.access sys.alarm sys.bind sys.brk +syn keyword wispFunc sys.chdir sys.chmod sys.chroot sys.close +syn keyword wispFunc sys.connect sys.creat sys.dup sys.dup2 sys.execve +syn keyword wispFunc sys.exit sys.fchdir sys.fchmod sys.fdatasync +syn keyword wispFunc sys.flock sys.fork sys.fstat sys.fsync +syn keyword wispFunc sys.ftruncate sys.getcwd sys.getdents sys.getegid +syn keyword wispFunc sys.geteuid sys.getgid sys.getpeername sys.getpgid +syn keyword wispFunc sys.getpgrp sys.getpid sys.getppid sys.getsid +syn keyword wispFunc sys.getsockname sys.getuid sys.ioctl sys.ioctl2 +syn keyword wispFunc sys.kill sys.link sys.listen sys.lseek sys.lstat +syn keyword wispFunc sys.mkdir sys.mlock sys.mlockall sys.munlock +syn keyword wispFunc sys.munlockall sys.nanosleep sys.nice sys.open +syn keyword wispFunc sys.pause sys.pipe sys.read sys.rename sys.rmdir +syn keyword wispFunc sys.select sys.setgid sys.setpgid sys.setregid +syn keyword wispFunc sys.setreuid sys.setsid sys.setuid sys.shutdown +syn keyword wispFunc sys.socket sys.stat sys.stime sys.swapoff +syn keyword wispFunc sys.swapon sys.symlink sys.sync sys.time +syn keyword wispFunc sys.truncate sys.umask sys.unlink sys.vhangup +syn keyword wispFunc sys.waitpid sys.write sys.write-char tetra! tetra+ +syn keyword wispFunc tetra- tetra@ tetra@++ tetrafill tetramove tetras +syn keyword wispFunc tuck type u< u<= u> u>= vector-data vector-length +syn keyword wispFunc wisp-bool-> wisp-epilogue wisp-prologue within +syn keyword wispFunc wyde! wyde+ wyde- wyde@ wyde@++ wydes xor " structure management |
|
From: <di...@us...> - 2002-09-18 21:14:11
|
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv1415/src/native
Modified Files:
Makefile.am misc.s misc.wth
Removed Files:
list.nasm
Log Message:
Converted |list| from Nasm to Worth.
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/Makefile.am,v
retrieving revision 1.158
retrieving revision 1.159
diff -u -d -r1.158 -r1.159
--- Makefile.am 18 Sep 2002 21:12:38 -0000 1.158
+++ Makefile.am 18 Sep 2002 21:14:09 -0000 1.159
@@ -12,7 +12,7 @@
libnative_a_SOURCES = native_call.nasm branches.nasm \
base.inc \
- apply.nasm chars.nasm cxr.nasm integers.nasm list.nasm \
+ apply.nasm chars.nasm cxr.nasm integers.nasm \
memset.nasm records.nasm ref.nasm resignal.nasm signal.nasm \
strings.nasm types.nasm valloc.nasm wrap.nasm \
boxes.wth cons.wth death.wth misc.wth sys.wth vectors.wth wstrings.wth \
@@ -23,7 +23,7 @@
noinst_LIBRARIES = libnative.a
libnative_a_LIBADD = native_call.o branches.o \
- apply.o chars.o cxr.o integers.o list.o memset.o records.o ref.o \
+ apply.o chars.o cxr.o integers.o memset.o records.o ref.o \
resignal.o signal.o strings.o sys.o types.o valloc.o wrap.o
%.o: %.nasm base.inc
Index: misc.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- misc.s 18 Sep 2002 21:13:37 -0000 1.10
+++ misc.s 18 Sep 2002 21:14:09 -0000 1.11
@@ -1,5 +1,18 @@
.section .text
.align 16
+N_list:
+.byte 144,81,133,201,15,141,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,106,0,80,88,80,133,192,15,132,22,0,0,0,88,72,91,89,80,104
+.long N_list.L3
+.byte 81,83,233
+.long cons$2 - (.+4)
+.byte 91,80,83,235,224,88,88,195
+.global N_list,NN_list,N_list.L3
+.equiv NN_list, N_list + 1
+.equiv N_list.L3, N_list + 49
+.section .text
+.align 16
N_pr_get_environment:
.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
Index: misc.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- misc.wth 18 Sep 2002 21:13:37 -0000 1.10
+++ misc.wth 18 Sep 2002 21:14:09 -0000 1.11
@@ -14,6 +14,7 @@
(extern WB_range)
(extern WB_record_type_huh)
(extern argument_list)
+(extern cons$2)
(extern decsi$1)
(extern decui$1)
(extern encsi$1)
@@ -31,6 +32,8 @@
(macro encui <: swap (flush) 'encui$1 jump :>)
(macro valloc <: swap (flush) 'valloc$1 jump :>)
+(macro cons <: -rot (flush) 'cons$2 jump :>)
+
(macro rdecui ; ( node limit )
over decui swap over swap
>= if drop 'WB_range swap go-raise then nip)
@@ -103,5 +106,12 @@
(native pr_get_environment dup 0 = argc drop
'environment cell@)
+
+(native list dup 0 >= argc
+ NULL swap
+ begin dup while
+ 1- -rot cons swap
+ repeat
+ drop)
; vim: ft=worth
--- list.nasm DELETED ---
|
|
From: <di...@us...> - 2002-09-18 21:14:00
|
Update of /cvsroot/wisp/wisp
In directory usw-pr-cvs1:/tmp/cvs-serv1097
Modified Files:
configure.in
Log Message:
Cleanup.
Index: configure.in
===================================================================
RCS file: /cvsroot/wisp/wisp/configure.in,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -d -r1.71 -r1.72
--- configure.in 18 Sep 2002 21:01:33 -0000 1.71
+++ configure.in 18 Sep 2002 21:13:27 -0000 1.72
@@ -58,14 +58,10 @@
test "$NASM" = /usr/bin/nasm && NASM=nasm # æsthetics
test "$PERL" = /usr/bin/perl && PERL=perl
-
-dnl Byte order.
-AC_C_BIGENDIAN
-
+dnl The dot-usr thingie.
AC_DEFUN(dotusr,
[LDFLAGS="$LDFLAGS -L$1/lib" PATH="$1/bin:$PATH" CC="$CC -I$1/include"])
-dnl The dot-usr thingie.
if test -n "$DOTUSR"; then
dotusr([$DOTUSR])
fi
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv1097/src
Modified Files:
boot.wisp essence.c prim.c sysconst.h sysconst.txt wisp.c.nepl
wordlist.txt
Log Message:
Cleanup.
Index: boot.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/boot.wisp,v
retrieving revision 1.260
retrieving revision 1.261
diff -u -d -r1.260 -r1.261
--- boot.wisp 18 Sep 2002 21:12:24 -0000 1.260
+++ boot.wisp 18 Sep 2002 21:13:27 -0000 1.261
@@ -179,7 +179,7 @@
(else
(cons (car src) (loop (cdr src))))))))
(my iclist (phase "translating the source"
- (translate '(*arglist* envilist) `(begin . ,src) *home*))
+ (translate '() `(begin . ,src) *home*))
(define *full* (phase "fullifying the translation"
(fullify-intercode iclist))))))
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.220
retrieving revision 1.221
diff -u -d -r1.220 -r1.221
--- essence.c 18 Sep 2002 21:12:24 -0000 1.220
+++ essence.c 18 Sep 2002 21:13:27 -0000 1.221
@@ -328,6 +328,8 @@
NN_native_huh,
NN_new,
NN_ninth,
+ NN_pr_get_argument_list,
+ NN_pr_get_environment,
NN_pr_make_record_type,
NN_pr_record_type_length_slot,
NN_pr_record_type_new_slot,
@@ -432,17 +434,17 @@
void*BCL2[]__attribute__((aligned(16)))=CLS(&BCL1,BCLV2);
// The EVM bodies.
-void*Y0[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 80,tc,V 1,c,jinf,V 16,qi,W(cons_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
-void*Y1[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 16,qi,W(instance_of_wrong_class),dig,V 2,q,mha,l,V 1,l,V 111,tc,V 2,c,ds,V 2,r,t,Z,ds,V 2,r};
-void*Y2[]={hop,V 5,mlt,jinnc,V 10,notc,p,s,V 1,t,T,s,V 0,j,V 6,t,F,s,V 1,s,V 0,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 4,p,s,V 3,p,s,V 2,mla,l,V 0,jif,V 69,mla,l,V 4,xri,Q,jinz,V 21,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 1,q,mha,l,V 1,l,V 86,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 111,tc,V 2,c,r,mla,l,V 4,xri,Q,jinz,V 14,mla,l,V 2,q,mla,l,V 3,q,t,&dict_ref_2,tc,V 2,c,r,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 26,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,&NN_dict_ref_3,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 111,tc,V 2,c,r};
-void*Y3[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,t,&NN_pr_make_record_type,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,F,q,t,F,q,t,F,q,t,F,q,t,F,q,mla,l,V 1,xri,Q,jiz,V 294,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 3,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,mlt,s,V 5,mla,l,V 5,mlt,s,V 1,mla,l,V 3,q,dig,V 0,xri,W(ref),jinz,V 40,dig,V 5,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 5,j,V 198,dig,V 0,xri,W(length),jinz,V 40,dig,V 4,jif,V 16,qi,W(duplicate_length_hook),mla,l,V 4,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 4,j,V 152,dig,V 0,xri,W(new),jinz,V 40,dig,V 3,jif,V 16,qi,W(duplicate_new_hook),mla,l,V 4,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 3,j,V 106,dig,V 0,xri,W(read_char),jinz,V 40,dig,V 2,jif,V 16,qi,W(duplicate_read_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 2,j,V 60,dig,V 0,xri,W(write_char),jinz,V 40,dig,V 1,jif,V 16,qi,W(duplicate_write_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 1,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 111,tc,V 2,c,ds,V 1,j,V -301,dig,V 4,jif,V 13,dig,V 5,q,dig,V 5,q,t,&NN_pr_record_type_ref_slot,tc,V -2,c,j,V 0,dig,V 3,jif,V 13,dig,V 5,q,dig,V 4,q,t,&NN_pr_record_type_length_slot,tc,V -2,c,j,V 0,dig,V 2,jif,V 13,dig,V 5,q,dig,V 3,q,t,&NN_pr_record_type_new_slot,tc,V -2,c,j,V 0,dig,V 1,jif,V 13,dig,V 5,q,dig,V 2,q,t,&NN_pr_record_type_read_char_slot,tc,V -2,c,j,V 0,dig,V 0,jif,V 13,dig,V 5,q,dig,V 1,q,t,&NN_pr_record_type_write_char_slot,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,mla,l,V 2,r};
-void*Y4[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 91,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 109,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 154,tc,V 1,c,ds,V 1,r};
-void*Y5[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 155,tc,V 1,c,ds,V 1,r};
-void*Y6[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 113,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 24,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 179,qi,W(define),mla,l,V 1,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),qi,W(DOTl),mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(apply),qi,W(hide),qi,W(DOTl),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,qi,W(syntax_error),qi,W(defmacro),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 111,tc,V 2,c,r};
+void*Y0[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 78,tc,V 1,c,jinf,V 16,qi,W(cons_huh),dig,V 1,q,mha,l,V 1,l,V 109,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
+void*Y1[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 16,qi,W(instance_of_wrong_class),dig,V 2,q,mha,l,V 1,l,V 109,tc,V 2,c,ds,V 2,r,t,Z,ds,V 2,r};
+void*Y2[]={hop,V 5,mlt,jinnc,V 10,notc,p,s,V 1,t,T,s,V 0,j,V 6,t,F,s,V 1,s,V 0,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 4,p,s,V 3,p,s,V 2,mla,l,V 0,jif,V 69,mla,l,V 4,xri,Q,jinz,V 21,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 1,q,mha,l,V 1,l,V 84,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 109,tc,V 2,c,r,mla,l,V 4,xri,Q,jinz,V 14,mla,l,V 2,q,mla,l,V 3,q,t,&dict_ref_2,tc,V 2,c,r,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 26,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,&NN_dict_ref_3,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 109,tc,V 2,c,r};
+void*Y3[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,t,&NN_pr_make_record_type,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,F,q,t,F,q,t,F,q,t,F,q,t,F,q,mla,l,V 1,xri,Q,jiz,V 294,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 3,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,mlt,s,V 5,mla,l,V 5,mlt,s,V 1,mla,l,V 3,q,dig,V 0,xri,W(ref),jinz,V 40,dig,V 5,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 10,tc,V 2,c,bury,V 5,j,V 198,dig,V 0,xri,W(length),jinz,V 40,dig,V 4,jif,V 16,qi,W(duplicate_length_hook),mla,l,V 4,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 10,tc,V 2,c,bury,V 4,j,V 152,dig,V 0,xri,W(new),jinz,V 40,dig,V 3,jif,V 16,qi,W(duplicate_new_hook),mla,l,V 4,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 10,tc,V 2,c,bury,V 3,j,V 106,dig,V 0,xri,W(read_char),jinz,V 40,dig,V 2,jif,V 16,qi,W(duplicate_read_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 10,tc,V 2,c,bury,V 2,j,V 60,dig,V 0,xri,W(write_char),jinz,V 40,dig,V 1,jif,V 16,qi,W(duplicate_write_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 10,tc,V 2,c,bury,V 1,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 109,tc,V 2,c,ds,V 1,j,V -301,dig,V 4,jif,V 13,dig,V 5,q,dig,V 5,q,t,&NN_pr_record_type_ref_slot,tc,V -2,c,j,V 0,dig,V 3,jif,V 13,dig,V 5,q,dig,V 4,q,t,&NN_pr_record_type_length_slot,tc,V -2,c,j,V 0,dig,V 2,jif,V 13,dig,V 5,q,dig,V 3,q,t,&NN_pr_record_type_new_slot,tc,V -2,c,j,V 0,dig,V 1,jif,V 13,dig,V 5,q,dig,V 2,q,t,&NN_pr_record_type_read_char_slot,tc,V -2,c,j,V 0,dig,V 0,jif,V 13,dig,V 5,q,dig,V 1,q,t,&NN_pr_record_type_write_char_slot,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,mla,l,V 2,r};
+void*Y4[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 89,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 107,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 152,tc,V 1,c,ds,V 1,r};
+void*Y5[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 153,tc,V 1,c,ds,V 1,r};
+void*Y6[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 113,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 24,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 179,qi,W(define),mla,l,V 1,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),qi,W(DOTl),mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(apply),qi,W(hide),qi,W(DOTl),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,r,qi,W(syntax_error),qi,W(defmacro),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 109,tc,V 2,c,r};
void*Y7[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,q,dig,V 2,q,mha,l0,q,qi,W(eval),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r};
-void*Y8[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,W(assertion_failed),s,V 2,qi,W(if),qi,W(not),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
-void*Y10[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mac,mca,subc,V 5,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 3,jizc,V 15,mac,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,j,V 101,mac,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,qi,I(-1),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,CH('?'),mha,l0,q,qi,W(charEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 5,mla,l,V 1,j,V 47,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,s,V 3,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 4,qi,W(my),qi,W(val),mla,l,V 2,q,qi,W(if),qi,W(not),mla,l,V 4,q,qi,W(val),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(val),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
-void*Y11[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 80,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(lambda),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,qi,W(DEFINE),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
+void*Y8[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,W(assertion_failed),s,V 2,qi,W(if),qi,W(not),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(quote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,r};
+void*Y10[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mac,mca,subc,V 5,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 3,jizc,V 15,mac,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,j,V 101,mac,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,qi,I(-1),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,CH('?'),mha,l0,q,qi,W(charEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 5,mla,l,V 1,j,V 47,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,s,V 3,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 4,qi,W(my),qi,W(val),mla,l,V 2,q,qi,W(if),qi,W(not),mla,l,V 4,q,qi,W(val),qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(val),qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,r};
+void*Y11[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 80,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(lambda),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,r,qi,W(DEFINE),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,r};
void*Y12[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,F,jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
void*Y13[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
void*Y14[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 56,dig,V 1,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+15,tc,V 2,c,jif,V 33,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 3,tc,V 2,c,j,V 2,t,F,ds,V 2,r};
@@ -469,50 +471,50 @@
void*Y35[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mla,l,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 51,t,Q,mlt,s,V 1,t,B 34,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mla,l,V 1,tc,V 2,c,r};
void*Y36[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(integer_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 22,dig,V 0,q,qi,I(0),li,rvec+15,tc,V 2,c,jinf,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r,t,F,ds,V 1,r};
void*Y37[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,F,dig,V 2,q,dig,V 2,q,mha,l0,q,qi,W(compile),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,tc,V 0,c,ds,V 2,r};
-void*Y38[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,qi,W(OR),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,q,mha,l,V 1,l,V 98,tc,V 3,c,ds,V 1,r};
+void*Y38[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,qi,W(OR),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,q,mha,l,V 1,l,V 96,tc,V 3,c,ds,V 1,r};
void*Y39[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 1,xri,Q,jinz,V 3,t,F,r,t,Q,mlt,s,V 2,t,B 38,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 2,tc,V 1,c,r};
-void*Y40[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(EQGT),jinz,V 27,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 80,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(and),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 23,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(DOTl),jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 44,qi,W(hide),qi,W(DOTl),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(2),jinz,V 27,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 80,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(caddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(my),mla,l,V 1,q,qi,W(DOTl),qi,W(hide),qi,W(hideTIMES),mla,l,V 2,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(and),dig,V 11,q,mha,l0,q,qi,W(cdddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,qi,W(if),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(and),dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
+void*Y40[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(EQGT),jinz,V 27,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(and),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 23,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(DOTl),jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 44,qi,W(hide),qi,W(DOTl),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(2),jinz,V 27,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(caddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(my),mla,l,V 1,q,qi,W(DOTl),qi,W(hide),qi,W(hideTIMES),mla,l,V 2,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(and),dig,V 11,q,mha,l0,q,qi,W(cdddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 1,r,qi,W(if),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(and),dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,F,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 1,r};
void*Y41[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 1,xri,Q,jinz,V 3,t,T,r,t,Q,mlt,s,V 2,t,B 40,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 2,tc,V 1,c,r};
-void*Y42[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 98,tc,V 1,c,mlt,s,V 0,mha,l,V 2,l,V 2,q,mla,l,V 0,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 0,mat,mha,l,V 2,st,V 2,t,Z,ds,V 1,r};
-void*Y43[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,Q,mha,l,V 1,l,V 98,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,t,B 42,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 0,tc,V 1,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r};
-void*Y44[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 36,mha,l,V 2,l,V 2,q,dig,V 1,q,mha,l,V 1,l,V 98,tc,V 1,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,dig,V 1,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r};
-void*Y45[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mla,l,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 52,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 22,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 3,tc,V 1,c,j,V 14,qi,W(argcount),mla,l,V 0,q,mha,l,V 1,l,V 111,tc,V 2,c,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jiz,V 23,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 2,t,Z,r,t,Z,r};
-void*Y46[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,Q,mha,l,V 1,l,V 98,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,t,B 44,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 3,t,B 45,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,mla,l,V 3,q,mla,l,V 4,q,mla,l,V 0,tc,V 2,c,mla,l,V 2,q,qi,Q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r};
-void*Y47[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,xri,W(undefined),jinz,V 15,qi,W(make_box),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 2,r,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,ds,V 2,r};
-void*Y48[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,q,mha,l,V 1,l,V 25,tc,V 1,c,mlt,s,V 0,qi,W(make_box),qi,W(quasiquote),mla,l,V 0,q,mha,l,V 1,l,V 98,tc,V 2,c,q,mha,l,V 1,l,V 98,tc,V 2,c,r};
-void*Y49[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 18,mla,l,V 1,q,mha,l0,q,qi,W(quasiquote_cons),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mla,l,V 1,q,mha,l,V 1,l,V 146,tc,V 1,c,jif,V 62,qi,W(list2vector),qi,W(quasiquote),mla,l,V 1,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 26,tc,V 1,c,jif,V 37,qi,T,t,B 47,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 48,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 29,tc,V 3,c,r,qi,W(quote),mla,l,V 1,q,mha,l,V 1,l,V 98,tc,V 2,c,r};
-void*Y50[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 5,dig,V 1,ds,V 2,r,qi,W(append),dig,V 2,q,qi,W(quasiquote),dig,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 2,r};
-void*Y51[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 314,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 24,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 160,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,W(unquote),jinz,V 14,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,mla,l,V 2,xri,W(quasiquote),jinz,V 41,qi,W(quote),mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,qi,W(cons),qi,W(quasiquote),mla,l,V 0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,qi,W(cons),qi,W(quasiquote),mla,l,V 0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
-void*Y52[]={binc,&branch_EVM_invargc,hop,V 9,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 0,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 517,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 2,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,mla,l,V 3,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 24,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 400,mla,l,V 2,mlt,s,V 4,mla,l,V 4,xri,W(unquote_splicing),jinz,V 32,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(process_unquote_splicing),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,mla,l,V 4,xri,W(unquote),jinz,V 302,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,mla,l,V 5,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 230,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 6,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 7,mla,l,V 7,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 24,mla,l,V 7,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 102,mla,l,V 6,mlt,s,V 8,mla,l,V 8,xri,W(splicing),jinz,V 32,mla,l,V 7,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(process_unquote_splicing),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,qi,W(unquote),mla,l,V 6,q,mla,l,V 7,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 98,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,qi,W(unquote),mla,l,V 6,q,mla,l,V 7,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 98,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,qi,W(unquote),mla,l,V 5,q,mha,l,V 1,l,V 98,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
-void*Y53[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,mha,l0,q,qi,W(second),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
-void*Y54[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 21,mla,l,V 2,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jinz,V 53,qi,W(syntax_error),qi,W(do),mla,l,V 1,q,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 117,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 49,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,xri,I(2),jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,I(3),jinz,V 4,t,T,j,V 2,t,F,ds,V 1,xri,F,jinz,V 15,qi,W(erroneous_binding),dig,V 2,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -123,ds,V 1,qi,W(let),t,B 53,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(while),qi,W(not),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 3,q,t,Q,mlt,s,V 4,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 151,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,Q,jiz,V 98,qi,W(set_bang),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(hold),dig,V 4,q,mha,l0,q,qi,W(caddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 4,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,mlt,s,V 4,j,V 0,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -157,ds,V 1,mla,l,V 4,q,mha,l0,q,qi,W(append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
-void*Y55[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,I(1),s,V 2,qi,W(set_bang),mla,l,V 1,q,qi,W(PLUS),mla,l,V 1,q,mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
-void*Y56[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,I(1),s,V 2,qi,W(set_bang),mla,l,V 1,q,qi,W(_),mla,l,V 1,q,mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
-void*Y57[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 2,q,qi,W(cons),dig,V 3,q,dig,V 5,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 3,r};
-void*Y58[]={binc,&branch_EVM_invargc,mca,subc,V 4,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 3,q,qi,W(cons),qi,W(cons),dig,V 5,q,dig,V 5,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,dig,V 6,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 4,r};
-void*Y59[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 1,q,qi,W(car),dig,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 2,r};
-void*Y60[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 1,q,qi,W(cdr),dig,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 2,r};
-void*Y61[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(my),qi,W(t),dig,V 3,q,qi,W(set_bang),qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(set_bang),qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(t),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 3,r};
-void*Y62[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 2,l,V 0,q,dig,V 2,q,t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
-void*Y63[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,F,s,V 1,mla,l,V 1,jif,V 31,t,B 62,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mla,l,V 0,q,mha,l,V 1,l,V 83,tc,V 1,c,r};
+void*Y42[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 96,tc,V 1,c,mlt,s,V 0,mha,l,V 2,l,V 2,q,mla,l,V 0,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 0,mat,mha,l,V 2,st,V 2,t,Z,ds,V 1,r};
+void*Y43[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,Q,mha,l,V 1,l,V 96,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,t,B 42,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 0,tc,V 1,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r};
+void*Y44[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 36,mha,l,V 2,l,V 2,q,dig,V 1,q,mha,l,V 1,l,V 96,tc,V 1,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,dig,V 1,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r};
+void*Y45[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mla,l,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 52,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 22,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 3,tc,V 1,c,j,V 14,qi,W(argcount),mla,l,V 0,q,mha,l,V 1,l,V 109,tc,V 2,c,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jiz,V 23,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 2,t,Z,r,t,Z,r};
+void*Y46[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,Q,mha,l,V 1,l,V 96,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,t,B 44,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 3,t,B 45,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,mla,l,V 3,q,mla,l,V 4,q,mla,l,V 0,tc,V 2,c,mla,l,V 2,q,qi,Q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r};
+void*Y47[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,xri,W(undefined),jinz,V 15,qi,W(make_box),qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 2,r,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 109,tc,V 2,c,ds,V 2,r};
+void*Y48[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,q,mha,l,V 1,l,V 23,tc,V 1,c,mlt,s,V 0,qi,W(make_box),qi,W(quasiquote),mla,l,V 0,q,mha,l,V 1,l,V 96,tc,V 2,c,q,mha,l,V 1,l,V 96,tc,V 2,c,r};
+void*Y49[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 18,mla,l,V 1,q,mha,l0,q,qi,W(quasiquote_cons),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mla,l,V 1,q,mha,l,V 1,l,V 144,tc,V 1,c,jif,V 62,qi,W(list2vector),qi,W(quasiquote),mla,l,V 1,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 24,tc,V 1,c,jif,V 37,qi,T,t,B 47,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 48,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 27,tc,V 3,c,r,qi,W(quote),mla,l,V 1,q,mha,l,V 1,l,V 96,tc,V 2,c,r};
+void*Y50[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 5,dig,V 1,ds,V 2,r,qi,W(append),dig,V 2,q,qi,W(quasiquote),dig,V 3,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 2,r};
+void*Y51[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 314,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 24,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 160,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,W(unquote),jinz,V 14,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,mla,l,V 2,xri,W(quasiquote),jinz,V 41,qi,W(quote),mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 1,r,qi,W(cons),qi,W(quasiquote),mla,l,V 0,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 1,r,qi,W(cons),qi,W(quasiquote),mla,l,V 0,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 1,r,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 1,r};
+void*Y52[]={binc,&branch_EVM_invargc,hop,V 9,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 0,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 517,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 2,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,mla,l,V 3,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 24,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 400,mla,l,V 2,mlt,s,V 4,mla,l,V 4,xri,W(unquote_splicing),jinz,V 32,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(process_unquote_splicing),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,mla,l,V 4,xri,W(unquote),jinz,V 302,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,mla,l,V 5,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 230,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 6,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 7,mla,l,V 7,q,mha,l,V 1,l,V 78,tc,V 1,c,jif,V 24,mla,l,V 7,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 102,mla,l,V 6,mlt,s,V 8,mla,l,V 8,xri,W(splicing),jinz,V 32,mla,l,V 7,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(process_unquote_splicing),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,qi,W(unquote),mla,l,V 6,q,mla,l,V 7,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 96,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,qi,W(unquote),mla,l,V 6,q,mla,l,V 7,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 96,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,qi,W(unquote),mla,l,V 5,q,mha,l,V 1,l,V 96,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
+void*Y53[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,mha,l0,q,qi,W(second),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 1,r};
+void*Y54[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 21,mla,l,V 2,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jinz,V 53,qi,W(syntax_error),qi,W(do),mla,l,V 1,q,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 0,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 117,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 49,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,xri,I(2),jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,I(3),jinz,V 4,t,T,j,V 2,t,F,ds,V 1,xri,F,jinz,V 15,qi,W(erroneous_binding),dig,V 2,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -123,ds,V 1,qi,W(let),t,B 53,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(while),qi,W(not),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mla,l,V 3,q,t,Q,mlt,s,V 4,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 151,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,Q,jiz,V 98,qi,W(set_bang),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(hold),dig,V 4,q,mha,l0,q,qi,W(caddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 4,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,mlt,s,V 4,j,V 0,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -157,ds,V 1,mla,l,V 4,q,mha,l0,q,qi,W(append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,r};
+void*Y55[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,I(1),s,V 2,qi,W(set_bang),mla,l,V 1,q,qi,W(PLUS),mla,l,V 1,q,mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,r};
+void*Y56[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,I(1),s,V 2,qi,W(set_bang),mla,l,V 1,q,qi,W(_),mla,l,V 1,q,mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,r};
+void*Y57[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 2,q,qi,W(cons),dig,V 3,q,dig,V 5,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 3,r};
+void*Y58[]={binc,&branch_EVM_invargc,mca,subc,V 4,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 3,q,qi,W(cons),qi,W(cons),dig,V 5,q,dig,V 5,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,dig,V 6,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 4,r};
+void*Y59[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 1,q,qi,W(car),dig,V 3,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 2,r};
+void*Y60[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 1,q,qi,W(cdr),dig,V 3,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 2,r};
+void*Y61[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(my),qi,W(t),dig,V 3,q,qi,W(set_bang),qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(set_bang),qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,W(t),qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 3,r};
+void*Y62[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 2,l,V 0,q,dig,V 2,q,t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 1,r};
+void*Y63[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,F,s,V 1,mla,l,V 1,jif,V 31,t,B 62,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mla,l,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,r};
void*Y64[]={binc,&branch_EVM_invargc,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,inc,dcc,jizc,V 3,p,j,V -6,t,F,r};
void*Y65[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l,V 2,l,V 1,q,t,&NN_dict_ref_2,tc,V 2,c,t,T,r};
-void*Y66[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,qi,W(unknown),t,B 64,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 65,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 29,tc,V 3,c,r};
-void*Y67[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 83,tc,V 1,c,q,mha,l0,q,qi,W(alist2dict),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
+void*Y66[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,qi,W(unknown),t,B 64,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 65,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 27,tc,V 3,c,r};
+void*Y67[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,q,mha,l0,q,qi,W(alist2dict),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
void*Y68[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,inc,dcc,jizc,V 3,p,j,V -6,mha,l,V 3,l,V 0,q,mha,l,V 2,l,V 0,tc,V 1,c,mlt,s,V 0,mha,l,V 2,l,V 1,q,mha,l,V 3,l,V 0,q,mla,l,V 0,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 0,r};
void*Y69[]={binc,&branch_EVM_invargc,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,inc,dcc,jizc,V 3,p,j,V -6,mha,l,V 2,l,V 1,q,mha,l,V 3,l,V 0,q,t,&NN_dict_ref_2,tc,V 2,c,r};
-void*Y70[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,W(unknown),t,B 68,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 69,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 29,tc,V 3,c,r};
-void*Y71[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 14,mac,p,s,V 0,mha,l,V 1,l,V 102,tc,V 0,c,s,V 1,t,B 70,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
-void*Y72[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,dig,V 2,q,mha,l,V 1,l,V 85,tc,V 2,c,mlt,s,V 0,mla,l,V 0,jif,V 36,dig,V 2,q,dig,V 1,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,t,Z,ds,V 3,r,dig,V 2,q,dig,V 1,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 3,r};
-void*Y73[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
-void*Y74[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,I(10),s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 2,tc,V 2,c,r};
-void*Y75[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,I(10),s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 5,tc,V 2,c,r};
-void*Y76[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 69,qi,W(or),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 2,xri,Q,jinz,V 4,t,F,j,V 14,qi,W(cond),mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(else),jinz,V 24,qi,W(begin),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(EQGT),jinz,V 210,qi,W(my),qi,W(l),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(l),qi,W(hide),qi,W(l),qi,W(begin),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(l),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 2,xri,Q,jinz,V 4,t,F,j,V 14,qi,W(cond),mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,qi,W(if),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(begin),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 2,xri,Q,jinz,V 4,t,F,j,V 14,qi,W(cond),mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
+void*Y70[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,W(unknown),t,B 68,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 69,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 27,tc,V 3,c,r};
+void*Y71[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 14,mac,p,s,V 0,mha,l,V 1,l,V 100,tc,V 0,c,s,V 1,t,B 70,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
+void*Y72[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,dig,V 2,q,mha,l,V 1,l,V 83,tc,V 2,c,mlt,s,V 0,mla,l,V 0,jif,V 36,dig,V 2,q,dig,V 1,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,t,Z,ds,V 3,r,dig,V 2,q,dig,V 1,q,mha,l,V 1,l,V 82,tc,V 2,c,ds,V 3,r};
+void*Y73[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,ds,V 1,r};
+void*Y74[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,I(10),s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 0,tc,V 2,c,r};
+void*Y75[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,I(10),s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 3,tc,V 2,c,r};
+void*Y76[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 69,qi,W(or),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 2,xri,Q,jinz,V 4,t,F,j,V 14,qi,W(cond),mla,l,V 2,q,mha,l,V 1,l,V 77,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,q,mha,l,V 1,l,V 77,tc,V 2,c,r,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(else),jinz,V 24,qi,W(begin),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 77,tc,V 2,c,r,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(EQGT),jinz,V 210,qi,W(my),qi,W(l),mla,l,V 1,q,li,rvec+10,tc,V 1...
[truncated message content] |
|
From: <di...@us...> - 2002-09-18 21:13:40
|
Update of /cvsroot/wisp/wisp/src/native In directory usw-pr-cvs1:/tmp/cvs-serv1097/src/native Modified Files: misc.s misc.wth Log Message: Cleanup. Index: misc.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- misc.s 18 Sep 2002 21:12:38 -0000 1.9 +++ misc.s 18 Sep 2002 21:13:37 -0000 1.10 @@ -1,5 +1,25 @@ .section .text .align 16 +N_pr_get_environment: +.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233 +.long N_signal_argcount - (.+4) +.byte 88,184 +.long environment +.byte 139,0,195 +.global N_pr_get_environment,NN_pr_get_environment +.equiv NN_pr_get_environment, N_pr_get_environment + 1 +.section .text +.align 16 +N_pr_get_argument_list: +.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233 +.long N_signal_argcount - (.+4) +.byte 88,184 +.long argument_list +.byte 139,0,195 +.global N_pr_get_argument_list,NN_pr_get_argument_list +.equiv NN_pr_get_argument_list, N_pr_get_argument_list + 1 +.section .text +.align 16 N_new: .byte 144,81,133,201,15,143,8,0,0,0,88,137,193,233 .long N_signal_argcount - (.+4) Index: misc.wth =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- misc.wth 18 Sep 2002 21:12:38 -0000 1.9 +++ misc.wth 18 Sep 2002 21:13:37 -0000 1.10 @@ -13,10 +13,12 @@ (extern WB_out_of_memory) (extern WB_range) (extern WB_record_type_huh) +(extern argument_list) (extern decsi$1) (extern decui$1) (extern encsi$1) (extern encui$1) +(extern environment) (extern funcall) (extern rvec) (extern valloc$1) @@ -89,5 +91,17 @@ nip swap 'immediate_return swap cell! ; fix the return address swap 1- swap ; decrement argcount (conform %ecx %eax) ,(jmp funcall)) + +; The supposed usage of |%get-argument-list| and |%get-environment| is +; once, during the initialization phase of the run-time library. +; However, nothing very bad will happen if they are called more times-- +; except, of course, that they'll always return the same object. +; Be advised against handing them to the user. + +(native pr_get_argument_list dup 0 = argc drop + 'argument_list cell@) + +(native pr_get_environment dup 0 = argc drop + 'environment cell@) ; vim: ft=worth |
|
From: <di...@us...> - 2002-09-18 21:13:40
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv1097/src/builtin
Modified Files:
init.wisp sysenv.wisp
Log Message:
Cleanup.
Index: init.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/init.wisp,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -d -r1.61 -r1.62
--- init.wisp 18 Sep 2002 21:11:14 -0000 1.61
+++ init.wisp 18 Sep 2002 21:13:37 -0000 1.62
@@ -17,6 +17,8 @@
Wisp is free software as defined by GPL 2.0.\n\n")
(exit 0))
+(local *arglist* ((asm NN_pr_get_argument_list)))
+
(define (run-file opkeys script args)
(if (memq #\V opkeys)
(state-version))
Index: sysenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/sysenv.wisp,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- sysenv.wisp 26 Aug 2002 15:54:20 -0000 1.23
+++ sysenv.wisp 18 Sep 2002 21:13:37 -0000 1.24
@@ -7,7 +7,7 @@
;;;; @(#) $Id$
;; Parse the environment into an association list
-(my environ (let ((el envilist)
+(my environ (let ((el ((asm NN_pr_get_environment)))
(al '()))
(while (not (null? el))
(my p (split-by-char #\= (car el) 1)
|
|
From: <di...@us...> - 2002-09-18 21:12:58
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv703/modules
Modified Files:
universal.wrti wisptyp.wrti
Log Message:
Dropped NC_VECTOR in favour of the new |<vector>| type, thereby reducing the allocation block count of vectors from 2 to 1.
Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- universal.wrti 18 Sep 2002 21:07:35 -0000 1.20
+++ universal.wrti 18 Sep 2002 21:12:24 -0000 1.21
@@ -620,11 +620,22 @@
,(stos %eax)
(believe))
+ (macro cellfill tetrafill)
+
(macro move
(conform %esi %edi %ecx)
,(cld)
,(rep)
,(movs \byte)
- (believe)))
+ (believe))
+
+ (macro tetramove
+ (conform %esi %edi %ecx)
+ ,(cld)
+ ,(rep)
+ ,(movs \tetra)
+ (believe))
+
+ (macro cellmove tetramove))
; vim:ft=worth
Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- wisptyp.wrti 18 Sep 2002 21:08:51 -0000 1.16
+++ wisptyp.wrti 18 Sep 2002 21:12:24 -0000 1.17
@@ -43,13 +43,13 @@
-16 and)
(macro require-vector
- dup get-type NC_VECTOR <> if 'WB_vector_huh swap go-raise then)
+ dup get-type 'RT_vector <> if 'WB_vector_huh swap go-raise then)
(macro vector-length
cell+ cell@)
(macro vector-data
- 2 cells + cell@)
+ 2 cells +)
(macro require-c8string
dup get-type NC_C8STRING <> if 'WB_c8string_huh swap go-raise then)
@@ -115,7 +115,6 @@
(macro NC_EVMFUNC 3)
(macro NC_DICT 5)
(macro NC_SYMBOL 6)
- (macro NC_VECTOR 8)
(macro NC_C8STRING 9)
(macro NC_INSTANCE 10)
|
|
From: <di...@us...> - 2002-09-18 21:12:58
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv703/doc Modified Files: worth.vim Log Message: Dropped NC_VECTOR in favour of the new |<vector>| type, thereby reducing the allocation block count of vectors from 2 to 1. Index: worth.vim =================================================================== RCS file: /cvsroot/wisp/wisp/doc/worth.vim,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- worth.vim 18 Sep 2002 21:08:50 -0000 1.21 +++ worth.vim 18 Sep 2002 21:12:24 -0000 1.22 @@ -29,36 +29,37 @@ syn keyword wispFunc WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED syn keyword wispFunc WSTOPSIG WTERMSIG abs and argc arshift bsf bsr syn keyword wispFunc bury byte! byte@ byte@++ cell! cell+ cell- cell@ -syn keyword wispFunc cell@++ cells cr d+ d- d>s dhexprint dig drop dup -syn keyword wispFunc emit emit-digit encode-digit fill get-type -syn keyword wispFunc go-access-slot hexprint lshift m+ max min mod move -syn keyword wispFunc negate nip not octas or over require-c8string -syn keyword wispFunc require-record-type require-string-length -syn keyword wispFunc require-vector rol ror rot rshift s>d sp! sp@ -syn keyword wispFunc space square string-data string-length swap -syn keyword wispFunc sys.accept sys.access sys.alarm sys.bind sys.brk -syn keyword wispFunc sys.chdir sys.chmod sys.chroot sys.close -syn keyword wispFunc sys.connect sys.creat sys.dup sys.dup2 sys.execve -syn keyword wispFunc sys.exit sys.fchdir sys.fchmod sys.fdatasync -syn keyword wispFunc sys.flock sys.fork sys.fstat sys.fsync -syn keyword wispFunc sys.ftruncate sys.getcwd sys.getdents sys.getegid -syn keyword wispFunc sys.geteuid sys.getgid sys.getpeername sys.getpgid -syn keyword wispFunc sys.getpgrp sys.getpid sys.getppid sys.getsid -syn keyword wispFunc sys.getsockname sys.getuid sys.ioctl sys.ioctl2 -syn keyword wispFunc sys.kill sys.link sys.listen sys.lseek sys.lstat -syn keyword wispFunc sys.mkdir sys.mlock sys.mlockall sys.munlock -syn keyword wispFunc sys.munlockall sys.nanosleep sys.nice sys.open -syn keyword wispFunc sys.pause sys.pipe sys.read sys.rename sys.rmdir -syn keyword wispFunc sys.select sys.setgid sys.setpgid sys.setregid -syn keyword wispFunc sys.setreuid sys.setsid sys.setuid sys.shutdown -syn keyword wispFunc sys.socket sys.stat sys.stime sys.swapoff -syn keyword wispFunc sys.swapon sys.symlink sys.sync sys.time -syn keyword wispFunc sys.truncate sys.umask sys.unlink sys.vhangup -syn keyword wispFunc sys.waitpid sys.write sys.write-char tetra! tetra+ -syn keyword wispFunc tetra- tetra@ tetra@++ tetrafill tetras tuck type -syn keyword wispFunc u< u<= u> u>= vector-data vector-length -syn keyword wispFunc wisp-bool-> wisp-epilogue wisp-prologue within -syn keyword wispFunc wyde! wyde+ wyde- wyde@ wyde@++ wydes xor +syn keyword wispFunc cell@++ cellfill cellmove cells cr d+ d- d>s +syn keyword wispFunc dhexprint dig drop dup emit emit-digit +syn keyword wispFunc encode-digit fill get-type go-access-slot hexprint +syn keyword wispFunc lshift m+ max min mod move negate nip not octas or +syn keyword wispFunc over require-c8string require-record-type +syn keyword wispFunc require-string-length require-vector rol ror rot +syn keyword wispFunc rshift s>d sp! sp@ space square string-data +syn keyword wispFunc string-length swap sys.accept sys.access sys.alarm +syn keyword wispFunc sys.bind sys.brk sys.chdir sys.chmod sys.chroot +syn keyword wispFunc sys.close sys.connect sys.creat sys.dup sys.dup2 +syn keyword wispFunc sys.execve sys.exit sys.fchdir sys.fchmod +syn keyword wispFunc sys.fdatasync sys.flock sys.fork sys.fstat +syn keyword wispFunc sys.fsync sys.ftruncate sys.getcwd sys.getdents +syn keyword wispFunc sys.getegid sys.geteuid sys.getgid sys.getpeername +syn keyword wispFunc sys.getpgid sys.getpgrp sys.getpid sys.getppid +syn keyword wispFunc sys.getsid sys.getsockname sys.getuid sys.ioctl +syn keyword wispFunc sys.ioctl2 sys.kill sys.link sys.listen sys.lseek +syn keyword wispFunc sys.lstat sys.mkdir sys.mlock sys.mlockall +syn keyword wispFunc sys.munlock sys.munlockall sys.nanosleep sys.nice +syn keyword wispFunc sys.open sys.pause sys.pipe sys.read sys.rename +syn keyword wispFunc sys.rmdir sys.select sys.setgid sys.setpgid +syn keyword wispFunc sys.setregid sys.setreuid sys.setsid sys.setuid +syn keyword wispFunc sys.shutdown sys.socket sys.stat sys.stime +syn keyword wispFunc sys.swapoff sys.swapon sys.symlink sys.sync +syn keyword wispFunc sys.time sys.truncate sys.umask sys.unlink +syn keyword wispFunc sys.vhangup sys.waitpid sys.write sys.write-char +syn keyword wispFunc tetra! tetra+ tetra- tetra@ tetra@++ tetrafill +syn keyword wispFunc tetramove tetras tuck type u< u<= u> u>= +syn keyword wispFunc vector-data vector-length wisp-bool-> +syn keyword wispFunc wisp-epilogue wisp-prologue within wyde! wyde+ +syn keyword wispFunc wyde- wyde@ wyde@++ wydes xor " structure management |
|
From: <di...@us...> - 2002-09-18 21:12:42
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv703/src
Modified Files:
boot.wisp essence.c essence.h node.h wordlist.txt
Log Message:
Dropped NC_VECTOR in favour of the new |<vector>| type, thereby reducing the allocation block count of vectors from 2 to 1.
Index: boot.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/boot.wisp,v
retrieving revision 1.259
retrieving revision 1.260
diff -u -d -r1.259 -r1.260
--- boot.wisp 18 Sep 2002 21:08:51 -0000 1.259
+++ boot.wisp 18 Sep 2002 21:12:24 -0000 1.260
@@ -43,14 +43,11 @@
`(STRING ,s))
((eq? s (begin))
'#\Z)
- ((vector? s)
- `(VECTOR ,@(map fullify s)))
((class? s)
(my v (class->vector s)
`(CLASS ,(address-of s)
,(fullify (superclass s))
- ,(map fullify (vector->list v))
- ,(fullify '()))))
+ ,(map fullify (vector->list v)))))
(else
(raise 'un-fullifiable s))))
@@ -212,8 +209,6 @@
(ptc `(CONS ,(full->c (second node)) ,(full->c (third node)))))
((PROCEDURE)
(ptc `(PROCEDURE ,(map full->c (second node)))))
- ((VECTOR)
- (ptc `(VECTOR ,@(map full->c (cdr node)))))
((CHAR COUNT INSTRUCTION)
node)
((SYMBOL)
@@ -227,8 +222,7 @@
(ptc node))
((CLASS)
(ptc `(CLASS ,(second node) ,(full->c (third node))
- ,(map full->c (fourth node))
- ,(full->c (fifth node)))))
+ ,(map full->c (fourth node)))))
((VERBATIM)
node)
(else
@@ -361,8 +355,9 @@
(print csf "\n/* The classes */\n")
(my *class-vec* (collector->vector *class-vec*)
(while (< i (length *class-vec*))
- (my (() () sc slots initial) *class-vec*[i]
- (print csf "void*BCL$[i]\[]__attribute__((aligned(16)))=CLS($,(if (or (eq? sc #\F) (eq? sc #\Q)) #\F (pointer sc)),($(length slots),$,(string-join (map pointer slots) #\,)),$,(pointer initial));\n"))
+ (my (() () sc slots) *class-vec*[i]
+ (print csf "void*BCLV$[i]\[]__attribute__((aligned(16)))={(void*)&RT_vector,(void*)$(length slots),$,(string-join (map pointer slots) #\,)};\n")
+ (print csf "void*BCL$[i]\[]__attribute__((aligned(16)))=CLS($,(if (or (eq? sc #\F) (eq? sc #\Q)) #\F (pointer sc)),BCLV$[i]);\n"))
(incr! i)))))
(my *cvec* (collector->vector *cvec*)
@@ -393,9 +388,6 @@
(print csf "S($(length s),\"$,(string->c s)\")")))
((PROCEDURE)
(print csf "P($[i])"))
- ((VECTOR)
- (my v (cdr block)
- (print csf "VEC($(length v),$,(string-join (map pointer v) #\,))")))
(else
(print csf "$,[*cvec*[i]]"))))
(print csf ",\n")
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.219
retrieving revision 1.220
diff -u -d -r1.219 -r1.220
--- essence.c 18 Sep 2002 21:11:06 -0000 1.219
+++ essence.c 18 Sep 2002 21:12:24 -0000 1.220
@@ -412,34 +412,37 @@
NN_valloc,
NN_vector_fill,
NN_vector_huh,
- NN_vector_length,
NN_vector_move,
NN_wisp_string_hash,
RT_box,
RT_c16string,
RT_record_type,
+ RT_vector,
S_wisp_build,
S_wisp_builder,
S_wisp_version,
dict_ref_2;
/* The classes */
-void*BCL0[]__attribute__((aligned(16)))=CLS(F,(2,BC 3,BC 4),Q);
-void*BCL1[]__attribute__((aligned(16)))=CLS(F,(10,BC 6,BC 7,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15),Q);
-void*BCL2[]__attribute__((aligned(16)))=CLS(&BCL1,(11,BC 6,BC 7,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15,BC 16),Q);
+void*BCLV0[]__attribute__((aligned(16)))={(void*)&RT_vector,(void*)2,BC 3,BC 4};
+void*BCL0[]__attribute__((aligned(16)))=CLS(F,BCLV0);
+void*BCLV1[]__attribute__((aligned(16)))={(void*)&RT_vector,(void*)10,BC 6,BC 7,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15};
+void*BCL1[]__attribute__((aligned(16)))=CLS(F,BCLV1);
+void*BCLV2[]__attribute__((aligned(16)))={(void*)&RT_vector,(void*)11,BC 6,BC 7,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15,BC 16};
+void*BCL2[]__attribute__((aligned(16)))=CLS(&BCL1,BCLV2);
// The EVM bodies.
-void*Y0[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 16,qi,W(cons_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
-void*Y1[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 16,qi,W(instance_of_wrong_class),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r,t,Z,ds,V 2,r};
-void*Y2[]={hop,V 5,mlt,jinnc,V 10,notc,p,s,V 1,t,T,s,V 0,j,V 6,t,F,s,V 1,s,V 0,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 4,p,s,V 3,p,s,V 2,mla,l,V 0,jif,V 69,mla,l,V 4,xri,Q,jinz,V 21,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 1,q,mha,l,V 1,l,V 85,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,r,mla,l,V 4,xri,Q,jinz,V 14,mla,l,V 2,q,mla,l,V 3,q,t,&dict_ref_2,tc,V 2,c,r,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 26,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,&NN_dict_ref_3,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
-void*Y3[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,t,&NN_pr_make_record_type,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,F,q,t,F,q,t,F,q,t,F,q,t,F,q,mla,l,V 1,xri,Q,jiz,V 294,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 3,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,mlt,s,V 5,mla,l,V 5,mlt,s,V 1,mla,l,V 3,q,dig,V 0,xri,W(ref),jinz,V 40,dig,V 5,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 5,j,V 198,dig,V 0,xri,W(length),jinz,V 40,dig,V 4,jif,V 16,qi,W(duplicate_length_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 4,j,V 152,dig,V 0,xri,W(new),jinz,V 40,dig,V 3,jif,V 16,qi,W(duplicate_new_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 3,j,V 106,dig,V 0,xri,W(read_char),jinz,V 40,dig,V 2,jif,V 16,qi,W(duplicate_read_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 2,j,V 60,dig,V 0,xri,W(write_char),jinz,V 40,dig,V 1,jif,V 16,qi,W(duplicate_write_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 1,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,j,V -301,dig,V 4,jif,V 13,dig,V 5,q,dig,V 5,q,t,&NN_pr_record_type_ref_slot,tc,V -2,c,j,V 0,dig,V 3,jif,V 13,dig,V 5,q,dig,V 4,q,t,&NN_pr_record_type_length_slot,tc,V -2,c,j,V 0,dig,V 2,jif,V 13,dig,V 5,q,dig,V 3,q,t,&NN_pr_record_type_new_slot,tc,V -2,c,j,V 0,dig,V 1,jif,V 13,dig,V 5,q,dig,V 2,q,t,&NN_pr_record_type_read_char_slot,tc,V -2,c,j,V 0,dig,V 0,jif,V 13,dig,V 5,q,dig,V 1,q,t,&NN_pr_record_type_write_char_slot,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,mla,l,V 2,r};
-void*Y4[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 90,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 108,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 154,tc,V 1,c,ds,V 1,r};
+void*Y0[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 80,tc,V 1,c,jinf,V 16,qi,W(cons_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
+void*Y1[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 16,qi,W(instance_of_wrong_class),dig,V 2,q,mha,l,V 1,l,V 111,tc,V 2,c,ds,V 2,r,t,Z,ds,V 2,r};
+void*Y2[]={hop,V 5,mlt,jinnc,V 10,notc,p,s,V 1,t,T,s,V 0,j,V 6,t,F,s,V 1,s,V 0,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 4,p,s,V 3,p,s,V 2,mla,l,V 0,jif,V 69,mla,l,V 4,xri,Q,jinz,V 21,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 1,q,mha,l,V 1,l,V 86,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 111,tc,V 2,c,r,mla,l,V 4,xri,Q,jinz,V 14,mla,l,V 2,q,mla,l,V 3,q,t,&dict_ref_2,tc,V 2,c,r,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 26,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,&NN_dict_ref_3,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 111,tc,V 2,c,r};
+void*Y3[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,t,&NN_pr_make_record_type,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,F,q,t,F,q,t,F,q,t,F,q,t,F,q,mla,l,V 1,xri,Q,jiz,V 294,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 3,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,mlt,s,V 5,mla,l,V 5,mlt,s,V 1,mla,l,V 3,q,dig,V 0,xri,W(ref),jinz,V 40,dig,V 5,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 5,j,V 198,dig,V 0,xri,W(length),jinz,V 40,dig,V 4,jif,V 16,qi,W(duplicate_length_hook),mla,l,V 4,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 4,j,V 152,dig,V 0,xri,W(new),jinz,V 40,dig,V 3,jif,V 16,qi,W(duplicate_new_hook),mla,l,V 4,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 3,j,V 106,dig,V 0,xri,W(read_char),jinz,V 40,dig,V 2,jif,V 16,qi,W(duplicate_read_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 2,j,V 60,dig,V 0,xri,W(write_char),jinz,V 40,dig,V 1,jif,V 16,qi,W(duplicate_write_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 1,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 111,tc,V 2,c,ds,V 1,j,V -301,dig,V 4,jif,V 13,dig,V 5,q,dig,V 5,q,t,&NN_pr_record_type_ref_slot,tc,V -2,c,j,V 0,dig,V 3,jif,V 13,dig,V 5,q,dig,V 4,q,t,&NN_pr_record_type_length_slot,tc,V -2,c,j,V 0,dig,V 2,jif,V 13,dig,V 5,q,dig,V 3,q,t,&NN_pr_record_type_new_slot,tc,V -2,c,j,V 0,dig,V 1,jif,V 13,dig,V 5,q,dig,V 2,q,t,&NN_pr_record_type_read_char_slot,tc,V -2,c,j,V 0,dig,V 0,jif,V 13,dig,V 5,q,dig,V 1,q,t,&NN_pr_record_type_write_char_slot,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,mla,l,V 2,r};
+void*Y4[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 91,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 109,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 154,tc,V 1,c,ds,V 1,r};
void*Y5[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 155,tc,V 1,c,ds,V 1,r};
-void*Y6[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 113,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 24,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 179,qi,W(define),mla,l,V 1,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),qi,W(DOTl),mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(apply),qi,W(hide),qi,W(DOTl),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,qi,W(syntax_error),qi,W(defmacro),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
+void*Y6[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 113,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 24,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 179,qi,W(define),mla,l,V 1,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),qi,W(DOTl),mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(apply),qi,W(hide),qi,W(DOTl),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,qi,W(syntax_error),qi,W(defmacro),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 111,tc,V 2,c,r};
void*Y7[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,q,dig,V 2,q,mha,l0,q,qi,W(eval),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r};
-void*Y8[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,W(assertion_failed),s,V 2,qi,W(if),qi,W(not),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y10[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mac,mca,subc,V 5,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 3,jizc,V 15,mac,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,j,V 101,mac,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,qi,I(-1),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,CH('?'),mha,l0,q,qi,W(charEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 5,mla,l,V 1,j,V 47,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,s,V 3,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 4,qi,W(my),qi,W(val),mla,l,V 2,q,qi,W(if),qi,W(not),mla,l,V 4,q,qi,W(val),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(val),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y11[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 80,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(lambda),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,qi,W(DEFINE),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
+void*Y8[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,W(assertion_failed),s,V 2,qi,W(if),qi,W(not),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
+void*Y10[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mac,mca,subc,V 5,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 3,jizc,V 15,mac,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,j,V 101,mac,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,qi,I(-1),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,CH('?'),mha,l0,q,qi,W(charEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 5,mla,l,V 1,j,V 47,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,s,V 3,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 4,qi,W(my),qi,W(val),mla,l,V 2,q,qi,W(if),qi,W(not),mla,l,V 4,q,qi,W(val),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(val),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
+void*Y11[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 80,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(lambda),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,qi,W(DEFINE),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
void*Y12[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,F,jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
void*Y13[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
void*Y14[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 56,dig,V 1,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+15,tc,V 2,c,jif,V 33,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 3,tc,V 2,c,j,V 2,t,F,ds,V 2,r};
@@ -466,50 +469,50 @@
void*Y35[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mla,l,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 51,t,Q,mlt,s,V 1,t,B 34,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mla,l,V 1,tc,V 2,c,r};
void*Y36[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(integer_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 22,dig,V 0,q,qi,I(0),li,rvec+15,tc,V 2,c,jinf,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r,t,F,ds,V 1,r};
void*Y37[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,F,dig,V 2,q,dig,V 2,q,mha,l0,q,qi,W(compile),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,tc,V 0,c,ds,V 2,r};
-void*Y38[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,qi,W(OR),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,q,mha,l,V 1,l,V 97,tc,V 3,c,ds,V 1,r};
+void*Y38[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,qi,W(OR),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,q,mha,l,V 1,l,V 98,tc,V 3,c,ds,V 1,r};
void*Y39[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 1,xri,Q,jinz,V 3,t,F,r,t,Q,mlt,s,V 2,t,B 38,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 2,tc,V 1,c,r};
-void*Y40[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(EQGT),jinz,V 27,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 79,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(and),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 23,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(DOTl),jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 44,qi,W(hide),qi,W(DOTl),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(2),jinz,V 27,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 79,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(caddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(my),mla,l,V 1,q,qi,W(DOTl),qi,W(hide),qi,W(hideTIMES),mla,l,V 2,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(and),dig,V 11,q,mha,l0,q,qi,W(cdddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,qi,W(if),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(and),dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,F,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
+void*Y40[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(EQGT),jinz,V 27,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 80,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(and),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 23,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(DOTl),jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 44,qi,W(hide),qi,W(DOTl),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(2),jinz,V 27,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 80,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(caddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(my),mla,l,V 1,q,qi,W(DOTl),qi,W(hide),qi,W(hideTIMES),mla,l,V 2,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(and),dig,V 11,q,mha,l0,q,qi,W(cdddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,qi,W(if),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(and),dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
void*Y41[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 1,xri,Q,jinz,V 3,t,T,r,t,Q,mlt,s,V 2,t,B 40,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 2,tc,V 1,c,r};
-void*Y42[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 97,tc,V 1,c,mlt,s,V 0,mha,l,V 2,l,V 2,q,mla,l,V 0,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 0,mat,mha,l,V 2,st,V 2,t,Z,ds,V 1,r};
-void*Y43[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,Q,mha,l,V 1,l,V 97,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,t,B 42,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 0,tc,V 1,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r};
-void*Y44[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 36,mha,l,V 2,l,V 2,q,dig,V 1,q,mha,l,V 1,l,V 97,tc,V 1,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,dig,V 1,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r};
-void*Y45[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mla,l,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 52,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 22,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 3,tc,V 1,c,j,V 14,qi,W(argcount),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jiz,V 23,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 2,t,Z,r,t,Z,r};
-void*Y46[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,Q,mha,l,V 1,l,V 97,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,t,B 44,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 3,t,B 45,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,mla,l,V 3,q,mla,l,V 4,q,mla,l,V 0,tc,V 2,c,mla,l,V 2,q,qi,Q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r};
-void*Y47[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,xri,W(undefined),jinz,V 15,qi,W(make_box),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 2,r,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r};
-void*Y48[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,q,mha,l,V 1,l,V 24,tc,V 1,c,mlt,s,V 0,qi,W(make_box),qi,W(quasiquote),mla,l,V 0,q,mha,l,V 1,l,V 97,tc,V 2,c,q,mha,l,V 1,l,V 97,tc,V 2,c,r};
-void*Y49[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 18,mla,l,V 1,q,mha,l0,q,qi,W(quasiquote_cons),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mla,l,V 1,q,mha,l,V 1,l,V 146,tc,V 1,c,jif,V 62,qi,W(list2vector),qi,W(quasiquote),mla,l,V 1,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 25,tc,V 1,c,jif,V 37,qi,T,t,B 47,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 48,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r,qi,W(quote),mla,l,V 1,q,mha,l,V 1,l,V 97,tc,V 2,c,r};
-void*Y50[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 5,dig,V 1,ds,V 2,r,qi,W(append),dig,V 2,q,qi,W(quasiquote),dig,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 2,r};
-void*Y51[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 314,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 24,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 160,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,W(unquote),jinz,V 14,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,mla,l,V 2,xri,W(quasiquote),jinz,V 41,qi,W(quote),mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,qi,W(cons),qi,W(quasiquote),mla,l,V 0,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,qi,W(cons),qi,W(quasiquote),mla,l,V 0,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
-void*Y52[]={binc,&branch_EVM_invargc,hop,V 9,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 517,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 2,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,mla,l,V 3,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 24,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 400,mla,l,V 2,mlt,s,V 4,mla,l,V 4,xri,W(unquote_splicing),jinz,V 32,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(process_unquote_splicing),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,mla,l,V 4,xri,W(unquote),jinz,V 302,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,mla,l,V 5,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 230,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 6,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 7,mla,l,V 7,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 24,mla,l,V 7,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 102,mla,l,V 6,mlt,s,V 8,mla,l,V 8,xri,W(splicing),jinz,V 32,mla,l,V 7,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(process_unquote_splicing),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,qi,W(unquote),mla,l,V 6,q,mla,l,V 7,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 97,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,qi,W(unquote),mla,l,V 6,q,mla,l,V 7,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 97,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,qi,W(unquote),mla,l,V 5,q,mha,l,V 1,l,V 97,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
-void*Y53[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,mha,l0,q,qi,W(second),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
-void*Y54[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 21,mla,l,V 2,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jinz,V 53,qi,W(syntax_error),qi,W(do),mla,l,V 1,q,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 117,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 49,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,xri,I(2),jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,I(3),jinz,V 4,t,T,j,V 2,t,F,ds,V 1,xri,F,jinz,V 15,qi,W(erroneous_binding),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -123,ds,V 1,qi,W(let),t,B 53,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(while),qi,W(not),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 3,q,t,Q,mlt,s,V 4,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 151,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,Q,jiz,V 98,qi,W(set_bang),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(hold),dig,V 4,q,mha,l0,q,qi,W(caddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 4,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 4,j,V 0,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -157,ds,V 1,mla,l,V 4,q,mha,l0,q,qi,W(append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y55[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,I(1),s,V 2,qi,W(set_bang),mla,l,V 1,q,qi,W(PLUS),mla,l,V 1,q,mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y56[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,I(1),s,V 2,qi,W(set_bang),mla,l,V 1,q,qi,W(_),mla,l,V 1,q,mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y57[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 2,q,qi,W(cons),dig,V 3,q,dig,V 5,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 3,r};
-void*Y58[]={binc,&branch_EVM_invargc,mca,subc,V 4,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 3,q,qi,W(cons),qi,W(cons),dig,V 5,q,dig,V 5,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,dig,V 6,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 4,r};
-void*Y59[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 1,q,qi,W(car),dig,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 2,r};
-void*Y60[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 1,q,qi,W(cdr),dig,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 2,r};
-void*Y61[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(my),qi,W(t),dig,V 3,q,qi,W(set_bang),qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(set_bang),qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(t),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 3,r};
-void*Y62[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 2,l,V 0,q,dig,V 2,q,t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
-void*Y63[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,F,s,V 1,mla,l,V 1,jif,V 31,t,B 62,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mla,l,V 0,q,mha,l,V 1,l,V 82,tc,V 1,c,r};
+void*Y42[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 98,tc,V 1,c,mlt,s,V 0,mha,l,V 2,l,V 2,q,mla,l,V 0,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 0,mat,mha,l,V 2,st,V 2,t,Z,ds,V 1,r};
+void*Y43[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,Q,mha,l,V 1,l,V 98,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,t,B 42,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 0,tc,V 1,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r};
+void*Y44[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 36,mha,l,V 2,l,V 2,q,dig,V 1,q,mha,l,V 1,l,V 98,tc,V 1,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,dig,V 1,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r};
+void*Y45[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mla,l,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 52,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 22,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 3,tc,V 1,c,j,V 14,qi,W(argcount),mla,l,V 0,q,mha,l,V 1,l,V 111,tc,V 2,c,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jiz,V 23,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 2,t,Z,r,t,Z,r};
+void*Y46[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,Q,mha,l,V 1,l,V 98,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,t,B 44,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 3,t,B 45,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,mla,l,V 3,q,mla,l,V 4,q,mla,l,V 0,tc,V 2,c,mla,l,V 2,q,qi,Q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r};
+void*Y47[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,xri,W(undefined),jinz,V 15,qi,W(make_box),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 2,r,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,ds,V 2,r};
+void*Y48[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,q,mha,l,V 1,l,V 25,tc,V 1,c,mlt,s,V 0,qi,W(make_box),qi,W(quasiquote),mla,l,V 0,q,mha,l,V 1,l,V 98,tc,V 2,c,q,mha,l,V 1,l,V 98,tc,V 2,c,r};
+void*Y49[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 18,mla,l,V 1,q,mha,l0,q,qi,W(quasiquote_cons),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mla,l,V 1,q,mha,l,V 1,l,V 146,tc,V 1,c,jif,V 62,qi,W(list2vector),qi,W(quasiquote),mla,l,V 1,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 26,tc,V 1,c,jif,V 37,qi,T,t,B 47,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 48,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 29,tc,V 3,c,r,qi,W(quote),mla,l,V 1,q,mha,l,V 1,l,V 98,tc,V 2,c,r};
+void*Y50[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 5,dig,V 1,ds,V 2,r,qi,W(append),dig,V 2,q,qi,W(quasiquote),dig,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 2,r};
+void*Y51[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 314,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 24,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 160,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,W(unquote),jinz,V 14,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,mla,l,V 2,xri,W(quasiquote),jinz,V 41,qi,W(quote),mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,qi,W(cons),qi,W(quasiquote),mla,l,V 0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,qi,W(cons),qi,W(quasiquote),mla,l,V 0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
+void*Y52[]={binc,&branch_EVM_invargc,hop,V 9,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 0,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 517,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 2,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,mla,l,V 3,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 24,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 400,mla,l,V 2,mlt,s,V 4,mla,l,V 4,xri,W(unquote_splicing),jinz,V 32,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(process_unquote_splicing),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,mla,l,V 4,xri,W(unquote),jinz,V 302,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,mla,l,V 5,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 230,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 6,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 7,mla,l,V 7,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 24,mla,l,V 7,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 102,mla,l,V 6,mlt,s,V 8,mla,l,V 8,xri,W(splicing),jinz,V 32,mla,l,V 7,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(process_unquote_splicing),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,qi,W(unquote),mla,l,V 6,q,mla,l,V 7,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 98,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,qi,W(unquote),mla,l,V 6,q,mla,l,V 7,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 98,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,qi,W(unquote),mla,l,V 5,q,mha,l,V 1,l,V 98,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
+void*Y53[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,mha,l0,q,qi,W(second),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
+void*Y54[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 21,mla,l,V 2,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jinz,V 53,qi,W(syntax_error),qi,W(do),mla,l,V 1,q,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 117,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 49,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,xri,I(2),jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,I(3),jinz,V 4,t,T,j,V 2,t,F,ds,V 1,xri,F,jinz,V 15,qi,W(erroneous_binding),dig,V 2,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -123,ds,V 1,qi,W(let),t,B 53,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(while),qi,W(not),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 3,q,t,Q,mlt,s,V 4,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 151,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,Q,jiz,V 98,qi,W(set_bang),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(hold),dig,V 4,q,mha,l0,q,qi,W(caddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 4,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,mlt,s,V 4,j,V 0,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -157,ds,V 1,mla,l,V 4,q,mha,l0,q,qi,W(append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
+void*Y55[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,I(1),s,V 2,qi,W(set_bang),mla,l,V 1,q,qi,W(PLUS),mla,l,V 1,q,mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
+void*Y56[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,I(1),s,V 2,qi,W(set_bang),mla,l,V 1,q,qi,W(_),mla,l,V 1,q,mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
+void*Y57[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 2,q,qi,W(cons),dig,V 3,q,dig,V 5,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 3,r};
+void*Y58[]={binc,&branch_EVM_invargc,mca,subc,V 4,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 3,q,qi,W(cons),qi,W(cons),dig,V 5,q,dig,V 5,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,dig,V 6,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 4,r};
+void*Y59[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 1,q,qi,W(car),dig,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 2,r};
+void*Y60[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 1,q,qi,W(cdr),dig,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 2,r};
+void*Y61[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(my),qi,W(t),dig,V 3,q,qi,W(set_bang),qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(set_bang),qi,W(hide),qi,W(t),dig,V 7,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(t),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 3,r};
+void*Y62[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 2,l,V 0,q,dig,V 2,q,t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
+void*Y63[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,F,s,V 1,mla,l,V 1,jif,V 31,t,B 62,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mla,l,V 0,q,mha,l,V 1,l,V 83,tc,V 1,c,r};
void*Y64[]={binc,&branch_EVM_invargc,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,inc,dcc,jizc,V 3,p,j,V -6,t,F,r};
void*Y65[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l,V 2,l,V 1,q,t,&NN_dict_ref_2,tc,V 2,c,t,T,r};
-void*Y66[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,qi,W(unknown),t,B 64,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 65,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y67[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 82,tc,V 1,c,q,mha,l0,q,qi,W(alist2dict),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
+void*Y66[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,qi,W(unknown),t,B 64,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 65,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 29,tc,V 3,c,r};
+void*Y67[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 83,tc,V 1,c,q,mha,l0,q,qi,W(alist2dict),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
void*Y68[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,inc,dcc,jizc,V 3,p,j,V -6,mha,l,V 3,l,V 0,q,mha,l,V 2,l,V 0,tc,V 1,c,mlt,s,V 0,mha,l,V 2,l,V 1,q,mha,l,V 3,l,V 0,q,mla,l,V 0,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 0,r};
void*Y69[]={binc,&branch_EVM_invargc,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,inc,dcc,jizc,V 3,p,j,V -6,mha,l,V 2,l,V 1,q,mha,l,V 3,l,V 0,q,t,&NN_dict_ref_2,tc,V 2,c,r};
-void*Y70[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,W(unknown),t,B 68,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 69,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y71[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 14,mac,p,s,V 0,mha,l,V 1,l,V 101,tc,V 0,c,s,V 1,t,B 70,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
-void*Y72[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,dig,V 2,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 0,mla,l,V 0,jif,V 36,dig,V 2,q,dig,V 1,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,t,Z,ds,V 3,r,dig,V 2,q,dig,V 1,q,mha,l,V 1,l,V 83,tc,V 2,c,ds,V 3,r};
-void*Y73[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
+void*Y70[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,W(unknown),t,B 68,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 69,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 29,tc,V 3,c,r};
+void*Y71[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 14,mac,p,s,V 0,mha,l,V 1,l,V 102,tc,V 0,c,s,V 1,t,B 70,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
+void*Y72[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,dig,V 2,q,mha,l,V 1,l,V 85,tc,V 2,c,mlt,s,V 0,mla,l,V 0,jif,V 36,dig,V 2,q,dig,V 1,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,t,Z,ds,V 3,r,dig,V 2,q,dig,V 1,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 3,r};
+void*Y73[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
void*Y74[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,I(10),s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 2,tc,V 2,c,r};
void*Y75[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,I(10),s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 5,tc,V 2,c,r};
-void*Y76[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 69,qi,W(or),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 2,xri,Q,jinz,V 4,t...
[truncated message content] |
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv703/src/native
Modified Files:
Makefile.am base.inc death.s misc.s misc.wth ref.nasm sys.s
sys.wth types.nasm
Added Files:
vectors.s vectors.wth
Removed Files:
vectors.nasm
Log Message:
Dropped NC_VECTOR in favour of the new |<vector>| type, thereby reducing the allocation block count of vectors from 2 to 1.
--- NEW FILE: vectors.s ---
.section .text
.align 16
N_vector_move:
.byte 144,81,131,249,5,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
.byte 88,88,91,80,104
.long N_vector_move.L1
.byte 83,233
.long decui$1 - (.+4)
.byte 91,80,104
.long N_vector_move.L2
.byte 83,233
.long decui$1 - (.+4)
.byte 80,184,3,0,0,0,139,28,132,104
.long N_vector_move.L3
.byte 83,233
.long decui$1 - (.+4)
.byte 187,3,0,0,0,137,4,156,184,4,0,0,0,139,28,132,137,216,37,3,0,0,0,83
.byte 83,133,192,15,132,8,0,0,0,88,106,19,233,22,0,0,0,88,80,133,192,15
.byte 133,8,0,0,0,88,106,19,233,4,0,0,0,88,139,0,80,88,61
.long RT_vector
.byte 15,132,12,0,0,0,88,104
.long WB_vector_huh
.byte 80,233
.long raise$2 - (.+4)
.byte 88,184,2,0,0,0,139,28,132,137,216,37,3,0,0,0,83,83,133,192,15,132
.byte 8,0,0,0,88,106,19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106
.byte 19,233,4,0,0,0,88,139,0,80,88,61
.long RT_vector
.byte 15,132,12,0,0,0,88,104
.long WB_vector_huh
.byte 80,233
.long raise$2 - (.+4)
.byte 88,184,3,0,0,0,139,28,132,83,184,5,0,0,0,139,28,132,131,195,4,139
.byte 27,88,80,83,57,216,15,134,24,0,0,0,88,88,104
.long N_vector_move.L15
.byte 80,233
.long encui$1 - (.+4)
.byte 104
.long WB_range
.byte 80,233
.long raise$2 - (.+4)
.byte 88,91,89,1,203,81,57,195,15,134,23,0,0,0,88,104
.long N_vector_move.L17
.byte 80,233
.long encui$1 - (.+4)
.byte 104
.long WB_range
.byte 80,233
.long raise$2 - (.+4)
.byte 184,1,0,0,0,139,28,132,83,184,3,0,0,0,139,28,132,131,195,4,139,27
.byte 88,80,83,57,216,15,134,24,0,0,0,88,88,104
.long N_vector_move.L19
.byte 80,233
.long encui$1 - (.+4)
.byte 104
.long WB_range
.byte 80,233
.long raise$2 - (.+4)
.byte 88,91,89,1,203,81,57,195,15,134,23,0,0,0,88,104
.long N_vector_move.L21
.byte 80,233
.long encui$1 - (.+4)
.byte 104
.long WB_range
.byte 80,233
.long raise$2 - (.+4)
.byte 88,91,89,193,227,2,131,193,8,1,203,89,95,193,225,2,131,199,8,1,249
.byte 137,207,137,193,137,222,252,243,165,184,27,0,0,0,195
.global N_vector_move,NN_vector_move,N_vector_move.L1,N_vector_move.L2,N_vector_move.L3,N_vector_move.L15,N_vector_move.L17,N_vector_move.L19,N_vector_move.L21
.equiv NN_vector_move, N_vector_move + 1
.equiv N_vector_move.L1, N_vector_move + 34
.equiv N_vector_move.L2, N_vector_move + 47
.equiv N_vector_move.L3, N_vector_move + 67
.equiv N_vector_move.L15, N_vector_move + 281
.equiv N_vector_move.L17, N_vector_move + 318
.equiv N_vector_move.L19, N_vector_move + 375
.equiv N_vector_move.L21, N_vector_move + 412
.section .text
.align 16
N_make_vector:
.byte 144,81,131,249,1,15,133,5,0,0,0,88,64,106,19,80,88,80,61,2,0,0,0
.byte 15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
.byte 88,88,91,80,83,104
.long N_make_vector.L2
.byte 83,233
.long decui$1 - (.+4)
.byte 80,61,0,0,0,192,15,130,13,0,0,0,88,88,104
.long WB_out_of_memory
.byte 80,233
.long raise$2 - (.+4)
.byte 88,91,137,195,131,195,2,80,104
.long N_make_vector.L4
.byte 83,233
.long valloc$1 - (.+4)
.byte 199,0
.long RT_vector
.byte 91,137,193,131,193,4,137,25,91,185,2,0,0,0,80,104
.long N_make_vector.L5
.byte 80,83,233
.long N_vector_fill - (.+4)
.byte 88,195
.global N_make_vector,NN_make_vector,N_make_vector.L2,N_make_vector.L4,N_make_vector.L5
.equiv NN_make_vector, N_make_vector + 1
.equiv N_make_vector.L2, N_make_vector + 53
.equiv N_make_vector.L4, N_make_vector + 97
.equiv N_make_vector.L5, N_make_vector + 130
.section .text
.align 16
N_vector_fill:
.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
.byte 88,88,91,137,217,131,225,3,80,83,83,133,201,15,132,8,0,0,0,88,106
.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0
.byte 88,139,0,80,88,61
.long RT_vector
.byte 15,132,12,0,0,0,88,104
.long WB_vector_huh
.byte 80,233
.long raise$2 - (.+4)
.byte 88,137,195,131,195,8,5,4,0,0,0,139,0,89,137,199,137,200,137,249
.byte 137,223,252,243,171,184,27,0,0,0,195
.global N_vector_fill,NN_vector_fill
.equiv NN_vector_fill, N_vector_fill + 1
.section .text
.align 16
N_vector_ref:
.byte 144,81,131,249,2,15,133,162,0,0,0,88,88,80,104
.long N_vector_ref.L1
.byte 80,233
.long decsi$1 - (.+4)
.byte 91,89,137,207,131,231,3,83,80,81,81,133,255,15,132,8,0,0,0,88,106
.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0
.byte 88,139,0,80,88,61
.long RT_vector
.byte 15,132,12,0,0,0,88,104
.long WB_vector_huh
.byte 80,233
.long raise$2 - (.+4)
.byte 88,137,195,131,195,8,5,4,0,0,0,139,0,89,83,80,81,133,201,15,141,6
.byte 0,0,0,88,91,1,216,83,80,88,91,83,80,57,216,15,130,15,0,0,0,88,88
.byte 88,88,104
.long WB_range
.byte 80,233
.long raise$2 - (.+4)
.byte 88,91,91,89,193,224,2,1,195,139,27,83,233,184,0,0,0,88,80,61,253
.byte 255,255,255,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
.byte 88,88,91,89,80,81,83,104
.long N_vector_ref.L11
.byte 83,233
.long decsi$1 - (.+4)
.byte 91,89,137,207,131,231,3,83,80,81,81,133,255,15,132,8,0,0,0,88,106
.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0
.byte 88,139,0,80,88,61
.long RT_vector
.byte 15,132,12,0,0,0,88,104
.long WB_vector_huh
.byte 80,233
.long raise$2 - (.+4)
.byte 88,137,195,131,195,8,5,4,0,0,0,139,0,89,83,80,81,133,201,15,141,6
.byte 0,0,0,88,91,1,216,83,80,88,91,83,80,57,216,15,130,15,0,0,0,88,88
.byte 88,88,104
.long WB_range
.byte 80,233
.long raise$2 - (.+4)
.byte 88,91,91,89,193,224,2,1,195,88,137,3,106,27,88,195
.global N_vector_ref,NN_vector_ref,N_vector_ref.L1,N_vector_ref.L11
.equiv NN_vector_ref, N_vector_ref + 1
.equiv N_vector_ref.L1, N_vector_ref + 25
.equiv N_vector_ref.L11, N_vector_ref + 212
.section .text
.align 16
N_vector_length:
.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
.byte 88,88,137,195,131,227,3,80,80,133,219,15,132,8,0,0,0,88,106,19,233
.byte 22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139
.byte 0,80,88,61
.long RT_vector
.byte 15,132,12,0,0,0,88,104
.long WB_vector_huh
.byte 80,233
.long raise$2 - (.+4)
.byte 88,5,4,0,0,0,139,0,80,233
.long encui$1 - (.+4)
.global N_vector_length,NN_vector_length
.equiv NN_vector_length, N_vector_length + 1
.section .text
.align 16
N_vector_huh:
.byte 144,186
.long RT_vector
.byte 233
.long discriminator_body - (.+4)
.global N_vector_huh,NN_vector_huh
.equiv NN_vector_huh, N_vector_huh + 1
.section .text
.align 16
RT_vector:
.long RT_record_type
.byte 1,0,0,0
.long NN_vector_huh
.long NN_vector_ref
.long NN_vector_length
.long NN_make_vector
.byte 19,0,0,0,19,0,0,0
.global RT_vector
--- NEW FILE: vectors.wth ---
;;;; vectors.wth - generic vectors
;;
;; Copyleft © 2002 by Andres Soolo (di...@us...)
;; This file is licensed under the GNU GPL v2. If you
;; don't know what that means, please do read the GPL.
;;
;;;; @(#) $Id: vectors.wth,v 1.1 2002/09/18 21:12:38 digg Exp $
(include wisptyp)
(extern WB_out_of_memory)
(extern WB_range)
(extern WB_vector_huh)
(extern decsi$1)
(extern decui$1)
(extern encsi$1)
(extern encui$1)
(extern valloc$1)
(macro decsi <: swap (flush) 'decsi$1 jump :>)
(macro decui <: swap (flush) 'decui$1 jump :>)
(macro encsi <: swap (flush) 'encsi$1 jump :>)
(macro encui <: swap (flush) 'encui$1 jump :>)
(macro valloc <: swap (flush) 'valloc$1 jump :>)
(extern RT_vector)
(assemble RT_vector
(tetra RT_record_type)
(tetra 1)
(tetra NN_vector_huh)
(tetra NN_vector_ref)
(tetra NN_vector_length)
(tetra NN_make_vector)
(tetra 19) ; FALSE
(tetra 19)) ; FALSE
(native vector_huh
'RT_vector go-discriminate)
(native vector_length dup 1 = argc drop
require-vector vector-length (flush) 'encui$1 jump)
(native vector_ref
dup 2 = if
drop dup decsi rot ; (nindex index vec)
require-vector dup vector-data swap vector-length
rot ; (nindex vecdata veclen index)
dup 0 < if over + then
2dup swap u>= if ; catches negative indices too
drop drop drop 'WB_range swap go-raise
then
nip rot drop cells + cell@
else
dup -3 = argc drop ; (vec nindex obj)
-rot dup decsi rot ; (obj nindex index vec)
require-vector dup vector-data swap vector-length
rot ; (obj nindex vecdata veclen index)
dup 0 < if over + then
2dup swap u>= if ; catches negative indices too
drop drop drop 'WB_range swap go-raise
then
nip rot drop cells + cell! VOID
then)
(native vector_fill dup 2 = argc drop
swap require-vector dup vector-data swap vector-length rot cellfill
VOID)
(native make_vector dup 1 = if FALSE swap 1+ then dup 2 = argc drop
; (nlength object)
swap dup decui ; (object nlength length)
dup #xC0000000 u>= if
drop 'WB_out_of_memory swap go-raise
then nip dup 2 + valloc ; (object length body node)
'RT_vector over cell! ; store type
tuck 1 cells + cell! ; store length
tuck swap ; (node node object)
<: -rot 2 (conform %ecx) 'N_vector_fill jump :> (believe %eax)
drop)
(native vector_move dup 5 = argc drop
swap decui swap decui 3 dig decui 3 bury
4 dig require-vector drop 2 dig require-vector drop
; (dest destind src srcind amount)
3 dig 5 dig vector-length
2dup u> if drop encui 'WB_range swap go-raise then
-rot over + rot u> if encui 'WB_range swap go-raise then
; (dest destind src srcind amount)
1 dig 3 dig vector-length
2dup u> if drop encui 'WB_range swap go-raise then
-rot over + rot u> if encui 'WB_range swap go-raise then
-rot cells swap vector-data + 2swap cells swap vector-data +
rot tetramove VOID)
; vim: ft=worth
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/Makefile.am,v
retrieving revision 1.157
retrieving revision 1.158
diff -u -d -r1.157 -r1.158
--- Makefile.am 18 Sep 2002 21:08:01 -0000 1.157
+++ Makefile.am 18 Sep 2002 21:12:38 -0000 1.158
@@ -14,9 +14,9 @@
base.inc \
apply.nasm chars.nasm cxr.nasm integers.nasm list.nasm \
memset.nasm records.nasm ref.nasm resignal.nasm signal.nasm \
- strings.nasm types.nasm valloc.nasm vectors.nasm wrap.nasm \
- boxes.wth cons.wth death.wth misc.wth sys.wth wstrings.wth \
- boxes.s cons.s death.s misc.s sys.s wstrings.s
+ strings.nasm types.nasm valloc.nasm wrap.nasm \
+ boxes.wth cons.wth death.wth misc.wth sys.wth vectors.wth wstrings.wth \
+ boxes.s cons.s death.s misc.s sys.s vectors.s wstrings.s
EXTRA_DIST = .cvsignore
@@ -24,8 +24,7 @@
libnative_a_LIBADD = native_call.o branches.o \
apply.o chars.o cxr.o integers.o list.o memset.o records.o ref.o \
- resignal.o signal.o strings.o sys.o types.o valloc.o vectors.o \
- wrap.o
+ resignal.o signal.o strings.o sys.o types.o valloc.o wrap.o
%.o: %.nasm base.inc
nasm -w+orphan-labels -d@SYSTYPE@ -d@CPUTYPE@ -f elf -i $(srcdir)/ -l $*.prn -o $@ $<
Index: base.inc
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/base.inc,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -d -r1.97 -r1.98
--- base.inc 18 Sep 2002 21:03:13 -0000 1.97
+++ base.inc 18 Sep 2002 21:12:38 -0000 1.98
@@ -160,15 +160,6 @@
jnz near _signal_c16string_%1
%endmacro
-%macro req_vector 0-1 eax
- test %1.low.low, 3
- jnz near _signal_vector_%1
- test %1, %1
- jz near _signal_vector_%1
- cmp type(%1), NC_VECTOR
- jnz near _signal_vector_%1
-%endmacro
-
%macro req_char 0-1 eax
cmp %1.low.low, 3
jnz near _signal_char_%1
@@ -492,7 +483,6 @@
%define NC_EVMFUNC 3
%define NC_DICT 5
%define NC_SYMBOL 6
-%define NC_VECTOR 8
%define NC_C8STRING 9
%define NC_INSTANCE 10
Index: death.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/death.s,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- death.s 7 Sep 2002 22:03:56 -0000 1.2
+++ death.s 18 Sep 2002 21:12:38 -0000 1.3
@@ -3,10 +3,10 @@
die:
.byte 88,232
.long strlen - (.+4)
-.byte 186,13,0,0,0,185
+.byte 80,186,13,0,0,0,185
.long _death.wth_G0_
-.byte 187,1,0,0,0,137,199,184,4,0,0,0,205,128,88,137,250,137,193,187,1,0
-.byte 0,0,184,4,0,0,0,205,128,186,1,0,0,0,185
+.byte 187,1,0,0,0,184,4,0,0,0,205,128,88,91,137,194,137,217,187,1,0,0,0
+.byte 184,4,0,0,0,205,128,186,1,0,0,0,185
.long _death.wth_G1_
.byte 187,1,0,0,0,184,4,0,0,0,205,128,187,1,0,0,0,184,1,0,0,0,205,128
.global die
Index: misc.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- misc.s 18 Sep 2002 21:10:03 -0000 1.8
+++ misc.s 18 Sep 2002 21:12:38 -0000 1.9
@@ -30,81 +30,6 @@
.global immediate_return
.section .text
.align 16
-N_vector_fill:
-.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
-.long N_signal_argcount - (.+4)
-.byte 88,88,91,137,217,131,193,8,139,9,131,195,4,139,27,137,207,137,217
-.byte 252,243,171,184,27,0,0,0,195
-.global N_vector_fill,NN_vector_fill
-.equiv NN_vector_fill, N_vector_fill + 1
-.section .text
-.align 16
-N_vector_ref:
-.byte 144,81,131,249,2,15,133,187,0,0,0,88,88,80,104
-.long N_vector_ref.L1
-.byte 80,233
-.long decsi$1 - (.+4)
-.byte 91,89,137,207,131,231,3,83,80,81,81,133,255,15,132,8,0,0,0,88,106
-.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0
-.byte 88,139,0,80,88,61,8,0,0,0,15,132,12,0,0,0,88,104
-.long WB_vector_huh
-.byte 80,233
-.long raise$2 - (.+4)
-.byte 88,137,195,131,195,8,139,27,5,4,0,0,0,139,0,89,83,80,81,133,201,15
-.byte 141,29,0,0,0,88,91,1,216,83,80,133,192,15,141,15,0,0,0,88,88,88,88
-.byte 104
-.long WB_range
-.byte 80,233
-.long raise$2 - (.+4)
-.byte 88,91,83,80,57,216,15,140,15,0,0,0,88,88,88,88,104
-.long WB_range
-.byte 80,233
-.long raise$2 - (.+4)
-.byte 88,91,91,89,193,224,2,1,195,139,27,83,233,209,0,0,0,88,80,61,253
-.byte 255,255,255,15,132,8,0,0,0,88,137,193,233
-.long N_signal_argcount - (.+4)
-.byte 88,88,91,89,80,81,83,104
-.long N_vector_ref.L12
-.byte 83,233
-.long decsi$1 - (.+4)
-.byte 91,89,137,207,131,231,3,83,80,81,81,133,255,15,132,8,0,0,0,88,106
-.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0
-.byte 88,139,0,80,88,61,8,0,0,0,15,132,12,0,0,0,88,104
-.long WB_vector_huh
-.byte 80,233
-.long raise$2 - (.+4)
-.byte 88,137,195,131,195,8,139,27,5,4,0,0,0,139,0,89,83,80,81,133,201,15
-.byte 141,29,0,0,0,88,91,1,216,83,80,133,192,15,141,15,0,0,0,88,88,88,88
-.byte 104
-.long WB_range
-.byte 80,233
-.long raise$2 - (.+4)
-.byte 88,91,83,80,57,216,15,140,15,0,0,0,88,88,88,88,104
-.long WB_range
-.byte 80,233
-.long raise$2 - (.+4)
-.byte 88,91,91,89,193,224,2,1,195,88,137,3,106,27,88,195
-.global N_vector_ref,NN_vector_ref,N_vector_ref.L1,N_vector_ref.L12
-.equiv NN_vector_ref, N_vector_ref + 1
-.equiv N_vector_ref.L1, N_vector_ref + 25
-.equiv N_vector_ref.L12, N_vector_ref + 237
-.section .text
-.align 16
-N_vector_length:
-.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233
-.long N_signal_argcount - (.+4)
-.byte 88,88,137,195,131,227,3,80,80,133,219,15,132,8,0,0,0,88,106,19,233
-.byte 22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139
-.byte 0,80,88,61,8,0,0,0,15,132,12,0,0,0,88,104
-.long WB_vector_huh
-.byte 80,233
-.long raise$2 - (.+4)
-.byte 88,5,4,0,0,0,139,0,80,233
-.long encui$1 - (.+4)
-.global N_vector_length,NN_vector_length
-.equiv NN_vector_length, N_vector_length + 1
-.section .text
-.align 16
N_record_type_length:
.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
@@ -166,13 +91,6 @@
.long slot_accessor_body - (.+4)
.global N_pr_record_type_ref_slot,NN_pr_record_type_ref_slot
.equiv NN_pr_record_type_ref_slot, N_pr_record_type_ref_slot + 1
-.section .text
-.align 16
-N_vector_huh:
-.byte 144,186,8,0,0,0,233
-.long discriminator_body - (.+4)
-.global N_vector_huh,NN_vector_huh
-.equiv NN_vector_huh, N_vector_huh + 1
.section .text
.align 16
N_record_type_huh:
Index: misc.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- misc.wth 18 Sep 2002 21:10:03 -0000 1.8
+++ misc.wth 18 Sep 2002 21:12:38 -0000 1.9
@@ -10,20 +10,25 @@
(extern RT_record_type)
(extern WB_creatable_huh)
+(extern WB_out_of_memory)
(extern WB_range)
(extern WB_record_type_huh)
-(extern WB_vector_huh)
(extern decsi$1)
(extern decui$1)
(extern encsi$1)
(extern encui$1)
(extern funcall)
(extern rvec)
+(extern valloc$1)
(macro RVEC_LEN 30)
(macro decsi <: swap (flush) 'decsi$1 jump :>)
(macro decui <: swap (flush) 'decui$1 jump :>)
+(macro encsi <: swap (flush) 'encsi$1 jump :>)
+(macro encui <: swap (flush) 'encui$1 jump :>)
+(macro valloc <: swap (flush) 'valloc$1 jump :>)
+
(macro rdecui ; ( node limit )
over decui swap over swap
>= if drop 'WB_range swap go-raise then nip)
@@ -44,9 +49,6 @@
(native record_type_huh
'RT_record_type go-discriminate)
-(native vector_huh
- NC_VECTOR go-discriminate)
-
; FOR INTERNAL USE BY |make-record-type| ONLY!
; It is an important guarantee that it's safe to share
; record-type:s without need to fear undue influence.
@@ -72,44 +74,6 @@
else
'WB_record_type_huh swap go-raise
then)
-
-(native vector_length dup 1 = argc drop
- require-vector vector-length (flush) 'encui$1 jump)
-
-(native vector_ref
- dup 2 = if
- drop dup decsi rot ; (nindex index vec)
- require-vector dup vector-data swap vector-length
- rot ; (nindex vecdata veclen index)
- dup 0 < if
- over +
- dup 0 < if
- drop drop drop 'WB_range swap go-raise
- then
- then
- 2dup swap >= if
- drop drop drop 'WB_range swap go-raise
- then
- nip rot drop cells + cell@
- else
- dup -3 = argc drop ; (vec nindex obj)
- -rot dup decsi rot ; (obj nindex index vec)
- require-vector dup vector-data swap vector-length
- rot ; (obj nindex vecdata veclen index)
- dup 0 < if
- over +
- dup 0 < if
- drop drop drop 'WB_range swap go-raise
- then
- then
- 2dup swap >= if
- drop drop drop 'WB_range swap go-raise
- then
- nip rot drop cells + cell! VOID
- then)
-
-(native vector_fill dup 2 = argc drop
- swap dup vector-data swap vector-length rot tetrafill VOID)
(extern immediate_return)
(assemble immediate_return
Index: ref.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/ref.nasm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- ref.nasm 26 Aug 2002 16:18:24 -0000 1.10
+++ ref.nasm 18 Sep 2002 21:12:38 -0000 1.11
@@ -23,8 +23,6 @@
mov edx, type(eax)
cmp edx, NC_C8STRING
jz near N_c8string_ref ; tail call
- cmp edx, NC_VECTOR
- jz near N_vector_ref ; tail call
cmp edx, byte 15 ; if larger, assume record type pointer
jbe .not_a_compound
mov edx, record_type#ref(edx)
Index: sys.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- sys.s 18 Sep 2002 21:08:01 -0000 1.12
+++ sys.s 18 Sep 2002 21:12:38 -0000 1.13
@@ -8,24 +8,26 @@
.byte 91,91,89,137,231,80,81,83,137,248,45,8,0,0,0,139,0,137,195,131,227
.byte 3,106,0,87,80,80,133,219,15,132,8,0,0,0,88,106,19,233,22,0,0,0,88
.byte 80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139,0,80,88,61
-.byte 8,0,0,0,15,132,12,0,0,0,88,104
+.long RT_vector
+.byte 15,132,12,0,0,0,88,104
.long WB_vector_huh
.byte 80,233
.long raise$2 - (.+4)
-.byte 88,137,195,131,195,4,139,27,5,8,0,0,0,139,0,137,217,193,225,2,1
-.byte 200,83,80,88,91,83,80,133,219,15,142,33,0,0,0,88,91,75,45,4,0,0,0
-.byte 137,193,139,9,83,80,81,232
+.byte 88,137,195,131,195,4,139,27,5,8,0,0,0,137,217,193,225,2,1,200,83
+.byte 80,88,91,83,80,133,219,15,142,33,0,0,0,88,91,75,45,4,0,0,0,137,193
+.byte 139,9,83,80,81,232
.long ws2zt - (.+4)
.byte 91,91,89,95,80,87,81,83,233,211,255,255,255,88,88,88,137,227,137
.byte 193,131,233,8,137,25,137,195,131,235,12,139,27,137,217,131,225,3
.byte 106,0,80,83,83,133,201,15,132,8,0,0,0,88,106,19,233,22,0,0,0,88,80
-.byte 133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139,0,80,88,61,8,0
-.byte 0,0,15,132,12,0,0,0,88,104
+.byte 133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139,0,80,88,61
+.long RT_vector
+.byte 15,132,12,0,0,0,88,104
.long WB_vector_huh
.byte 80,233
.long raise$2 - (.+4)
-.byte 88,137,195,131,195,4,139,27,5,8,0,0,0,139,0,83,80,88,91,83,80,133
-.byte 219,15,142,31,0,0,0,88,91,75,137,193,131,193,4,139,0,83,81,80,232
+.byte 88,137,195,131,195,4,139,27,5,8,0,0,0,83,80,88,91,83,80,133,219,15
+.byte 142,31,0,0,0,88,91,75,137,193,131,193,4,139,0,83,81,80,232
.long ws2zt - (.+4)
.byte 91,91,89,95,80,87,81,83,233,213,255,255,255,88,88,88,137,227,137
.byte 193,131,233,12,137,25,137,195,131,235,4,139,27,137,193,131,233,8
Index: sys.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.wth,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- sys.wth 18 Sep 2002 21:08:01 -0000 1.13
+++ sys.wth 18 Sep 2002 21:12:38 -0000 1.14
@@ -9,6 +9,7 @@
(include linux)
(include wisptyp)
+(extern RT_vector)
(extern WB_c8string_huh)
(extern WB_cons_huh)
(extern WB_core)
Index: types.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/types.nasm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- types.nasm 22 Jul 2002 14:53:16 -0000 1.8
+++ types.nasm 18 Sep 2002 21:12:38 -0000 1.9
@@ -57,9 +57,6 @@
mov eax, WB_symbol
cmp edx, byte NC_SYMBOL
je .ret
- mov eax, WB_vector
- cmp edx, byte NC_VECTOR
- je .ret
mov eax, WB_c8string
cmp edx, byte NC_C8STRING
je .ret
--- vectors.nasm DELETED ---
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv703/src/builtin
Modified Files:
assembler.wisp dictbase.wisp filing.wisp lists.wisp
objects.wisp stdenv.wisp
Log Message:
Dropped NC_VECTOR in favour of the new |<vector>| type, thereby reducing the allocation block count of vectors from 2 to 1.
Index: assembler.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/assembler.wisp,v
retrieving revision 1.159
retrieving revision 1.160
diff -u -d -r1.159 -r1.160
--- assembler.wisp 18 Sep 2002 21:03:06 -0000 1.159
+++ assembler.wisp 18 Sep 2002 21:12:38 -0000 1.160
@@ -113,12 +113,12 @@
`(cons ,name ',name))
(quote
(* + - / /= < <= <box> <c16string> <macro>
- <record-type> = > >= apply assq assv car catch cdr
- char->integer char<=? char<? char=? char>=? char>?
- circular-list collect cons dict-ref eighth eq? eqv?
- fifth find find-tail for-each list map memq memv
- ninth not null? procedure? raise seventh sixth
- tenth)))
+ <record-type> <vector> = > >= apply assq assv car
+ catch cdr char->integer char<=? char<? char=?
+ char>=? char>? circular-list collect cons dict-ref
+ eighth eq? eqv? fifth find find-tail for-each list
+ map memq memv ninth not null? procedure? raise
+ seventh sixth tenth)))
(map (lambda (middle)
`(cons ,(string->symbol "c$,[middle]r")
'(serial . ,(map (lambda (middle)
Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.252
retrieving revision 1.253
diff -u -d -r1.252 -r1.253
--- dictbase.wisp 18 Sep 2002 21:09:00 -0000 1.252
+++ dictbase.wisp 18 Sep 2002 21:12:38 -0000 1.253
@@ -21,6 +21,7 @@
(local <box> (asm RT_box))
(local <c16string> (asm RT_c16string))
(local <record-type> (asm RT_record_type))
+(local <vector> (asm RT_vector))
(local address-of (asm NN_encui))
(local apply (asm NN_apply))
(local big-integer? (asm NN_big_integer_huh))
@@ -156,7 +157,6 @@
(local utf-8-first-byte->length (asm NN_utf_8_first_byte2length))
(local valloc (asm NN_valloc))
(local vector-fill! (asm NN_vector_fill))
-(local vector-length (asm NN_vector_length))
(local vector-move! (asm NN_vector_move))
(local vector? (asm NN_vector_huh))
(local wisp-string-hash (asm NN_wisp_string_hash))
Index: filing.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/filing.wisp,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -d -r1.108 -r1.109
--- filing.wisp 18 Sep 2002 21:11:14 -0000 1.108
+++ filing.wisp 18 Sep 2002 21:12:38 -0000 1.109
@@ -348,13 +348,16 @@
bitfield) mode))
port)))
-(define *stdin* (make-instance <file>)) (init-input-file *stdin* 0)
-(define *stdout* (make-instance <file>)) (init-output-file *stdout* #f 1)
-(define *stderr* (make-instance <file>)) (init-output-file *stderr* #f 2)
+(let ((*stdin* (make-instance <file>))
+ (*stdout* (make-instance <file>))
+ (*stderr* (make-instance <file>)))
+ (init-input-file *stdin* 0)
+ (init-output-file *stdout* #f 1)
+ (init-output-file *stderr* #f 2)
-(define stdin$ (make-fluid *stdin*))
-(define stdout$ (make-fluid *stdout*))
-(define stderr$ (make-fluid *stderr*))
+ (define stdin$ (make-fluid *stdin*))
+ (define stdout$ (make-fluid *stdout*))
+ (define stderr$ (make-fluid *stderr*)))
(define (current-input-port) (ref stdin$))
(define (current-output-port) (ref stdout$))
@@ -395,11 +398,8 @@
(if (not (zero? limit))
(loop)))))))))
-(define (write-string string (port (current-output-port)))
- (port-write-string port string))
-
(define (char-ready? (port (current-input-port)))
- (port-ready? port))
+ (port-ready? port))
(defmacro (my-port var opener . body)
`(my ,var ,opener
@@ -455,22 +455,17 @@
(%read-char port)
(((asm NN_pr_record_type_read_char_slot) (type-of port)) port)))
-; Note that Scheme's |write-char| takes the port argument *last*;
-; most likely because it's been historically easier to implement
-; optional arguments at the end of the argument list. This does
-; not work well with the idea that the object argument (upon which
-; dispatching is decided) should be the first, so we're going to
-; change it. During the conversion period, *both* orderings are
-; allowed.
-(define (write-char (port (current-output-port)) object)
- (if (char? port)
- (my x port
- (set! port object)
- (set! object x)))
+; Note that Scheme's |write-char| takes the port argument *last*
+; whereas the |write-char| hooks take it *first*.
+(define (write-char object (port (current-output-port)))
(if (instance? port)
(write-string (string object) port)
(((asm NN_pr_record_type_write_char_slot) (type-of port))
port object)))
+
+; See the comment near |write-char|.
+(define (write-string s (port (current-output-port)))
+ (port-write-string port s))
(define (newline (port (current-output-port)))
(write-char #\newline port)
Index: lists.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/lists.wisp,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -d -r1.107 -r1.108
--- lists.wisp 18 Sep 2002 21:05:08 -0000 1.107
+++ lists.wisp 18 Sep 2002 21:12:38 -0000 1.108
@@ -128,7 +128,6 @@
(case x
(null? 0)
(string? (string-length x))
- (vector? (vector-length x))
(cons? (my l 0
(while (cons? x)
(incr! l)
Index: objects.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/objects.wisp,v
retrieving revision 1.161
retrieving revision 1.162
diff -u -d -r1.161 -r1.162
--- objects.wisp 18 Sep 2002 20:57:26 -0000 1.161
+++ objects.wisp 18 Sep 2002 21:12:38 -0000 1.162
@@ -85,11 +85,8 @@
(if superclass
(type class superclass))
(my cl (make-instance <class>)
- (asm (#f (if superclass
- (asm superclass (l . 4))
- '())
- slots superclass . cl)
- pt (st . 2) pt (st . 3) pt (st . 4) pt (st . 5))
+ (asm (slots superclass . cl)
+ pt (st . 2) pt (st . 3))
cl))
; Note that the returned class discriminator returns either
Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.368
retrieving revision 1.369
diff -u -d -r1.368 -r1.369
--- stdenv.wisp 18 Sep 2002 21:11:14 -0000 1.368
+++ stdenv.wisp 18 Sep 2002 21:12:38 -0000 1.369
@@ -12,7 +12,7 @@
(cons 'list
(map (lambda (x) `(cons ',x ,x))
'(* + - / /= < << <= <box> <c16string> <class> <file>
- <macro> <port> <record-type> = > >= >> abs acons!
+ <macro> <port> <record-type> <vector> = > >= >> abs acons!
address-of alist->dict alist-copy analyse and append
append-reverse apply assert assert-object-type assoc assq
assv atom? big-integer? bind bit? boolean? box-empty!
|
|
From: <di...@us...> - 2002-09-18 21:11:40
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv32556/modules
Modified Files:
builtin.wid cgi.wim display.wim ini.wim shell.wisp xml.wim
Log Message:
Replaced |*stdin*|, |*stdout*|, and |*stderr*| with |current-input-port|, |current-output-port|, and |current-errors-port|.
Index: builtin.wid
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/builtin.wid,v
retrieving revision 1.180
retrieving revision 1.181
diff -u -d -r1.180 -r1.181
--- builtin.wid 18 Sep 2002 21:09:55 -0000 1.180
+++ builtin.wid 18 Sep 2002 21:11:06 -0000 1.181
@@ -2301,11 +2301,11 @@
If /object/ is a string or a character, outputs it to /port/, otherwise
outputs the external representation of /object/ to /port/. If /port/ is
- not supplied, |*stdout*| is used as the default.
+ not supplied, the current output port is used as the default.
:Conforms to: Wisp extension.
- :See also: |write-string|.
+ :See also: |write-string|, |current-output-port|.
procedure?
Index: cgi.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/cgi.wim,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- cgi.wim 7 Sep 2002 21:57:47 -0000 1.42
+++ cgi.wim 18 Sep 2002 21:11:06 -0000 1.43
@@ -52,7 +52,7 @@
(my content-length (string->number content-length-as-string)
(if (not content-length)
(raise 'content-length content-length-as-string))
- (my content (read-string *stdin* content-length)
+ (my content (read-string (current-input-port) content-length)
(if (not (= (length content) content-length))
(raise 'short-content content))
(my enctype (env-ref "CONTENT_TYPE")
Index: display.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/display.wim,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- display.wim 4 Sep 2002 14:31:41 -0000 1.10
+++ display.wim 18 Sep 2002 21:11:06 -0000 1.11
@@ -10,7 +10,7 @@
(export display)
-(define (display s (port *stdout*))
+(define (display s (port (current-output-port)))
(cond
((or (number? s) (boolean? s) (null? s) (symbol? s))
(write s))
Index: ini.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/ini.wim,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- ini.wim 26 Aug 2002 16:18:19 -0000 1.13
+++ ini.wim 18 Sep 2002 21:11:06 -0000 1.14
@@ -57,7 +57,7 @@
(if section-name
(emit-section inner-head)))))))))
-(define (write-ini-file structure (port *stdout*))
+(define (write-ini-file structure (port (current-output-port)))
(my need-separ #f
(for-each (lambda (section)
(my (name . data) section
Index: shell.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/shell.wisp,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- shell.wisp 7 Sep 2002 21:56:41 -0000 1.35
+++ shell.wisp 18 Sep 2002 21:11:06 -0000 1.36
@@ -280,7 +280,7 @@
(let (loop)
(try (begin
(print ". ")
- (my r (read *stdin*)
+ (my r (read (current-input-port))
(cond
((eof-object? r)
(print "\n$,(message 'farewell)\n\n")
Index: xml.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/xml.wim,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- xml.wim 31 Aug 2002 14:30:07 -0000 1.35
+++ xml.wim 18 Sep 2002 21:11:06 -0000 1.36
@@ -159,7 +159,7 @@
(if (not (null? s))
(emit (list->string (reverse s))))))))))))
-(define (parse-xml-message (port *stdin*))
+(define (parse-xml-message (port (current-input-port)))
(parse-xml-element port))
;;;; Generator
@@ -170,13 +170,13 @@
(#\> . ">")
(#\" . """))))
-(define (generate-start-tag name attrs (port *stdout*))
+(define (generate-start-tag name attrs (port (current-output-port)))
(write-string
(apply string-append "<$[name]"
`(,@(map (lambda (x) " $,(car x)=\"$,(quote-text (cdr x))\"")
attrs) ">")) port))
-(define (output-xml-element elem (port *stdout*))
+(define (output-xml-element elem (port (current-output-port)))
(generate-start-tag (first elem) (second elem) port)
(for-each (lambda (i)
(if (string? i)
@@ -185,7 +185,7 @@
(cddr elem))
(write-string "</$(first elem)>" port))
-(define (output-xml-message msg (port *stdout*))
+(define (output-xml-message msg (port (current-output-port)))
(output-xml-element msg port))
;;;; XML structure manipulation
|
|
From: <di...@us...> - 2002-09-18 21:11:40
|
Update of /cvsroot/wisp/wisp/doc/examples
In directory usw-pr-cvs1:/tmp/cvs-serv32556/doc/examples
Modified Files:
rawkey.wisp
Log Message:
Replaced |*stdin*|, |*stdout*|, and |*stderr*| with |current-input-port|, |current-output-port|, and |current-errors-port|.
Index: rawkey.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/rawkey.wisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- rawkey.wisp 18 Sep 2002 20:54:23 -0000 1.8
+++ rawkey.wisp 18 Sep 2002 21:11:05 -0000 1.9
@@ -10,11 +10,11 @@
(print "Type #\\q in order to quit.\n\n")
-(my termios (tcgetattr-raw *stdin*)
- (cfmakeraw *stdin*)
+(my termios (tcgetattr-raw (current-input-port))
+ (cfmakeraw (current-input-port))
(let (loop)
- (my k (read-key *stdin*)
+ (my k (read-key (current-input-port))
(print "You typed $[k]\r\n")
(if (not (eqv? k #\q))
(loop))))
- (tcsetattr-raw *stdin* 'now termios))
+ (tcsetattr-raw (current-input-port) 'now termios))
|
|
From: <di...@us...> - 2002-09-18 21:11:40
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv32556/doc Modified Files: wisp.vim Log Message: Replaced |*stdin*|, |*stdout*|, and |*stderr*| with |current-input-port|, |current-output-port|, and |current-errors-port|. Index: wisp.vim =================================================================== RCS file: /cvsroot/wisp/wisp/doc/wisp.vim,v retrieving revision 1.228 retrieving revision 1.229 diff -u -d -r1.228 -r1.229 --- wisp.vim 18 Sep 2002 21:08:50 -0000 1.228 +++ wisp.vim 18 Sep 2002 21:11:05 -0000 1.229 @@ -21,7 +21,7 @@ set lispwords+=,except,finally,fluid-my,if,hide,hold,intermingle,lambda set lispwords+=,let,let*,letrec,make-record-type,my,my-port,phase set lispwords+=,read-char-sequence,run-tests,set!,simple-encode,try,use -set lispwords+=,while +set lispwords+=,while,with-errors-to,with-input-from,with-output-to " Fascist highlighting: everything that doesn't fit the rules is an error... @@ -150,32 +150,33 @@ syn keyword wispFunc close-output-port close-port collect syn keyword wispFunc collect-string compile complex? concatenate cons syn keyword wispFunc cons* cons-copy cons? construct-filename -syn keyword wispFunc denominator destar desv desv+r dict->alist -syn keyword wispFunc dict-bind! dict-copy dict-defined? dict-drop! -syn keyword wispFunc dict-fetch dict-ref dict-set! dict? documentation -syn keyword wispFunc drop duplicate-dict-item! dwim-stringify eighth -syn keyword wispFunc env-ref eof-object? eq? equal? eqv? eval even? -syn keyword wispFunc evmfunc? exact->inexact exact? exit fifth -syn keyword wispFunc file-ctime file-descriptor file-mtime file-stat -syn keyword wispFunc file-type file? filter find find-tail first -syn keyword wispFunc fit-for-symbol? fit-for-variable-name? fixnum? -syn keyword wispFunc flatten floor for-all-env-vars for-dir-entries -syn keyword wispFunc for-each fourth fraction? frer->structure gcd -syn keyword wispFunc hache imag-part inexact->exact inexact? init-port -syn keyword wispFunc input-port? instance? integer->char -syn keyword wispFunc integer->string integer? interaction-environment -syn keyword wispFunc intermingle invoke-gc keyword? last-cons lcm -syn keyword wispFunc length list list->semideque list->vector list-copy -syn keyword wispFunc list-ref list-tail list? load log lookup-slot -syn keyword wispFunc macro->procedure macro? magnitude make-box -syn keyword wispFunc make-c16string make-c8string make-class -syn keyword wispFunc make-counter make-dict make-instance make-polar -syn keyword wispFunc make-record-type make-rectangular make-string -syn keyword wispFunc make-vector map max meaning member memq memv min -syn keyword wispFunc modify-bit module-macro-ref module-ref modulo -syn keyword wispFunc native? negative? new newline ninth nop not -syn keyword wispFunc null-environment null-list? null? number->string -syn keyword wispFunc number? numerator nybble? nyp? odd? +syn keyword wispFunc current-errors-port current-input-port +syn keyword wispFunc current-output-port denominator destar desv desv+r +syn keyword wispFunc dict->alist dict-bind! dict-copy dict-defined? +syn keyword wispFunc dict-drop! dict-fetch dict-ref dict-set! dict? +syn keyword wispFunc documentation drop duplicate-dict-item! +syn keyword wispFunc dwim-stringify eighth env-ref eof-object? eq? +syn keyword wispFunc equal? eqv? eval even? evmfunc? exact->inexact +syn keyword wispFunc exact? exit fifth file-ctime file-descriptor +syn keyword wispFunc file-mtime file-stat file-type file? filter find +syn keyword wispFunc find-tail first fit-for-symbol? +syn keyword wispFunc fit-for-variable-name? fixnum? flatten floor +syn keyword wispFunc for-all-env-vars for-dir-entries for-each fourth +syn keyword wispFunc fraction? frer->structure gcd hache imag-part +syn keyword wispFunc inexact->exact inexact? init-port input-port? +syn keyword wispFunc instance? integer->char integer->string integer? +syn keyword wispFunc interaction-environment intermingle invoke-gc +syn keyword wispFunc keyword? last-cons lcm length list list->semideque +syn keyword wispFunc list->vector list-copy list-ref list-tail list? +syn keyword wispFunc load log lookup-slot macro->procedure macro? +syn keyword wispFunc magnitude make-box make-c16string make-c8string +syn keyword wispFunc make-class make-counter make-dict make-instance +syn keyword wispFunc make-polar make-record-type make-rectangular +syn keyword wispFunc make-string make-vector map max meaning member +syn keyword wispFunc memq memv min modify-bit module-macro-ref +syn keyword wispFunc module-ref modulo native? negative? new newline +syn keyword wispFunc ninth nop not null-environment null-list? null? +syn keyword wispFunc number->string number? numerator nybble? nyp? odd? syn keyword wispFunc open-input-file open-output-file order->dict syn keyword wispFunc output-port? pack-be-integer pack-le-integer syn keyword wispFunc parse-character-body parse-lambda-list peek-char @@ -212,7 +213,8 @@ syn keyword wispFunc utf-8->c16string utf-8-first-byte->length uwyde? syn keyword wispFunc vector vector->list vector-append vector-copy syn keyword wispFunc vector-fill! vector-move! vector? void? -syn keyword wispFunc wisp-string-hash with-input-from-file +syn keyword wispFunc wisp-string-hash with-errors-to with-input-from +syn keyword wispFunc with-input-from-file with-output-to syn keyword wispFunc with-output-to-file write write-char write-string syn keyword wispFunc writeln zero? |
|
From: <di...@us...> - 2002-09-18 21:11:18
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv32556/src
Modified Files:
essence.c wordlist.txt
Log Message:
Replaced |*stdin*|, |*stdout*|, and |*stderr*| with |current-input-port|, |current-output-port|, and |current-errors-port|.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.218
retrieving revision 1.219
diff -u -d -r1.218 -r1.219
--- essence.c 18 Sep 2002 21:09:55 -0000 1.218
+++ essence.c 18 Sep 2002 21:11:06 -0000 1.219
@@ -755,290 +755,298 @@
void*Y324[]={binc,&branch_EVM_invargc,hop,V 8,mca,subc,V 3,binzc,&branch_EVM_invargca,t,F,mlt,s,V 0,t,F,mlt,s,V 1,t,F,mlt,s,V 2,t,F,mlt,s,V 3,t,F,mlt,s,V 4,t,F,mlt,s,V 5,dig,V 0,q,dig,V 0,xri,Q,jiz,V 178,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,xri,W(iflag),jinz,V 16,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,j,V 110,dig,V 0,xri,W(oflag),jinz,V 16,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V 88,dig,V 0,xri,W(cflag),jinz,V 16,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 2,j,V 66,dig,V 0,xri,W(lflag),jinz,V 16,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,j,V 44,dig,V 0,xri,W(line),jinz,V 16,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 4,j,V 22,dig,V 0,xri,W(cc),jinz,V 16,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 5,j,V 0,ds,V 1,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -184,ds,V 1,mla,l,V 5,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,mla,l,V 5,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,W(termios),qi,W(NCCS),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,li,rvec+17,tc,V 2,c,jinf,V 16,qi,W(invalid),mla,l,V 5,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,mla,l,V 0,q,qi,I(4),mha,l0,q,qi,W(pack_le_integer),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 1,q,qi,I(4),mha,l0,q,qi,W(pack_le_integer),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 2,q,qi,I(4),mha,l0,q,qi,W(pack_le_integer),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 3,q,qi,I(4),mha,l0,q,qi,W(pack_le_integer),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 4,q,mha,l,V 1,l,V 96,tc,V 1,c,q,mla,l,V 5,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 6,c,mlt,s,V 6,mla,l,V 6,q,mha,l,V 1,l,V 133,tc,V 0,c,q,mla,l,V 6,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+5,tc,V 2,c,q,mha,l,V 1,l,V 100,tc,V 1,c,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 6,dig,V 2,q,dig,V 2,q,mla,l,V 6,q,mha,l,V 1,l,V 134,tc,V 3,c,mlt,s,V 7,mla,l,V 7,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 45,mla,l,V 7,q,qi,W(sysCOLONtcsetattr),dig,V 4,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(signal_system_error),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 3,r,t,Z,ds,V 3,r};
void*Y325[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 1,l,V 126,tc,V 0,c,q,mha,l,V 1,l,V 100,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 126,tc,V 1,c,mla,l,V 0,r};
void*Y326[]={hop,V 4,mlt,jinnc,V 10,notc,p,s,V 1,t,T,s,V 0,j,V 6,t,F,s,V 1,s,V 0,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 3,p,s,V 2,mla,l,V 0,jif,V 39,mla,l,V 1,jif,V 17,mla,l,V 3,q,mla,l,V 2,q,mha,l,V 1,l,V 125,tc,V 2,c,r,mla,l,V 3,q,mla,l,V 2,q,mha,l,V 1,l,V 123,tc,V 2,c,r,mla,l,V 3,q,mla,l,V 2,q,mha,l,V 1,l,V 124,tc,V 2,c,r};
-void*Y327[]={hop,V 4,mlt,jinnc,V 10,notc,p,s,V 1,t,T,s,V 0,j,V 6,t,F,s,V 1,s,V 0,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 2,mla,l,V 2,q,mha,l0,q,qi,W(fluid_list),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,q,mha,l0,q,qi,W(assq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 3,mla,l,V 3,jinf,V 16,qi,W(wrong_fluid),mla,l,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,mla,l,V 0,jif,V 24,mla,l,V 3,q,mla,l,V 1,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,r,mla,l,V 3,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
+void*Y327[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,tc,V 0,c,mlt,s,V 0,mha,l0,q,qi,W(fluid_list),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,dig,V 2,q,mha,l,V 1,l,V 97,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(fluid_list),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V -2,c,mla,l,V 0,ds,V 1,r};
void*Y328[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,B 327,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
-void*Y329[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 1,l,V 168,tc,V 0,c,mlt,s,V 0,mha,l0,q,qi,W(fluid_list),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,dig,V 2,q,mha,l,V 1,l,V 97,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(fluid_list),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V -2,c,mla,l,V 0,ds,V 1,r};
-void*Y330[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 4,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,r};
-void*Y331[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 5,tc,V 0,c,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r};
-void*Y332[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 2,tc,V 0,c,mlt,s,V 0,mha,l,V 2,l,V 5,tc,V 0,c,mla,l,V 0,r};
-void*Y333[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 3,binzc,&branch_EVM_invargca,mlt,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(fluid_list),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,q,mha,l0,q,qi,W(assq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 3,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 4,mla,l,V 3,q,mla,l,V 1,q,mla,l,V 4,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,B 330,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 5,qi,T,t,B 331,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 332,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y334[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 3,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,qi,W(with_fluid),mla,l,V 1,q,mla,l,V 2,q,qi,W(lambda),qi,F,mla,l,V 3,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y335[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,qi,W(unreadable_port),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
-void*Y336[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,qi,W(unwritable_port),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
-void*Y337[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,qi,W(unseekable_port),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
-void*Y338[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 6,l,V 3,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 2,q,li,rvec+15,tc,V 2,c,jif,V 241,mha,l,V 2,l,V 6,l,V 3,q,qi,I(0),mha,l,V 2,l,V 6,l,V 3,q,mha,l,V 2,l,V 6,l,V 4,q,mha,l,V 2,l,V 6,l,V 5,q,mha,l,V 2,l,V 6,l,V 4,q,li,rvec+5,tc,V 2,c,q,mha,l0,q,qi,W(string_move_bang),t,&NN_dict_ref_2,tc,V 2,c,tc,V 5,c,mha,l,V 2,l,V 6,l,V 5,q,mha,l,V 2,l,V 6,l,V 4,q,li,rvec+5,tc,V 2,c,mat,mha,l,V 2,l,V 6,st,V 5,mha,l,V 3,l,V 2,q,mha,l,V 2,l,V 6,l,V 4,q,li,rvec+5,tc,V 2,c,mat,mha,l,V 3,st,V 2,t,I(0),mat,mha,l,V 2,l,V 6,st,V 4,mha,l,V 2,l,V 6,l,V 3,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 2,q,li,rvec+15,tc,V 2,c,jif,V 79,mha,l,V 3,l,V 2,q,mha,l,V 1,l,V 102,tc,V 1,c,q,dig,V 0,q,qi,I(0),mha,l,V 2,l,V 6,l,V 3,q,qi,I(0),mha,l,V 2,l,V 6,l,V 3,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string_move_bang),t,&NN_dict_ref_2,tc,V 2,c,tc,V 5,c,dig,V 0,mat,mha,l,V 2,l,V 6,st,V 3,ds,V 1,j,V 0,j,V 0,mha,l,V 2,l,V 6,l,V 5,q,mha,l,V 2,l,V 6,l,V 4,q,li,rvec+5,tc,V 2,c,q,mha,l,V 3,l,V 0,q,li,rvec+15,tc,V 2,c,jinf,V 3,t,T,r,mha,l,V 2,l,V 0,q,mha,l,V 2,l,V 6,l,V 3,q,mha,l,V 2,l,V 6,l,V 5,q,mha,l,V 2,l,V 6,l,V 3,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 2,l,V 6,l,V 5,q,li,rvec+5,tc,V 2,c,q,mha,l,V 2,l,V 6,l,V 6,tc,V 4,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 60,t,T,mat,mha,l,V 2,l,V 6,st,V 2,mha,l,V 2,l,V 6,l,V 5,q,mha,l,V 2,l,V 6,l,V 4,q,li,rvec+5,tc,V 2,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 3,t,Z,r,mla,l,V 1,r,mla,l,V 0,jinf,V 38,mha,l,V 3,l,V 1,jif,V 9,mha,l,V 3,l,V 3,tc,V 0,c,r,mha,l,V 2,l,V 6,l,V 5,q,mha,l,V 2,l,V 6,l,V 4,q,li,rvec+5,tc,V 2,c,r,mha,l,V 2,l,V 6,l,V 5,q,mla,l,V 0,q,li,rvec+4,tc,V 2,c,mat,mha,l,V 2,l,V 6,st,V 5,mha,l,V 3,l,V 1,jif,V 9,mha,l,V 3,l,V 3,tc,V 0,c,r,mha,l,V 2,l,V 6,l,V 5,q,mha,l,V 2,l,V 6,l,V 4,q,li,rvec+5,tc,V 2,c,r};
-void*Y339[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mha,l,V 2,l,V 6,l,V 4,q,mla,l,V 0,q,li,rvec+4,tc,V 2,c,mlt,s,V 2,t,Q,mlt,s,V 3,t,B 338,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 3,mla,l,V 3,tc,V 0,c,r};
-void*Y340[]={binc,&branch_EVM_invargc,hop,V 7,mca,subc,V 6,binzc,&branch_EVM_invargca,mlt,p,s,V 5,p,s,V 4,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 0,q,mlt,s,V 6,qi,&BCL1,li,rvec+11,tc,V 2,c,t,I(0),mat,mla,l,V 6,st,V 4,t,I(0),mat,mla,l,V 6,st,V 5,t,F,mat,mla,l,V 6,st,V 2,mla,l,V 1,jinf,V 10,mha,l0,q,qi,W(raise_unreadable_port),t,&NN_dict_ref_2,tc,V 2,c,mat,mla,l,V 6,st,V 6,mla,l,V 2,jinf,V 10,mha,l0,q,qi,W(raise_unwritable_port),t,&NN_dict_ref_2,tc,V 2,c,mat,mla,l,V 6,st,V 7,mla,l,V 3,jinf,V 10,mha,l0,q,qi,W(raise_unseekable_port),t,&NN_dict_ref_2,tc,V 2,c,mat,mla,l,V 6,st,V 8,mla,l,V 4,mat,mla,l,V 6,st,V 9,mla,l,V 5,mat,mla,l,V 6,st,V 10,qi,I(16),mha,l,V 1,l,V 102,tc,V 1,c,mat,mla,l,V 6,st,V 3,t,B 339,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mat,mla,l,V 6,st,V 11,t,Z,r};
-void*Y344[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+4,tc,V 2,c,q,mha,l,V 2,l,V 3,l,V 5,q,li,rvec+15,tc,V 2,c,jif,V 93,mha,l,V 2,l,V 3,l,V 3,q,mha,l,V 2,l,V 3,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+4,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 2,c,q,mha,l,V 2,l,V 1,xors,jinz,V 20,mha,l,V 2,l,V 3,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+4,tc,V 2,c,r,mha,l,V 2,l,V 4,q,qi,I(1),li,rvec+4,tc,V 2,c,mat,mha,l,V 2,st,V 4,mha,l,V 3,l,V 1,tc,V 0,c,r,t,F,r};
-void*Y345[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 344,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 1,tc,V 0,c,jinf,V 198,mha,l,V 2,l,V 3,l,V 2,jif,V 29,mha,l,V 2,l,V 4,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,t,Z,j,V 2,t,T,j,V 160,mla,l,V 0,q,qi,I(2),li,rvec+6,tc,V 2,c,mlt,s,V 0,mha,l,V 2,l,V 3,l,V 5,q,mha,l,V 2,l,V 3,l,V 4,q,li,rvec+5,tc,V 2,c,q,mla,l,V 0,q,qi,F,mha,l,V 2,l,V 3,l,V 11,tc,V 2,c,q,dig,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 29,mha,l,V 2,l,V 4,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,t,Z,j,V 2,t,T,j,V 56,dig,V 0,xri,F,jiz,V 13,dig,V 1,q,dig,V 1,q,li,rvec+17,tc,V 2,c,jif,V 25,mha,l,V 2,l,V 2,jif,V 14,mla,l,V 0,q,mha,l,V 2,l,V 5,tc,V 1,c,j,V 2,t,F,j,V 12,mla,l,V 0,q,mha,l,V 2,l,V 5,tc,V 1,c,ds,V 1,ds,V 1,r};
-void*Y346[]={binc,&branch_EVM_invargc,hop,V 7,mca,subc,V 3,binzc,&branch_EVM_invargca,mlt,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 0,q,mlt,s,V 3,qi,&BCL1,li,rvec+11,tc,V 2,c,mha,l0,q,qi,W(portio_debugging),t,&NN_dict_ref_2,tc,V 2,c,q,li,rvec+10,tc,V 1,c,ct,l0,jif,V 102,mha,l0,q,qi,W(XstderrX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,B 341,mla,l,V 0,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 342,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 342,mla,l,V 2,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 343,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 7,c,q,mha,l0,q,qi,W(print),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,j,V 0,t,I(0),mlt,s,V 4,t,Q,mlt,s,V 5,t,B 345,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 5,mla,l,V 3,l,V 5,q,mla,l,V 3,l,V 4,q,li,rvec+5,tc,V 2,c,mlt,s,V 6,mla,l,V 6,q,qi,I(64),li,rvec+15,tc,V 2,c,jif,V 4,t,I(64),j,V 3,mla,l,V 6,q,mla,l,V 5,tc,V 1,c,r};
-void*Y347[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,dig,V 0,q,qi,T,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 77,tc,V 1,c,jif,V 21,mla,l,V 0,l,V 4,q,qi,I(1),li,rvec+4,tc,V 2,c,mat,mla,l,V 0,st,V 4,j,V 0,mla,l,V 1,ds,V 1,r};
-void*Y348[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mlt,s,V 2,qi,&BCL1,li,rvec+11,tc,V 2,c,qi,I(1),mla,l,V 1,q,mla,l,V 2,l,V 11,tc,V 2,c,mlt,s,V 3,mla,l,V 3,q,mha,l0,q,qi,W(number_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 7,mla,l,V 3,xri,T,jinz,V 21,mla,l,V 2,l,V 3,q,mla,l,V 2,l,V 4,q,mha,l,V 1,l,V 114,tc,V 2,c,r,mla,l,V 3,r};
-void*Y349[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,dig,V 2,q,dig,V 2,q,dig,V 2,q,mha,l0,q,qi,W(port_peek_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 37,mla,l,V 0,l,V 4,q,mla,l,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+4,tc,V 2,c,mat,mla,l,V 0,st,V 4,j,V 0,mla,l,V 1,ds,V 3,r};
-void*Y350[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,dig,V 1,q,dig,V 1,q,mla,l,V 0,l,V 11,tc,V 2,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(number_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 44,mla,l,V 0,l,V 3,q,mla,l,V 0,l,V 4,q,mla,l,V 0,l,V 4,q,mla,l,V 1,q,li,rvec+4,tc,V 2,c,q,mha,l0,q,qi,W(slice),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 3,r,mla,l,V 1,xri,T,jinz,V 43,mla,l,V 0,l,V 3,q,mla,l,V 0,l,V 4,q,mla,l,V 0,l,V 4,q,dig,V 4,q,li,rvec+4,tc,V 2,c,q,mha,l0,q,qi,W(slice),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 3,r,mla,l,V 1,ds,V 3,r};
-void*Y351[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mlt,s,V 2,qi,&BCL1,li,rvec+11,tc,V 2,c,mla,l,V 0,q,qi,CH(10),mla,l,V 1,q,mha,l0,q,qi,W(ensure_line_in_buffer),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 3,mla,l,V 3,xri,F,jiz,V 19,mla,l,V 3,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,mla,l,V 3,r,mla,l,V 3,xri,T,jinz,V 49,mla,l,V 2,l,V 3,q,mla,l,V 2,l,V 4,q,mla,l,V 2,l,V 5,q,mha,l0,q,qi,W(slice),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 4,mla,l,V 2,l,V 5,mat,mla,l,V 2,st,V 4,mla,l,V 4,r,mla,l,V 2,l,V 3,q,mla,l,V 2,l,V 4,q,mla,l,V 3,q,mha,l0,q,qi,W(slice),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 5,mla,l,V 3,q,qi,I(1),li,rvec+4,tc,V 2,c,mat,mla,l,V 2,st,V 4,mla,l,V 5,r};
-void*Y352[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,t,I(0),mat,mla,l,V 0,st,V 4,t,I(0),mat,mla,l,V 0,st,V 5,t,F,mat,mla,l,V 0,st,V 2,t,Z,ds,V 1,r};
-void*Y353[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,dig,V 1,xri,W(relative),jinz,V 30,dig,V 0,q,mla,l,V 0,l,V 5,q,mla,l,V 0,l,V 4,q,li,rvec+5,tc,V 2,c,q,li,rvec+5,tc,V 2,c,bury,V 0,j,V 0,dig,V 2,q,mha,l0,q,qi,W(drop_buffer),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,dig,V 2,q,dig,V 2,q,dig,V 2,q,mla,l,V 0,l,V 8,tc,V 3,c,ds,V 3,r};
-void*Y354[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,dig,V 1,q,mha,l0,q,qi,W(drop_buffer),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,dig,V 1,q,dig,V 1,q,qi,I(0),dig,V 3,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 0,l,V 7,tc,V 4,c,ds,V 2,r};
-void*Y355[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,mha,l0,q,qi,W(raise_unreadable_port),t,&NN_dict_ref_2,tc,V 2,c,mat,mla,l,V 0,st,V 6,mla,l,V 0,l,V 9,jif,V 41,dig,V 0,q,qi,T,mla,l,V 0,l,V 7,q,mha,l0,q,qi,W(raise_unwritable_port),t,&NN_dict_ref_2,tc,V 2,c,xors,jinz,V 4,t,T,j,V 2,t,F,q,mla,l,V 0,l,V 9,tc,V 3,c,j,V 2,t,Z,mlt,s,V 1,t,Q,mat,mla,l,V 0,st,V 3,mla,l,V 1,ds,V 1,r};
-void*Y356[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,mha,l0,q,qi,W(raise_unwritable_port),t,&NN_dict_ref_2,tc,V 2,c,mat,mla,l,V 0,st,V 7,mla,l,V 0,l,V 9,jif,V 42,dig,V 0,q,mla,l,V 0,l,V 6,q,mha,l0,q,qi,W(raise_unreadable_port),t,&NN_dict_ref_2,tc,V 2,c,xors,jinz,V 4,t,T,j,V 2,t,F,q,qi,T,mla,l,V 0,l,V 9,tc,V 3,c,ds,V 1,r,t,Z,ds,V 1,r};
-void*Y357[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,mha,l0,q,qi,W(raise_unreadable_port),t,&NN_dict_ref_2,tc,V 2,c,mat,mla,l,V 0,st,V 6,mha,l0,q,qi,W(raise_unwritable_port),t,&NN_dict_ref_2,tc,V 2,c,mat,mla,l,V 0,st,V 7,mla,l,V 0,l,V 9,jif,V 18,dig,V 0,q,qi,T,qi,T,mla,l,V 0,l,V 9,tc,V 3,c,ds,V 1,r,t,Z,ds,V 1,r};
-void*Y358[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 4,q,mla,l,V 0,l,V 5,q,li,rvec+17,tc,V 2,c,xri,F,jinz,V 4,t,T,j,V 2,t,F,jinf,V 11,dig,V 0,q,mla,l,V 0,l,V 10,tc,V 1,c,ds,V 1,r};
-void*Y359[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 6,q,mha,l0,q,qi,W(raise_unreadable_port),t,&NN_dict_ref_2,tc,V 2,c,xors,jinz,V 4,t,T,j,V 2,t,F,xri,F,jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
-void*Y360[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 7,q,mha,l0,q,qi,W(raise_unwritable_port),t,&NN_dict_ref_2,tc,V 2,c,xors,jinz,V 4,t,T,j,V 2,t,F,xri,F,jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
-void*Y361[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 19,mac,p,s,V 1,p,s,V 0,mha,l0,q,qi,W(file_close_hook),t,&NN_dict_ref_2,tc,V 2,c,s,V 2,mla,l,V 0,q,mlt,s,V 3,qi,&BCL2,li,rvec+11,tc,V 2,c,mla,l,V 0,q,mha,l0,q,qi,W(raw_input_file_reader),t,&NN_dict_ref_2,tc,V 2,c,q,qi,F,mha,l0,q,qi,W(raw_file_seeker),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 2,q,mha,l0,q,qi,W(file_ready_huh),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(init_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 6,c,mla,l,V 1,mat,mla,l,V 3,st,V 12,t,Z,r};
-void*Y362[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mac,mca,subc,V 5,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 3,jizc,V 15,mac,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,j,V 22,mac,p,s,V 2,p,s,V 1,p,s,V 0,mha,l0,q,qi,W(file_close_hook),t,&NN_dict_ref_2,tc,V 2,c,s,V 3,mla,l,V 0,q,mlt,s,V 4,qi,&BCL2,li,rvec+11,tc,V 2,c,mla,l,V 0,q,mla,l,V 1,jif,V 12,mha,l0,q,qi,W(raw_input_file_reader),t,&NN_dict_ref_2,tc,V 2,c,j,V 2,t,F,q,mha,l0,q,qi,W(raw_output_file_writer),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(raw_file_seeker),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 3,q,mha,l0,q,qi,W(file_ready_huh),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(init_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 6,c,mla,l,V 2,mat,mla,l,V 4,st,V 12,t,Z,r};
-void*Y363[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 4,binzc,&branch_EVM_invargca,dig,V 3,q,mlt,s,V 0,qi,&BCL2,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 12,q,dig,V 3,q,dig,V 3,q,dig,V 3,q,mha,l0,q,qi,W(sysCOLONread),t,&NN_dict_ref_2,tc,V 2,c,tc,V 4,c,ds,V 4,r};
-void*Y364[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 4,binzc,&branch_EVM_invargca,dig,V 3,q,mlt,s,V 0,qi,&BCL2,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 12,q,dig,V 3,q,dig,V 3,q,dig,V 3,q,mha,l0,q,qi,W(sysCOLONwrite),t,&NN_dict_ref_2,tc,V 2,c,tc,V 4,c,ds,V 4,r};
-void*Y365[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,mlt,s,V 0,qi,&BCL2,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 12,q,dig,V 1,q,qi,W(fcntl),qi,W(seek),dig,V 5,mlt,s,V 1,mla,l,V 1,xri,W(absolute),jinz,V 4,t,W(SEEK_SET),j,V 35,mla,l,V 1,xri,W(relative),jinz,V 4,t,W(SEEK_CUR),j,V 24,mla,l,V 1,xri,W(end),jinz,V 4,t,W(SEEK_END),j,V 13,qi,W(invalid_whence),dig,V 6,q,mha,l,V 1,l,V 110,tc,V 2,c,q,mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(sysCOLONlseek),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 3,r};
-void*Y366[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,mlt,s,V 0,qi,&BCL2,li,rvec+11,tc,V 2,c,dig,V 1,jif,V 4,dig,V 0,j,V 2,t,F,jif,V 32,mla,l,V 0,l,V 12,q,mha,l0,q,qi,W(sysCOLONclose),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,Q,mat,mla,l,V 0,st,V 12,t,Z,ds,V 3,r,t,Z,ds,V 3,r};
-void*Y367[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL2,li,rvec+11,tc,V 2,c,mha,l0,q,qi,W(make_fdset),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,mlt,s,V 1,mla,l,V 1,q,mla,l,V 0,l,V 12,q,qi,T,mha,l0,q,qi,W(fdset_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 0,l,V 12,q,qi,I(1),li,rvec+4,tc,V 2,c,q,mla,l,V 1,q,qi,F,qi,F,qi,I(0),qi,I(0),mha,l0,q,qi,W(sysCOLONselect),t,&NN_dict_ref_2,tc,V 2,c,tc,V 6,c,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
-void*Y368[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL2,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 12,ds,V 1,r};
-void*Y369[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mac,mca,subc,V 2,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 0,jizc,V 6,mac,p,s,V 0,j,V 13,mac,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 95,tc,V 1,c,jif,V 18,mla,l,V 0,q,mha,l0,q,qi,W(PCread_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mla,l,V 0,q,mla,l,V 0,q,mha,l,V 1,l,V 138,tc,V 1,c,q,t,&NN_pr_record_type_read_char_slot,tc,V 1,c,tc,V 1,c,r};
-void*Y371[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,jinf,V 5,dig,V 0,ds,V 2,r,dig,V 1,q,mha,l0,q,qi,W(string_null_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 5,dig,V 0,ds,V 2,r,dig,V 1,q,qi,B 370,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 5,dig,V 0,ds,V 2,r,dig,V 1,q,qi,I(-1),mha,l,V 1,l,V 114,tc,V 2,c,xri,CH('/'),jinz,V 22,dig,V 1,q,dig,V 1,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r,dig,V 1,q,qi,CH('/'),dig,V 2,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 2,r};
-void*Y372[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(LTfileGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(make_instance),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,dig,V 1,q,mha,l0,q,qi,W(init_input_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mla,l,V 0,ds,V 1,r};
-void*Y373[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 4,jif,V 28,mha,l,V 2,l,V 4,q,dig,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,mat,mha,l,V 2,st,V 4,t,Z,ds,V 1,r,dig,V 0,mat,mha,l,V 2,st,V 4,t,Z,ds,V 1,r};
-void*Y374[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,t,F,mlt,s,V 0,mha,l,V 3,l,V 0,q,mha,l,V 2,l,V 2,q,qi,I(0),mha,l0,q,qi,W(sysCOLONopen),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,r};
-void*Y375[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 1,q,t,B 64,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 374,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y376[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 8,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,F,ds,V 2,r};
-void*Y377[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 8,q,mha,l0,q,qi,W(read_whole_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mha,l,V 3,l,V 8,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mla,l,V 0,r};
-void*Y378[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,t,F,ds,V 2,r};
-void*Y379[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 10,q,mha,l0,q,qi,W(frer2structure),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y380[]={binc,&branch_EVM_invargc,hop,V 11,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 425,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 1,mla,l,V 1,q,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(construct_filename),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 2,l,V 3,jinf,V 32,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,xri,F,jinz,V 4,t,T,j,V 2,t,F,q,mha,l,V 2,l,V 6,tc,V 2,c,mlt,s,V 2,mla,l,V 2,jif,V 309,mla,l,V 2,mlt,s,V 3,t,T,mlt,s,V 4,mla,l,V 3,q,mha,l0,q,qi,W(PCfd2port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,mha,l,V 2,l,V 5,jif,V 267,mla,l,V 1,q,mha,l,V 2,l,V 5,q,mha,l0,q,qi,W(construct_filename),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,T,mha,l,V 2,l,V 6,tc,V 2,c,mlt,s,V 6,mla,l,V 6,jif,V 223,mla,l,V 6,q,mha,l0,q,qi,W(PCfd2port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 7,mla,l,V 7,jif,V 196,mla,l,V 7,mlt,s,V 8,mla,l,V 8,q,mha,l0,q,qi,W(file_mtime),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 5,q,mha,l0,q,qi,W(file_mtime),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+15,tc,V 2,c,jif,V 19,mla,l,V 8,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 126,qi,T,t,B 376,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 377,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,mlt,s,V 9,mla,l,V 9,jif,V 80,mla,l,V 9,mlt,s,V 10,qi,T,t,B 378,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 379,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,q,dig,V 0,jif,V 29,dig,V 0,q,mla,l,V 5,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,dig,V 0,mlt,s,V 5,ds,V 1,j,V 0,ds,V 1,j,V 0,j,V 0,j,V 0,j,V 0,j,V 0,mla,l,V 5,r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 7,tc,V 1,c,r,t,F,r};
-void*Y381[]={binc,&branch_EVM_invargc,hop,V 8,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(open),qi,W(O_RDONLY),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,t,F,mlt,s,V 3,t,F,mlt,s,V 4,t,F,mlt,s,V 5,t,B 373,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,xri,Q,jiz,V 238,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,dig,V 0,xri,W(follow_not),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 156,dig,V 0,xri,W(signal_not),jinz,V 7,t,T,mlt,s,V 3,j,V 143,dig,V 0,xri,W(system_path),jinz,V 27,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,q,dig,V 3,tc,V 1,c,j,V 110,dig,V 0,xri,W(frer),jinz,V 45,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,j,V 59,dig,V 0,xri,F,jiz,V 53,dig,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 6,dig,V 1,xri,Q,jinz,V 10,dig,V 1,q,dig,V 3,tc,V 1,c,j,V 22,qi,W(unknown_open_input_file_flag),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -245,ds,V 1,mla,l,V 4,jif,V 22,mla,l,V 4,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 4,j,V 0,t,B 375,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 6,mla,l,V 4,xri,F,jiz,V 18,mla,l,V 0,q,qi,I(0),mha,l,V 1,l,V 114,tc,V 2,c,xri,CH('/'),jinz,V 7,t,BC 17,mlt,s,V 4,j,V 0,t,Q,mlt,s,V 7,t,B 380,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 7,mla,l,V 4,q,mla,l,V 7,tc,V 1,c,r};
-void*Y382[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(open),qi,W(O_CREAT),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,t,I(420),mlt,s,V 3,t,F,mlt,s,V 4,mla,l,V 1,xri,Q,jiz,V 508,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,mha,l0,q,qi,W(integer_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 53,t,I(0),q,dig,V 1,q,t,I(4095),q,dig,V 1,q,dig,V 3,q,li,rvec+15,tc,V 2,c,jinf,V 21,dig,V 0,q,dig,V 2,q,li,rvec+15,tc,V 2,c,jinf,V 4,t,T,j,V 2,t,F,j,V 2,t,F,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,jif,V 7,dig,V 0,mlt,s,V 3,j,V 395,dig,V 0,q,dig,V 0,xri,W(create_not),jinz,V 54,mla,l,V 2,q,qi,W(open),qi,W(O_CREAT),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 330,dig,V 0,xri,W(exclusive),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_EXCL),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 284,dig,V 0,xri,W(truncate_not),jinz,V 54,mla,l,V 2,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 224,dig,V 0,xri,W(append),jinz,V 92,mla,l,V 2,q,qi,W(open),qi,W(O_APPEND),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,mla,l,V 2,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 126,dig,V 0,xri,W(sync),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_SYNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 80,dig,V 0,xri,W(follow_not),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 34,dig,V 0,xri,W(readable),jinz,V 7,t,T,mlt,s,V 4,j,V 21,dig,V 0,xri,F,jiz,V 15,qi,W(unknown_open_output_file_flag),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -515,mha,l0,q,qi,W(LTfileGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(make_instance),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,mla,l,V 5,q,mla,l,V 4,q,mla,l,V 0,q,qi,W(open),mla,l,V 4,jif,V 4,t,W(O_RDWR),j,V 2,t,W(O_WRONLY),q,mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 2,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 3,q,mha,l0,q,qi,W(sysCOLONopen),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(init_output_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mla,l,V 5,r};
-void*Y383[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 18,mac,mca,subc,V 1,jizc,V 23,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 31,mac,p,s,V 1,p,s,V 0,j,V 18,j,V 20,mac,p,s,V 0,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,t,T,s,V 2,mla,l,V 1,q,mla,l,V 0,q,mla,l,V 2,q,mha,l0,q,qi,W(port_read_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,r};
-void*Y384[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 18,mac,mca,subc,V 1,jizc,V 23,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 31,mac,p,s,V 1,p,s,V 0,j,V 18,j,V 20,mac,p,s,V 0,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,t,T,s,V 2,mla,l,V 1,q,mla,l,V 0,q,mla,l,V 2,q,mha,l0,q,qi,W(port_peek_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,r};
-void*Y385[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 14,mla,l,V 0,q,mha,l,V 2,l,V 1,tc,V 1,c,j,V 2,t,F,jif,V 83,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,mha,l,V 2,l,V 2,q,qi,I(1),li,rvec+5,tc,V 2,c,mat,mha,l,V 2,st,V 2,mha,l,V 2,l,V 2,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 9,mha,l,V 3,l,V 1,tc,V 0,c,r,t,Z,r,t,Z,r};
-void*Y386[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 385,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 1,tc,V 0,c,r};
-void*Y387[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,I(0),s,V 2,t,B 386,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(collect_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y388[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 16,mac,p,s,V 0,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,mla,l,V 1,q,mla,l,V 0,q,mha,l0,q,qi,W(port_write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y389[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mac,mca,subc,V 2,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 0,jizc,V 6,mac,p,s,V 0,j,V 13,mac,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(port_ready_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y390[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 3,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,qi,W(my),mla,l,V 1,q,mla,l,V 2,q,qi,W(try),qi,W(begin),mla,l,V 3,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(finally),qi,W(if),qi,W(port_huh),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(close_port),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y391[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,q,mha,l0,q,qi,W(port_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 20,mha,l,V 2,l,V 3,q,mha,l0,q,qi,W(close_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,t,Z,r};
-void*Y392[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 4,tc,V 0,c,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r};
-void*Y393[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,q,dig,V 0,jif,V 13,dig,V 0,q,mha,l,V 2,l,V 2,tc,V 1,c,j,V 2,t,F,ds,V 1,mlt,s,V 0,mha,l,V 2,l,V 4,tc,V 0,c,mla,l,V 0,r};
-void*Y394[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,p,s,V 2,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mha,l0,q,qi,W(open_input_file),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,mlt,s,V 3,t,B 391,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,qi,T,t,B 392,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 393,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y395[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,p,s,V 2,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mha,l0,q,qi,W(open_output_file),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,mlt,s,V 3,t,B 391,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,qi,T,t,B 392,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 393,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y396[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 0,q,mha,l0,q,qi,W(port_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 20,mha,l,V 3,l,V 0,q,mha,l0,q,qi,W(close_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,t,Z,r};
-void*Y397[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 1,tc,V 0,c,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r};
-void*Y398[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 0,jif,V 22,mha,l,V 2,l,V 3,q,mha,l,V 3,l,V 0,q,mha,l,V 2,l,V 2,tc,V 2,c,j,V 2,t,Z,mlt,s,V 0,mha,l,V 3,l,V 1,tc,V 0,c,mla,l,V 0,r};
-void*Y399[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 0,binzc,&branch_EVM_invargca,mlt,mha,l,V 2,l,V 3,jif,V 81,mha,l0,q,qi,W(open_output_file),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 2,l,V 1,q,mha,l,V 1,l,V 11,tc,V 2,c,mlt,s,V 0,t,B 396,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,qi,T,t,B 397,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 398,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,j,V 2,t,Z,mlt,s,V 2,mha,l,V 2,l,V 4,tc,V 0,c,mla,l,V 2,r};
-void*Y400[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binzc,&branch_EVM_invargca,mlt,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 17,mla,l,V 0,q,mha,l,V 1,l,V 97,tc,V 1,c,mlt,s,V 0,j,V 0,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 17,mla,l,V 1,q,mha,l,V 1,l,V 97,tc,V 1,c,mlt,s,V 1,j,V 0,mha,l0,q,qi,W(open_input_file),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mha,l,V 1,l,V 11,tc,V 2,c,mlt,s,V 3,t,B 391,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,qi,T,t,B 392,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 399,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y401[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,mlt,s,V 0,mla,l,V 0,jif,V 19,mla,l,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 2,t,F,jinf,V 88,mha,l,V 2,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 49,mla,l,V 1,q,mha,l,V 2,l,V 0,tc,V 1,c,mha,l,V 2,l,V 3,jif,V 21,mha,l,V 2,l,V 3,q,qi,I(1),li,rvec+5,tc,V 2,c,mat,mha,l,V 2,st,V 3,j,V 0,mha,l,V 2,l,V 4,tc,V 0,c,r,t,Z,r,t,Z,r};
-void*Y402[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 5,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 3,jizc,V 21,mac,mca,subc,V 2,jizc,V 29,mac,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,j,V 37,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 21,j,V 23,mac,p,s,V 1,p,s,V 0,mha,l0,q,qi,W(read),t,&NN_dict_ref_2,tc,V 2,c,s,V 2,t,F,s,V 3,t,Q,mlt,s,V 4,t,B 401,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,mla,l,V 4,tc,V 0,c,t,Z,r};
-void*Y403[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,t,F,mlt,s,V 0,qi,I(16384),dig,V 1,q,mha,l0,q,qi,W(read_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r};
-void*Y404[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,F,mlt,s,V 1,mla,l,V 0,q,mha,l,V 2,l,V 0,q,t,B 403,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(read_allEQGT),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,r};
-void*Y405[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,q,t,B 404,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 156,tc,V 1,c,q,mha,l,V 1,l,V 11,tc,V 2,c,r};
-void*Y406[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 16,mac,p,s,V 0,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,mla,l,V 0,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 1,q,mha,l0,q,qi,W(write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y407[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 16,mac,p,s,V 0,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l0,q,qi,W(write),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mla,l,V 1,q,mha,l0,q,qi,W(newline),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y408[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 0,p,s,V 1,j,V 16,mac,p,s,V 0,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 77,tc,V 1,c,jif,V 19,mla,l,V 1,q,mla,l,V 0,mlt,s,V 1,dig,V 0,mlt,s,V 0,ds,V 1,j,V 0,mla,l,V 1,q,mha,l,V 1,l,V 95,tc,V 1,c,jif,V 31,mla,l,V 0,q,mha,l,V 1,l,V 117,tc,V 1,c,q,mla,l,V 1,q,mha,l0,q,qi,W(write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mla,l,V 1,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 138,tc,V 1,c,q,t,&NN_pr_record_type_write_char_slot,tc,V 1,c,tc,V 2,c,r};
-void*Y409[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mac,mca,subc,V 2,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 0,jizc,V 6,mac,p,s,V 0,j,V 13,mac,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 0,qi,CH(10),mla,l,V 0,q,mha,l0,q,qi,W(write_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,t,Z,r};
-void*Y410[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 0,p,s,V 1,j,V 16,mac,p,s,V 0,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,mla,l,V 0,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 1,q,mha,l0,q,qi,W(write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,t,Z,r};
-void*Y411[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 35,dig,V 1,q,dig,V 1,jif,V 12,mha,l0,q,qi,W(sysCOLONstat),t,&NN_dict_ref_2,tc,V 2,c,j,V 10,mha,l0,q,qi,W(sysCOLONlstat),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 2,r,dig,V 1,q,mha,l0,q,qi,W(file_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 33,dig,V 1,q,mha,l0,q,qi,W(file_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(sysCOLONfstat),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 2,r,qi,W(file_huh),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r};
-void*Y412[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mha,l,V 1,l,V 78,q,qi,BC 44,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 169,tc,V 2,c,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 2,qi,W(st_mode),mla,l,V 2,q,mha,l0,q,qi,W(assq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,mla,l,V 3,q,qi,I(4096),mha,l,V 1,l,V 107,tc,V 2,c,mlt,s,V 4,mla,l,V 3,q,qi,I(4096),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 5,qi,W(type),mla,l,V 5,q,mha,l0,q,qi,W(file_types),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(assv),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,dig,V 0,jif,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,j,V 2,t,F,ds,V 1,jinf,V 2,t,F,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(mode),mla,l,V 4,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y413[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 169,tc,V 2,c,q,mha,l0,q,qi,W(third),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,I(4096),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(file_types),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(assv),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,mla,l,V 2,jif,V 13,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r,t,F,r};
-void*Y414[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 169,tc,V 2,c,q,qi,I(12),mha,l0,q,qi,W(list_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y415[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 169,tc,V 2,c,q,qi,I(11),mha,l0,q,qi,W(list_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y416[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,T,s,V 2,mla,l,V 1,q,qi,W(open),qi,W(O_RDONLY),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(open),qi,W(O_DIRECTORY),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 2,jif,V 4,t,I(0),j,V 17,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,I(0),mha,l0,q,qi,W(sysCOLONopen),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 3,mla,l,V 0,q,mla,l,V 3,q,mha,l0,q,qi,W(sysCOLONfor_dir_entries),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mla,l,V 3,q,mha,l0,q,qi,W(sysCOLONclose),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,Z,r};
-void*Y417[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,t,Q,mlt,s,V 0,dig,V 1,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 14,dig,V 0,xri,Q,jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 391,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 68,dig,V 2,q,mha,l0,q,qi,W(odd_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 28,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 0,q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 0,j,V 0,dig,V 2,q,qi,I(2),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,bury,V 2,j,V 282,dig,V 0,jinf,V 22,dig,V 2,q,qi,I(2),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,bury,V 2,j,V 256,dig,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 230,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 1,p,l,V 1,mlt,s,V 2,t,I(1),q,mla,l,V 1,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 28,dig,V 0,q,qi,I(2),li,rvec+6,tc,V 2,c,bury,V 0,mla,l,V 1,q,qi,I(1),li,rvec+5,tc,V 2,c,mlt,s,V 1,j,V -47,dig,V 3,q,dig,V 1,q,mha,l,V 1,l,V 107,tc,V 2,c,q,dig,V 4,q,dig,V 2,q,mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,bury,V 4,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 15,mla,l,V 2,xri,Q,jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 29,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,bury,V 0,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 2,j,V -66,mla,l,V 2,xri,Q,jiz,V 45,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,jif,V 25,dig,V 0,q,dig,V 0,q,mla,l,V 0,q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 0,ds,V 1,j,V 0,ds,V 1,j,V 0,ds,V 1,ds,V 1,j,V 13,qi,W(flag_specifier_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -427,mla,l,V 0,ds,V 2,r};
-void*Y418[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(file_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 165,tc,V 1,c,ds,V 1,r};
-void*Y419[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,mha,l0,q,qi,W(file_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 2,q,dig,V 2,q,mha,l,V 1,l,V 166,tc,V 3,c,ds,V 3,r};
-void*Y420[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 9,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 114,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
-void*Y421[]={binc,&branch_EVM_invargc,hop,V 10,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(tcgetattr_raw),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,mla,l,V 2,xri,Q,jiz,V 472,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 3,t,T,mlt,s,V 4,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,mla,l,V 5,xri,W(iflag),jinz,V 48,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,BC 58,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 367,mla,l,V 5,xri,W(oflag),jinz,V 48,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,BC 94,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 312,mla,l,V 5,xri,W(cflag),jinz,V 164,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 6,mla,l,V 6,q,qi,I(16),mha,l,V 1,l,V 107,tc,V 2,c,mlt,s,V 7,mla,l,V 6,q,qi,I(16),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,BC 107,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 8,qi,W(CBAUDEX),mla,l,V 8,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 16,mla,l,V 7,q,qi,I(16),li,rvec+4,tc,V 2,c,mlt,s,V 7,j,V 0,mla,l,V 7,q,qi,BC 141,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 8,q,mha,l0,q,qi,W(append_reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 141,mla,l,V 5,xri,W(lflag),jinz,V 48,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,BC 157,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 86,mla,l,V 5,xri,W(cc),jinz,V 79,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 9,mla,l,V 3,q,t,B 420,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,qi,W(termios),qi,W(cc),mha,l0,q,qi,W(system_constant_internal),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 0,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 2,j,V -479,mla,l,V 1,r};
-void*Y422[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jiz,V 6253,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 0,p,l,V 1,mlt,s,V 1,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,W(now),jiz,V 14,mla,l,V 2,xri,W(drain),jiz,V 7,mla,l,V 2,xri,W(flush),jinz,V 86,mha,l,V 2,l,V 8,jif,V 20,mla,l,V 0,q,mha,l,V 2,l,V 8,xors,jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 31,qi,W(conflict),mha,l,V 2,l,V 8,q,mla,l,V 0,q,mha,l,V 1,l,V 97,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,mla,l,V 0,mat,mha,l,V 2,st,V 8,mla,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IGNBRK),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(0),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(BRKINT),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(1),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IGNPAR),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(2),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(PARMRK),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(3),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(INPCK),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(4),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ISTRIP),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(5),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(INLCR),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(6),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IGNCR),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(7),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ICRNL),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(8),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IUCLC),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IXON),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IXANY),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(11),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IXOFF),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(12),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IMAXBEL),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(13),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OPOST),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(0),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OLCUC),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(1),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ONLCR),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(2),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OCRNL),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(3),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ONOCR),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(4),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ONLRET),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(5),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OFILL),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(6),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OFDEL),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(7),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(NL0),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(8),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(NL1),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(8),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CR0),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CR1),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),qi,...
[truncated message content] |
|
From: <di...@us...> - 2002-09-18 21:11:18
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv32556/src/builtin
Modified Files:
ewisp.wisp filing.wisp fluids.wisp init.wisp parser.wisp
stdenv.wisp
Log Message:
Replaced |*stdin*|, |*stdout*|, and |*stderr*| with |current-input-port|, |current-output-port|, and |current-errors-port|.
Index: ewisp.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/ewisp.wisp,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- ewisp.wisp 28 Aug 2002 20:05:43 -0000 1.18
+++ ewisp.wisp 18 Sep 2002 21:11:14 -0000 1.19
@@ -6,7 +6,8 @@
;;
;;;; @(#) $Id$
-(define (run-ewisp-file (port *stdin*) (sink *stdout*))
+(define (run-ewisp-file (port (current-input-port))
+ (sink (current-output-port)))
(if (string? port)
(call-with-input-file port (cut run-ewisp-file <> sink))
(begin
Index: filing.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/filing.wisp,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -d -r1.107 -r1.108
--- filing.wisp 18 Sep 2002 21:10:02 -0000 1.107
+++ filing.wisp 18 Sep 2002 21:11:14 -0000 1.108
@@ -17,8 +17,6 @@
(define (raise-unseekable-port port . rest)
(raise 'unseekable-port port))
-(define portio-debugging (list #f))
-
;; Some ports communicate with data strings and can seek along them.
;; Others communicate with serial sinks and sources that are unseekable.
;; Since input buffering is unavoidable, you better assume that reading
@@ -83,8 +81,6 @@
(loop)
(- stop start)))))))))))
(friend (ensure-line-in-buffer port newline block?)
- (if (car portio-debugging)
- (print *stderr* "ensure-line-in-buffer: $[port] $[newline] $[block?]\n"))
(my delta 0
(let (loop (len (my l (- stop start)
(if (> 64 l) 64 l))))
@@ -219,7 +215,7 @@
(friend (file-descriptor port)
fd))
-(define (read-char (port *stdin*))
+(define (read-char (port (current-input-port)))
(if (instance? port)
(%read-char port)
(((asm NN_pr_record_type_read_char_slot) (type-of port)) port)))
@@ -356,16 +352,33 @@
(define *stdout* (make-instance <file>)) (init-output-file *stdout* #f 1)
(define *stderr* (make-instance <file>)) (init-output-file *stderr* #f 2)
+(define stdin$ (make-fluid *stdin*))
+(define stdout$ (make-fluid *stdout*))
+(define stderr$ (make-fluid *stderr*))
+
+(define (current-input-port) (ref stdin$))
+(define (current-output-port) (ref stdout$))
+(define (current-errors-port) (ref stderr$))
+
+(define (with-input-from port thunk)
+ (with-fluid stdin$ port thunk))
+
+(define (with-output-to port thunk)
+ (with-fluid stdout$ port thunk))
+
+(define (with-errors-to port thunk)
+ (with-fluid stderr$ port thunk))
+
;; General file operations
(define port? (class-discriminator <port>))
(define file? (class-discriminator <file>))
-(define (read-string length (port *stdin*) (block? #t))
+(define (read-string length (port (current-input-port)) (block? #t))
(port-read-string port length block?))
-(define (peek-string length (port *stdin*) (block? #t))
+(define (peek-string length (port (current-input-port)) (block? #t))
(port-peek-string port length block?))
(define (read-char-sequence port pred (limit 0))
@@ -382,10 +395,10 @@
(if (not (zero? limit))
(loop)))))))))
-(define (write-string string (port *stdout*))
+(define (write-string string (port (current-output-port)))
(port-write-string port string))
-(define (char-ready? (port *stdin*))
+(define (char-ready? (port (current-input-port)))
(port-ready? port))
(defmacro (my-port var opener . body)
@@ -430,14 +443,14 @@
(collect (cut read-all=> <> port
(cut read-string 16384 <>)))))
-(define (write object (port *stdout*))
+(define (write object (port (current-output-port)))
(write-string (structure->string object) port))
-(define (writeln object (port *stdout*))
+(define (writeln object (port (current-output-port)))
(write object port)
(newline port))
-(define (read-char (port *stdin*))
+(define (read-char (port (current-input-port)))
(if (instance? port)
(%read-char port)
(((asm NN_pr_record_type_read_char_slot) (type-of port)) port)))
@@ -449,7 +462,7 @@
; dispatching is decided) should be the first, so we're going to
; change it. During the conversion period, *both* orderings are
; allowed.
-(define (write-char (port *stdout*) object)
+(define (write-char (port (current-output-port)) object)
(if (char? port)
(my x port
(set! port object)
@@ -459,11 +472,11 @@
(((asm NN_pr_record_type_write_char_slot) (type-of port))
port object)))
-(define (newline (port *stdout*))
+(define (newline (port (current-output-port)))
(write-char #\newline port)
(begin))
-(define (print (port *stdout*) datum)
+(define (print (port (current-output-port)) datum)
(write-string (dwim-stringify datum) port)
(begin))
Index: fluids.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/fluids.wisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- fluids.wisp 7 Sep 2002 21:52:32 -0000 1.2
+++ fluids.wisp 18 Sep 2002 21:11:14 -0000 1.3
@@ -11,6 +11,11 @@
(my (%<fluid> %make-fluid)
(make-record-type 0
+ 'new (lambda (%<fluid> %make-fluid)
+ (lambda (datum)
+ (my f (%make-fluid)
+ (acons! fluid-list[] f (list datum))
+ f)))
'ref (lambda (%<fluid> %make-fluid)
(lambda (f (:= x))
(my c (assq f fluid-list[])
@@ -22,9 +27,7 @@
(define <fluid> %<fluid>)
(define (make-fluid datum)
- (my f (%make-fluid)
- (acons! fluid-list[] f (list datum))
- f))
+ (new <fluid> datum))
(define (with-fluid f datum thunk)
(my c (assq f fluid-list[])
Index: init.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/init.wisp,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -d -r1.60 -r1.61
--- init.wisp 26 Aug 2002 16:18:23 -0000 1.60
+++ init.wisp 18 Sep 2002 21:11:14 -0000 1.61
@@ -7,7 +7,7 @@
;;;; @(#) $Id$
(define (fatal-handler sig dat)
- (print *stderr* "wisp: exception $[sig] about $[dat] occurred\n")
+ (print (current-errors-port) "wisp: exception $[sig] about $[dat] occurred\n")
(exit 255))
(define (state-version)
@@ -25,13 +25,13 @@
(curdir? (or (memq #\C opkeys)
(memq #\c opkeys)))
(interactive? (or (memq #\i opkeys)
- (tty? *stdin*))))
+ (tty? (current-input-port)))))
(my opki opkeys
(while (not (null? opki))
(if (not (memq (car opki) '(#\e #\A #\C #\c #\i)))
(begin
- (print *stderr* "Fatal error: unknown key \
- -$,(car opki) used.\n")
+ (print (current-errors-port)
+ "Fatal error: unknown key -$,(car opki) used.\n")
(exit 255)))
(cdr! opki)))
(set! *arglist* args) ; skip arguments already parsed
@@ -64,7 +64,7 @@
(interactive? ((call-with-input-file "shell.wisp"
'system-path
(cut load <> *user-dictionary*))))
- (else (load *stdin* *user-dictionary*)))))
+ (else (load (current-input-port) *user-dictionary*)))))
(exit 0))) ; report success
(define *system-path*
Index: parser.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/parser.wisp,v
retrieving revision 1.120
retrieving revision 1.121
diff -u -d -r1.120 -r1.121
--- parser.wisp 7 Sep 2002 22:00:41 -0000 1.120
+++ parser.wisp 18 Sep 2002 21:11:14 -0000 1.121
@@ -320,7 +320,7 @@
(loop #t)))))
i)))
- (define (read (port *stdin*))
+ (define (read (port (current-input-port)))
(read-complex-structure port))
(define (read-until-dollar port is-regex?)
Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.367
retrieving revision 1.368
diff -u -d -r1.367 -r1.368
--- stdenv.wisp 18 Sep 2002 21:09:00 -0000 1.367
+++ stdenv.wisp 18 Sep 2002 21:11:14 -0000 1.368
@@ -11,15 +11,15 @@
(metacode
(cons 'list
(map (lambda (x) `(cons ',x ,x))
- '(* *stderr* *stdin* *stdout* + - / /= < << <= <box>
- <c16string> <class> <file> <macro> <port> <record-type> =
- > >= >> abs acons! address-of alist->dict alist-copy
- analyse and append append-reverse apply assert
- assert-object-type assoc assq assv atom? big-integer? bind
- bit? boolean? box-empty! box-empty? box-ref box? broketed?
- builtin-modules c16string? c8string? caaaar caaadr caaar
- caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr
- caddr cadr call-with-in/out-files call-with-input-file
+ '(* + - / /= < << <= <box> <c16string> <class> <file>
+ <macro> <port> <record-type> = > >= >> abs acons!
+ address-of alist->dict alist-copy analyse and append
+ append-reverse apply assert assert-object-type assoc assq
+ assv atom? big-integer? bind bit? boolean? box-empty!
+ box-empty? box-ref box? broketed? builtin-modules
+ c16string? c8string? caaaar caaadr caaar caadar caaddr
+ caadr caar cadaar cadadr cadar caddar cadddr caddr cadr
+ call-with-in/out-files call-with-input-file
call-with-output-file car car! car* cardinal? case catch
cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr
cddar cdddar cddddr cdddr cddr cdr cdr! cdr* ceiling
@@ -43,7 +43,8 @@
class-slots class? close-input-port close-output-port
close-port collect collect-string compile concatenate cond
cons cons! cons-copy cons? construct-filename
- current-globals cut cute decr! define define-class
+ current-errors-port current-globals current-input-port
+ current-output-port cut cute decr! define define-class
defmacro denominator desv desv+r dict->alist dict-bind!
dict-copy dict-defined? dict-drop! dict-fetch dict-ref
dict? dis do drop duplicate-dict-item! dwim-stringify
@@ -66,34 +67,35 @@
open-input-file open-output-file opt or order->dict
output-port? pack-be-integer pack-le-integer
parse-character-body parse-lambda-list peek-char
- peek-string pick-dict-items port? portio-debugging
- positive? prep preprocess print procedure->macro
- procedure? quasiquote quotient raise rassoc rassq rassv
- rational->cons rational? read read-all=> read-char
- read-char-sequence read-character-body read-directory
- read-line read-string read-whole-file real? rec
- record-type-discriminator record-type? reduce-index ref
- remainder reverse round run-ewisp-file sbyte? second seek
- semideque semideque->list semideque-bottom
- semideque-insert! semideque-pop! semideque-push!
- semideque-top serial seventh signal sixth slice
- split-by-char string string->c16string string->c8string
- string->integer string->list string->number string->symbol
- string-append string-concatenate string-copy
- string-downcase string-downcase! string-fill! string-join
- string-move! string-null? string-template string-upcase
- string-upcase! string<=? string<? string=? string>=?
- string>? string? structure->string sub subclass? substring
- superclass swap! swyde? symbol->string symbol-length
- symbol-ref symbol<=? symbol<? symbol>=? symbol>? symbol?
- system-constant tcchangeattr tcgetattr tcgetattr-raw
- tcsetattr-raw tenth third toposplit translate tree-copy
- truncate try tty? type type-of ubyte? unix-time
- unpack-be-integer unpack-le-integer unsure-collect use
- utf-8->c16string utf-8-first-byte->length uwyde? vector
- vector->list vector-append vector-copy vector-fill!
- vector-move! vector? void? wisp-string-hash write
- write-char write-string writeln zero?)))))
+ peek-string pick-dict-items port? positive? prep
+ preprocess print procedure->macro procedure? quasiquote
+ quotient raise rassoc rassq rassv rational->cons rational?
+ read read-all=> read-char read-char-sequence
+ read-character-body read-directory read-line read-string
+ read-whole-file real? rec record-type-discriminator
+ record-type? reduce-index ref remainder reverse round
+ run-ewisp-file sbyte? second seek semideque
+ semideque->list semideque-bottom semideque-insert!
+ semideque-pop! semideque-push! semideque-top serial
+ seventh signal sixth slice split-by-char string
+ string->c16string string->c8string string->integer
+ string->list string->number string->symbol string-append
+ string-concatenate string-copy string-downcase
+ string-downcase! string-fill! string-join string-move!
+ string-null? string-template string-upcase string-upcase!
+ string<=? string<? string=? string>=? string>? string?
+ structure->string sub subclass? substring superclass swap!
+ swyde? symbol->string symbol-length symbol-ref symbol<=?
+ symbol<? symbol>=? symbol>? symbol? system-constant
+ tcchangeattr tcgetattr tcgetattr-raw tcsetattr-raw tenth
+ third toposplit translate tree-copy truncate try tty? type
+ type-of ubyte? unix-time unpack-be-integer
+ unpack-le-integer unsure-collect use utf-8->c16string
+ utf-8-first-byte->length uwyde? vector vector->list
+ vector-append vector-copy vector-fill! vector-move!
+ vector? void? wisp-string-hash with-errors-to
+ with-input-from with-output-to write write-char
+ write-string writeln zero?)))))
((*origin obj) ; => (original-name source-data ...) | #f
(cond
; check for the regular environment
|
|
From: <di...@us...> - 2002-09-18 21:11:18
|
Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv32556/tools
Modified Files:
pretty.wisp
Log Message:
Replaced |*stdin*|, |*stdout*|, and |*stderr*| with |current-input-port|, |current-output-port|, and |current-errors-port|.
Index: pretty.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/pretty.wisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- pretty.wisp 7 Sep 2002 21:56:05 -0000 1.7
+++ pretty.wisp 18 Sep 2002 21:11:14 -0000 1.8
@@ -205,7 +205,7 @@
(set! (cdr string-quotes) #\U+BB)))
(let (((process-all output-port)
(if (null? input)
- (process-file *stdin* output-port)
+ (process-file (current-input-port) output-port)
(begin
(call-with-input-file (car input)
(cut process-file <> output-port (basename (car input))))
@@ -219,7 +219,7 @@
(if output
(call-with-output-file output
process-all)
- (process-all *stdin*))
+ (process-all (current-input-port)))
(call-with-pipe-to `("/usr/bin/a2ps" "-Epretty.ssh"
"--stdin= "
,@(if output
|
|
From: <di...@us...> - 2002-09-18 21:10:29
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv32183/modules
Modified Files:
builtin.wid
Log Message:
Added the |read-char| and |write-char| dispatcher slots to record types.
Index: builtin.wid
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/builtin.wid,v
retrieving revision 1.179
retrieving revision 1.180
diff -u -d -r1.179 -r1.180
--- builtin.wid 18 Sep 2002 21:08:50 -0000 1.179
+++ builtin.wid 18 Sep 2002 21:09:55 -0000 1.180
@@ -1942,11 +1942,14 @@
* ~length~;
* ~new~;
- * ~ref~.
+ * ~read-char~;
+ * ~ref~;
+ * ~write-char~.
:Conforms to: Wisp extension.
- :See also: |length|, |new|, |ref|, |record-type-discriminator|.
+ :See also: |length|, |new|, |read-char|, |ref|, |write-char|,
+ |record-type-discriminator|.
make-string
|
|
From: <di...@us...> - 2002-09-18 21:10:08
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv32183/src
Modified Files:
essence.c wordlist.txt
Log Message:
Added the |read-char| and |write-char| dispatcher slots to record types.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.217
retrieving revision 1.218
diff -u -d -r1.217 -r1.218
--- essence.c 18 Sep 2002 21:08:51 -0000 1.217
+++ essence.c 18 Sep 2002 21:09:55 -0000 1.218
@@ -331,7 +331,9 @@
NN_pr_make_record_type,
NN_pr_record_type_length_slot,
NN_pr_record_type_new_slot,
+ NN_pr_record_type_read_char_slot,
NN_pr_record_type_ref_slot,
+ NN_pr_record_type_write_char_slot,
NN_printeger2string,
NN_prlshl,
NN_prlshr,
@@ -430,7 +432,7 @@
void*Y0[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 16,qi,W(cons_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
void*Y1[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 16,qi,W(instance_of_wrong_class),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r,t,Z,ds,V 2,r};
void*Y2[]={hop,V 5,mlt,jinnc,V 10,notc,p,s,V 1,t,T,s,V 0,j,V 6,t,F,s,V 1,s,V 0,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 4,p,s,V 3,p,s,V 2,mla,l,V 0,jif,V 69,mla,l,V 4,xri,Q,jinz,V 21,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 1,q,mha,l,V 1,l,V 85,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,r,mla,l,V 4,xri,Q,jinz,V 14,mla,l,V 2,q,mla,l,V 3,q,t,&dict_ref_2,tc,V 2,c,r,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 26,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,&NN_dict_ref_3,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
-void*Y3[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,t,&NN_pr_make_record_type,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,F,q,t,F,q,t,F,q,mla,l,V 1,xri,Q,jiz,V 202,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 3,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,mlt,s,V 5,mla,l,V 5,mlt,s,V 1,mla,l,V 3,q,dig,V 0,xri,W(ref),jinz,V 40,dig,V 3,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 3,j,V 106,dig,V 0,xri,W(length),jinz,V 40,dig,V 2,jif,V 16,qi,W(duplicate_length_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 2,j,V 60,dig,V 0,xri,W(new),jinz,V 40,dig,V 1,jif,V 16,qi,W(duplicate_new_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 1,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,j,V -209,dig,V 2,jif,V 13,dig,V 3,q,dig,V 3,q,t,&NN_pr_record_type_ref_slot,tc,V -2,c,j,V 0,dig,V 1,jif,V 13,dig,V 3,q,dig,V 2,q,t,&NN_pr_record_type_length_slot,tc,V -2,c,j,V 0,dig,V 0,jif,V 13,dig,V 3,q,dig,V 1,q,t,&NN_pr_record_type_new_slot,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,ds,V 1,ds,V 1,mla,l,V 2,r};
+void*Y3[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,t,&NN_pr_make_record_type,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,F,q,t,F,q,t,F,q,t,F,q,t,F,q,mla,l,V 1,xri,Q,jiz,V 294,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 3,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,mlt,s,V 5,mla,l,V 5,mlt,s,V 1,mla,l,V 3,q,dig,V 0,xri,W(ref),jinz,V 40,dig,V 5,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 5,j,V 198,dig,V 0,xri,W(length),jinz,V 40,dig,V 4,jif,V 16,qi,W(duplicate_length_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 4,j,V 152,dig,V 0,xri,W(new),jinz,V 40,dig,V 3,jif,V 16,qi,W(duplicate_new_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 3,j,V 106,dig,V 0,xri,W(read_char),jinz,V 40,dig,V 2,jif,V 16,qi,W(duplicate_read_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 2,j,V 60,dig,V 0,xri,W(write_char),jinz,V 40,dig,V 1,jif,V 16,qi,W(duplicate_write_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 1,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,j,V -301,dig,V 4,jif,V 13,dig,V 5,q,dig,V 5,q,t,&NN_pr_record_type_ref_slot,tc,V -2,c,j,V 0,dig,V 3,jif,V 13,dig,V 5,q,dig,V 4,q,t,&NN_pr_record_type_length_slot,tc,V -2,c,j,V 0,dig,V 2,jif,V 13,dig,V 5,q,dig,V 3,q,t,&NN_pr_record_type_new_slot,tc,V -2,c,j,V 0,dig,V 1,jif,V 13,dig,V 5,q,dig,V 2,q,t,&NN_pr_record_type_read_char_slot,tc,V -2,c,j,V 0,dig,V 0,jif,V 13,dig,V 5,q,dig,V 1,q,t,&NN_pr_record_type_write_char_slot,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,mla,l,V 2,r};
void*Y4[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 90,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 108,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 154,tc,V 1,c,ds,V 1,r};
void*Y5[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 155,tc,V 1,c,ds,V 1,r};
void*Y6[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 113,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 24,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 179,qi,W(define),mla,l,V 1,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),qi,W(DOTl),mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(apply),qi,W(hide),qi,W(DOTl),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,qi,W(syntax_error),qi,W(defmacro),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
@@ -770,7 +772,7 @@
void*Y344[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+4,tc,V 2,c,q,mha,l,V 2,l,V 3,l,V 5,q,li,rvec+15,tc,V 2,c,jif,V 93,mha,l,V 2,l,V 3,l,V 3,q,mha,l,V 2,l,V 3,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+4,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 2,c,q,mha,l,V 2,l,V 1,xors,jinz,V 20,mha,l,V 2,l,V 3,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+4,tc,V 2,c,r,mha,l,V 2,l,V 4,q,qi,I(1),li,rvec+4,tc,V 2,c,mat,mha,l,V 2,st,V 4,mha,l,V 3,l,V 1,tc,V 0,c,r,t,F,r};
void*Y345[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 344,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 1,tc,V 0,c,jinf,V 198,mha,l,V 2,l,V 3,l,V 2,jif,V 29,mha,l,V 2,l,V 4,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,t,Z,j,V 2,t,T,j,V 160,mla,l,V 0,q,qi,I(2),li,rvec+6,tc,V 2,c,mlt,s,V 0,mha,l,V 2,l,V 3,l,V 5,q,mha,l,V 2,l,V 3,l,V 4,q,li,rvec+5,tc,V 2,c,q,mla,l,V 0,q,qi,F,mha,l,V 2,l,V 3,l,V 11,tc,V 2,c,q,dig,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 29,mha,l,V 2,l,V 4,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,t,Z,j,V 2,t,T,j,V 56,dig,V 0,xri,F,jiz,V 13,dig,V 1,q,dig,V 1,q,li,rvec+17,tc,V 2,c,jif,V 25,mha,l,V 2,l,V 2,jif,V 14,mla,l,V 0,q,mha,l,V 2,l,V 5,tc,V 1,c,j,V 2,t,F,j,V 12,mla,l,V 0,q,mha,l,V 2,l,V 5,tc,V 1,c,ds,V 1,ds,V 1,r};
void*Y346[]={binc,&branch_EVM_invargc,hop,V 7,mca,subc,V 3,binzc,&branch_EVM_invargca,mlt,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 0,q,mlt,s,V 3,qi,&BCL1,li,rvec+11,tc,V 2,c,mha,l0,q,qi,W(portio_debugging),t,&NN_dict_ref_2,tc,V 2,c,q,li,rvec+10,tc,V 1,c,ct,l0,jif,V 102,mha,l0,q,qi,W(XstderrX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,B 341,mla,l,V 0,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 342,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 342,mla,l,V 2,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 343,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 7,c,q,mha,l0,q,qi,W(print),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,j,V 0,t,I(0),mlt,s,V 4,t,Q,mlt,s,V 5,t,B 345,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 5,mla,l,V 3,l,V 5,q,mla,l,V 3,l,V 4,q,li,rvec+5,tc,V 2,c,mlt,s,V 6,mla,l,V 6,q,qi,I(64),li,rvec+15,tc,V 2,c,jif,V 4,t,I(64),j,V 3,mla,l,V 6,q,mla,l,V 5,tc,V 1,c,r};
-void*Y347[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mlt,s,V 2,qi,&BCL1,li,rvec+11,tc,V 2,c,mla,l,V 0,q,mla,l,V 1,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 3,mla,l,V 3,q,mha,l,V 1,l,V 77,tc,V 1,c,jif,V 21,mla,l,V 2,l,V 4,q,qi,I(1),li,rvec+4,tc,V 2,c,mat,mla,l,V 2,st,V 4,j,V 0,mla,l,V 3,r};
+void*Y347[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,dig,V 0,q,qi,T,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 77,tc,V 1,c,jif,V 21,mla,l,V 0,l,V 4,q,qi,I(1),li,rvec+4,tc,V 2,c,mat,mla,l,V 0,st,V 4,j,V 0,mla,l,V 1,ds,V 1,r};
void*Y348[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mlt,s,V 2,qi,&BCL1,li,rvec+11,tc,V 2,c,qi,I(1),mla,l,V 1,q,mla,l,V 2,l,V 11,tc,V 2,c,mlt,s,V 3,mla,l,V 3,q,mha,l0,q,qi,W(number_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 7,mla,l,V 3,xri,T,jinz,V 21,mla,l,V 2,l,V 3,q,mla,l,V 2,l,V 4,q,mha,l,V 1,l,V 114,tc,V 2,c,r,mla,l,V 3,r};
void*Y349[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,dig,V 2,q,dig,V 2,q,dig,V 2,q,mha,l0,q,qi,W(port_peek_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 37,mla,l,V 0,l,V 4,q,mla,l,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+4,tc,V 2,c,mat,mla,l,V 0,st,V 4,j,V 0,mla,l,V 1,ds,V 3,r};
void*Y350[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,mlt,s,V 0,qi,&BCL1,li,rvec+11,tc,V 2,c,dig,V 1,q,dig,V 1,q,mla,l,V 0,l,V 11,tc,V 2,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(number_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 44,mla,l,V 0,l,V 3,q,mla,l,V 0,l,V 4,q,mla,l,V 0,l,V 4,q,mla,l,V 1,q,li,rvec+4,tc,V 2,c,q,mha,l0,q,qi,W(slice),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 3,r,mla,l,V 1,xri,T,jinz,V 43,mla,l,V 0,l,V 3,q,mla,l,V 0,l,V 4,q,mla,l,V 0,l,V 4,q,dig,V 4,q,li,rvec+4,tc,V 2,c,q,mha,l0,q,qi,W(slice),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 3,r,mla,l,V 1,ds,V 3,r};
@@ -792,250 +794,251 @@
void*Y366[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,mlt,s,V 0,qi,&BCL2,li,rvec+11,tc,V 2,c,dig,V 1,jif,V 4,dig,V 0,j,V 2,t,F,jif,V 32,mla,l,V 0,l,V 12,q,mha,l0,q,qi,W(sysCOLONclose),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,Q,mat,mla,l,V 0,st,V 12,t,Z,ds,V 3,r,t,Z,ds,V 3,r};
void*Y367[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL2,li,rvec+11,tc,V 2,c,mha,l0,q,qi,W(make_fdset),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,mlt,s,V 1,mla,l,V 1,q,mla,l,V 0,l,V 12,q,qi,T,mha,l0,q,qi,W(fdset_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 0,l,V 12,q,qi,I(1),li,rvec+4,tc,V 2,c,q,mla,l,V 1,q,qi,F,qi,F,qi,I(0),qi,I(0),mha,l0,q,qi,W(sysCOLONselect),t,&NN_dict_ref_2,tc,V 2,c,tc,V 6,c,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
void*Y368[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL2,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 12,ds,V 1,r};
-void*Y370[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,jinf,V 5,dig,V 0,ds,V 2,r,dig,V 1,q,mha,l0,q,qi,W(string_null_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 5,dig,V 0,ds,V 2,r,dig,V 1,q,qi,B 369,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 5,dig,V 0,ds,V 2,r,dig,V 1,q,qi,I(-1),mha,l,V 1,l,V 114,tc,V 2,c,xri,CH('/'),jinz,V 22,dig,V 1,q,dig,V 1,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r,dig,V 1,q,qi,CH('/'),dig,V 2,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 2,r};
-void*Y371[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(LTfileGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(make_instance),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,dig,V 1,q,mha,l0,q,qi,W(init_input_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mla,l,V 0,ds,V 1,r};
-void*Y372[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 4,jif,V 28,mha,l,V 2,l,V 4,q,dig,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,mat,mha,l,V 2,st,V 4,t,Z,ds,V 1,r,dig,V 0,mat,mha,l,V 2,st,V 4,t,Z,ds,V 1,r};
-void*Y373[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,t,F,mlt,s,V 0,mha,l,V 3,l,V 0,q,mha,l,V 2,l,V 2,q,qi,I(0),mha,l0,q,qi,W(sysCOLONopen),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,r};
-void*Y374[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 1,q,t,B 64,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 373,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y375[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 8,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,F,ds,V 2,r};
-void*Y376[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 8,q,mha,l0,q,qi,W(read_whole_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mha,l,V 3,l,V 8,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mla,l,V 0,r};
-void*Y377[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,t,F,ds,V 2,r};
-void*Y378[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 10,q,mha,l0,q,qi,W(frer2structure),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y379[]={binc,&branch_EVM_invargc,hop,V 11,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 425,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 1,mla,l,V 1,q,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(construct_filename),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 2,l,V 3,jinf,V 32,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,xri,F,jinz,V 4,t,T,j,V 2,t,F,q,mha,l,V 2,l,V 6,tc,V 2,c,mlt,s,V 2,mla,l,V 2,jif,V 309,mla,l,V 2,mlt,s,V 3,t,T,mlt,s,V 4,mla,l,V 3,q,mha,l0,q,qi,W(PCfd2port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,mha,l,V 2,l,V 5,jif,V 267,mla,l,V 1,q,mha,l,V 2,l,V 5,q,mha,l0,q,qi,W(construct_filename),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,T,mha,l,V 2,l,V 6,tc,V 2,c,mlt,s,V 6,mla,l,V 6,jif,V 223,mla,l,V 6,q,mha,l0,q,qi,W(PCfd2port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 7,mla,l,V 7,jif,V 196,mla,l,V 7,mlt,s,V 8,mla,l,V 8,q,mha,l0,q,qi,W(file_mtime),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 5,q,mha,l0,q,qi,W(file_mtime),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+15,tc,V 2,c,jif,V 19,mla,l,V 8,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 126,qi,T,t,B 375,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 376,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,mlt,s,V 9,mla,l,V 9,jif,V 80,mla,l,V 9,mlt,s,V 10,qi,T,t,B 377,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 378,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,q,dig,V 0,jif,V 29,dig,V 0,q,mla,l,V 5,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,dig,V 0,mlt,s,V 5,ds,V 1,j,V 0,ds,V 1,j,V 0,j,V 0,j,V 0,j,V 0,j,V 0,mla,l,V 5,r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 7,tc,V 1,c,r,t,F,r};
-void*Y380[]={binc,&branch_EVM_invargc,hop,V 8,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(open),qi,W(O_RDONLY),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,t,F,mlt,s,V 3,t,F,mlt,s,V 4,t,F,mlt,s,V 5,t,B 372,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,xri,Q,jiz,V 238,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,dig,V 0,xri,W(follow_not),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 156,dig,V 0,xri,W(signal_not),jinz,V 7,t,T,mlt,s,V 3,j,V 143,dig,V 0,xri,W(system_path),jinz,V 27,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,q,dig,V 3,tc,V 1,c,j,V 110,dig,V 0,xri,W(frer),jinz,V 45,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,j,V 59,dig,V 0,xri,F,jiz,V 53,dig,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 6,dig,V 1,xri,Q,jinz,V 10,dig,V 1,q,dig,V 3,tc,V 1,c,j,V 22,qi,W(unknown_open_input_file_flag),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -245,ds,V 1,mla,l,V 4,jif,V 22,mla,l,V 4,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 4,j,V 0,t,B 374,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 6,mla,l,V 4,xri,F,jiz,V 18,mla,l,V 0,q,qi,I(0),mha,l,V 1,l,V 114,tc,V 2,c,xri,CH('/'),jinz,V 7,t,BC 17,mlt,s,V 4,j,V 0,t,Q,mlt,s,V 7,t,B 379,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 7,mla,l,V 4,q,mla,l,V 7,tc,V 1,c,r};
-void*Y381[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(open),qi,W(O_CREAT),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,t,I(420),mlt,s,V 3,t,F,mlt,s,V 4,mla,l,V 1,xri,Q,jiz,V 508,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,mha,l0,q,qi,W(integer_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 53,t,I(0),q,dig,V 1,q,t,I(4095),q,dig,V 1,q,dig,V 3,q,li,rvec+15,tc,V 2,c,jinf,V 21,dig,V 0,q,dig,V 2,q,li,rvec+15,tc,V 2,c,jinf,V 4,t,T,j,V 2,t,F,j,V 2,t,F,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,jif,V 7,dig,V 0,mlt,s,V 3,j,V 395,dig,V 0,q,dig,V 0,xri,W(create_not),jinz,V 54,mla,l,V 2,q,qi,W(open),qi,W(O_CREAT),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 330,dig,V 0,xri,W(exclusive),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_EXCL),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 284,dig,V 0,xri,W(truncate_not),jinz,V 54,mla,l,V 2,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 224,dig,V 0,xri,W(append),jinz,V 92,mla,l,V 2,q,qi,W(open),qi,W(O_APPEND),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,mla,l,V 2,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 126,dig,V 0,xri,W(sync),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_SYNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 80,dig,V 0,xri,W(follow_not),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 34,dig,V 0,xri,W(readable),jinz,V 7,t,T,mlt,s,V 4,j,V 21,dig,V 0,xri,F,jiz,V 15,qi,W(unknown_open_output_file_flag),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -515,mha,l0,q,qi,W(LTfileGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(make_instance),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,mla,l,V 5,q,mla,l,V 4,q,mla,l,V 0,q,qi,W(open),mla,l,V 4,jif,V 4,t,W(O_RDWR),j,V 2,t,W(O_WRONLY),q,mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 2,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 3,q,mha,l0,q,qi,W(sysCOLONopen),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(init_output_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mla,l,V 5,r};
-void*Y382[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 18,mac,mca,subc,V 1,jizc,V 23,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 31,mac,p,s,V 1,p,s,V 0,j,V 18,j,V 20,mac,p,s,V 0,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,t,T,s,V 2,mla,l,V 1,q,mla,l,V 0,q,mla,l,V 2,q,mha,l0,q,qi,W(port_read_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,r};
-void*Y383[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 18,mac,mca,subc,V 1,jizc,V 23,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 31,mac,p,s,V 1,p,s,V 0,j,V 18,j,V 20,mac,p,s,V 0,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,t,T,s,V 2,mla,l,V 1,q,mla,l,V 0,q,mla,l,V 2,q,mha,l0,q,qi,W(port_peek_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,r};
-void*Y384[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 14,mla,l,V 0,q,mha,l,V 2,l,V 1,tc,V 1,c,j,V 2,t,F,jif,V 83,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,mha,l,V 2,l,V 2,q,qi,I(1),li,rvec+5,tc,V 2,c,mat,mha,l,V 2,st,V 2,mha,l,V 2,l,V 2,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 9,mha,l,V 3,l,V 1,tc,V 0,c,r,t,Z,r,t,Z,r};
-void*Y385[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 384,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 1,tc,V 0,c,r};
-void*Y386[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,I(0),s,V 2,t,B 385,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(collect_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y387[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 16,mac,p,s,V 0,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,mla,l,V 1,q,mla,l,V 0,q,mha,l0,q,qi,W(port_write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y388[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mac,mca,subc,V 2,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 0,jizc,V 6,mac,p,s,V 0,j,V 13,mac,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(port_ready_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y389[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 3,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,qi,W(my),mla,l,V 1,q,mla,l,V 2,q,qi,W(try),qi,W(begin),mla,l,V 3,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(finally),qi,W(if),qi,W(port_huh),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(close_port),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y390[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,q,mha,l0,q,qi,W(port_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 20,mha,l,V 2,l,V 3,q,mha,l0,q,qi,W(close_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,t,Z,r};
-void*Y391[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 4,tc,V 0,c,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r};
-void*Y392[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,q,dig,V 0,jif,V 13,dig,V 0,q,mha,l,V 2,l,V 2,tc,V 1,c,j,V 2,t,F,ds,V 1,mlt,s,V 0,mha,l,V 2,l,V 4,tc,V 0,c,mla,l,V 0,r};
-void*Y393[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,p,s,V 2,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mha,l0,q,qi,W(open_input_file),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,mlt,s,V 3,t,B 390,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,qi,T,t,B 391,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 392,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y394[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,p,s,V 2,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mha,l0,q,qi,W(open_output_file),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,mlt,s,V 3,t,B 390,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,qi,T,t,B 391,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 392,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y395[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 0,q,mha,l0,q,qi,W(port_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 20,mha,l,V 3,l,V 0,q,mha,l0,q,qi,W(close_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,t,Z,r};
-void*Y396[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 1,tc,V 0,c,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r};
-void*Y397[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 0,jif,V 22,mha,l,V 2,l,V 3,q,mha,l,V 3,l,V 0,q,mha,l,V 2,l,V 2,tc,V 2,c,j,V 2,t,Z,mlt,s,V 0,mha,l,V 3,l,V 1,tc,V 0,c,mla,l,V 0,r};
-void*Y398[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 0,binzc,&branch_EVM_invargca,mlt,mha,l,V 2,l,V 3,jif,V 81,mha,l0,q,qi,W(open_output_file),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 2,l,V 1,q,mha,l,V 1,l,V 11,tc,V 2,c,mlt,s,V 0,t,B 395,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,qi,T,t,B 396,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 397,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,j,V 2,t,Z,mlt,s,V 2,mha,l,V 2,l,V 4,tc,V 0,c,mla,l,V 2,r};
-void*Y399[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binzc,&branch_EVM_invargca,mlt,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 17,mla,l,V 0,q,mha,l,V 1,l,V 97,tc,V 1,c,mlt,s,V 0,j,V 0,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 17,mla,l,V 1,q,mha,l,V 1,l,V 97,tc,V 1,c,mlt,s,V 1,j,V 0,mha,l0,q,qi,W(open_input_file),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mha,l,V 1,l,V 11,tc,V 2,c,mlt,s,V 3,t,B 390,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,qi,T,t,B 391,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 398,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y400[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,mlt,s,V 0,mla,l,V 0,jif,V 19,mla,l,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 2,t,F,jinf,V 88,mha,l,V 2,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 49,mla,l,V 1,q,mha,l,V 2,l,V 0,tc,V 1,c,mha,l,V 2,l,V 3,jif,V 21,mha,l,V 2,l,V 3,q,qi,I(1),li,rvec+5,tc,V 2,c,mat,mha,l,V 2,st,V 3,j,V 0,mha,l,V 2,l,V 4,tc,V 0,c,r,t,Z,r,t,Z,r};
-void*Y401[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 5,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 3,jizc,V 21,mac,mca,subc,V 2,jizc,V 29,mac,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,j,V 37,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 21,j,V 23,mac,p,s,V 1,p,s,V 0,mha,l0,q,qi,W(read),t,&NN_dict_ref_2,tc,V 2,c,s,V 2,t,F,s,V 3,t,Q,mlt,s,V 4,t,B 400,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,mla,l,V 4,tc,V 0,c,t,Z,r};
-void*Y402[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,t,F,mlt,s,V 0,qi,I(16384),dig,V 1,q,mha,l0,q,qi,W(read_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r};
-void*Y403[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,F,mlt,s,V 1,mla,l,V 0,q,mha,l,V 2,l,V 0,q,t,B 402,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(read_allEQGT),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,r};
-void*Y404[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,q,t,B 403,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 156,tc,V 1,c,q,mha,l,V 1,l,V 11,tc,V 2,c,r};
-void*Y405[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 16,mac,p,s,V 0,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,mla,l,V 0,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 1,q,mha,l0,q,qi,W(write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y406[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 16,mac,p,s,V 0,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l0,q,qi,W(write),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mla,l,V 1,q,mha,l0,q,qi,W(newline),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y407[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 16,mac,p,s,V 0,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,mla,l,V 0,q,mha,l,V 1,l,V 117,tc,V 1,c,q,mla,l,V 1,q,mha,l0,q,qi,W(write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y408[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mac,mca,subc,V 2,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 0,jizc,V 6,mac,p,s,V 0,j,V 13,mac,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 0,qi,CH(10),mla,l,V 0,q,mha,l0,q,qi,W(write_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,t,Z,r};
-void*Y409[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 0,p,s,V 1,j,V 16,mac,p,s,V 0,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,mla,l,V 0,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 1,q,mha,l0,q,qi,W(write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,t,Z,r};
-void*Y410[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 35,dig,V 1,q,dig,V 1,jif,V 12,mha,l0,q,qi,W(sysCOLONstat),t,&NN_dict_ref_2,tc,V 2,c,j,V 10,mha,l0,q,qi,W(sysCOLONlstat),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 2,r,dig,V 1,q,mha,l0,q,qi,W(file_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 33,dig,V 1,q,mha,l0,q,qi,W(file_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(sysCOLONfstat),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 2,r,qi,W(file_huh),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r};
-void*Y411[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mha,l,V 1,l,V 78,q,qi,BC 44,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 169,tc,V 2,c,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 2,qi,W(st_mode),mla,l,V 2,q,mha,l0,q,qi,W(assq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,mla,l,V 3,q,qi,I(4096),mha,l,V 1,l,V 107,tc,V 2,c,mlt,s,V 4,mla,l,V 3,q,qi,I(4096),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 5,qi,W(type),mla,l,V 5,q,mha,l0,q,qi,W(file_types),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(assv),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,dig,V 0,jif,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,j,V 2,t,F,ds,V 1,jinf,V 2,t,F,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(mode),mla,l,V 4,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y412[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 169,tc,V 2,c,q,mha,l0,q,qi,W(third),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,I(4096),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(file_types),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(assv),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,mla,l,V 2,jif,V 13,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r,t,F,r};
-void*Y413[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 169,tc,V 2,c,q,qi,I(12),mha,l0,q,qi,W(list_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y414[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 169,tc,V 2,c,q,qi,I(11),mha,l0,q,qi,W(list_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y415[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,T,s,V 2,mla,l,V 1,q,qi,W(open),qi,W(O_RDONLY),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(open),qi,W(O_DIRECTORY),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 2,jif,V 4,t,I(0),j,V 17,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,I(0),mha,l0,q,qi,W(sysCOLONopen),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 3,mla,l,V 0,q,mla,l,V 3,q,mha,l0,q,qi,W(sysCOLONfor_dir_entries),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mla,l,V 3,q,mha,l0,q,qi,W(sysCOLONclose),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,Z,r};
-void*Y416[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,t,Q,mlt,s,V 0,dig,V 1,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 14,dig,V 0,xri,Q,jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 391,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 68,dig,V 2,q,mha,l0,q,qi,W(odd_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 28,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 0,q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 0,j,V 0,dig,V 2,q,qi,I(2),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,bury,V 2,j,V 282,dig,V 0,jinf,V 22,dig,V 2,q,qi,I(2),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,bury,V 2,j,V 256,dig,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 230,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 1,p,l,V 1,mlt,s,V 2,t,I(1),q,mla,l,V 1,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 28,dig,V 0,q,qi,I(2),li,rvec+6,tc,V 2,c,bury,V 0,mla,l,V 1,q,qi,I(1),li,rvec+5,tc,V 2,c,mlt,s,V 1,j,V -47,dig,V 3,q,dig,V 1,q,mha,l,V 1,l,V 107,tc,V 2,c,q,dig,V 4,q,dig,V 2,q,mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,bury,V 4,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 15,mla,l,V 2,xri,Q,jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 29,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,bury,V 0,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 2,j,V -66,mla,l,V 2,xri,Q,jiz,V 45,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,jif,V 25,dig,V 0,q,dig,V 0,q,mla,l,V 0,q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 0,ds,V 1,j,V 0,ds,V 1,j,V 0,ds,V 1,ds,V 1,j,V 13,qi,W(flag_specifier_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -427,mla,l,V 0,ds,V 2,r};
-void*Y417[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(file_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 165,tc,V 1,c,ds,V 1,r};
-void*Y418[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,mha,l0,q,qi,W(file_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 2,q,dig,V 2,q,mha,l,V 1,l,V 166,tc,V 3,c,ds,V 3,r};
-void*Y419[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 9,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 114,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
-void*Y420[]={binc,&branch_EVM_invargc,hop,V 10,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(tcgetattr_raw),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,mla,l,V 2,xri,Q,jiz,V 472,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 3,t,T,mlt,s,V 4,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,mla,l,V 5,xri,W(iflag),jinz,V 48,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,BC 58,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 367,mla,l,V 5,xri,W(oflag),jinz,V 48,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,BC 94,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 312,mla,l,V 5,xri,W(cflag),jinz,V 164,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 6,mla,l,V 6,q,qi,I(16),mha,l,V 1,l,V 107,tc,V 2,c,mlt,s,V 7,mla,l,V 6,q,qi,I(16),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,BC 107,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 8,qi,W(CBAUDEX),mla,l,V 8,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 16,mla,l,V 7,q,qi,I(16),li,rvec+4,tc,V 2,c,mlt,s,V 7,j,V 0,mla,l,V 7,q,qi,BC 141,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 8,q,mha,l0,q,qi,W(append_reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 141,mla,l,V 5,xri,W(lflag),jinz,V 48,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,BC 157,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 86,mla,l,V 5,xri,W(cc),jinz,V 79,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 9,mla,l,V 3,q,t,B 419,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,qi,W(termios),qi,W(cc),mha,l0,q,qi,W(system_constant_internal),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 0,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 2,j,V -479,mla,l,V 1,r};
-void*Y421[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jiz,V 6253,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 0,p,l,V 1,mlt,s,V 1,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,W(now),jiz,V 14,mla,l,V 2,xri,W(drain),jiz,V 7,mla,l,V 2,xri,W(flush),jinz,V 86,mha,l,V 2,l,V 8,jif,V 20,mla,l,V 0,q,mha,l,V 2,l,V 8,xors,jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 31,qi,W(conflict),mha,l,V 2,l,V 8,q,mla,l,V 0,q,mha,l,V 1,l,V 97,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,mla,l,V 0,mat,mha,l,V 2,st,V 8,mla,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IGNBRK),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(0),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(BRKINT),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(1),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IGNPAR),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(2),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(PARMRK),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(3),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(INPCK),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(4),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ISTRIP),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(5),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(INLCR),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(6),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IGNCR),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(7),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ICRNL),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(8),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IUCLC),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IXON),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IXANY),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(11),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IXOFF),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(12),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IMAXBEL),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(13),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OPOST),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(0),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OLCUC),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(1),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ONLCR),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(2),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OCRNL),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(3),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ONOCR),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(4),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ONLRET),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(5),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OFILL),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(6),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OFDEL),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(7),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(NL0),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(8),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(NL1),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(8),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CR0),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CR1),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CR2),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CR3),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(TAB0),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(11),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(12),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(TAB1),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(11),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(12),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(TAB2),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(11),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(12),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(TAB3),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(11),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(12),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(BS0),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(13),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(BS1),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(13),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(VT0),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(14),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(VT1),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(14),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(FF0),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(15),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(FF1),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(15),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CS5),jinz,V 109,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(4),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(5),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CS6),jinz,V 109,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(4),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(5),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CS7),jinz,V 109,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(4),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(5),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CS8),jinz,V 109,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(4),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(5),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CSTOPB),jinz,V 86,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(6),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(CREAD),jinz,V 86,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(7),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(PARENB),jinz,V 86,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(8),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(PARODD),jinz,V 86,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(HUPCL),jinz,V 86,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(CLOCAL),jinz,V 86,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(11),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ISIG),jinz,V 86,mha,l,V 2,l,V 6,q,mha,l,V 2,l,V 6,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(0),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ICANON),jinz,V 86,mha,l,V 2,l,V 6,q,mha,l,V 2,l,V 6,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(1),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(XCASE),jinz,V 86,mha,l,V 2,l,V 6,q,mha,l,V 2,l,V 6,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(2),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ECHO),jinz,V 86,mha,l,V 2,l,V 6,q,mha,l,V 2,l,V 6,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(3),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ECHOE),jinz,V 86,mha,l,V 2,l,V 6,q,mha,l,V 2,l,V ...
[truncated message content] |
|
From: <di...@us...> - 2002-09-18 21:10:05
|
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv32183/src/native
Modified Files:
boxes.s boxes.wth misc.s misc.wth records.nasm wstrings.s
wstrings.wth
Log Message:
Added the |read-char| and |write-char| dispatcher slots to record types.
Index: boxes.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.s,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- boxes.s 18 Sep 2002 21:09:00 -0000 1.10
+++ boxes.s 18 Sep 2002 21:10:03 -0000 1.11
@@ -69,4 +69,5 @@
.long NN_box_ref
.byte 19,0,0,0
.long NN_make_box
+.byte 19,0,0,0,19,0,0,0
.global RT_box
Index: boxes.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.wth,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- boxes.wth 18 Sep 2002 21:09:00 -0000 1.6
+++ boxes.wth 18 Sep 2002 21:10:03 -0000 1.7
@@ -14,7 +14,9 @@
(tetra NN_box_huh)
(tetra NN_box_ref)
(tetra 19) ; FALSE
- (tetra NN_make_box))
+ (tetra NN_make_box)
+ (tetra 19) ; FALSE
+ (tetra 19)) ; FALSE
(extern RT_box)
(extern WB_undefined)
Index: misc.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- misc.s 18 Sep 2002 21:09:00 -0000 1.7
+++ misc.s 18 Sep 2002 21:10:03 -0000 1.8
@@ -123,6 +123,24 @@
.equiv NN_record_type_length, N_record_type_length + 1
.section .text
.align 16
+N_pr_record_type_write_char_slot:
+.byte 144,187,7,0,0,0,186
+.long RT_record_type
+.byte 233
+.long slot_accessor_body - (.+4)
+.global N_pr_record_type_write_char_slot,NN_pr_record_type_write_char_slot
+.equiv NN_pr_record_type_write_char_slot, N_pr_record_type_write_char_slot + 1
+.section .text
+.align 16
+N_pr_record_type_read_char_slot:
+.byte 144,187,6,0,0,0,186
+.long RT_record_type
+.byte 233
+.long slot_accessor_body - (.+4)
+.global N_pr_record_type_read_char_slot,NN_pr_record_type_read_char_slot
+.equiv NN_pr_record_type_read_char_slot, N_pr_record_type_read_char_slot + 1
+.section .text
+.align 16
N_pr_record_type_new_slot:
.byte 144,187,5,0,0,0,186
.long RT_record_type
@@ -168,11 +186,11 @@
.align 16
RT_record_type:
.long RT_record_type
-.byte 5,0,0,0
+.byte 7,0,0,0
.long NN_record_type_huh
.byte 19,0,0,0
.long NN_record_type_length
-.byte 19,0,0,0
+.byte 19,0,0,0,19,0,0,0,19,0,0,0
.global RT_record_type
.section .text
.align 16
Index: misc.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- misc.wth 18 Sep 2002 21:09:00 -0000 1.7
+++ misc.wth 18 Sep 2002 21:10:03 -0000 1.8
@@ -33,11 +33,13 @@
(assemble RT_record_type
(tetra RT_record_type) ; type pointer
- (tetra 5) ; slot count
+ (tetra 7) ; slot count
(tetra NN_record_type_huh) ; discriminator
(tetra 19) ; FALSE ; |ref|
(tetra NN_record_type_length) ; |length|
- (tetra 19)) ; FALSE ; |new|
+ (tetra 19) ; FALSE ; |new|
+ (tetra 19) ; FALSE ; |read-char|
+ (tetra 19)) ; FALSE ; |write-char|
(native record_type_huh
'RT_record_type go-discriminate)
@@ -57,6 +59,12 @@
(native pr_record_type_new_slot
'RT_record_type 5 go-access-slot)
+
+(native pr_record_type_read_char_slot
+ 'RT_record_type 6 go-access-slot)
+
+(native pr_record_type_write_char_slot
+ 'RT_record_type 7 go-access-slot)
(native record_type_length dup 1 = argc drop
dup get-type 'RT_record_type = if
Index: records.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/records.nasm,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- records.nasm 18 Sep 2002 21:09:00 -0000 1.34
+++ records.nasm 18 Sep 2002 21:10:03 -0000 1.35
@@ -28,7 +28,7 @@
mov [esp], eax
mov edx, RT_record_type
; we don't have a discriminator yet
- gcall record_constructor_body, eax, FALSE, FALSE, FALSE, FALSE
+ gcall record_constructor_body, eax, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
push eax
; stack: (slot-count record-type)
valloc 6
Index: wstrings.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/wstrings.s,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- wstrings.s 18 Sep 2002 21:09:00 -0000 1.5
+++ wstrings.s 18 Sep 2002 21:10:03 -0000 1.6
@@ -35,4 +35,5 @@
.long NN_c16string_ref
.byte 19,0,0,0
.long NN_make_c16string
+.byte 19,0,0,0,19,0,0,0
.global RT_c16string
Index: wstrings.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/wstrings.wth,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- wstrings.wth 18 Sep 2002 21:09:00 -0000 1.5
+++ wstrings.wth 18 Sep 2002 21:10:03 -0000 1.6
@@ -14,7 +14,9 @@
(tetra NN_c16string_huh)
(tetra NN_c16string_ref)
(tetra 19) ; FALSE
- (tetra NN_make_c16string)) ; FALSE
+ (tetra NN_make_c16string) ; FALSE
+ (tetra 19) ; FALSE
+ (tetra 19)) ; FALSE
(extern RT_c16string)
(extern WB_range)
|
