# # This file is nendo's compiled library file. # generated “nendo -c src” command. #
trampCall(
begin embedBacktraceInfo( "./lib/stowm/main.nnd", 4 ); 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/main.nnd:4"] + __e.backtrace ) ; raise __e end , [ "fileutils" ] ) end )
——————–
trampCall(
begin #execFunc def self._display_MIMARKhelp_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_display_MIMARKhelp', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_display_MIMARKhelp'] = self.method( :_display_MIMARKhelp_METHOD ) @_display_MIMARKhelp = trampCall( Proc.new { || begin embedBacktraceInfo( "./lib/stowm/main.nnd", 7 ); _print( "" ) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 8 ); _print( "Usage: " ) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 9 ); _print( " 1. stowm URL of tar.gz ... fetch, generate specfile, build, install program." ) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 10 ); _print( " stowm xxx.tar.gz ... generate specfile, build, install program." ) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 11 ); _print( " 2. stowm list [proj] ... display installed program list." ) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 12 ); _print( " 3. stowm enable [num] ... enable installed program. (stow -R)" ) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 13 ); _print( " stowm enable [proj] ... enable installed program by name. (stow -D & stow -R)" ) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 14 ); _print( " 4. stowm disable [num] ... disable installed program. (stow -D)" ) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 15 ); _print( " stowm disable [proj] ... disalbe installed program by name. (stow -D)" ) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 16 ); _print( " stowm rebuild [num] ... rebuild program. (create Makefile.tmp again)" ) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 17 ); _print( " 5 stowm env ... display stowm environment." ) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 18 ); delayCall( '_print', 'print', begin if @global_lisp_binding.has_key?('_print') then trampCall(@_print) else raise NameError.new( "Error: undefined variable print", "print" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:18"] + __e.backtrace ) ; raise __e end , [ "" ] ) end } ) end )
——————–
trampCall(
begin #execFunc def self._pickup_MIMARKpackage_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_pickup_MIMARKpackage', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_pickup_MIMARKpackage'] = self.method( :_pickup_MIMARKpackage_METHOD ) @_pickup_MIMARKpackage = trampCall( Proc.new { |_path| if ( begin #execFunc def self.___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017'] = self.method( :___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017_METHOD ) @___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017 = trampCall( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 23 ); 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/main.nnd:23"] + __e.backtrace ) ; raise __e end , [ "/stow/([^/]+)" , begin trampCall(_path) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:23"] + __e.backtrace ) ; raise __e end ] )) end ) end ) then begin embedBacktraceInfo( "./lib/stowm/main.nnd", 24 ); delayCall( '_second', '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/main.nnd:24"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017') then trampCall(@___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017) else raise NameError.new( "Error: undefined variable __gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017", "__gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ] ) end else if ( true ) then false else Cell.new() end end } ) end )
——————–
trampCall(
begin #execFunc def self._get_MIMARKinstalled_MIMARKalist_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_get_MIMARKinstalled_MIMARKalist', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_get_MIMARKinstalled_MIMARKalist'] = self.method( :_get_MIMARKinstalled_MIMARKalist_METHOD ) @_get_MIMARKinstalled_MIMARKalist = trampCall( Proc.new { |_local,_stow_MIMARKhome| begin #makeLet ___lambda = lambda { |_script| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 32 ); trampCall( self._stowm_MIMARKexec_MIMARKsh_METHOD( 'stowm-exec-sh', begin if @global_lisp_binding.has_key?('_stowm_MIMARKexec_MIMARKsh') then trampCall(@_stowm_MIMARKexec_MIMARKsh) else raise NameError.new( "Error: undefined variable stowm-exec-sh", "stowm-exec-sh" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:32"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_script) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:32"] + __e.backtrace ) ; raise __e end , false ] )) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 33 ); delayCall( '_with_MIMARKopen', 'with-open', begin if @global_lisp_binding.has_key?('_with_MIMARKopen') then trampCall(@_with_MIMARKopen) else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:33"] + __e.backtrace ) ; raise __e end , [ "/tmp/stowm.cache" , Proc.new { |_f| begin #makeLet ___lambda = lambda { |_froms| begin #makeLet ___lambda = lambda { |_link_MIMARKalist| begin trampCall(_link_MIMARKalist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:47"] + __e.backtrace ) ; raise __e end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 41 ); 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/main.nnd:41"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_fn| begin #makeLet ___lambda = lambda { |_link| if ( begin embedBacktraceInfo( "", 1 ); _not( begin embedBacktraceInfo( "", 1 ); _eq_QUMARK( false , begin trampCall(_link) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:44"] + __e.backtrace ) ; raise __e end ) end ) end ) then begin embedBacktraceInfo( "./lib/stowm/main.nnd", 45 ); _cons( begin trampCall(_link) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:45"] + __e.backtrace ) ; raise __e end , begin trampCall(_fn) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:45"] + __e.backtrace ) ; raise __e end ) end else false end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 43 ); trampCall( self._pickup_MIMARKpackage_METHOD( 'pickup-package', begin if @global_lisp_binding.has_key?('_pickup_MIMARKpackage') then trampCall(@_pickup_MIMARKpackage) else raise NameError.new( "Error: undefined variable pickup-package", "pickup-package" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:43"] + __e.backtrace ) ; raise __e end , [ begin trampCall(File).readlink( begin trampCall(_fn) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:43"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:43"] + __e.backtrace ) ; raise __e end ] )) end ) end } , begin trampCall(_froms) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:46"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 36 ); 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/main.nnd:36"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_line| begin trampCall(_line).chomp( ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:38"] + __e.backtrace ) ; raise __e end } , begin trampCall(_f).readlines.to_list( ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:39"] + __e.backtrace ) ; raise __e end ] )) end ) end } ] ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 31 ); trampCall( self._sprintf_METHOD( 'sprintf', begin if @global_lisp_binding.has_key?('_sprintf') then trampCall(@_sprintf) else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:31"] + __e.backtrace ) ; raise __e end , [ "find %s -type l | grep -v %s > /tmp/stowm.cache
“ ,
begin trampCall(_local) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:31"] + __e.backtrace ) ; raise __e end , begin trampCall(_stow_MIMARKhome) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:31"] + __e.backtrace ) ; raise __e end ] )) end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._get_MIMARKstowed_MIMARKlist_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_get_MIMARKstowed_MIMARKlist', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_get_MIMARKstowed_MIMARKlist'] = self.method( :_get_MIMARKstowed_MIMARKlist_METHOD ) @_get_MIMARKstowed_MIMARKlist = trampCall( Proc.new { |_home_MIMARKrepos,_stow_MIMARKhome,_link_MIMARKalist| begin #makeLet ___lambda = lambda { |_projs| begin #makeLet ___lambda = lambda { |_projs_MIMARKhash| begin #makeLet ___lambda = lambda { |_stowed| begin #makeLet ___lambda = lambda { |_stowed_MIMARKhash| begin #makeLet ___lambda = lambda { |_all| begin #makeLet ___lambda = lambda { |_installed_MIMARKhash| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 68 ); delayCall( '_map', '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/main.nnd:68"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x,_cnt| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 70 ); _cons( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:70"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 71 ); 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/main.nnd:71"] + __e.backtrace ) ; raise __e end , [ if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 72 ); trampCall( self._hash_MIMARKtable_MIMARKexist_QUMARK_METHOD( 'hash-table-exist?', begin if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARKexist_QUMARK') then trampCall(@_hash_MIMARKtable_MIMARKexist_QUMARK) else raise NameError.new( "Error: undefined variable hash-table-exist?", "hash-table-exist?" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:72"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_stowed_MIMARKhash) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:72"] + __e.backtrace ) ; raise __e end , begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:72"] + __e.backtrace ) ; raise __e end ] )) end ) then if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 73 ); trampCall( self._hash_MIMARKtable_MIMARKexist_QUMARK_METHOD( 'hash-table-exist?', begin if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARKexist_QUMARK') then trampCall(@_hash_MIMARKtable_MIMARKexist_QUMARK) else raise NameError.new( "Error: undefined variable hash-table-exist?", "hash-table-exist?" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:73"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_installed_MIMARKhash) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:73"] + __e.backtrace ) ; raise __e end , begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:73"] + __e.backtrace ) ; raise __e end ] )) end ) then :"e" else false end else false end , if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 75 ); trampCall( self._hash_MIMARKtable_MIMARKexist_QUMARK_METHOD( 'hash-table-exist?', begin if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARKexist_QUMARK') then trampCall(@_hash_MIMARKtable_MIMARKexist_QUMARK) else raise NameError.new( "Error: undefined variable hash-table-exist?", "hash-table-exist?" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:75"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_stowed_MIMARKhash) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:75"] + __e.backtrace ) ; raise __e end , begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:75"] + __e.backtrace ) ; raise __e end ] )) end ) then :"i" else false end , if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 76 ); trampCall( self._hash_MIMARKtable_MIMARKexist_QUMARK_METHOD( 'hash-table-exist?', begin if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARKexist_QUMARK') then trampCall(@_hash_MIMARKtable_MIMARKexist_QUMARK) else raise NameError.new( "Error: undefined variable hash-table-exist?", "hash-table-exist?" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:76"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_projs_MIMARKhash) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:76"] + __e.backtrace ) ; raise __e end , begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:76"] + __e.backtrace ) ; raise __e end ] )) end ) then :"s" else false end , begin trampCall(_cnt) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:77"] + __e.backtrace ) ; raise __e end ] )) end ) end } , begin trampCall(_all) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:78"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 79 ); trampCall( self._range_METHOD( 'range', begin if @global_lisp_binding.has_key?('_range') then trampCall(@_range) else raise NameError.new( "Error: undefined variable range", "range" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:79"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 79 ); _length( begin trampCall(_all) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:79"] + __e.backtrace ) ; raise __e end ) end ] )) end ] ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 67 ); trampCall( self._alist_MIMARK_GTMARKhash_MIMARKtable_METHOD( 'alist->hash-table', begin if @global_lisp_binding.has_key?('_alist_MIMARK_GTMARKhash_MIMARKtable') then trampCall(@_alist_MIMARK_GTMARKhash_MIMARKtable) else raise NameError.new( "Error: undefined variable alist->hash-table", "alist->hash-table" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:67"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_link_MIMARKalist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:67"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 66 ); trampCall( self._sort_METHOD( 'sort', begin if @global_lisp_binding.has_key?('_sort') then trampCall(@_sort) else raise NameError.new( "Error: undefined variable sort", "sort" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:66"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 66 ); trampCall( self._delete_MIMARKduplicates_METHOD( 'delete-duplicates', begin if @global_lisp_binding.has_key?('_delete_MIMARKduplicates') then trampCall(@_delete_MIMARKduplicates) else raise NameError.new( "Error: undefined variable delete-duplicates", "delete-duplicates" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:66"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 66 ); trampCall( self._append_METHOD( 'append', begin if @global_lisp_binding.has_key?('_append') then trampCall(@_append) else raise NameError.new( "Error: undefined variable append", "append" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:66"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_projs) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:66"] + __e.backtrace ) ; raise __e end , begin trampCall(_stowed) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:66"] + __e.backtrace ) ; raise __e end ] )) end ] )) end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 63 ); trampCall( self._apply_METHOD( 'apply', begin if @global_lisp_binding.has_key?('_apply') then trampCall(@_apply) else raise NameError.new( "Error: undefined variable apply", "apply" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:63"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('_hash_MIMARKtable') then trampCall(@_hash_MIMARKtable) else raise NameError.new( "Error: undefined variable hash-table", "hash-table" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:63"] + __e.backtrace ) ; raise __e end , begin if @global_lisp_binding.has_key?('_eq_QUMARK') then trampCall(@_eq_QUMARK) else raise NameError.new( "Error: undefined variable eq?", "eq?" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:63"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 64 ); 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/main.nnd:64"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 64 ); _cons( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:64"] + __e.backtrace ) ; raise __e end , true ) end } , begin trampCall(_stowed) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:65"] + __e.backtrace ) ; raise __e end ] )) end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 62 ); trampCall( self._stowm_MIMARKget_MIMARKdir_MIMARKentries_METHOD( 'stowm-get-dir-entries', begin if @global_lisp_binding.has_key?('_stowm_MIMARKget_MIMARKdir_MIMARKentries') then trampCall(@_stowm_MIMARKget_MIMARKdir_MIMARKentries) else raise NameError.new( "Error: undefined variable stowm-get-dir-entries", "stowm-get-dir-entries" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:62"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_stow_MIMARKhome) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:62"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 59 ); trampCall( self._apply_METHOD( 'apply', begin if @global_lisp_binding.has_key?('_apply') then trampCall(@_apply) else raise NameError.new( "Error: undefined variable apply", "apply" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:59"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('_hash_MIMARKtable') then trampCall(@_hash_MIMARKtable) else raise NameError.new( "Error: undefined variable hash-table", "hash-table" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:59"] + __e.backtrace ) ; raise __e end , begin if @global_lisp_binding.has_key?('_eq_QUMARK') then trampCall(@_eq_QUMARK) else raise NameError.new( "Error: undefined variable eq?", "eq?" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:59"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 60 ); 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/main.nnd:60"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 60 ); _cons( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:60"] + __e.backtrace ) ; raise __e end , true ) end } , begin trampCall(_projs) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:61"] + __e.backtrace ) ; raise __e end ] )) end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 58 ); trampCall( self._stowm_MIMARKget_MIMARKdir_MIMARKentries_METHOD( 'stowm-get-dir-entries', begin if @global_lisp_binding.has_key?('_stowm_MIMARKget_MIMARKdir_MIMARKentries') then trampCall(@_stowm_MIMARKget_MIMARKdir_MIMARKentries) else raise NameError.new( "Error: undefined variable stowm-get-dir-entries", "stowm-get-dir-entries" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:58"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_home_MIMARKrepos) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:58"] + __e.backtrace ) ; raise __e end ] )) end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._save_MIMARKinstalled_MIMARKdb_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_save_MIMARKinstalled_MIMARKdb', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_save_MIMARKinstalled_MIMARKdb'] = self.method( :_save_MIMARKinstalled_MIMARKdb_METHOD ) @_save_MIMARKinstalled_MIMARKdb = trampCall( Proc.new { |_env| begin #makeLet ___lambda = lambda { |_link_MIMARKalist| begin #makeLet ___lambda = lambda { |_stowed_MIMARKlist| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 85 ); trampCall( self._printf_METHOD( 'printf', begin if @global_lisp_binding.has_key?('_printf') then trampCall(@_printf) else raise NameError.new( "Error: undefined variable printf", "printf" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:85"] + __e.backtrace ) ; raise __e end , [ "Info: rebuild [%s]
“ ,
begin embedBacktraceInfo( "./lib/stowm/main.nnd", 85 ); trampCall( self._db_MIMARKpath_METHOD( 'db-path', begin if @global_lisp_binding.has_key?('_db_MIMARKpath') then trampCall(@_db_MIMARKpath) else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:85"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:85"] + __e.backtrace ) ; raise __e end ] )) end ] )) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 86 ); trampCall( self._with_MIMARKopen_METHOD( 'with-open', begin if @global_lisp_binding.has_key?('_with_MIMARKopen') then trampCall(@_with_MIMARKopen) else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:86"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 86 ); trampCall( self._db_MIMARKpath_METHOD( 'db-path', begin if @global_lisp_binding.has_key?('_db_MIMARKpath') then trampCall(@_db_MIMARKpath) else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:86"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:86"] + __e.backtrace ) ; raise __e end ] )) end , Proc.new { |_f| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 88 ); trampCall( self._pretty_MIMARKprint_METHOD( 'pretty-print', begin if @global_lisp_binding.has_key?('_pretty_MIMARKprint') then trampCall(@_pretty_MIMARKprint) else raise NameError.new( "Error: undefined variable pretty-print", "pretty-print" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:88"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_stowed_MIMARKlist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:88"] + __e.backtrace ) ; raise __e end , begin trampCall(_f) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:88"] + __e.backtrace ) ; raise __e end ] )) end } , "w" ] )) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 84 ); trampCall( self._get_MIMARKstowed_MIMARKlist_METHOD( 'get-stowed-list', begin if @global_lisp_binding.has_key?('_get_MIMARKstowed_MIMARKlist') then trampCall(@_get_MIMARKstowed_MIMARKlist) else raise NameError.new( "Error: undefined variable get-stowed-list", "get-stowed-list" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 84 ); trampCall( self._home_MIMARKrepos_METHOD( 'home-repos', begin if @global_lisp_binding.has_key?('_home_MIMARKrepos') then trampCall(@_home_MIMARKrepos) else raise NameError.new( "Error: undefined variable home-repos", "home-repos" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e end ] )) end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 84 ); trampCall( self._stow_MIMARKhome_METHOD( 'stow-home', begin if @global_lisp_binding.has_key?('_stow_MIMARKhome') then trampCall(@_stow_MIMARKhome) else raise NameError.new( "Error: undefined variable stow-home", "stow-home" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e end ] )) end , begin trampCall(_link_MIMARKalist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 83 ); trampCall( self._get_MIMARKinstalled_MIMARKalist_METHOD( 'get-installed-alist', begin if @global_lisp_binding.has_key?('_get_MIMARKinstalled_MIMARKalist') then trampCall(@_get_MIMARKinstalled_MIMARKalist) else raise NameError.new( "Error: undefined variable get-installed-alist", "get-installed-alist" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:83"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 83 ); trampCall( self._local_METHOD( 'local', begin if @global_lisp_binding.has_key?('_local') then trampCall(@_local) else raise NameError.new( "Error: undefined variable local", "local" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:83"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:83"] + __e.backtrace ) ; raise __e end ] )) end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 83 ); trampCall( self._stow_MIMARKhome_METHOD( 'stow-home', begin if @global_lisp_binding.has_key?('_stow_MIMARKhome') then trampCall(@_stow_MIMARKhome) else raise NameError.new( "Error: undefined variable stow-home", "stow-home" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:83"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:83"] + __e.backtrace ) ; raise __e end ] )) end ] )) end ) end 0 } ) end )
——————–
trampCall(
begin #execFunc def self._rebuild_MIMARKinstalled_MIMARKdb_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_rebuild_MIMARKinstalled_MIMARKdb', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_rebuild_MIMARKinstalled_MIMARKdb'] = self.method( :_rebuild_MIMARKinstalled_MIMARKdb_METHOD ) @_rebuild_MIMARKinstalled_MIMARKdb = trampCall( Proc.new { |_env| if ( begin #makeLet ___lambda = lambda { |___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30018| if ( begin trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30018) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30018) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30019| if ( begin trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30019) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30019) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30020| if ( begin trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30020) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30020) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else false end } ; ___lambda.call( begin #makeLet ___lambda = lambda { |_local_MIMARKbin_MIMARKfs,_db_MIMARKfs| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 103 ); ( begin trampCall(_db_MIMARKfs).mtime.to_i( ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:104"] + __e.backtrace ) ; raise __e end < begin trampCall(_local_MIMARKbin_MIMARKfs).mtime.to_i( ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:105"] + __e.backtrace ) ; raise __e end ) end } ; ___lambda.call( begin trampCall(File::Stat).new( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 101 ); trampCall( self._bin_METHOD( 'bin', begin if @global_lisp_binding.has_key?('_bin') then trampCall(@_bin) else raise NameError.new( "Error: undefined variable bin", "bin" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:101"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:101"] + __e.backtrace ) ; raise __e end ] )) end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:101"] + __e.backtrace ) ; raise __e end , begin trampCall(File::Stat).new( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 102 ); trampCall( self._db_MIMARKpath_METHOD( 'db-path', begin if @global_lisp_binding.has_key?('_db_MIMARKpath') then trampCall(@_db_MIMARKpath) else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:102"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:102"] + __e.backtrace ) ; raise __e end ] )) end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:102"] + __e.backtrace ) ; raise __e end ) end ) end end } ; ___lambda.call( begin #makeLet ___lambda = lambda { |_stow_MIMARKhome_MIMARKfs,_db_MIMARKfs| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 98 ); ( begin trampCall(_db_MIMARKfs).mtime.to_i( ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:99"] + __e.backtrace ) ; raise __e end < begin trampCall(_stow_MIMARKhome_MIMARKfs).mtime.to_i( ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:100"] + __e.backtrace ) ; raise __e end ) end } ; ___lambda.call( begin trampCall(File::Stat).new( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 96 ); trampCall( self._stow_MIMARKhome_METHOD( 'stow-home', begin if @global_lisp_binding.has_key?('_stow_MIMARKhome') then trampCall(@_stow_MIMARKhome) else raise NameError.new( "Error: undefined variable stow-home", "stow-home" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:96"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:96"] + __e.backtrace ) ; raise __e end ] )) end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:96"] + __e.backtrace ) ; raise __e end , begin trampCall(File::Stat).new( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 97 ); trampCall( self._db_MIMARKpath_METHOD( 'db-path', begin if @global_lisp_binding.has_key?('_db_MIMARKpath') then trampCall(@_db_MIMARKpath) else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:97"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:97"] + __e.backtrace ) ; raise __e end ] )) end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:97"] + __e.backtrace ) ; raise __e end ) end ) end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 95 ); _not( begin trampCall(File).exist?( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 95 ); trampCall( self._db_MIMARKpath_METHOD( 'db-path', begin if @global_lisp_binding.has_key?('_db_MIMARKpath') then trampCall(@_db_MIMARKpath) else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:95"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:95"] + __e.backtrace ) ; raise __e end ] )) end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:95"] + __e.backtrace ) ; raise __e end ) end ) end ) then begin embedBacktraceInfo( "./lib/stowm/main.nnd", 106 ); trampCall( self._save_MIMARKinstalled_MIMARKdb_METHOD( 'save-installed-db', begin if @global_lisp_binding.has_key?('_save_MIMARKinstalled_MIMARKdb') then trampCall(@_save_MIMARKinstalled_MIMARKdb) else raise NameError.new( "Error: undefined variable save-installed-db", "save-installed-db" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:106"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:106"] + __e.backtrace ) ; raise __e end ] )) end end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 107 ); delayCall( '_with_MIMARKopen', 'with-open', begin if @global_lisp_binding.has_key?('_with_MIMARKopen') then trampCall(@_with_MIMARKopen) else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:107"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 107 ); trampCall( self._db_MIMARKpath_METHOD( 'db-path', begin if @global_lisp_binding.has_key?('_db_MIMARKpath') then trampCall(@_db_MIMARKpath) else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:107"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:107"] + __e.backtrace ) ; raise __e end ] )) end , Proc.new { |_f| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 109 ); trampCall( self._read_METHOD( 'read', begin if @global_lisp_binding.has_key?('_read') then trampCall(@_read) else raise NameError.new( "Error: undefined variable read", "read" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:109"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_f) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:109"] + __e.backtrace ) ; raise __e end ] )) end } ] ) end } ) end )
——————–
trampCall(
begin #execFunc def self._display_MIMARKlist_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_display_MIMARKlist', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_display_MIMARKlist'] = self.method( :_display_MIMARKlist_METHOD ) @_display_MIMARKlist = trampCall( Proc.new { |_stowed_MIMARKlist,_keyword| begin #makeLetrec ___lambda = lambda { |_ox,__format_h,__format_d| _ox = Proc.new { |_bool_MIMARKval| if ( begin trampCall(_bool_MIMARKval) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:115"] + __e.backtrace ) ; raise __e end ) then "O" else "-" end } __format_h = " %-35s %11s %11s
“
__format_d = " %3d) %-35s %11s %11s
“
begin #makeLet ___lambda = lambda { |_lst| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 127 ); delayCall( '_print', 'print', begin if @global_lisp_binding.has_key?('_print') then trampCall(@_print) else raise NameError.new( "Error: undefined variable print", "print" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:127"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 128 ); trampCall( self._apply_METHOD( 'apply', begin if @global_lisp_binding.has_key?('_apply') then trampCall(@_apply) else raise NameError.new( "Error: undefined variable apply", "apply" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:128"] + __e.backtrace ) ; raise __e end , [ 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/main.nnd:128"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 129 ); _cons( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 130 ); trampCall( self._sprintf_METHOD( 'sprintf', begin if @global_lisp_binding.has_key?('_sprintf') then trampCall(@_sprintf) else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:130"] + __e.backtrace ) ; raise __e end , [ begin trampCall(__format_h) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:130"] + __e.backtrace ) ; raise __e end , " <name>" , "<enabled>" , "<installed>" ] )) end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 131 ); 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/main.nnd:131"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_tree| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 133 ); trampCall( self._apply_METHOD( 'apply', begin if @global_lisp_binding.has_key?('_apply') then trampCall(@_apply) else raise NameError.new( "Error: undefined variable apply", "apply" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:133"] + __e.backtrace ) ; raise __e end , [ 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/main.nnd:133"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 134 ); _cons( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 135 ); trampCall( self._sprintf_METHOD( 'sprintf', begin if @global_lisp_binding.has_key?('_sprintf') then trampCall(@_sprintf) else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:135"] + __e.backtrace ) ; raise __e end , [ " %s
“ ,
begin embedBacktraceInfo( "./lib/stowm/main.nnd", 135 ); _car( begin trampCall(_tree) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:135"] + __e.backtrace ) ; raise __e end ) end ] )) end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 136 ); 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/main.nnd:136"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 138 ); trampCall( self._sprintf_METHOD( 'sprintf', begin if @global_lisp_binding.has_key?('_sprintf') then trampCall(@_sprintf) else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:138"] + __e.backtrace ) ; raise __e end , [ begin trampCall(__format_d) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:138"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 139 ); 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/main.nnd:139"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:139"] + __e.backtrace ) ; raise __e end ] )) end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 140 ); ( " " + begin embedBacktraceInfo( "./lib/stowm/main.nnd", 140 ); 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/main.nnd:140"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:140"] + __e.backtrace ) ; raise __e end ] )) end ) end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 141 ); trampCall( callProcedure( '_ox', 'ox', begin trampCall(_ox) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:141"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 141 ); 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/main.nnd:141"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:141"] + __e.backtrace ) ; raise __e end ] )) end ] )) end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 142 ); trampCall( callProcedure( '_ox', 'ox', begin trampCall(_ox) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:142"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 142 ); 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/main.nnd:142"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:142"] + __e.backtrace ) ; raise __e end ] )) end ] )) end ] )) end } , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 143 ); _cdr( begin trampCall(_tree) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:143"] + __e.backtrace ) ; raise __e end ) end ] )) end ) end ] )) end } , begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:144"] + __e.backtrace ) ; raise __e end ] )) end ) end ] )) end ] ) end } ; ___lambda.call( if ( begin trampCall(_keyword) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:120"] + __e.backtrace ) ; raise __e end ) then begin embedBacktraceInfo( "./lib/stowm/main.nnd", 121 ); delayCall( '_filter', 'filter', begin if @global_lisp_binding.has_key?('_filter') then trampCall(@_filter) else raise NameError.new( "Error: undefined variable filter", "filter" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:121"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 123 ); 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/main.nnd:123"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_keyword) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:123"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 123 ); _car( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:123"] + __e.backtrace ) ; raise __e end ) end ] )) end } , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 124 ); trampCall( self._stowed_MIMARKlist_MIMARKto_MIMARKtree_METHOD( 'stowed-list-to-tree', begin if @global_lisp_binding.has_key?('_stowed_MIMARKlist_MIMARKto_MIMARKtree') then trampCall(@_stowed_MIMARKlist_MIMARKto_MIMARKtree) else raise NameError.new( "Error: undefined variable stowed-list-to-tree", "stowed-list-to-tree" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:124"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_stowed_MIMARKlist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:124"] + __e.backtrace ) ; raise __e end ] )) end ] ) end else begin embedBacktraceInfo( "./lib/stowm/main.nnd", 125 ); delayCall( '_stowed_MIMARKlist_MIMARKto_MIMARKtree', 'stowed-list-to-tree', begin if @global_lisp_binding.has_key?('_stowed_MIMARKlist_MIMARKto_MIMARKtree') then trampCall(@_stowed_MIMARKlist_MIMARKto_MIMARKtree) else raise NameError.new( "Error: undefined variable stowed-list-to-tree", "stowed-list-to-tree" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:125"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_stowed_MIMARKlist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:125"] + __e.backtrace ) ; raise __e end ] ) end end ) end } ; ___lambda.call( nil,nil,nil ) end } ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKstderr_MIMARKtee_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKstderr_MIMARKtee', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKstderr_MIMARKtee'] = self.method( :_stowm_MIMARKstderr_MIMARKtee_METHOD ) @_stowm_MIMARKstderr_MIMARKtee = trampCall( Proc.new { |_str| begin trampCall(STDERR).printf( "Info: %s
“ ,
begin trampCall(_str) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:147"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:147"] + __e.backtrace ) ; raise __e end begin trampCall(_str) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:148"] + __e.backtrace ) ; raise __e end } ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKrestow_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKrestow', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKrestow'] = self.method( :_stowm_MIMARKrestow_METHOD ) @_stowm_MIMARKrestow = trampCall( Proc.new { |_env,_delete_MIMARKitem,_restow_MIMARKitem| begin #makeLet ___lambda = lambda { |_script| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 163 ); trampCall( self._stowm_MIMARKexec_MIMARKsh_METHOD( 'stowm-exec-sh', begin if @global_lisp_binding.has_key?('_stowm_MIMARKexec_MIMARKsh') then trampCall(@_stowm_MIMARKexec_MIMARKsh) else raise NameError.new( "Error: undefined variable stowm-exec-sh", "stowm-exec-sh" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:163"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_script) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:163"] + __e.backtrace ) ; raise __e end , false ] )) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 164 ); trampCall( self._save_MIMARKinstalled_MIMARKdb_METHOD( 'save-installed-db', begin if @global_lisp_binding.has_key?('_save_MIMARKinstalled_MIMARKdb') then trampCall(@_save_MIMARKinstalled_MIMARKdb) else raise NameError.new( "Error: undefined variable save-installed-db", "save-installed-db" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:164"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:164"] + __e.backtrace ) ; raise __e end ] )) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 165 ); delayCall( '_with_MIMARKopen', 'with-open', begin if @global_lisp_binding.has_key?('_with_MIMARKopen') then trampCall(@_with_MIMARKopen) else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:165"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 165 ); trampCall( self._db_MIMARKpath_METHOD( 'db-path', begin if @global_lisp_binding.has_key?('_db_MIMARKpath') then trampCall(@_db_MIMARKpath) else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:165"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:165"] + __e.backtrace ) ; raise __e end ] )) end , Proc.new { |_f| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 167 ); trampCall( self._read_METHOD( 'read', begin if @global_lisp_binding.has_key?('_read') then trampCall(@_read) else raise NameError.new( "Error: undefined variable read", "read" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:167"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_f) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:167"] + __e.backtrace ) ; raise __e end ] )) end } ] ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 152 ); 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/main.nnd:152"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 153 ); 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/main.nnd:153"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 154 ); ( "cd " + begin embedBacktraceInfo( "./lib/stowm/main.nnd", 154 ); trampCall( self._stow_MIMARKhome_METHOD( 'stow-home', begin if @global_lisp_binding.has_key?('_stow_MIMARKhome') then trampCall(@_stow_MIMARKhome) else raise NameError.new( "Error: undefined variable stow-home", "stow-home" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:154"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:154"] + __e.backtrace ) ; raise __e end ] )) end ) end , if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 155 ); _null_QUMARK( begin trampCall(_delete_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:155"] + __e.backtrace ) ; raise __e end ) end ) then "" else begin embedBacktraceInfo( "./lib/stowm/main.nnd", 157 ); trampCall( self._stowm_MIMARKstderr_MIMARKtee_METHOD( 'stowm-stderr-tee', begin if @global_lisp_binding.has_key?('_stowm_MIMARKstderr_MIMARKtee') then trampCall(@_stowm_MIMARKstderr_MIMARKtee) else raise NameError.new( "Error: undefined variable stowm-stderr-tee", "stowm-stderr-tee" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:157"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 157 ); trampCall( self._sprintf_METHOD( 'sprintf', begin if @global_lisp_binding.has_key?('_sprintf') then trampCall(@_sprintf) else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:157"] + __e.backtrace ) ; raise __e end , [ "%s -D %s" , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 157 ); trampCall( self._stow_MIMARKprogram_METHOD( 'stow-program', begin if @global_lisp_binding.has_key?('_stow_MIMARKprogram') then trampCall(@_stow_MIMARKprogram) else raise NameError.new( "Error: undefined variable stow-program", "stow-program" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:157"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:157"] + __e.backtrace ) ; raise __e end ] )) end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 157 ); _car( begin trampCall(_delete_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:157"] + __e.backtrace ) ; raise __e end ) end ] )) end ] )) end end , if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 158 ); _null_QUMARK( begin trampCall(_restow_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:158"] + __e.backtrace ) ; raise __e end ) end ) then "" else begin embedBacktraceInfo( "./lib/stowm/main.nnd", 160 ); trampCall( self._stowm_MIMARKstderr_MIMARKtee_METHOD( 'stowm-stderr-tee', begin if @global_lisp_binding.has_key?('_stowm_MIMARKstderr_MIMARKtee') then trampCall(@_stowm_MIMARKstderr_MIMARKtee) else raise NameError.new( "Error: undefined variable stowm-stderr-tee", "stowm-stderr-tee" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:160"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 160 ); trampCall( self._sprintf_METHOD( 'sprintf', begin if @global_lisp_binding.has_key?('_sprintf') then trampCall(@_sprintf) else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:160"] + __e.backtrace ) ; raise __e end , [ "%s -R %s" , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 160 ); trampCall( self._stow_MIMARKprogram_METHOD( 'stow-program', begin if @global_lisp_binding.has_key?('_stow_MIMARKprogram') then trampCall(@_stow_MIMARKprogram) else raise NameError.new( "Error: undefined variable stow-program", "stow-program" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:160"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:160"] + __e.backtrace ) ; raise __e end ] )) end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 160 ); _car( begin trampCall(_restow_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:160"] + __e.backtrace ) ; raise __e end ) end ] )) end ] )) end end , "" ] )) end , "
“
] )) end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._build_MIMARKpackage_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_build_MIMARKpackage', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_build_MIMARKpackage'] = self.method( :_build_MIMARKpackage_METHOD ) @_build_MIMARKpackage = trampCall( Proc.new { |_env,_spec_MIMARKobj,_makefile_MIMARKdir| begin #makeLet ___lambda = lambda { |_makefile_MIMARKpath| begin #makeLet ___lambda = lambda { |_makefile_MIMARKstr| if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 179 ); _not( begin trampCall(File).exist?( begin trampCall(_makefile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:179"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:179"] + __e.backtrace ) ; raise __e end ) end ) then begin trampCall(FileUtils).mkdir_p( begin trampCall(_makefile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:180"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:180"] + __e.backtrace ) ; raise __e end end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 183 ); trampCall( self._with_MIMARKopen_METHOD( 'with-open', begin if @global_lisp_binding.has_key?('_with_MIMARKopen') then trampCall(@_with_MIMARKopen) else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:183"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_makefile_MIMARKpath) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:184"] + __e.backtrace ) ; raise __e end , Proc.new { |_f| begin trampCall(_f).printf( "%s" , begin trampCall(_makefile_MIMARKstr) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:186"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:186"] + __e.backtrace ) ; raise __e end begin trampCall(STDERR).printf( "Info : created Makefile [%s]
“ ,
begin trampCall(_makefile_MIMARKpath) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:187"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:187"] + __e.backtrace ) ; raise __e end } , "w" ] )) end begin #makeLet ___lambda = lambda { |_script| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 193 ); delayCall( '_stowm_MIMARKexec_MIMARKsh', 'stowm-exec-sh', begin if @global_lisp_binding.has_key?('_stowm_MIMARKexec_MIMARKsh') then trampCall(@_stowm_MIMARKexec_MIMARKsh) else raise NameError.new( "Error: undefined variable stowm-exec-sh", "stowm-exec-sh" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:193"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_script) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:193"] + __e.backtrace ) ; raise __e end ] ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 190 ); ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 191 ); trampCall( self._sprintf_METHOD( 'sprintf', begin if @global_lisp_binding.has_key?('_sprintf') then trampCall(@_sprintf) else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:191"] + __e.backtrace ) ; raise __e end , [ "make -C %s -f Makefile.tmp clean
“ ,
begin trampCall(_makefile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:191"] + __e.backtrace ) ; raise __e end ] )) end + begin embedBacktraceInfo( "./lib/stowm/main.nnd", 192 ); trampCall( self._sprintf_METHOD( 'sprintf', begin if @global_lisp_binding.has_key?('_sprintf') then trampCall(@_sprintf) else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:192"] + __e.backtrace ) ; raise __e end , [ "make -C %s -f Makefile.tmp
“ ,
begin trampCall(_makefile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:192"] + __e.backtrace ) ; raise __e end ] )) end ) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 176 ); trampCall( self._create_MIMARKmakefile_METHOD( 'create-makefile', begin if @global_lisp_binding.has_key?('_create_MIMARKmakefile') then trampCall(@_create_MIMARKmakefile) else raise NameError.new( "Error: undefined variable create-makefile", "create-makefile" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:176"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_spec_MIMARKobj) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:176"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 176 ); trampCall( self._home_MIMARKrepos_METHOD( 'home-repos', begin if @global_lisp_binding.has_key?('_home_MIMARKrepos') then trampCall(@_home_MIMARKrepos) else raise NameError.new( "Error: undefined variable home-repos", "home-repos" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:176"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:176"] + __e.backtrace ) ; raise __e end ] )) end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 174 ); ( begin trampCall(_makefile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:174"] + __e.backtrace ) ; raise __e end + "/Makefile.tmp" ) end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._action_MIMARKby_MIMARKurl_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_action_MIMARKby_MIMARKurl', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_action_MIMARKby_MIMARKurl'] = self.method( :_action_MIMARKby_MIMARKurl_METHOD ) @_action_MIMARKby_MIMARKurl = trampCall( Proc.new { |_env,_url| begin #makeLet ___lambda = lambda { |_parsed| begin #makeLet ___lambda = lambda { |_specfile_MIMARKstr| begin #makeLet ___lambda = lambda { |_specfile_MIMARKdir| begin #makeLet ___lambda = lambda { |_specfile_MIMARKpath| begin #makeLet ___lambda = lambda { |_makefile_MIMARKdir| if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 209 ); _not( begin trampCall(File).exist?( begin trampCall(_specfile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:209"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:209"] + __e.backtrace ) ; raise __e end ) end ) then begin trampCall(FileUtils).mkdir_p( begin trampCall(_specfile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:210"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:210"] + __e.backtrace ) ; raise __e end end if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 212 ); _not( begin trampCall(File).exist?( begin trampCall(_makefile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:212"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:212"] + __e.backtrace ) ; raise __e end ) end ) then begin trampCall(FileUtils).mkdir_p( begin trampCall(_makefile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:213"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:213"] + __e.backtrace ) ; raise __e end end if ( begin trampCall(File).exist?( begin trampCall(_specfile_MIMARKpath) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:216"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:216"] + __e.backtrace ) ; raise __e end ) then begin trampCall(STDERR).printf( "Info : alreay exist [%s] file. didn't touch.
“ ,
begin trampCall(_specfile_MIMARKpath) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:217"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:217"] + __e.backtrace ) ; raise __e end else begin embedBacktraceInfo( "./lib/stowm/main.nnd", 218 ); trampCall( self._with_MIMARKopen_METHOD( 'with-open', begin if @global_lisp_binding.has_key?('_with_MIMARKopen') then trampCall(@_with_MIMARKopen) else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:218"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_specfile_MIMARKpath) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:219"] + __e.backtrace ) ; raise __e end , Proc.new { |_f| begin trampCall(_f).printf( "%s" , begin trampCall(_specfile_MIMARKstr) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:221"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:221"] + __e.backtrace ) ; raise __e end begin trampCall(STDERR).printf( "Info : created spec [%s]
“ ,
begin trampCall(_specfile_MIMARKpath) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:222"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:222"] + __e.backtrace ) ; raise __e end } , "w" ] )) end end begin #makeLet ___lambda = lambda { |_spec_MIMARKobj| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 233 ); delayCall( '_build_MIMARKpackage', 'build-package', begin if @global_lisp_binding.has_key?('_build_MIMARKpackage') then trampCall(@_build_MIMARKpackage) else raise NameError.new( "Error: undefined variable build-package", "build-package" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:233"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:233"] + __e.backtrace ) ; raise __e end , begin trampCall(_spec_MIMARKobj) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:233"] + __e.backtrace ) ; raise __e end , begin trampCall(_makefile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:233"] + __e.backtrace ) ; raise __e end ] ) end } ; ___lambda.call( if ( begin trampCall(File).exist?( begin trampCall(_specfile_MIMARKpath) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:228"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:228"] + __e.backtrace ) ; raise __e end ) then begin embedBacktraceInfo( "./lib/stowm/main.nnd", 229 ); delayCall( '_load_MIMARKspecfile', 'load-specfile', begin if @global_lisp_binding.has_key?('_load_MIMARKspecfile') then trampCall(@_load_MIMARKspecfile) else raise NameError.new( "Error: undefined variable load-specfile", "load-specfile" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:229"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_specfile_MIMARKpath) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:229"] + __e.backtrace ) ; raise __e end ] ) end else if ( true ) then begin #makeBegin begin trampCall(STDERR).printf( "Error : not exist specfile [%s]." ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:231"] + __e.backtrace ) ; raise __e end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 232 ); delayCall( '_exit', 'exit', begin if @global_lisp_binding.has_key?('_exit') then trampCall(@_exit) else raise NameError.new( "Error: undefined variable exit", "exit" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:232"] + __e.backtrace ) ; raise __e end , [ 1 ] ) end end else Cell.new() end end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 206 ); ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 206 ); trampCall( self._temp_METHOD( 'temp', begin if @global_lisp_binding.has_key?('_temp') then trampCall(@_temp) else raise NameError.new( "Error: undefined variable temp", "temp" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:206"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:206"] + __e.backtrace ) ; raise __e end ] )) end + "/" + begin embedBacktraceInfo( "./lib/stowm/main.nnd", 206 ); trampCall( self._package_METHOD( 'package', begin if @global_lisp_binding.has_key?('_package') then trampCall(@_package) else raise NameError.new( "Error: undefined variable package", "package" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:206"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_parsed) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:206"] + __e.backtrace ) ; raise __e end ] )) end ) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 204 ); 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/main.nnd:204"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_specfile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:204"] + __e.backtrace ) ; raise __e end , "/" , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 204 ); trampCall( self._package_METHOD( 'package', begin if @global_lisp_binding.has_key?('_package') then trampCall(@_package) else raise NameError.new( "Error: undefined variable package", "package" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:204"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_parsed) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:204"] + __e.backtrace ) ; raise __e end ] )) end , ".yml" ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 202 ); ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 202 ); trampCall( self._home_MIMARKrepos_METHOD( 'home-repos', begin if @global_lisp_binding.has_key?('_home_MIMARKrepos') then trampCall(@_home_MIMARKrepos) else raise NameError.new( "Error: undefined variable home-repos", "home-repos" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:202"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:202"] + __e.backtrace ) ; raise __e end ] )) end + "/" + begin embedBacktraceInfo( "./lib/stowm/main.nnd", 202 ); trampCall( self._package_METHOD( 'package', begin if @global_lisp_binding.has_key?('_package') then trampCall(@_package) else raise NameError.new( "Error: undefined variable package", "package" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:202"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_parsed) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:202"] + __e.backtrace ) ; raise __e end ] )) end ) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 200 ); trampCall( self._create_MIMARKspecfile_METHOD( 'create-specfile', begin if @global_lisp_binding.has_key?('_create_MIMARKspecfile') then trampCall(@_create_MIMARKspecfile) else raise NameError.new( "Error: undefined variable create-specfile", "create-specfile" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:200"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/main.nnd", 200 ); trampCall( self._stow_MIMARKhome_METHOD( 'stow-home', begin if @global_lisp_binding.has_key?('_stow_MIMARKhome') then trampCall(@_stow_MIMARKhome) else raise NameError.new( "Error: undefined variable stow-home", "stow-home" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:200"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:200"] + __e.backtrace ) ; raise __e end ] )) end , begin trampCall(_url) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:200"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 198 ); 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/main.nnd:198"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_url) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:198"] + __e.backtrace ) ; raise __e end ] )) end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._action_MIMARKby_MIMARKkeyword_MIMARKname_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_action_MIMARKby_MIMARKkeyword_MIMARKname', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_action_MIMARKby_MIMARKkeyword_MIMARKname'] = self.method( :_action_MIMARKby_MIMARKkeyword_MIMARKname_METHOD ) @_action_MIMARKby_MIMARKkeyword_MIMARKname = trampCall( Proc.new { |_env,_keyword,_name,_stowed_MIMARKlist| begin #makeLet ___lambda = lambda { |_tree| if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 241 ); trampCall( self._eqv_QUMARK_METHOD( 'eqv?', begin if @global_lisp_binding.has_key?('_eqv_QUMARK') then trampCall(@_eqv_QUMARK) else raise NameError.new( "Error: undefined variable eqv?", "eqv?" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:241"] + __e.backtrace ) ; raise __e end , [ :"enable" , begin trampCall(_keyword) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:241"] + __e.backtrace ) ; raise __e end ] )) end ) then begin #makeLet ___lambda = lambda { |_num| if ( begin trampCall(_num) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:244"] + __e.backtrace ) ; raise __e end ) then begin embedBacktraceInfo( "./lib/stowm/main.nnd", 246 ); delayCall( '_action_MIMARKby_MIMARKkeyword_MIMARKnum', 'action-by-keyword-num', begin if @global_lisp_binding.has_key?('_action_MIMARKby_MIMARKkeyword_MIMARKnum') then trampCall(@_action_MIMARKby_MIMARKkeyword_MIMARKnum) else raise NameError.new( "Error: undefined variable action-by-keyword-num", "action-by-keyword-num" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:246"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:246"] + __e.backtrace ) ; raise __e end , :"enable" , begin trampCall(_num) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:246"] + __e.backtrace ) ; raise __e end , begin trampCall(_stowed_MIMARKlist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:246"] + __e.backtrace ) ; raise __e end ] ) end else begin #makeBegin begin trampCall(STDERR).printf( "Error: package [%s] was not stowed yet.
“ ,
begin trampCall(_name) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:248"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:248"] + __e.backtrace ) ; raise __e end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 249 ); trampCall( self._display_MIMARKhelp_METHOD( 'display-help', begin if @global_lisp_binding.has_key?('_display_MIMARKhelp') then trampCall(@_display_MIMARKhelp) else raise NameError.new( "Error: undefined variable display-help", "display-help" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:249"] + __e.backtrace ) ; raise __e end , [ ] )) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 250 ); delayCall( '_exit', 'exit', begin if @global_lisp_binding.has_key?('_exit') then trampCall(@_exit) else raise NameError.new( "Error: undefined variable exit", "exit" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:250"] + __e.backtrace ) ; raise __e end , [ 1 ] ) end end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 243 ); trampCall( self._resolve_MIMARKprogram_MIMARKnumber_METHOD( 'resolve-program-number', begin if @global_lisp_binding.has_key?('_resolve_MIMARKprogram_MIMARKnumber') then trampCall(@_resolve_MIMARKprogram_MIMARKnumber) else raise NameError.new( "Error: undefined variable resolve-program-number", "resolve-program-number" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:243"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_name) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:243"] + __e.backtrace ) ; raise __e end , :"e" , begin trampCall(_tree) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:243"] + __e.backtrace ) ; raise __e end ] )) end ) end else if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 251 ); trampCall( self._eqv_QUMARK_METHOD( 'eqv?', begin if @global_lisp_binding.has_key?('_eqv_QUMARK') then trampCall(@_eqv_QUMARK) else raise NameError.new( "Error: undefined variable eqv?", "eqv?" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:251"] + __e.backtrace ) ; raise __e end , [ :"disable" , begin trampCall(_keyword) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:251"] + __e.backtrace ) ; raise __e end ] )) end ) then begin #makeLet ___lambda = lambda { |_num| if ( begin trampCall(_num) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:254"] + __e.backtrace ) ; raise __e end ) then begin embedBacktraceInfo( "./lib/stowm/main.nnd", 256 ); delayCall( '_action_MIMARKby_MIMARKkeyword_MIMARKnum', 'action-by-keyword-num', begin if @global_lisp_binding.has_key?('_action_MIMARKby_MIMARKkeyword_MIMARKnum') then trampCall(@_action_MIMARKby_MIMARKkeyword_MIMARKnum) else raise NameError.new( "Error: undefined variable action-by-keyword-num", "action-by-keyword-num" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:256"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:256"] + __e.backtrace ) ; raise __e end , :"disable" , begin trampCall(_num) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:256"] + __e.backtrace ) ; raise __e end , begin trampCall(_stowed_MIMARKlist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:256"] + __e.backtrace ) ; raise __e end ] ) end else begin #makeBegin begin trampCall(STDERR).printf( "Error: selected package [%s] was not enabled.
“ ,
begin trampCall(_name) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:258"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:258"] + __e.backtrace ) ; raise __e end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 259 ); trampCall( self._display_MIMARKhelp_METHOD( 'display-help', begin if @global_lisp_binding.has_key?('_display_MIMARKhelp') then trampCall(@_display_MIMARKhelp) else raise NameError.new( "Error: undefined variable display-help", "display-help" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:259"] + __e.backtrace ) ; raise __e end , [ ] )) end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 260 ); delayCall( '_exit', 'exit', begin if @global_lisp_binding.has_key?('_exit') then trampCall(@_exit) else raise NameError.new( "Error: undefined variable exit", "exit" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:260"] + __e.backtrace ) ; raise __e end , [ 1 ] ) end end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 253 ); trampCall( self._resolve_MIMARKprogram_MIMARKnumber_METHOD( 'resolve-program-number', begin if @global_lisp_binding.has_key?('_resolve_MIMARKprogram_MIMARKnumber') then trampCall(@_resolve_MIMARKprogram_MIMARKnumber) else raise NameError.new( "Error: undefined variable resolve-program-number", "resolve-program-number" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:253"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_name) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:253"] + __e.backtrace ) ; raise __e end , :"e" , begin trampCall(_tree) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:253"] + __e.backtrace ) ; raise __e end ] )) end ) end else Cell.new() end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 239 ); trampCall( self._stowed_MIMARKlist_MIMARKto_MIMARKtree_METHOD( 'stowed-list-to-tree', begin if @global_lisp_binding.has_key?('_stowed_MIMARKlist_MIMARKto_MIMARKtree') then trampCall(@_stowed_MIMARKlist_MIMARKto_MIMARKtree) else raise NameError.new( "Error: undefined variable stowed-list-to-tree", "stowed-list-to-tree" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:239"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_stowed_MIMARKlist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:239"] + __e.backtrace ) ; raise __e end ] )) end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._rebuild_MIMARKnum_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_rebuild_MIMARKnum', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_rebuild_MIMARKnum'] = self.method( :_rebuild_MIMARKnum_METHOD ) @_rebuild_MIMARKnum = trampCall( Proc.new { |_env,_number,_stowed_MIMARKlist| begin #makeLet ___lambda = lambda { |_found| if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 269 ); _null_QUMARK( begin trampCall(_found) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:269"] + __e.backtrace ) ; raise __e end ) end ) then begin #makeBegin begin trampCall(STDERR).printf( "Error: selected number [%d] was not found...
“ ,
begin trampCall(_number) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:271"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:271"] + __e.backtrace ) ; raise __e end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 272 ); delayCall( '_exit', 'exit', begin if @global_lisp_binding.has_key?('_exit') then trampCall(@_exit) else raise NameError.new( "Error: undefined variable exit", "exit" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:272"] + __e.backtrace ) ; raise __e end , [ 1 ] ) end end else begin #makeLet ___lambda = lambda { |_dirname| begin #makeLet ___lambda = lambda { |_basename| begin #makeLet ___lambda = lambda { |_specfile_MIMARKdir| begin #makeLet ___lambda = lambda { |_specfile_MIMARKpath| begin #makeLet ___lambda = lambda { |_makefile_MIMARKdir| begin #makeLet ___lambda = lambda { |_spec_MIMARKobj| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 290 ); delayCall( '_build_MIMARKpackage', 'build-package', begin if @global_lisp_binding.has_key?('_build_MIMARKpackage') then trampCall(@_build_MIMARKpackage) else raise NameError.new( "Error: undefined variable build-package", "build-package" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:290"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:290"] + __e.backtrace ) ; raise __e end , begin trampCall(_spec_MIMARKobj) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:290"] + __e.backtrace ) ; raise __e end , begin trampCall(_makefile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:290"] + __e.backtrace ) ; raise __e end ] ) end } ; ___lambda.call( if ( begin trampCall(File).exist?( begin trampCall(_specfile_MIMARKpath) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:285"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:285"] + __e.backtrace ) ; raise __e end ) then begin embedBacktraceInfo( "./lib/stowm/main.nnd", 286 ); delayCall( '_load_MIMARKspecfile', 'load-specfile', begin if @global_lisp_binding.has_key?('_load_MIMARKspecfile') then trampCall(@_load_MIMARKspecfile) else raise NameError.new( "Error: undefined variable load-specfile", "load-specfile" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:286"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_specfile_MIMARKpath) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:286"] + __e.backtrace ) ; raise __e end ] ) end else if ( true ) then begin #makeBegin begin trampCall(STDERR).printf( "Error : not exist specfile [%s]." ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:288"] + __e.backtrace ) ; raise __e end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 289 ); delayCall( '_exit', 'exit', begin if @global_lisp_binding.has_key?('_exit') then trampCall(@_exit) else raise NameError.new( "Error: undefined variable exit", "exit" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:289"] + __e.backtrace ) ; raise __e end , [ 1 ] ) end end else Cell.new() end end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 280 ); ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 280 ); trampCall( self._temp_METHOD( 'temp', begin if @global_lisp_binding.has_key?('_temp') then trampCall(@_temp) else raise NameError.new( "Error: undefined variable temp", "temp" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:280"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:280"] + __e.backtrace ) ; raise __e end ] )) end + "/" + begin trampCall(_dirname) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:280"] + __e.backtrace ) ; raise __e end ) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 278 ); 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/main.nnd:278"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_specfile_MIMARKdir) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:278"] + __e.backtrace ) ; raise __e end , "/" , begin trampCall(_dirname) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:278"] + __e.backtrace ) ; raise __e end , ".yml" ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 276 ); ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 276 ); trampCall( self._home_MIMARKrepos_METHOD( 'home-repos', begin if @global_lisp_binding.has_key?('_home_MIMARKrepos') then trampCall(@_home_MIMARKrepos) else raise NameError.new( "Error: undefined variable home-repos", "home-repos" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:276"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:276"] + __e.backtrace ) ; raise __e end ] )) end + "/" + begin trampCall(_dirname) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:276"] + __e.backtrace ) ; raise __e end ) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 274 ); _car( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 274 ); 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/main.nnd:274"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_dirname) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:274"] + __e.backtrace ) ; raise __e end ] )) end ) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 273 ); trampCall( self._caar_METHOD( 'caar', begin if @global_lisp_binding.has_key?('_caar') then trampCall(@_caar) else raise NameError.new( "Error: undefined variable caar", "caar" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:273"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_found) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:273"] + __e.backtrace ) ; raise __e end ] )) end ) end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 265 ); trampCall( self._filter_METHOD( 'filter', begin if @global_lisp_binding.has_key?('_filter') then trampCall(@_filter) else raise NameError.new( "Error: undefined variable filter", "filter" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:265"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 267 ); __EQMARK( begin trampCall(_number) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:267"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 267 ); 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/main.nnd:267"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:267"] + __e.backtrace ) ; raise __e end ] )) end ) end } , begin trampCall(_stowed_MIMARKlist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:268"] + __e.backtrace ) ; raise __e end ] )) end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._action_MIMARKby_MIMARKkeyword_MIMARKnum_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_action_MIMARKby_MIMARKkeyword_MIMARKnum', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_action_MIMARKby_MIMARKkeyword_MIMARKnum'] = self.method( :_action_MIMARKby_MIMARKkeyword_MIMARKnum_METHOD ) @_action_MIMARKby_MIMARKkeyword_MIMARKnum = trampCall( Proc.new { |_env,_keyword,_number,_stowed_MIMARKlist| begin #makeLet ___lambda = lambda { |_delete_MIMARKaction| begin #makeLet ___lambda = lambda { |_found| if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 304 ); _null_QUMARK( begin trampCall(_found) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:304"] + __e.backtrace ) ; raise __e end ) end ) then begin #makeBegin begin trampCall(STDERR).printf( "Error: selected number [%d] was not found...
“ ,
begin trampCall(_number) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:306"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:306"] + __e.backtrace ) ; raise __e end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 307 ); delayCall( '_exit', 'exit', begin if @global_lisp_binding.has_key?('_exit') then trampCall(@_exit) else raise NameError.new( "Error: undefined variable exit", "exit" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:307"] + __e.backtrace ) ; raise __e end , [ 1 ] ) end end else begin #makeLet ___lambda = lambda { |_dirname| begin #makeLet ___lambda = lambda { |_basename| begin #makeLet ___lambda = lambda { |_tree| begin #makeLet ___lambda = lambda { |_selection| begin #makeLet ___lambda = lambda { |_delete_MIMARKitem,_restow_MIMARKitem| if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 328 ); _null_QUMARK( begin trampCall(_restow_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:328"] + __e.backtrace ) ; raise __e end ) end ) then begin #makeBegin begin trampCall(STDERR).printf( "Error: selected number [%d] was not installed yet.
“ ,
begin trampCall(_number) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:329"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:329"] + __e.backtrace ) ; raise __e end begin embedBacktraceInfo( "./lib/stowm/main.nnd", 330 ); delayCall( '_exit', 'exit', begin if @global_lisp_binding.has_key?('_exit') then trampCall(@_exit) else raise NameError.new( "Error: undefined variable exit", "exit" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:330"] + __e.backtrace ) ; raise __e end , [ 1 ] ) end end else if ( begin trampCall(_delete_MIMARKaction) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:331"] + __e.backtrace ) ; raise __e end ) then begin #makeLet ___lambda = lambda { |_lst| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 333 ); delayCall( '_display_MIMARKlist', 'display-list', begin if @global_lisp_binding.has_key?('_display_MIMARKlist') then trampCall(@_display_MIMARKlist) else raise NameError.new( "Error: undefined variable display-list", "display-list" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:333"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:333"] + __e.backtrace ) ; raise __e end , begin trampCall(_basename) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:333"] + __e.backtrace ) ; raise __e end ] ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 332 ); trampCall( self._stowm_MIMARKrestow_METHOD( 'stowm-restow', begin if @global_lisp_binding.has_key?('_stowm_MIMARKrestow') then trampCall(@_stowm_MIMARKrestow) else raise NameError.new( "Error: undefined variable stowm-restow", "stowm-restow" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:332"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:332"] + __e.backtrace ) ; raise __e end , begin trampCall(_delete_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:332"] + __e.backtrace ) ; raise __e end , Cell.new() ] )) end ) end else if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 334 ); _equal_QUMARK( begin trampCall(_delete_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:334"] + __e.backtrace ) ; raise __e end , begin trampCall(_restow_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:334"] + __e.backtrace ) ; raise __e end ) end ) then begin #makeBegin begin trampCall(STDERR).printf( "Info: restow [%s].
“ ,
begin embedBacktraceInfo( "./lib/stowm/main.nnd", 335 ); _car( begin trampCall(_restow_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:335"] + __e.backtrace ) ; raise __e end ) end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:335"] + __e.backtrace ) ; raise __e end begin #makeLet ___lambda = lambda { |_lst| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 337 ); delayCall( '_display_MIMARKlist', 'display-list', begin if @global_lisp_binding.has_key?('_display_MIMARKlist') then trampCall(@_display_MIMARKlist) else raise NameError.new( "Error: undefined variable display-list", "display-list" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:337"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:337"] + __e.backtrace ) ; raise __e end , begin trampCall(_basename) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:337"] + __e.backtrace ) ; raise __e end ] ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 336 ); trampCall( self._stowm_MIMARKrestow_METHOD( 'stowm-restow', begin if @global_lisp_binding.has_key?('_stowm_MIMARKrestow') then trampCall(@_stowm_MIMARKrestow) else raise NameError.new( "Error: undefined variable stowm-restow", "stowm-restow" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:336"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:336"] + __e.backtrace ) ; raise __e end , begin trampCall(_delete_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:336"] + __e.backtrace ) ; raise __e end , begin trampCall(_restow_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:336"] + __e.backtrace ) ; raise __e end ] )) end ) end end else if ( true ) then begin #makeLet ___lambda = lambda { |_lst| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 340 ); delayCall( '_display_MIMARKlist', 'display-list', begin if @global_lisp_binding.has_key?('_display_MIMARKlist') then trampCall(@_display_MIMARKlist) else raise NameError.new( "Error: undefined variable display-list", "display-list" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:340"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:340"] + __e.backtrace ) ; raise __e end , begin trampCall(_basename) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:340"] + __e.backtrace ) ; raise __e end ] ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 339 ); trampCall( self._stowm_MIMARKrestow_METHOD( 'stowm-restow', begin if @global_lisp_binding.has_key?('_stowm_MIMARKrestow') then trampCall(@_stowm_MIMARKrestow) else raise NameError.new( "Error: undefined variable stowm-restow", "stowm-restow" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:339"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:339"] + __e.backtrace ) ; raise __e end , begin trampCall(_delete_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:339"] + __e.backtrace ) ; raise __e end , begin trampCall(_restow_MIMARKitem) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:339"] + __e.backtrace ) ; raise __e end ] )) end ) end else Cell.new() end end end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 313 ); 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/main.nnd:313"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| if ( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 315 ); __EQMARK( :"e" , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 315 ); 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/main.nnd:315"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:315"] + __e.backtrace ) ; raise __e end ] )) end ) end ) then begin embedBacktraceInfo( "./lib/stowm/main.nnd", 316 ); _car( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:316"] + __e.backtrace ) ; raise __e end ) end else nil end } , begin trampCall(_selection) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:318"] + __e.backtrace ) ; raise __e end ] )) end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 320 ); 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/main.nnd:320"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| if ( if ( begin embedBacktraceInfo( "", 1 ); _not( begin embedBacktraceInfo( "", 1 ); _eq_QUMARK( false , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 322 ); __EQMARK( :"i" , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 322 ); 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/main.nnd:322"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:322"] + __e.backtrace ) ; raise __e end ] )) end ) end ) end ) end ) then begin embedBacktraceInfo( "./lib/stowm/main.nnd", 323 ); __EQMARK( begin trampCall(_number) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:323"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 323 ); 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/main.nnd:323"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:323"] + __e.backtrace ) ; raise __e end ] )) end ) end else false end ) then begin embedBacktraceInfo( "./lib/stowm/main.nnd", 324 ); _car( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:324"] + __e.backtrace ) ; raise __e end ) end else nil end } , begin trampCall(_selection) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:326"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 311 ); 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/main.nnd:311"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_basename) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:311"] + __e.backtrace ) ; raise __e end , begin trampCall(_tree) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:311"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 310 ); trampCall( self._stowed_MIMARKlist_MIMARKto_MIMARKtree_METHOD( 'stowed-list-to-tree', begin if @global_lisp_binding.has_key?('_stowed_MIMARKlist_MIMARKto_MIMARKtree') then trampCall(@_stowed_MIMARKlist_MIMARKto_MIMARKtree) else raise NameError.new( "Error: undefined variable stowed-list-to-tree", "stowed-list-to-tree" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:310"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_stowed_MIMARKlist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:310"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 309 ); _car( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 309 ); 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/main.nnd:309"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_dirname) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:309"] + __e.backtrace ) ; raise __e end ] )) end ) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 308 ); trampCall( self._caar_METHOD( 'caar', begin if @global_lisp_binding.has_key?('_caar') then trampCall(@_caar) else raise NameError.new( "Error: undefined variable caar", "caar" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:308"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_found) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:308"] + __e.backtrace ) ; raise __e end ] )) end ) end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 300 ); trampCall( self._filter_METHOD( 'filter', begin if @global_lisp_binding.has_key?('_filter') then trampCall(@_filter) else raise NameError.new( "Error: undefined variable filter", "filter" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:300"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| begin embedBacktraceInfo( "./lib/stowm/main.nnd", 302 ); __EQMARK( begin trampCall(_number) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:302"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/main.nnd", 302 ); 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/main.nnd:302"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:302"] + __e.backtrace ) ; raise __e end ] )) end ) end } , begin trampCall(_stowed_MIMARKlist) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:303"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/main.nnd", 295 ); trampCall( self._eqv_QUMARK_METHOD( 'eqv?', begin if @global_lisp_binding.has_key?('_eqv_QUMARK') then trampCall(@_eqv_QUMARK) else raise NameError.new( "Error: undefined variable eqv?", "eqv?" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:295"] + __e.backtrace ) ; raise __e end , [ :"disable" , begin trampCall(_keyword) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:295"] + __e.backtrace ) ; raise __e end ] )) end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._uname_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_uname', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_uname'] = self.method( :_uname_METHOD ) @_uname = trampCall( begin #makeLet ___lambda = lambda { |_f| begin trampCall(_f).readline.chop rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:344"] + __e.backtrace ) ; raise __e end } ; ___lambda.call( begin trampCall(IO).popen( "uname" , "r+" ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:343"] + __e.backtrace ) ; raise __e end ) end ) end )
# ——————————————————- # [EOF] # ——————————————————-