# # This file is nendo's compiled library file. # generated “nendo -c src” command. #
trampCall(
begin embedBacktraceInfo( "", 1 ); delayCall( '_load', 'load', begin if @global_lisp_binding.has_key?('_load') then trampCall(@_load) else raise NameError.new( "Error: undefined variable load", "load" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ "srfi-1" ] ) end )
——————–
trampCall(
begin embedBacktraceInfo( "", 1 ); delayCall( '_load', 'load', begin if @global_lisp_binding.has_key?('_load') then trampCall(@_load) else raise NameError.new( "Error: undefined variable load", "load" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ "util/list" ] ) end )
——————–
trampCall(
begin #execFunc def self._stowed_MIMARKlist_MIMARKto_MIMARKtree_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowed_MIMARKlist_MIMARKto_MIMARKtree', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowed_MIMARKlist_MIMARKto_MIMARKtree'] = self.method( :_stowed_MIMARKlist_MIMARKto_MIMARKtree_METHOD ) @_stowed_MIMARKlist_MIMARKto_MIMARKtree = trampCall( Proc.new { |_lst| begin #makeLet ___lambda = lambda { |_program_MIMARKhash| begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 9 ); trampCall( self._for_MIMARKeach_METHOD( 'for-each', begin if @global_lisp_binding.has_key?('_for_MIMARKeach') then trampCall(@_for_MIMARKeach) else raise NameError.new( "Error: undefined variable for-each", "for-each" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:9"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| begin #makeLet ___lambda = lambda { |__proj| begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 12 ); trampCall( self._hash_MIMARKtable_MIMARKpush_EXMARK_METHOD( 'hash-table-push!', begin if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARKpush_EXMARK') then trampCall(@_hash_MIMARKtable_MIMARKpush_EXMARK) else raise NameError.new( "Error: undefined variable hash-table-push!", "hash-table-push!" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:12"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_program_MIMARKhash) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:12"] + __e.backtrace ) ; raise __e end , begin trampCall(__proj) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:12"] + __e.backtrace ) ; raise __e end , begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:12"] + __e.backtrace ) ; raise __e end ] )) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 11 ); trampCall( self._proj_METHOD( 'proj', begin if @global_lisp_binding.has_key?('_proj') then trampCall(@_proj) else raise NameError.new( "Error: undefined variable proj", "proj" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:11"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 11 ); trampCall( self._stowm_MIMARKparse_MIMARKurl_METHOD( 'stowm-parse-url', begin if @global_lisp_binding.has_key?('_stowm_MIMARKparse_MIMARKurl') then trampCall(@_stowm_MIMARKparse_MIMARKurl) else raise NameError.new( "Error: undefined variable stowm-parse-url", "stowm-parse-url" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:11"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 11 ); trampCall( self._first_METHOD( 'first', begin if @global_lisp_binding.has_key?('_first') then trampCall(@_first) else raise NameError.new( "Error: undefined variable first", "first" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:11"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:11"] + __e.backtrace ) ; raise __e end ] )) end ] )) end ] )) end ) end } , begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 13 ); _reverse( begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:13"] + __e.backtrace ) ; raise __e end ) end ] )) end begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 14 ); delayCall( '_reverse', 'reverse', begin if @global_lisp_binding.has_key?('_reverse') then trampCall(@_reverse) else raise NameError.new( "Error: undefined variable reverse", "reverse" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:14"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 14 ); trampCall( self._hash_MIMARKtable_MIMARK_GTMARKalist_METHOD( 'hash-table->alist', begin if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARK_GTMARKalist') then trampCall(@_hash_MIMARKtable_MIMARK_GTMARKalist) else raise NameError.new( "Error: undefined variable hash-table->alist", "hash-table->alist" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:14"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_program_MIMARKhash) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:14"] + __e.backtrace ) ; raise __e end ] )) end ] ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 8 ); trampCall( self._make_MIMARKhash_MIMARKtable_METHOD( 'make-hash-table', begin if @global_lisp_binding.has_key?('_make_MIMARKhash_MIMARKtable') then trampCall(@_make_MIMARKhash_MIMARKtable) else raise NameError.new( "Error: undefined variable make-hash-table", "make-hash-table" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:8"] + __e.backtrace ) ; raise __e end , [ ] )) end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._resolve_MIMARKprogram_MIMARKnumber_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_resolve_MIMARKprogram_MIMARKnumber', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_resolve_MIMARKprogram_MIMARKnumber'] = self.method( :_resolve_MIMARKprogram_MIMARKnumber_METHOD ) @_resolve_MIMARKprogram_MIMARKnumber = trampCall( Proc.new { |_proj,_sym,_tree| begin #makeLet ___lambda = lambda { |_lst| if ( begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:23"] + __e.backtrace ) ; raise __e end ) then begin #makeLet ___lambda = lambda { |_filtered| if ( begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 33 ); ( 0 < begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 33 ); _length( begin trampCall(_filtered) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:33"] + __e.backtrace ) ; raise __e end ) end ) end ) then begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 35 ); delayCall( '_car', 'car', begin if @global_lisp_binding.has_key?('_car') then trampCall(@_car) else raise NameError.new( "Error: undefined variable car", "car" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:35"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_filtered) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:35"] + __e.backtrace ) ; raise __e end ] ) end else false end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 25 ); trampCall( self._filter_MIMARKmap_METHOD( 'filter-map', begin if @global_lisp_binding.has_key?('_filter_MIMARKmap') then trampCall(@_filter_MIMARKmap) else raise NameError.new( "Error: undefined variable filter-map", "filter-map" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:25"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| if ( begin #makeLet ___lambda = lambda { |___gensym__830aa3ddc9437c46f4a9ec10acde8d64e9df9d29_110008| if ( begin trampCall(___gensym__830aa3ddc9437c46f4a9ec10acde8d64e9df9d29_110008) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__830aa3ddc9437c46f4a9ec10acde8d64e9df9d29_110008) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__830aa3ddc9437c46f4a9ec10acde8d64e9df9d29_110009| if ( begin trampCall(___gensym__830aa3ddc9437c46f4a9ec10acde8d64e9df9d29_110009) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__830aa3ddc9437c46f4a9ec10acde8d64e9df9d29_110009) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__830aa3ddc9437c46f4a9ec10acde8d64e9df9d29_110010| if ( begin trampCall(___gensym__830aa3ddc9437c46f4a9ec10acde8d64e9df9d29_110010) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__830aa3ddc9437c46f4a9ec10acde8d64e9df9d29_110010) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else false end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 29 ); _eq_QUMARK( begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 29 ); trampCall( self._fourth_METHOD( 'fourth', begin if @global_lisp_binding.has_key?('_fourth') then trampCall(@_fourth) else raise NameError.new( "Error: undefined variable fourth", "fourth" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:29"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:29"] + __e.backtrace ) ; raise __e end ] )) end , begin trampCall(_sym) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:29"] + __e.backtrace ) ; raise __e end ) end ) end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 28 ); _eq_QUMARK( begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 28 ); trampCall( self._third_METHOD( 'third', begin if @global_lisp_binding.has_key?('_third') then trampCall(@_third) else raise NameError.new( "Error: undefined variable third", "third" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:28"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:28"] + __e.backtrace ) ; raise __e end ] )) end , begin trampCall(_sym) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:28"] + __e.backtrace ) ; raise __e end ) end ) end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 27 ); _eq_QUMARK( begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 27 ); trampCall( self._second_METHOD( 'second', begin if @global_lisp_binding.has_key?('_second') then trampCall(@_second) else raise NameError.new( "Error: undefined variable second", "second" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:27"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:27"] + __e.backtrace ) ; raise __e end ] )) end , begin trampCall(_sym) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:27"] + __e.backtrace ) ; raise __e end ) end ) end ) then begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 30 ); trampCall( self._fifth_METHOD( 'fifth', begin if @global_lisp_binding.has_key?('_fifth') then trampCall(@_fifth) else raise NameError.new( "Error: undefined variable fifth", "fifth" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:30"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:30"] + __e.backtrace ) ; raise __e end ] )) end else false end } , begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:32"] + __e.backtrace ) ; raise __e end ] )) end ) end else if ( true ) then false else Cell.new() end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/listutil.nnd", 21 ); trampCall( self._assv_MIMARKref_METHOD( 'assv-ref', begin if @global_lisp_binding.has_key?('_assv_MIMARKref') then trampCall(@_assv_MIMARKref) else raise NameError.new( "Error: undefined variable assv-ref", "assv-ref" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:21"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_proj) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:21"] + __e.backtrace ) ; raise __e end , begin trampCall(_tree) rescue => __e ; __e.set_backtrace( ["./lib/stowm/listutil.nnd:21"] + __e.backtrace ) ; raise __e end ] )) end ) end } ) end )
# ——————————————————- # [EOF] # ——————————————————-