# # 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-9" ] ) end )
——————–
trampCall(
begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 5 ); delayCall( '_require', 'require', begin if @global_lisp_binding.has_key?('_require') then trampCall(@_require) else raise NameError.new( "Error: undefined variable require", "require" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:5"] + __e.backtrace ) ; raise __e end , [ "uri" ] ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKext_MIMARKlist_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKext_MIMARKlist', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKext_MIMARKlist'] = self.method( :_stowm_MIMARKext_MIMARKlist_METHOD ) @_stowm_MIMARKext_MIMARKlist = trampCall( Cell.new(Cell.new("tar[.]gz",:"gz"),Cell.new(Cell.new("tgz",:"gz"),Cell.new(Cell.new("tar[.]bz2",:"bz2"),Cell.new(Cell.new("tar[.]xz",:"xz"),Cell.new(Cell.new("tar[.][zZ]",:"z")))))) ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKscheme_MIMARKlist_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKscheme_MIMARKlist', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKscheme_MIMARKlist'] = self.method( :_stowm_MIMARKscheme_MIMARKlist_METHOD ) @_stowm_MIMARKscheme_MIMARKlist = trampCall( Cell.new(:"http",Cell.new(:"https",Cell.new(:"ftp"))) ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKrx_MIMARKproject_MIMARKname_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKrx_MIMARKproject_MIMARKname', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKrx_MIMARKproject_MIMARKname'] = self.method( :_stowm_MIMARKrx_MIMARKproject_MIMARKname_METHOD ) @_stowm_MIMARKrx_MIMARKproject_MIMARKname = trampCall( "([a-zA-Z][a-zA-Z0-9]+)" ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKrx_MIMARKversion_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKrx_MIMARKversion', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKrx_MIMARKversion'] = self.method( :_stowm_MIMARKrx_MIMARKversion_METHOD ) @_stowm_MIMARKrx_MIMARKversion = trampCall( "(.+)" ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKrx_MIMARKext_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKrx_MIMARKext', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKrx_MIMARKext'] = self.method( :_stowm_MIMARKrx_MIMARKext_METHOD ) @_stowm_MIMARKrx_MIMARKext = trampCall( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 18 ); ( "(" + begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 18 ); trampCall( self._string_MIMARKjoin_METHOD( 'string-join', begin if @global_lisp_binding.has_key?('_string_MIMARKjoin') then trampCall(@_string_MIMARKjoin) else raise NameError.new( "Error: undefined variable string-join", "string-join" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:18"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 19 ); trampCall( self._map_METHOD( 'map', begin if @global_lisp_binding.has_key?('_map') then trampCall(@_map) else raise NameError.new( "Error: undefined variable map", "map" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:19"] + __e.backtrace ) ; raise __e end , [ 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/parseutil.nnd:19"] + __e.backtrace ) ; raise __e end , begin if @global_lisp_binding.has_key?('_stowm_MIMARKext_MIMARKlist') then trampCall(@_stowm_MIMARKext_MIMARKlist) else raise NameError.new( "Error: undefined variable stowm-ext-list", "stowm-ext-list" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:19"] + __e.backtrace ) ; raise __e end ] )) end , "|" ] )) end + ")" ) end ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKsplit_MIMARKfilename_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKsplit_MIMARKfilename', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKsplit_MIMARKfilename'] = self.method( :_stowm_MIMARKsplit_MIMARKfilename_METHOD ) @_stowm_MIMARKsplit_MIMARKfilename = trampCall( Proc.new { |_filename| begin #makeLet ___lambda = lambda { |_filename_MIMARKand_MIMARKext| begin #makeLet ___lambda = lambda { |_filename,_ext| if ( begin #execFunc def self.___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023'] = self.method( :___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023_METHOD ) @___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023 = trampCall( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 33 ); trampCall( self._stowm_MIMARKregex_MIMARKmatch_METHOD( 'stowm-regex-match', begin if @global_lisp_binding.has_key?('_stowm_MIMARKregex_MIMARKmatch') then trampCall(@_stowm_MIMARKregex_MIMARKmatch) else raise NameError.new( "Error: undefined variable stowm-regex-match", "stowm-regex-match" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:33"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 33 ); trampCall( self.__PLMARK_METHOD( '+', begin if @global_lisp_binding.has_key?('__PLMARK') then trampCall(@__PLMARK) else raise NameError.new( "Error: undefined variable +", "+" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:33"] + __e.backtrace ) ; raise __e end , [ "^" , begin if @global_lisp_binding.has_key?('_stowm_MIMARKrx_MIMARKproject_MIMARKname') then trampCall(@_stowm_MIMARKrx_MIMARKproject_MIMARKname) else raise NameError.new( "Error: undefined variable stowm-rx-project-name", "stowm-rx-project-name" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:33"] + __e.backtrace ) ; raise __e end , "[-]" , begin if @global_lisp_binding.has_key?('_stowm_MIMARKrx_MIMARKversion') then trampCall(@_stowm_MIMARKrx_MIMARKversion) else raise NameError.new( "Error: undefined variable stowm-rx-version", "stowm-rx-version" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:33"] + __e.backtrace ) ; raise __e end , "$" ] )) end , begin trampCall(_filename) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:33"] + __e.backtrace ) ; raise __e end ] )) end ) end ) then trampCall( callProcedure( nil, 'anonymouse', Proc.new { |_x| begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 35 ); trampCall( self._list_METHOD( 'list', begin if @global_lisp_binding.has_key?('_list') then trampCall(@_list) else raise NameError.new( "Error: undefined variable list", "list" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:35"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 35 ); 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/parseutil.nnd:35"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:35"] + __e.backtrace ) ; raise __e end ] )) end , begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 35 ); 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/parseutil.nnd:35"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:35"] + __e.backtrace ) ; raise __e end ] )) end , begin trampCall(_ext) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:35"] + __e.backtrace ) ; raise __e end ] )) end } , [ begin if @global_lisp_binding.has_key?('___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023') then trampCall(@___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023) else raise NameError.new( "Error: undefined variable __gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023", "__gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ] )) else if ( begin #execFunc def self.___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022'] = self.method( :___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022_METHOD ) @___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022 = trampCall( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 36 ); trampCall( self._stowm_MIMARKregex_MIMARKmatch_METHOD( 'stowm-regex-match', begin if @global_lisp_binding.has_key?('_stowm_MIMARKregex_MIMARKmatch') then trampCall(@_stowm_MIMARKregex_MIMARKmatch) else raise NameError.new( "Error: undefined variable stowm-regex-match", "stowm-regex-match" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:36"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 36 ); ( "^" + begin if @global_lisp_binding.has_key?('_stowm_MIMARKrx_MIMARKproject_MIMARKname') then trampCall(@_stowm_MIMARKrx_MIMARKproject_MIMARKname) else raise NameError.new( "Error: undefined variable stowm-rx-project-name", "stowm-rx-project-name" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:36"] + __e.backtrace ) ; raise __e end + "$" ) end , begin trampCall(_filename) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:36"] + __e.backtrace ) ; raise __e end ] )) end ) end ) then trampCall( callProcedure( nil, 'anonymouse', Proc.new { |_x| begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 38 ); trampCall( self._list_METHOD( 'list', begin if @global_lisp_binding.has_key?('_list') then trampCall(@_list) else raise NameError.new( "Error: undefined variable list", "list" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:38"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 38 ); 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/parseutil.nnd:38"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:38"] + __e.backtrace ) ; raise __e end ] )) end , false , begin trampCall(_ext) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:38"] + __e.backtrace ) ; raise __e end ] )) end } , [ begin if @global_lisp_binding.has_key?('___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022') then trampCall(@___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022) else raise NameError.new( "Error: undefined variable __gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022", "__gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ] )) else if ( true ) then Cell.new(false,Cell.new(false,Cell.new(false))) else Cell.new() end end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 30 ); _car( begin trampCall(_filename_MIMARKand_MIMARKext) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:30"] + __e.backtrace ) ; raise __e end ) end , begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 31 ); _cdr( begin trampCall(_filename_MIMARKand_MIMARKext) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:31"] + __e.backtrace ) ; raise __e end ) end ) end } ; ___lambda.call( if ( begin #execFunc def self.___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020'] = self.method( :___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020_METHOD ) @___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020 = trampCall( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 24 ); trampCall( self._stowm_MIMARKregex_MIMARKmatch_METHOD( 'stowm-regex-match', begin if @global_lisp_binding.has_key?('_stowm_MIMARKregex_MIMARKmatch') then trampCall(@_stowm_MIMARKregex_MIMARKmatch) else raise NameError.new( "Error: undefined variable stowm-regex-match", "stowm-regex-match" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:24"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 24 ); ( "(.+)[.]" + begin if @global_lisp_binding.has_key?('_stowm_MIMARKrx_MIMARKext') then trampCall(@_stowm_MIMARKrx_MIMARKext) else raise NameError.new( "Error: undefined variable stowm-rx-ext", "stowm-rx-ext" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:24"] + __e.backtrace ) ; raise __e end + "$" ) end , begin trampCall(_filename) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:24"] + __e.backtrace ) ; raise __e end ] )) end ) end ) then trampCall( callProcedure( nil, 'anonymouse', Proc.new { |_x| begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 26 ); _cons( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 26 ); 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/parseutil.nnd:26"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:26"] + __e.backtrace ) ; raise __e end ] )) end , begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 27 ); 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/parseutil.nnd:27"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:27"] + __e.backtrace ) ; raise __e end ] )) end ) end } , [ begin if @global_lisp_binding.has_key?('___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020') then trampCall(@___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020) else raise NameError.new( "Error: undefined variable __gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020", "__gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ] )) else if ( true ) then begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 29 ); delayCall( '_cons', 'cons', begin if @global_lisp_binding.has_key?('_cons') then trampCall(@_cons) else raise NameError.new( "Error: undefined variable cons", "cons" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:29"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_filename) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:29"] + __e.backtrace ) ; raise __e end , false ] ) end else Cell.new() end end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKsplit_MIMARKpath_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKsplit_MIMARKpath', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKsplit_MIMARKpath'] = self.method( :_stowm_MIMARKsplit_MIMARKpath_METHOD ) @_stowm_MIMARKsplit_MIMARKpath = trampCall( Proc.new { |_path| begin #makeLet ___lambda = lambda { |_lst| begin #makeLet ___lambda = lambda { |_dirname,_filename| begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 46 ); delayCall( '_list', 'list', begin if @global_lisp_binding.has_key?('_list') then trampCall(@_list) else raise NameError.new( "Error: undefined variable list", "list" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:46"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_dirname) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:46"] + __e.backtrace ) ; raise __e end , begin trampCall(_filename) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:46"] + __e.backtrace ) ; raise __e end ] ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 44 ); 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/parseutil.nnd:44"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:44"] + __e.backtrace ) ; raise __e end ] )) end , begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 45 ); 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/parseutil.nnd:45"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:45"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 43 ); _to_MIMARKlist( begin trampCall(File).split( begin trampCall(_path) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:43"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:43"] + __e.backtrace ) ; raise __e end ) end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKget_MIMARKext_MIMARKtype_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKget_MIMARKext_MIMARKtype', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKget_MIMARKext_MIMARKtype'] = self.method( :_stowm_MIMARKget_MIMARKext_MIMARKtype_METHOD ) @_stowm_MIMARKget_MIMARKext_MIMARKtype = trampCall( Proc.new { |_ext_MIMARKstring| begin #makeLet ___lambda = lambda { |_lst| if ( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 55 ); ( 0 < begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 55 ); _length( begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:55"] + __e.backtrace ) ; raise __e end ) end ) end ) then begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 56 ); delayCall( '_first', '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/parseutil.nnd:56"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:56"] + __e.backtrace ) ; raise __e end ] ) end else false end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 49 ); 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/parseutil.nnd:49"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_entry| if ( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 51 ); trampCall( self._stowm_MIMARKregex_MIMARKmatch_METHOD( 'stowm-regex-match', begin if @global_lisp_binding.has_key?('_stowm_MIMARKregex_MIMARKmatch') then trampCall(@_stowm_MIMARKregex_MIMARKmatch) else raise NameError.new( "Error: undefined variable stowm-regex-match", "stowm-regex-match" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:51"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 51 ); _car( begin trampCall(_entry) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:51"] + __e.backtrace ) ; raise __e end ) end , begin trampCall(_ext_MIMARKstring) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:51"] + __e.backtrace ) ; raise __e end ] )) end ) then begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 52 ); _cdr( begin trampCall(_entry) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:52"] + __e.backtrace ) ; raise __e end ) end else false end } , begin if @global_lisp_binding.has_key?('_stowm_MIMARKext_MIMARKlist') then trampCall(@_stowm_MIMARKext_MIMARKlist) else raise NameError.new( "Error: undefined variable stowm-ext-list", "stowm-ext-list" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:54"] + __e.backtrace ) ; raise __e end ] )) end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKget_MIMARKscheme_MIMARKtype_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKget_MIMARKscheme_MIMARKtype', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKget_MIMARKscheme_MIMARKtype'] = self.method( :_stowm_MIMARKget_MIMARKscheme_MIMARKtype_METHOD ) @_stowm_MIMARKget_MIMARKscheme_MIMARKtype = trampCall( Proc.new { |_scheme_MIMARKstring| if ( begin trampCall(_scheme_MIMARKstring) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:60"] + __e.backtrace ) ; raise __e end ) then begin #makeLet ___lambda = lambda { |_sym| if ( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 62 ); trampCall( self._memq_METHOD( 'memq', begin if @global_lisp_binding.has_key?('_memq') then trampCall(@_memq) else raise NameError.new( "Error: undefined variable memq", "memq" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:62"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_sym) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:62"] + __e.backtrace ) ; raise __e end , begin if @global_lisp_binding.has_key?('_stowm_MIMARKscheme_MIMARKlist') then trampCall(@_stowm_MIMARKscheme_MIMARKlist) else raise NameError.new( "Error: undefined variable stowm-scheme-list", "stowm-scheme-list" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:62"] + __e.backtrace ) ; raise __e end ] )) end ) then begin trampCall(_sym) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:63"] + __e.backtrace ) ; raise __e end else :"unknown" end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 61 ); _string_MIMARK_GTMARKsymbol( begin trampCall(_scheme_MIMARKstring) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:61"] + __e.backtrace ) ; raise __e end ) end ) end else :"empty" end } ) end )
——————–
trampCall(
begin #makeBegin begin #execFunc def self.__LTMARKparsed_GTMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__LTMARKparsed_GTMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['__LTMARKparsed_GTMARK'] = self.method( :__LTMARKparsed_GTMARK_METHOD ) @__LTMARKparsed_GTMARK = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._make_MIMARKrecord_MIMARKtype_METHOD( 'make-record-type', begin if @global_lisp_binding.has_key?('_make_MIMARKrecord_MIMARKtype') then trampCall(@_make_MIMARKrecord_MIMARKtype) else raise NameError.new( "Error: undefined variable make-record-type", "make-record-type" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ :"<parsed>" , Cell.new(:"scheme",Cell.new(:"scheme-type",Cell.new(:"host",Cell.new(:"port",Cell.new(:"path",Cell.new(:"dir",Cell.new(:"filename",Cell.new(:"proj",Cell.new(:"ver",Cell.new(:"package",Cell.new(:"ext",Cell.new(:"arc-type")))))))))))) ] )) end ) end begin #execFunc def self._parsed_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_parsed', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_parsed'] = self.method( :_parsed_METHOD ) @_parsed = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKconstructor_METHOD( 'record-constructor', begin if @global_lisp_binding.has_key?('_record_MIMARKconstructor') then trampCall(@_record_MIMARKconstructor) else raise NameError.new( "Error: undefined variable record-constructor", "record-constructor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , Cell.new(:"scheme",Cell.new(:"scheme-type",Cell.new(:"host",Cell.new(:"port",Cell.new(:"path",Cell.new(:"dir",Cell.new(:"filename",Cell.new(:"proj",Cell.new(:"ver",Cell.new(:"package",Cell.new(:"ext",Cell.new(:"arc-type")))))))))))) ] )) end ) end begin #execFunc def self._parsed_QUMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_parsed_QUMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_parsed_QUMARK'] = self.method( :_parsed_QUMARK_METHOD ) @_parsed_QUMARK = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKpredicate_METHOD( 'record-predicate', begin if @global_lisp_binding.has_key?('_record_MIMARKpredicate') then trampCall(@_record_MIMARKpredicate) else raise NameError.new( "Error: undefined variable record-predicate", "record-predicate" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end ] )) end ) end begin #execFunc def self._scheme_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_scheme', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_scheme'] = self.method( :_scheme_METHOD ) @_scheme = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"scheme" ] )) end ) end begin #execFunc def self._scheme_MIMARKtype_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_scheme_MIMARKtype', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_scheme_MIMARKtype'] = self.method( :_scheme_MIMARKtype_METHOD ) @_scheme_MIMARKtype = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"scheme-type" ] )) end ) end begin #execFunc def self._host_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_host', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_host'] = self.method( :_host_METHOD ) @_host = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"host" ] )) end ) end begin #execFunc def self._port_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_port', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_port'] = self.method( :_port_METHOD ) @_port = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"port" ] )) end ) end begin #execFunc def self._path_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_path', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_path'] = self.method( :_path_METHOD ) @_path = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"path" ] )) end ) end begin #execFunc def self._dir_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_dir', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_dir'] = self.method( :_dir_METHOD ) @_dir = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"dir" ] )) end ) end begin #execFunc def self._filename_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_filename', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_filename'] = self.method( :_filename_METHOD ) @_filename = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"filename" ] )) end ) end begin #execFunc def self._proj_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_proj', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_proj'] = self.method( :_proj_METHOD ) @_proj = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"proj" ] )) end ) end begin #execFunc def self._ver_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_ver', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_ver'] = self.method( :_ver_METHOD ) @_ver = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"ver" ] )) end ) end begin #execFunc def self._package_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_package', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_package'] = self.method( :_package_METHOD ) @_package = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"package" ] )) end ) end begin #execFunc def self._ext_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_ext', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_ext'] = self.method( :_ext_METHOD ) @_ext = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"ext" ] )) end ) end begin #execFunc def self._arc_MIMARKtype_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_arc_MIMARKtype', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_arc_MIMARKtype'] = self.method( :_arc_MIMARKtype_METHOD ) @_arc_MIMARKtype = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then trampCall(@__LTMARKparsed_GTMARK) else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e end , :"arc-type" ] )) end ) end end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKparse_MIMARKurl_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKparse_MIMARKurl', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKparse_MIMARKurl'] = self.method( :_stowm_MIMARKparse_MIMARKurl_METHOD ) @_stowm_MIMARKparse_MIMARKurl = trampCall( Proc.new { |_url_MIMARKstring| begin #makeLet ___lambda = lambda { |_url| begin #makeLet ___lambda = lambda { |_lst| begin #makeLet ___lambda = lambda { |_fields| begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 95 ); delayCall( '_parsed', 'parsed', begin if @global_lisp_binding.has_key?('_parsed') then trampCall(@_parsed) else raise NameError.new( "Error: undefined variable parsed", "parsed" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:95"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_url).scheme rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:96"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 97 ); trampCall( self._stowm_MIMARKget_MIMARKscheme_MIMARKtype_METHOD( 'stowm-get-scheme-type', begin if @global_lisp_binding.has_key?('_stowm_MIMARKget_MIMARKscheme_MIMARKtype') then trampCall(@_stowm_MIMARKget_MIMARKscheme_MIMARKtype) else raise NameError.new( "Error: undefined variable stowm-get-scheme-type", "stowm-get-scheme-type" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:97"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_url).scheme rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:97"] + __e.backtrace ) ; raise __e end ] )) end , begin trampCall(_url).host rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:98"] + __e.backtrace ) ; raise __e end , begin trampCall(_url).port rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:99"] + __e.backtrace ) ; raise __e end , begin trampCall(_url).path rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:100"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 101 ); 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/parseutil.nnd:101"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:101"] + __e.backtrace ) ; raise __e end ] )) end , begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 102 ); 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/parseutil.nnd:102"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:102"] + __e.backtrace ) ; raise __e end ] )) end , begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70024| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70024) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70024) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70025| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70025) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70025) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else false end } ; ___lambda.call( "" ) end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 103 ); 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/parseutil.nnd:103"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_fields) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:103"] + __e.backtrace ) ; raise __e end ] )) end ) end , begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70026| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70026) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70026) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70027| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70027) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70027) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else false end } ; ___lambda.call( "" ) end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 104 ); 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/parseutil.nnd:104"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_fields) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:104"] + __e.backtrace ) ; raise __e end ] )) end ) end , begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 105 ); ( begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70028| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70028) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70028) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70029| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70029) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70029) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else false end } ; ___lambda.call( "" ) end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 105 ); 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/parseutil.nnd:105"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_fields) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:105"] + __e.backtrace ) ; raise __e end ] )) end ) end + "-" + begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70030| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70030) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70030) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70031| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70031) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70031) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else false end } ; ___lambda.call( "" ) end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 107 ); 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/parseutil.nnd:107"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_fields) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:107"] + __e.backtrace ) ; raise __e end ] )) end ) end ) end , begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70032| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70032) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70032) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70033| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70033) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70033) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else false end } ; ___lambda.call( "" ) end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 108 ); 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/parseutil.nnd:108"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_fields) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:108"] + __e.backtrace ) ; raise __e end ] )) end ) end , begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 109 ); trampCall( self._stowm_MIMARKget_MIMARKext_MIMARKtype_METHOD( 'stowm-get-ext-type', begin if @global_lisp_binding.has_key?('_stowm_MIMARKget_MIMARKext_MIMARKtype') then trampCall(@_stowm_MIMARKget_MIMARKext_MIMARKtype) else raise NameError.new( "Error: undefined variable stowm-get-ext-type", "stowm-get-ext-type" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:109"] + __e.backtrace ) ; raise __e end , [ begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70034| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70034) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70034) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70035| if ( begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70035) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70035) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else false end } ; ___lambda.call( "" ) end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 109 ); 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/parseutil.nnd:109"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_fields) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:109"] + __e.backtrace ) ; raise __e end ] )) end ) end ] )) end ] ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 94 ); trampCall( self._stowm_MIMARKsplit_MIMARKfilename_METHOD( 'stowm-split-filename', begin if @global_lisp_binding.has_key?('_stowm_MIMARKsplit_MIMARKfilename') then trampCall(@_stowm_MIMARKsplit_MIMARKfilename) else raise NameError.new( "Error: undefined variable stowm-split-filename", "stowm-split-filename" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:94"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 94 ); 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/parseutil.nnd:94"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:94"] + __e.backtrace ) ; raise __e end ] )) end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 93 ); trampCall( self._stowm_MIMARKsplit_MIMARKpath_METHOD( 'stowm-split-path', begin if @global_lisp_binding.has_key?('_stowm_MIMARKsplit_MIMARKpath') then trampCall(@_stowm_MIMARKsplit_MIMARKpath) else raise NameError.new( "Error: undefined variable stowm-split-path", "stowm-split-path" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:93"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_url).path rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:93"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin trampCall(URI).parse( begin trampCall(_url_MIMARKstring) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:92"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:92"] + __e.backtrace ) ; raise __e end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._is_MIMARKvalid_MIMARKurl_QUMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_is_MIMARKvalid_MIMARKurl_QUMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_is_MIMARKvalid_MIMARKurl_QUMARK'] = self.method( :_is_MIMARKvalid_MIMARKurl_QUMARK_METHOD ) @_is_MIMARKvalid_MIMARKurl_QUMARK = trampCall( Proc.new { |_url_MIMARKstring| begin #makeLet ___lambda = lambda { |_parsed| if ( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 114 ); trampCall( self._arc_MIMARKtype_METHOD( 'arc-type', begin if @global_lisp_binding.has_key?('_arc_MIMARKtype') then trampCall(@_arc_MIMARKtype) else raise NameError.new( "Error: undefined variable arc-type", "arc-type" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:114"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_parsed) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:114"] + __e.backtrace ) ; raise __e end ] )) end ) then if ( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 115 ); _eq_QUMARK( :"unknown" , begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 115 ); trampCall( self._scheme_MIMARKtype_METHOD( 'scheme-type', begin if @global_lisp_binding.has_key?('_scheme_MIMARKtype') then trampCall(@_scheme_MIMARKtype) else raise NameError.new( "Error: undefined variable scheme-type", "scheme-type" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:115"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_parsed) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:115"] + __e.backtrace ) ; raise __e end ] )) end ) end ) then false else if ( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 117 ); ( 0 < begin #makeLet ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70036| begin trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70036).size( ) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 117 ); trampCall( self._ver_METHOD( 'ver', begin if @global_lisp_binding.has_key?('_ver') then trampCall(@_ver) else raise NameError.new( "Error: undefined variable ver", "ver" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:117"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_parsed) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:117"] + __e.backtrace ) ; raise __e end ] )) end ) end ) end ) then true else false end end else false end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 113 ); 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/parseutil.nnd:113"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_url_MIMARKstring) rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:113"] + __e.backtrace ) ; raise __e end ] )) end ) end } ) end )
# ——————————————————- # [EOF] # ——————————————————-