# # This file is nendo's compiled library file. # generated “nendo -c src” command. #
trampCall(
begin embedBacktraceInfo( "", 1 ); delayCall( '_load', 'load', begin if @global_lisp_binding.has_key?('_load') then trampCall(@_load) else raise NameError.new( "Error: undefined variable load", "load" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ "srfi-9" ] ) end )
——————–
trampCall(
begin #makeBegin begin #execFunc def self.__LTMARKstowm_MIMARKenv_GTMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__LTMARKstowm_MIMARKenv_GTMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['__LTMARKstowm_MIMARKenv_GTMARK'] = self.method( :__LTMARKstowm_MIMARKenv_GTMARK_METHOD ) @__LTMARKstowm_MIMARKenv_GTMARK = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._make_MIMARKrecord_MIMARKtype_METHOD( 'make-record-type', begin if @global_lisp_binding.has_key?('_make_MIMARKrecord_MIMARKtype') then trampCall(@_make_MIMARKrecord_MIMARKtype) else raise NameError.new( "Error: undefined variable make-record-type", "make-record-type" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ :"<stowm-env>" , Cell.new(:"pwd",Cell.new(:"home",Cell.new(:"home-repos",Cell.new(:"stow-home",Cell.new(:"local",Cell.new(:"bin",Cell.new(:"lib",Cell.new(:"temp",Cell.new(:"inifile-path",Cell.new(:"db-path",Cell.new(:"stow-program"))))))))))) ] )) end ) end begin #execFunc def self._stowm_MIMARKenv_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKenv', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKenv'] = self.method( :_stowm_MIMARKenv_METHOD ) @_stowm_MIMARKenv = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKconstructor_METHOD( 'record-constructor', begin if @global_lisp_binding.has_key?('_record_MIMARKconstructor') then trampCall(@_record_MIMARKconstructor) else raise NameError.new( "Error: undefined variable record-constructor", "record-constructor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , Cell.new(:"pwd",Cell.new(:"home",Cell.new(:"home-repos",Cell.new(:"stow-home",Cell.new(:"local",Cell.new(:"bin",Cell.new(:"lib",Cell.new(:"temp",Cell.new(:"inifile-path",Cell.new(:"db-path",Cell.new(:"stow-program"))))))))))) ] )) end ) end begin #execFunc def self._stowm_MIMARKenv_QUMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKenv_QUMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKenv_QUMARK'] = self.method( :_stowm_MIMARKenv_QUMARK_METHOD ) @_stowm_MIMARKenv_QUMARK = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKpredicate_METHOD( 'record-predicate', begin if @global_lisp_binding.has_key?('_record_MIMARKpredicate') then trampCall(@_record_MIMARKpredicate) else raise NameError.new( "Error: undefined variable record-predicate", "record-predicate" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end ] )) end ) end begin #execFunc def self._pwd_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_pwd', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_pwd'] = self.method( :_pwd_METHOD ) @_pwd = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , :"pwd" ] )) end ) end begin #execFunc def self._home_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_home', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_home'] = self.method( :_home_METHOD ) @_home = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , :"home" ] )) end ) end begin #execFunc def self._home_MIMARKrepos_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_home_MIMARKrepos', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_home_MIMARKrepos'] = self.method( :_home_MIMARKrepos_METHOD ) @_home_MIMARKrepos = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , :"home-repos" ] )) end ) end begin #execFunc def self._stow_MIMARKhome_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stow_MIMARKhome', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stow_MIMARKhome'] = self.method( :_stow_MIMARKhome_METHOD ) @_stow_MIMARKhome = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , :"stow-home" ] )) end ) end begin #execFunc def self._local_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_local', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_local'] = self.method( :_local_METHOD ) @_local = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , :"local" ] )) end ) end begin #execFunc def self._bin_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_bin', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_bin'] = self.method( :_bin_METHOD ) @_bin = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , :"bin" ] )) end ) end begin #execFunc def self._lib_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_lib', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_lib'] = self.method( :_lib_METHOD ) @_lib = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , :"lib" ] )) end ) end begin #execFunc def self._temp_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_temp', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_temp'] = self.method( :_temp_METHOD ) @_temp = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , :"temp" ] )) end ) end begin #execFunc def self._inifile_MIMARKpath_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_inifile_MIMARKpath', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_inifile_MIMARKpath'] = self.method( :_inifile_MIMARKpath_METHOD ) @_inifile_MIMARKpath = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , :"inifile-path" ] )) end ) end begin #execFunc def self._db_MIMARKpath_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_db_MIMARKpath', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_db_MIMARKpath'] = self.method( :_db_MIMARKpath_METHOD ) @_db_MIMARKpath = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , :"db-path" ] )) end ) end begin #execFunc def self._stow_MIMARKprogram_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stow_MIMARKprogram', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stow_MIMARKprogram'] = self.method( :_stow_MIMARKprogram_METHOD ) @_stow_MIMARKprogram = trampCall( begin embedBacktraceInfo( "", 1 ); trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor', begin if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then trampCall(@_record_MIMARKaccessor) else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end , [ begin if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then trampCall(@__LTMARKstowm_MIMARKenv_GTMARK) else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e end , :"stow-program" ] )) end ) end end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKget_MIMARKdefault_MIMARKenv_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKget_MIMARKdefault_MIMARKenv', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKget_MIMARKdefault_MIMARKenv'] = self.method( :_stowm_MIMARKget_MIMARKdefault_MIMARKenv_METHOD ) @_stowm_MIMARKget_MIMARKdefault_MIMARKenv = trampCall( Proc.new { || begin embedBacktraceInfo( "./lib/stowm/env.nnd", 23 ); delayCall( '_stowm_MIMARKenv', 'stowm-env', begin if @global_lisp_binding.has_key?('_stowm_MIMARKenv') then trampCall(@_stowm_MIMARKenv) else raise NameError.new( "Error: undefined variable stowm-env", "stowm-env" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:23"] + __e.backtrace ) ; raise __e end , [ begin trampCall(ENV).fetch( "PWD" ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:24"] + __e.backtrace ) ; raise __e end , begin trampCall(ENV).fetch( "HOME" ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:25"] + __e.backtrace ) ; raise __e end , begin trampCall(File).expand_path( "~/stowm" ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:26"] + __e.backtrace ) ; raise __e end , "/usr/local/stow" , "/usr/local" , "/usr/local/bin" , "/usr/local/lib" , "/tmp/stowm" , begin trampCall(File).expand_path( "~/.stowm" ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:32"] + __e.backtrace ) ; raise __e end , begin trampCall(File).expand_path( "~/.stowm.db" ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:33"] + __e.backtrace ) ; raise __e end , begin #makeLet ___lambda = lambda { |_lst| if ( begin embedBacktraceInfo( "./lib/stowm/env.nnd", 44 ); ( 0 < begin embedBacktraceInfo( "./lib/stowm/env.nnd", 44 ); _length( begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:44"] + __e.backtrace ) ; raise __e end ) end ) end ) then begin embedBacktraceInfo( "./lib/stowm/env.nnd", 45 ); 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/env.nnd:45"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_lst) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:45"] + __e.backtrace ) ; raise __e end ] )) end else false end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/env.nnd", 35 ); 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/env.nnd:35"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| begin #makeLet ___lambda = lambda { |_path1,_path2| if ( begin trampCall(File).exist?( begin trampCall(_path1) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:39"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:39"] + __e.backtrace ) ; raise __e end ) then begin embedBacktraceInfo( "./lib/stowm/env.nnd", 40 ); _cons( begin trampCall(_path1) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:40"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/env.nnd", 40 ); _cdr( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:40"] + __e.backtrace ) ; raise __e end ) end ) end else if ( begin trampCall(File).exist?( begin trampCall(_path2) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:41"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:41"] + __e.backtrace ) ; raise __e end ) then begin embedBacktraceInfo( "./lib/stowm/env.nnd", 42 ); _cons( begin trampCall(_path2) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:42"] + __e.backtrace ) ; raise __e end , begin embedBacktraceInfo( "./lib/stowm/env.nnd", 42 ); _cdr( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:42"] + __e.backtrace ) ; raise __e end ) end ) end end end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/env.nnd", 37 ); ( "/usr/bin/" + begin embedBacktraceInfo( "./lib/stowm/env.nnd", 37 ); _car( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:37"] + __e.backtrace ) ; raise __e end ) end ) end , begin embedBacktraceInfo( "./lib/stowm/env.nnd", 38 ); ( "/usr/local/bin/" + begin embedBacktraceInfo( "./lib/stowm/env.nnd", 38 ); _car( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:38"] + __e.backtrace ) ; raise __e end ) end ) end ) end } , Cell.new(Cell.new("xstow","-f"),Cell.new(Cell.new("stow",""))) ] )) end ) end ] ) end } ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKenv_MIMARKto_MIMARKstring_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKenv_MIMARKto_MIMARKstring', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKenv_MIMARKto_MIMARKstring'] = self.method( :_stowm_MIMARKenv_MIMARKto_MIMARKstring_METHOD ) @_stowm_MIMARKenv_MIMARKto_MIMARKstring = trampCall( Proc.new { |_env| begin embedBacktraceInfo( "./lib/stowm/env.nnd", 50 ); delayCall( '_string_MIMARKjoin', '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/env.nnd:50"] + __e.backtrace ) ; raise __e end , [ begin embedBacktraceInfo( "./lib/stowm/env.nnd", 51 ); 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/env.nnd:51"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| begin embedBacktraceInfo( "./lib/stowm/env.nnd", 53 ); 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/env.nnd:53"] + __e.backtrace ) ; raise __e end , [ " %-20s %-30s" , begin embedBacktraceInfo( "./lib/stowm/env.nnd", 53 ); _car( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:53"] + __e.backtrace ) ; raise __e end ) end , begin embedBacktraceInfo( "./lib/stowm/env.nnd", 53 ); _cdr( begin trampCall(_x) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:53"] + __e.backtrace ) ; raise __e end ) end ] )) end } , begin embedBacktraceInfo( "", 1 ); _cons( begin embedBacktraceInfo( "", 1 ); _cons( "stow home: " , begin embedBacktraceInfo( "./lib/stowm/env.nnd", 55 ); 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/env.nnd:55"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:55"] + __e.backtrace ) ; raise __e end ] )) end ) end , begin embedBacktraceInfo( "", 1 ); _cons( begin embedBacktraceInfo( "", 1 ); _cons( "stow program: " , begin embedBacktraceInfo( "./lib/stowm/env.nnd", 56 ); 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/env.nnd:56"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:56"] + __e.backtrace ) ; raise __e end ] )) end ) end , begin embedBacktraceInfo( "", 1 ); _cons( begin embedBacktraceInfo( "", 1 ); _cons( "stown repository: " , begin embedBacktraceInfo( "./lib/stowm/env.nnd", 57 ); 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/env.nnd:57"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:57"] + __e.backtrace ) ; raise __e end ] )) end ) end , begin embedBacktraceInfo( "", 1 ); _cons( begin embedBacktraceInfo( "", 1 ); _cons( "stowm rcfile path: " , begin embedBacktraceInfo( "./lib/stowm/env.nnd", 58 ); trampCall( self._inifile_MIMARKpath_METHOD( 'inifile-path', begin if @global_lisp_binding.has_key?('_inifile_MIMARKpath') then trampCall(@_inifile_MIMARKpath) else raise NameError.new( "Error: undefined variable inifile-path", "inifile-path" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:58"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:58"] + __e.backtrace ) ; raise __e end ] )) end ) end , begin embedBacktraceInfo( "", 1 ); _cons( begin embedBacktraceInfo( "", 1 ); _cons( "stowm db path: " , begin embedBacktraceInfo( "./lib/stowm/env.nnd", 59 ); 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/env.nnd:59"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:59"] + __e.backtrace ) ; raise __e end ] )) end ) end , begin embedBacktraceInfo( "", 1 ); _cons( begin embedBacktraceInfo( "", 1 ); _cons( "stowm tmp: " , begin embedBacktraceInfo( "./lib/stowm/env.nnd", 60 ); 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/env.nnd:60"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_env) rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:60"] + __e.backtrace ) ; raise __e end ] )) end ) end , Cell.new() ) end ) end ) end ) end ) end ) end ] )) end , "
“
] ) end } ) end )
# ——————————————————- # [EOF] # ——————————————————-