nendo 0.7.1 → 0.7.2

Sign up to get free protection for your applications and to get access to all the features.
checksums.yaml CHANGED
@@ -1,7 +1,7 @@
1
1
  ---
2
2
  SHA1:
3
- metadata.gz: 85ee46471846eb23ddeca7012fc2768eabd23e0c
4
- data.tar.gz: 0fa10c15832834b39eeb35383d0343e9a2ed49f4
3
+ metadata.gz: 8cbb2eada06418863823e8c2ae3db258825b4183
4
+ data.tar.gz: 86328c251db547fe6a1dc735e6db95f87ab9a03f
5
5
  SHA512:
6
- metadata.gz: ad814261c1fae1b70a1432b218bfd3f45f6cfea42f9a744b1c9b5a5bea02072efe993b9df57910ab75afefc1a6b7706c401640b6ea839cc7b8edde70f039bcf5
7
- data.tar.gz: 426b157f011f923e3378f7cb4ca82aed1d0147b3111d39630d7a197fad0b0245a1d62ae5aa2d70fa2f4b18108e0a492089e168f4c0b8a705e96d67c57ffa4871
6
+ metadata.gz: e102ca19b2335e6224bf618f5e6475bdadf3aca5e5ee448c5311efb5d4a6fbab950e0773ebd0cf6ab828ad5d18d5b7a20586220890e0cafd1d833a8d52bb7fab
7
+ data.tar.gz: cfdc2baf69d9599662a89ed062239255d532aca787442baec2add54c36f08d12df782d0a8908043beac9a00b62d2ee94d9b12c469107de5fa9d39bfa77216605
data/Rakefile CHANGED
@@ -33,6 +33,7 @@ task :test2 do
33
33
  sh "ruby -I ./lib ./bin/nendo ./spec/nendo-util-test.nnd >> test.log"
34
34
  sh "ruby -I ./lib ./bin/nendo ./spec/json-test.nnd >> test.log"
35
35
  sh "ruby -I ./lib ./bin/nendo ./spec/srfi-2-test.nnd >> test.log"
36
+ sh "ruby -I ./lib ./bin/nendo ./spec/srfi-9-test.nnd >> test.log"
36
37
  sh "ruby -I ./lib ./bin/nendo ./spec/srfi-26-test.nnd >> test.log"
37
38
  sh "ruby -I ./lib ./bin/nendo ./spec/util-list-test.nnd >> test.log"
38
39
  sh "cat test.record"
@@ -85,6 +86,7 @@ task :compile do
85
86
  files << "./lib/nendo/init.nnd"
86
87
  files << "./lib/nendo/srfi-1.nnd"
87
88
  files << "./lib/nendo/srfi-2.nnd"
89
+ files << "./lib/nendo/srfi-9.nnd"
88
90
  files << "./lib/nendo/srfi-26.nnd"
89
91
  files << "./lib/nendo/util/list.nnd"
90
92
  files << "./lib/nendo/text/html-lite.nnd"
@@ -94,6 +96,7 @@ task :compile do
94
96
  files << "./lib/nendo/nendo/test.nnd"
95
97
  files << "./lib/nendo/rfc/json.nnd"
96
98
  files << "./lib/nendo/util/match.nnd"
99
+ files << "./lib/nendo/util/record.nnd"
97
100
  files << "./lib/nendo/util/combinations.nnd"
98
101
  files << "./lib/nendo/nendo/experimental.nnd"
99
102
  files.each {|fn|
@@ -120,3 +123,7 @@ end
120
123
  task :repl do
121
124
  sh "ruby -I ./lib -I ./lib/nendo ./bin/nendo"
122
125
  end
126
+
127
+ task :hello do
128
+ sh "ruby -I ./lib -I ./lib/nendo ./bin/nendo -I ../nendo/example1 -I ../nendo/example2 example/hello.nnd"
129
+ end
data/VERSION.yml CHANGED
@@ -1,4 +1,4 @@
1
1
  ---
2
2
  :major: 0
3
3
  :minor: 7
4
- :patch: 1
4
+ :patch: 2
data/bin/nendo CHANGED
@@ -56,6 +56,10 @@ def userOptionEater
56
56
  i += 2
57
57
  when '-O'
58
58
  i += 2
59
+ when '-I'
60
+ i += 2
61
+ when /^[-]/ # unknown option
62
+ i += 1
59
63
  when /^[^-]/
60
64
  break
61
65
  else
@@ -69,25 +73,8 @@ def userOptionEater
69
73
  return userOptions
70
74
  end
71
75
 
72
- def main
73
- loadInit = true
74
- compile = false
75
- conflict = 0
76
- core = Nendo::Core.new()
77
-
78
- userOptions = userOptionEater
79
- opts = GetoptLong.new(
80
- [ '-h', GetoptLong::NO_ARGUMENT ],
81
- [ '-q', GetoptLong::NO_ARGUMENT ],
82
- [ '-c', GetoptLong::NO_ARGUMENT ],
83
- [ '-V', GetoptLong::NO_ARGUMENT ],
84
- [ '-d', GetoptLong::NO_ARGUMENT ],
85
- [ '-l', GetoptLong::REQUIRED_ARGUMENT ],
86
- [ '-O', GetoptLong::REQUIRED_ARGUMENT ]
87
- ).each { |opt, arg|
88
- case opt
89
- when '-h'
90
- puts <<-EOF
76
+ def displayHelp()
77
+ puts <<-EOF
91
78
 
92
79
  nendo [OPTION] [script-file]
93
80
 
@@ -100,6 +87,9 @@ def main
100
87
  -V:
101
88
  show version
102
89
 
90
+ -I:
91
+ append path to *load-path* variable.
92
+
103
93
  -l file:
104
94
  load nendo script files. ( can specify n times like -l a.nnd -l b.nnd )
105
95
 
@@ -112,27 +102,58 @@ def main
112
102
  -d:
113
103
  disable runtime check.
114
104
 
115
- EOF
116
- exit 0
117
- when '-V'
118
- printf( "Nendo %s\n", Nendo::Core.version )
119
- exit( 1 )
120
- when '-q'
121
- loadInit = false
122
- conflict += 1
123
- when '-c'
124
- loadInit = true
125
- compile = true
126
- conflict += 1
127
- when '-l'
128
- core.load( arg )
129
- STDERR.printf( "loaded file [%s]\n", arg )
130
- when '-O'
131
- core.setOptimizeLevel( arg.to_i )
132
- when '-d'
133
- core.disableRuntimeCheck( )
134
- end
105
+ EOF
106
+ end
107
+
108
+ def main
109
+ loadInit = true
110
+ compile = false
111
+ conflict = 0
112
+ core = Nendo::Core.new()
113
+ path_to_append = []
114
+
115
+ userOptions = userOptionEater
116
+ opts = nil
117
+ begin
118
+ opts = GetoptLong.new(
119
+ [ '-h', GetoptLong::NO_ARGUMENT ],
120
+ [ '-q', GetoptLong::NO_ARGUMENT ],
121
+ [ '-c', GetoptLong::NO_ARGUMENT ],
122
+ [ '-V', GetoptLong::NO_ARGUMENT ],
123
+ [ '-d', GetoptLong::NO_ARGUMENT ],
124
+ [ '-l', GetoptLong::REQUIRED_ARGUMENT ],
125
+ [ '-O', GetoptLong::REQUIRED_ARGUMENT ],
126
+ [ '-I', GetoptLong::REQUIRED_ARGUMENT ]
127
+ ).each { |opt, arg|
128
+ case opt
129
+ when '-h'
130
+ displayHelp()
131
+ exit 0
132
+ when '-V'
133
+ printf( "Nendo %s\n", Nendo::Core.version )
134
+ exit( 1 )
135
+ when '-q'
136
+ loadInit = false
137
+ conflict += 1
138
+ when '-c'
139
+ loadInit = true
140
+ compile = true
141
+ conflict += 1
142
+ when '-l'
143
+ core.load( arg )
144
+ STDERR.printf( "loaded file [%s]\n", arg )
145
+ when '-O'
146
+ core.setOptimizeLevel( arg.to_i )
147
+ when '-d'
148
+ core.disableRuntimeCheck( )
149
+ when '-I'
150
+ path_to_append << File.expand_path( arg )
151
+ end
135
152
  }
153
+ rescue GetoptLong::InvalidOption
154
+ displayHelp()
155
+ exit 0
156
+ end
136
157
 
137
158
  if 2 <= conflict
138
159
  STDERR.puts( "Error: Can't specify both -q and -c ...\n" )
@@ -152,6 +173,9 @@ def main
152
173
  else
153
174
  # start script file.
154
175
  core.setArgv( userOptions[1..userOptions.length] )
176
+ path_to_append.each {|path|
177
+ core.evalStr( sprintf( '(push! *load-path* "%s")', path ))
178
+ }
155
179
  core.load( fn )
156
180
  core.evalStr( "(if (and (global-defined? 'main) (procedure? main)) (main *argv*) #f)" )
157
181
  end
@@ -517,6 +517,14 @@ module Nendo
517
517
  v[index] = value
518
518
  end
519
519
 
520
+ def _make_MIMARKrecord_MIMARKtype( name, field_names )
521
+ if (name.is_a? String or _symbol_QUMARK( name )) and __PAMARKlist_QUMARK( field_names )
522
+ name = name.to_s if _symbol_QUMARK( name )
523
+ record = Nendo::Record.new( name, field_names.to_arr )
524
+ return record
525
+ else
526
+ raise TypeError, "Error: make-record-type requires name(string or symbol) and field(list).\n"
527
+ end
528
+ end
520
529
  end
521
-
522
530
  end
@@ -42,7 +42,7 @@ module Nendo
42
42
  end
43
43
 
44
44
  def self.version
45
- "0.7.1" ##NENDO-VERSION
45
+ "0.7.2" ##NENDO-VERSION
46
46
  end
47
47
 
48
48
  attr_reader :evaluator
@@ -695,7 +695,7 @@ module Nendo
695
695
  ["begin",
696
696
  [sprintf( "if @global_lisp_binding.has_key?('%s') then", variable_sym ),
697
697
  expression,
698
- sprintf( 'else raise NameError.new( "Error: undefined variable %s", "%s" ) end', variable_sym, variable_sym ),
698
+ sprintf( 'else raise NameError.new( "Error: undefined variable %s", "%s" ) end', toLispSymbol( variable_sym ), toLispSymbol( variable_sym )),
699
699
  sprintf( 'rescue => __e ; __e.set_backtrace( ["%s:%d"] + __e.backtrace ) ; raise __e', sourcefile, lineno )],
700
700
  "end"]
701
701
  else
@@ -337,4 +337,31 @@ module Nendo
337
337
  attr_accessor :kind, :str, :sourcefile, :lineno, :column
338
338
  end
339
339
 
340
+ class Record
341
+ attr_reader :typename, :slots
342
+
343
+ def initialize( typename, fields )
344
+ @slots = Hash.new
345
+ @typename = typename
346
+ fields.each { |key|
347
+ @slots[key] = false
348
+ }
349
+ end
350
+
351
+ def set!( key, value )
352
+ if @slots.has_key?( key )
353
+ @slots[key] = value
354
+ else
355
+ raise ArgumentError, sprintf( "Record <%s> doesn't have key[%s]", typename, key )
356
+ end
357
+ end
358
+
359
+ def get( key )
360
+ if @slots.has_key?( key )
361
+ @slots[key]
362
+ else
363
+ raise ArgumentError, sprintf( "Record <%s> doesn't have key[%s]", typename, key )
364
+ end
365
+ end
366
+ end
340
367
  end
@@ -0,0 +1,60 @@
1
+ ;;; -*- mode: nendo; syntax: scheme -*-
2
+ ;;;
3
+ ;;; record.nnd - util.record for Nendo
4
+ ;;;
5
+ ;;; Copyright (c) 2014-2014 Kiyoka Nishiyama <kiyoka@sumibi.org>
6
+ ;;;
7
+ ;;; Redistribution and use in source and binary forms, with or without
8
+ ;;; modification, are permitted provided that the following conditions
9
+ ;;; are met:
10
+ ;;;
11
+ ;;; 1. Redistributions of source code must retain the above copyright
12
+ ;;; notice, this list of conditions and the following disclaimer.
13
+ ;;;
14
+ ;;; 2. Redistributions in binary form must reproduce the above copyright
15
+ ;;; notice, this list of conditions and the following disclaimer in the
16
+ ;;; documentation and/or other materials provided with the distribution.
17
+ ;;;
18
+ ;;; 3. Neither the name of the authors nor the names of its contributors
19
+ ;;; may be used to endorse or promote products derived from this
20
+ ;;; software without specific prior written permission.
21
+ ;;;
22
+ ;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
23
+ ;;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
24
+ ;;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
25
+ ;;; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
26
+ ;;; OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
27
+ ;;; SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
28
+ ;;; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
29
+ ;;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
30
+ ;;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
31
+ ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
32
+ ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
33
+ ;;;
34
+
35
+ (use util.record)
36
+
37
+ (define-syntax define-record-type
38
+ (syntax-rules ()
39
+ ((define-record-type type
40
+ (constructor constructor-tag ...)
41
+ predicate
42
+ (field-tag accessor . more) ...)
43
+ (begin
44
+ (define type
45
+ (make-record-type 'type '(field-tag ...)))
46
+ (define constructor
47
+ (record-constructor type '(constructor-tag ...)))
48
+ (define predicate
49
+ (record-predicate type))
50
+ (define-record-field type field-tag accessor . more)
51
+ ...))))
52
+
53
+ (define-syntax define-record-field
54
+ (syntax-rules ()
55
+ ((define-record-field type field-tag accessor)
56
+ (define accessor (record-accessor type 'field-tag)))
57
+ ((define-record-field type field-tag accessor modifier)
58
+ (begin
59
+ (define accessor (record-accessor type 'field-tag))
60
+ (define modifier (record-modifier type 'field-tag))))))
@@ -0,0 +1,1054 @@
1
+ #
2
+ # This file is nendo's compiled library file.
3
+ # generated "nendo -c src" command.
4
+ #
5
+
6
+ trampCall(
7
+ delayCall( '_load', 'load',
8
+ trampCall(@_load) ,
9
+ [
10
+ "util/record"
11
+ ]
12
+ )
13
+ )
14
+ #--------------------
15
+
16
+ trampCall(
17
+ begin #execFunc
18
+ def self._define_MIMARKrecord_MIMARKtype_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_define_MIMARKrecord_MIMARKtype', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
19
+ @global_lisp_binding['_define_MIMARKrecord_MIMARKtype'] = self.method( :_define_MIMARKrecord_MIMARKtype_METHOD )
20
+ @_define_MIMARKrecord_MIMARKtype =
21
+ trampCall(
22
+ trampCall( self._er_MIMARKmacro_MIMARKtransformer_METHOD( 'er-macro-transformer',
23
+ trampCall(@_er_MIMARKmacro_MIMARKtransformer) ,
24
+ [
25
+ Proc.new { |__expr__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50225,__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226,__compare__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50227|
26
+ begin #makeLet
27
+ ___lambda = lambda { |___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50251|
28
+ if (
29
+ trampCall(___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50251)
30
+ ) then
31
+ trampCall(___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50251)
32
+ else
33
+ begin #makeLet
34
+ ___lambda = lambda { |___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50252|
35
+ if (
36
+ trampCall(___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50252)
37
+ ) then
38
+ trampCall(___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50252)
39
+ else
40
+ false
41
+ end
42
+ } ; ___lambda.call(
43
+ begin raise RuntimeError,
44
+ "no expansion for" ' ' +
45
+ _write_MIMARKto_MIMARKstring(
46
+ trampCall( self._strip_MIMARKsyntactic_MIMARKclosures_METHOD( 'strip-syntactic-closures',
47
+ trampCall(@_strip_MIMARKsyntactic_MIMARKclosures) ,
48
+ [
49
+ __expr__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50225
50
+ ]
51
+ ))
52
+ )
53
+ rescue => __e
54
+ __e.set_backtrace( [":1"] + __e.backtrace )
55
+ raise __e
56
+ end
57
+ )
58
+ end
59
+ end
60
+ } ; ___lambda.call(
61
+ begin #makeLet
62
+ ___lambda = lambda { |__v__1__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50233|
63
+ if (
64
+ _not(
65
+ _eq_QUMARK(
66
+ false ,
67
+ _pair_QUMARK(
68
+ __v__1__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50233
69
+ )
70
+ )
71
+ )
72
+ ) then
73
+ begin #makeLet
74
+ ___lambda = lambda { |__v__2__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50234|
75
+ begin #makeLet
76
+ ___lambda = lambda { |_type|
77
+ begin #makeLet
78
+ ___lambda = lambda { |__v__3__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50235|
79
+ if (
80
+ _not(
81
+ _eq_QUMARK(
82
+ false ,
83
+ _pair_QUMARK(
84
+ __v__3__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50235
85
+ )
86
+ )
87
+ )
88
+ ) then
89
+ begin #makeLet
90
+ ___lambda = lambda { |__v__4__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50236|
91
+ if (
92
+ _not(
93
+ _eq_QUMARK(
94
+ false ,
95
+ _pair_QUMARK(
96
+ __v__4__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50236
97
+ )
98
+ )
99
+ )
100
+ ) then
101
+ begin #makeLet
102
+ ___lambda = lambda { |__v__5__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50237|
103
+ begin #makeLet
104
+ ___lambda = lambda { |_constructor|
105
+ begin #makeLet
106
+ ___lambda = lambda { |__v__6__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50238|
107
+ if (
108
+ _not(
109
+ _eq_QUMARK(
110
+ false ,
111
+ trampCall( self._list_QUMARK_METHOD( 'list?',
112
+ trampCall(@_list_QUMARK) ,
113
+ [
114
+ __v__6__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50238
115
+ ]
116
+ ))
117
+ )
118
+ )
119
+ ) then
120
+ begin #makeLet
121
+ ___lambda = lambda { |_constructor_MIMARKtag|
122
+ begin #makeLet
123
+ ___lambda = lambda { |__v__7__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50239|
124
+ if (
125
+ _not(
126
+ _eq_QUMARK(
127
+ false ,
128
+ _pair_QUMARK(
129
+ __v__7__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50239
130
+ )
131
+ )
132
+ )
133
+ ) then
134
+ begin #makeLet
135
+ ___lambda = lambda { |__v__8__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50240|
136
+ begin #makeLet
137
+ ___lambda = lambda { |_predicate|
138
+ begin #makeLet
139
+ ___lambda = lambda { |__v__9__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50241|
140
+ begin #makeLetrec
141
+ ___lambda = lambda { |__lp__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50228|
142
+ __lp__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50228 =
143
+ Proc.new { |__v__10__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50242,__field_MIMARKtag_MIMARKls__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50243,__accessor_MIMARKls__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50244,__more_MIMARKls__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50245|
144
+ if (
145
+ _null_QUMARK(
146
+ __v__10__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50242
147
+ )
148
+ ) then
149
+ begin #makeLet
150
+ ___lambda = lambda { |_field_MIMARKtag,_accessor,_more|
151
+ _cons(
152
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226',
153
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226) ,
154
+ [
155
+ :"begin"
156
+ ]
157
+ )) ,
158
+ _cons(
159
+ _cons(
160
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226',
161
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226) ,
162
+ [
163
+ :"define"
164
+ ]
165
+ )) ,
166
+ _cons(
167
+ trampCall(_type) ,
168
+ _cons(
169
+ _cons(
170
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226',
171
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226) ,
172
+ [
173
+ :"make-record-type"
174
+ ]
175
+ )) ,
176
+ _cons(
177
+ _cons(
178
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226',
179
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226) ,
180
+ [
181
+ :"quote"
182
+ ]
183
+ )) ,
184
+ _cons(
185
+ trampCall(_type) ,
186
+ Cell.new()
187
+ )
188
+ ) ,
189
+ _cons(
190
+ _cons(
191
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226',
192
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226) ,
193
+ [
194
+ :"quote"
195
+ ]
196
+ )) ,
197
+ _cons(
198
+ trampCall( self._map_METHOD( 'map',
199
+ trampCall(@_map) ,
200
+ [
201
+ Proc.new { |_field_MIMARKtag|
202
+ trampCall(_field_MIMARKtag)
203
+ } ,
204
+ trampCall(_field_MIMARKtag)
205
+ ]
206
+ )) ,
207
+ Cell.new()
208
+ )
209
+ ) ,
210
+ Cell.new()
211
+ )
212
+ )
213
+ ) ,
214
+ Cell.new()
215
+ )
216
+ )
217
+ ) ,
218
+ _cons(
219
+ _cons(
220
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226',
221
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226) ,
222
+ [
223
+ :"define"
224
+ ]
225
+ )) ,
226
+ _cons(
227
+ trampCall(_constructor) ,
228
+ _cons(
229
+ _cons(
230
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226',
231
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226) ,
232
+ [
233
+ :"record-constructor"
234
+ ]
235
+ )) ,
236
+ _cons(
237
+ trampCall(_type) ,
238
+ _cons(
239
+ _cons(
240
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226',
241
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226) ,
242
+ [
243
+ :"quote"
244
+ ]
245
+ )) ,
246
+ _cons(
247
+ trampCall( self._map_METHOD( 'map',
248
+ trampCall(@_map) ,
249
+ [
250
+ Proc.new { |_constructor_MIMARKtag|
251
+ trampCall(_constructor_MIMARKtag)
252
+ } ,
253
+ trampCall(_constructor_MIMARKtag)
254
+ ]
255
+ )) ,
256
+ Cell.new()
257
+ )
258
+ ) ,
259
+ Cell.new()
260
+ )
261
+ )
262
+ ) ,
263
+ Cell.new()
264
+ )
265
+ )
266
+ ) ,
267
+ _cons(
268
+ _cons(
269
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226',
270
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226) ,
271
+ [
272
+ :"define"
273
+ ]
274
+ )) ,
275
+ _cons(
276
+ trampCall(_predicate) ,
277
+ _cons(
278
+ _cons(
279
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226',
280
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226) ,
281
+ [
282
+ :"record-predicate"
283
+ ]
284
+ )) ,
285
+ _cons(
286
+ trampCall(_type) ,
287
+ Cell.new()
288
+ )
289
+ ) ,
290
+ Cell.new()
291
+ )
292
+ )
293
+ ) ,
294
+ trampCall( self._map_METHOD( 'map',
295
+ trampCall(@_map) ,
296
+ [
297
+ Proc.new { |_field_MIMARKtag,_accessor,_more|
298
+ _cons(
299
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226',
300
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50226) ,
301
+ [
302
+ :"define-record-field"
303
+ ]
304
+ )) ,
305
+ _cons(
306
+ trampCall(_type) ,
307
+ _cons(
308
+ trampCall(_field_MIMARKtag) ,
309
+ _cons(
310
+ trampCall(_accessor) ,
311
+ trampCall(_more)
312
+ )
313
+ )
314
+ )
315
+ )
316
+ } ,
317
+ trampCall(_field_MIMARKtag) ,
318
+ trampCall(_accessor) ,
319
+ trampCall(_more)
320
+ ]
321
+ ))
322
+ )
323
+ )
324
+ )
325
+ )
326
+ } ; ___lambda.call(
327
+ _reverse(
328
+ __field_MIMARKtag_MIMARKls__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50243
329
+ ) ,
330
+ _reverse(
331
+ __accessor_MIMARKls__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50244
332
+ ) ,
333
+ _reverse(
334
+ __more_MIMARKls__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50245
335
+ )
336
+ )
337
+ end
338
+ else
339
+ if (
340
+ _not(
341
+ _eq_QUMARK(
342
+ false ,
343
+ _pair_QUMARK(
344
+ __v__10__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50242
345
+ )
346
+ )
347
+ )
348
+ ) then
349
+ begin #makeLet
350
+ ___lambda = lambda { |__v__11__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50246|
351
+ if (
352
+ _not(
353
+ _eq_QUMARK(
354
+ false ,
355
+ _pair_QUMARK(
356
+ __v__11__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50246
357
+ )
358
+ )
359
+ )
360
+ ) then
361
+ begin #makeLet
362
+ ___lambda = lambda { |__v__12__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50247|
363
+ begin #makeLet
364
+ ___lambda = lambda { |_field_MIMARKtag|
365
+ begin #makeLet
366
+ ___lambda = lambda { |__v__13__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50248|
367
+ if (
368
+ _not(
369
+ _eq_QUMARK(
370
+ false ,
371
+ _pair_QUMARK(
372
+ __v__13__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50248
373
+ )
374
+ )
375
+ )
376
+ ) then
377
+ begin #makeLet
378
+ ___lambda = lambda { |__v__14__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50249|
379
+ begin #makeLet
380
+ ___lambda = lambda { |_accessor|
381
+ begin #makeLet
382
+ ___lambda = lambda { |__v__15__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50250|
383
+ begin #makeLet
384
+ ___lambda = lambda { |_more|
385
+ trampCall( callProcedure( '__lp__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50228', '_lp__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50228',
386
+ trampCall(__lp__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50228) ,
387
+ [
388
+ _cdr(
389
+ __v__10__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50242
390
+ ) ,
391
+ _cons(
392
+ trampCall(_field_MIMARKtag) ,
393
+ __field_MIMARKtag_MIMARKls__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50243
394
+ ) ,
395
+ _cons(
396
+ trampCall(_accessor) ,
397
+ __accessor_MIMARKls__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50244
398
+ ) ,
399
+ _cons(
400
+ trampCall(_more) ,
401
+ __more_MIMARKls__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50245
402
+ )
403
+ ]
404
+ ))
405
+ } ; ___lambda.call(
406
+ __v__15__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50250
407
+ )
408
+ end
409
+ } ; ___lambda.call(
410
+ _cdr(
411
+ __v__13__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50248
412
+ )
413
+ )
414
+ end
415
+ } ; ___lambda.call(
416
+ __v__14__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50249
417
+ )
418
+ end
419
+ } ; ___lambda.call(
420
+ _car(
421
+ __v__13__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50248
422
+ )
423
+ )
424
+ end
425
+ else
426
+ false
427
+ end
428
+ } ; ___lambda.call(
429
+ _cdr(
430
+ __v__11__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50246
431
+ )
432
+ )
433
+ end
434
+ } ; ___lambda.call(
435
+ __v__12__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50247
436
+ )
437
+ end
438
+ } ; ___lambda.call(
439
+ _car(
440
+ __v__11__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50246
441
+ )
442
+ )
443
+ end
444
+ else
445
+ false
446
+ end
447
+ } ; ___lambda.call(
448
+ _car(
449
+ __v__10__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50242
450
+ )
451
+ )
452
+ end
453
+ else
454
+ false
455
+ end
456
+ end
457
+ }
458
+ trampCall( callProcedure( '__lp__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50228', '_lp__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50228',
459
+ trampCall(__lp__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50228) ,
460
+ [
461
+ __v__9__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50241 ,
462
+ Cell.new() ,
463
+ Cell.new() ,
464
+ Cell.new()
465
+ ]
466
+ ))
467
+ } ; ___lambda.call(
468
+ nil
469
+ )
470
+ end
471
+ } ; ___lambda.call(
472
+ _cdr(
473
+ __v__7__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50239
474
+ )
475
+ )
476
+ end
477
+ } ; ___lambda.call(
478
+ __v__8__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50240
479
+ )
480
+ end
481
+ } ; ___lambda.call(
482
+ _car(
483
+ __v__7__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50239
484
+ )
485
+ )
486
+ end
487
+ else
488
+ false
489
+ end
490
+ } ; ___lambda.call(
491
+ _cdr(
492
+ __v__3__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50235
493
+ )
494
+ )
495
+ end
496
+ } ; ___lambda.call(
497
+ __v__6__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50238
498
+ )
499
+ end
500
+ else
501
+ false
502
+ end
503
+ } ; ___lambda.call(
504
+ _cdr(
505
+ __v__4__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50236
506
+ )
507
+ )
508
+ end
509
+ } ; ___lambda.call(
510
+ __v__5__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50237
511
+ )
512
+ end
513
+ } ; ___lambda.call(
514
+ _car(
515
+ __v__4__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50236
516
+ )
517
+ )
518
+ end
519
+ else
520
+ false
521
+ end
522
+ } ; ___lambda.call(
523
+ _car(
524
+ __v__3__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50235
525
+ )
526
+ )
527
+ end
528
+ else
529
+ false
530
+ end
531
+ } ; ___lambda.call(
532
+ _cdr(
533
+ __v__1__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50233
534
+ )
535
+ )
536
+ end
537
+ } ; ___lambda.call(
538
+ __v__2__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50234
539
+ )
540
+ end
541
+ } ; ___lambda.call(
542
+ _car(
543
+ __v__1__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50233
544
+ )
545
+ )
546
+ end
547
+ else
548
+ false
549
+ end
550
+ } ; ___lambda.call(
551
+ _cdr(
552
+ __expr__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50225
553
+ )
554
+ )
555
+ end
556
+ )
557
+ end
558
+ }
559
+ ]
560
+ ))
561
+ )
562
+ end
563
+ )
564
+ #--------------------
565
+
566
+ trampCall(
567
+ begin #execFunc
568
+ def self._define_MIMARKrecord_MIMARKfield_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_define_MIMARKrecord_MIMARKfield', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
569
+ @global_lisp_binding['_define_MIMARKrecord_MIMARKfield'] = self.method( :_define_MIMARKrecord_MIMARKfield_METHOD )
570
+ @_define_MIMARKrecord_MIMARKfield =
571
+ trampCall(
572
+ trampCall( self._er_MIMARKmacro_MIMARKtransformer_METHOD( 'er-macro-transformer',
573
+ trampCall(@_er_MIMARKmacro_MIMARKtransformer) ,
574
+ [
575
+ Proc.new { |__expr__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50253,__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254,__compare__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50255|
576
+ begin #makeLet
577
+ ___lambda = lambda { |___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50277|
578
+ if (
579
+ trampCall(___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50277)
580
+ ) then
581
+ trampCall(___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50277)
582
+ else
583
+ begin #makeLet
584
+ ___lambda = lambda { |___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50278|
585
+ if (
586
+ trampCall(___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50278)
587
+ ) then
588
+ trampCall(___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50278)
589
+ else
590
+ begin #makeLet
591
+ ___lambda = lambda { |___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50279|
592
+ if (
593
+ trampCall(___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50279)
594
+ ) then
595
+ trampCall(___gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50279)
596
+ else
597
+ false
598
+ end
599
+ } ; ___lambda.call(
600
+ begin raise RuntimeError,
601
+ "no expansion for" ' ' +
602
+ _write_MIMARKto_MIMARKstring(
603
+ trampCall( self._strip_MIMARKsyntactic_MIMARKclosures_METHOD( 'strip-syntactic-closures',
604
+ trampCall(@_strip_MIMARKsyntactic_MIMARKclosures) ,
605
+ [
606
+ __expr__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50253
607
+ ]
608
+ ))
609
+ )
610
+ rescue => __e
611
+ __e.set_backtrace( [":1"] + __e.backtrace )
612
+ raise __e
613
+ end
614
+ )
615
+ end
616
+ end
617
+ } ; ___lambda.call(
618
+ begin #makeLet
619
+ ___lambda = lambda { |__v__8__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50268|
620
+ if (
621
+ _not(
622
+ _eq_QUMARK(
623
+ false ,
624
+ _pair_QUMARK(
625
+ __v__8__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50268
626
+ )
627
+ )
628
+ )
629
+ ) then
630
+ begin #makeLet
631
+ ___lambda = lambda { |__v__9__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50269|
632
+ begin #makeLet
633
+ ___lambda = lambda { |_type|
634
+ begin #makeLet
635
+ ___lambda = lambda { |__v__10__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50270|
636
+ if (
637
+ _not(
638
+ _eq_QUMARK(
639
+ false ,
640
+ _pair_QUMARK(
641
+ __v__10__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50270
642
+ )
643
+ )
644
+ )
645
+ ) then
646
+ begin #makeLet
647
+ ___lambda = lambda { |__v__11__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50271|
648
+ begin #makeLet
649
+ ___lambda = lambda { |_field_MIMARKtag|
650
+ begin #makeLet
651
+ ___lambda = lambda { |__v__12__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50272|
652
+ if (
653
+ _not(
654
+ _eq_QUMARK(
655
+ false ,
656
+ _pair_QUMARK(
657
+ __v__12__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50272
658
+ )
659
+ )
660
+ )
661
+ ) then
662
+ begin #makeLet
663
+ ___lambda = lambda { |__v__13__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50273|
664
+ begin #makeLet
665
+ ___lambda = lambda { |_accessor|
666
+ begin #makeLet
667
+ ___lambda = lambda { |__v__14__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50274|
668
+ if (
669
+ _not(
670
+ _eq_QUMARK(
671
+ false ,
672
+ _pair_QUMARK(
673
+ __v__14__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50274
674
+ )
675
+ )
676
+ )
677
+ ) then
678
+ begin #makeLet
679
+ ___lambda = lambda { |__v__15__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50275|
680
+ begin #makeLet
681
+ ___lambda = lambda { |_modifier|
682
+ begin #makeLet
683
+ ___lambda = lambda { |__v__16__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50276|
684
+ if (
685
+ _not(
686
+ _eq_QUMARK(
687
+ false ,
688
+ _null_QUMARK(
689
+ __v__16__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50276
690
+ )
691
+ )
692
+ )
693
+ ) then
694
+ _cons(
695
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254',
696
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254) ,
697
+ [
698
+ :"begin"
699
+ ]
700
+ )) ,
701
+ _cons(
702
+ _cons(
703
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254',
704
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254) ,
705
+ [
706
+ :"define"
707
+ ]
708
+ )) ,
709
+ _cons(
710
+ trampCall(_accessor) ,
711
+ _cons(
712
+ _cons(
713
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254',
714
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254) ,
715
+ [
716
+ :"record-accessor"
717
+ ]
718
+ )) ,
719
+ _cons(
720
+ trampCall(_type) ,
721
+ _cons(
722
+ _cons(
723
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254',
724
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254) ,
725
+ [
726
+ :"quote"
727
+ ]
728
+ )) ,
729
+ _cons(
730
+ trampCall(_field_MIMARKtag) ,
731
+ Cell.new()
732
+ )
733
+ ) ,
734
+ Cell.new()
735
+ )
736
+ )
737
+ ) ,
738
+ Cell.new()
739
+ )
740
+ )
741
+ ) ,
742
+ _cons(
743
+ _cons(
744
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254',
745
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254) ,
746
+ [
747
+ :"define"
748
+ ]
749
+ )) ,
750
+ _cons(
751
+ trampCall(_modifier) ,
752
+ _cons(
753
+ _cons(
754
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254',
755
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254) ,
756
+ [
757
+ :"record-modifier"
758
+ ]
759
+ )) ,
760
+ _cons(
761
+ trampCall(_type) ,
762
+ _cons(
763
+ _cons(
764
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254',
765
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254) ,
766
+ [
767
+ :"quote"
768
+ ]
769
+ )) ,
770
+ _cons(
771
+ trampCall(_field_MIMARKtag) ,
772
+ Cell.new()
773
+ )
774
+ ) ,
775
+ Cell.new()
776
+ )
777
+ )
778
+ ) ,
779
+ Cell.new()
780
+ )
781
+ )
782
+ ) ,
783
+ Cell.new()
784
+ )
785
+ )
786
+ )
787
+ else
788
+ false
789
+ end
790
+ } ; ___lambda.call(
791
+ _cdr(
792
+ __v__14__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50274
793
+ )
794
+ )
795
+ end
796
+ } ; ___lambda.call(
797
+ __v__15__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50275
798
+ )
799
+ end
800
+ } ; ___lambda.call(
801
+ _car(
802
+ __v__14__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50274
803
+ )
804
+ )
805
+ end
806
+ else
807
+ false
808
+ end
809
+ } ; ___lambda.call(
810
+ _cdr(
811
+ __v__12__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50272
812
+ )
813
+ )
814
+ end
815
+ } ; ___lambda.call(
816
+ __v__13__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50273
817
+ )
818
+ end
819
+ } ; ___lambda.call(
820
+ _car(
821
+ __v__12__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50272
822
+ )
823
+ )
824
+ end
825
+ else
826
+ false
827
+ end
828
+ } ; ___lambda.call(
829
+ _cdr(
830
+ __v__10__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50270
831
+ )
832
+ )
833
+ end
834
+ } ; ___lambda.call(
835
+ __v__11__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50271
836
+ )
837
+ end
838
+ } ; ___lambda.call(
839
+ _car(
840
+ __v__10__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50270
841
+ )
842
+ )
843
+ end
844
+ else
845
+ false
846
+ end
847
+ } ; ___lambda.call(
848
+ _cdr(
849
+ __v__8__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50268
850
+ )
851
+ )
852
+ end
853
+ } ; ___lambda.call(
854
+ __v__9__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50269
855
+ )
856
+ end
857
+ } ; ___lambda.call(
858
+ _car(
859
+ __v__8__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50268
860
+ )
861
+ )
862
+ end
863
+ else
864
+ false
865
+ end
866
+ } ; ___lambda.call(
867
+ _cdr(
868
+ __expr__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50253
869
+ )
870
+ )
871
+ end
872
+ )
873
+ end
874
+ end
875
+ } ; ___lambda.call(
876
+ begin #makeLet
877
+ ___lambda = lambda { |__v__1__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50261|
878
+ if (
879
+ _not(
880
+ _eq_QUMARK(
881
+ false ,
882
+ _pair_QUMARK(
883
+ __v__1__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50261
884
+ )
885
+ )
886
+ )
887
+ ) then
888
+ begin #makeLet
889
+ ___lambda = lambda { |__v__2__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50262|
890
+ begin #makeLet
891
+ ___lambda = lambda { |_type|
892
+ begin #makeLet
893
+ ___lambda = lambda { |__v__3__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50263|
894
+ if (
895
+ _not(
896
+ _eq_QUMARK(
897
+ false ,
898
+ _pair_QUMARK(
899
+ __v__3__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50263
900
+ )
901
+ )
902
+ )
903
+ ) then
904
+ begin #makeLet
905
+ ___lambda = lambda { |__v__4__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50264|
906
+ begin #makeLet
907
+ ___lambda = lambda { |_field_MIMARKtag|
908
+ begin #makeLet
909
+ ___lambda = lambda { |__v__5__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50265|
910
+ if (
911
+ _not(
912
+ _eq_QUMARK(
913
+ false ,
914
+ _pair_QUMARK(
915
+ __v__5__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50265
916
+ )
917
+ )
918
+ )
919
+ ) then
920
+ begin #makeLet
921
+ ___lambda = lambda { |__v__6__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50266|
922
+ begin #makeLet
923
+ ___lambda = lambda { |_accessor|
924
+ begin #makeLet
925
+ ___lambda = lambda { |__v__7__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50267|
926
+ if (
927
+ _not(
928
+ _eq_QUMARK(
929
+ false ,
930
+ _null_QUMARK(
931
+ __v__7__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50267
932
+ )
933
+ )
934
+ )
935
+ ) then
936
+ _cons(
937
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254',
938
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254) ,
939
+ [
940
+ :"define"
941
+ ]
942
+ )) ,
943
+ _cons(
944
+ trampCall(_accessor) ,
945
+ _cons(
946
+ _cons(
947
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254',
948
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254) ,
949
+ [
950
+ :"record-accessor"
951
+ ]
952
+ )) ,
953
+ _cons(
954
+ trampCall(_type) ,
955
+ _cons(
956
+ _cons(
957
+ trampCall( callProcedure( '__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254', '_rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254',
958
+ trampCall(__rename__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50254) ,
959
+ [
960
+ :"quote"
961
+ ]
962
+ )) ,
963
+ _cons(
964
+ trampCall(_field_MIMARKtag) ,
965
+ Cell.new()
966
+ )
967
+ ) ,
968
+ Cell.new()
969
+ )
970
+ )
971
+ ) ,
972
+ Cell.new()
973
+ )
974
+ )
975
+ )
976
+ else
977
+ false
978
+ end
979
+ } ; ___lambda.call(
980
+ _cdr(
981
+ __v__5__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50265
982
+ )
983
+ )
984
+ end
985
+ } ; ___lambda.call(
986
+ __v__6__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50266
987
+ )
988
+ end
989
+ } ; ___lambda.call(
990
+ _car(
991
+ __v__5__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50265
992
+ )
993
+ )
994
+ end
995
+ else
996
+ false
997
+ end
998
+ } ; ___lambda.call(
999
+ _cdr(
1000
+ __v__3__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50263
1001
+ )
1002
+ )
1003
+ end
1004
+ } ; ___lambda.call(
1005
+ __v__4__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50264
1006
+ )
1007
+ end
1008
+ } ; ___lambda.call(
1009
+ _car(
1010
+ __v__3__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50263
1011
+ )
1012
+ )
1013
+ end
1014
+ else
1015
+ false
1016
+ end
1017
+ } ; ___lambda.call(
1018
+ _cdr(
1019
+ __v__1__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50261
1020
+ )
1021
+ )
1022
+ end
1023
+ } ; ___lambda.call(
1024
+ __v__2__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50262
1025
+ )
1026
+ end
1027
+ } ; ___lambda.call(
1028
+ _car(
1029
+ __v__1__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50261
1030
+ )
1031
+ )
1032
+ end
1033
+ else
1034
+ false
1035
+ end
1036
+ } ; ___lambda.call(
1037
+ _cdr(
1038
+ __expr__gensym__fab266b66d6ec390a8422267362d61a5891f1c3b_50253
1039
+ )
1040
+ )
1041
+ end
1042
+ )
1043
+ end
1044
+ }
1045
+ ]
1046
+ ))
1047
+ )
1048
+ end
1049
+ )
1050
+
1051
+
1052
+ # -------------------------------------------------------
1053
+ # [EOF]
1054
+ # -------------------------------------------------------