/******************************************************************* * * A Common Lisp compiler/interpretor, written in Prolog * * (xxxxx.pl) * * * Douglas'' Notes: * * (c) Douglas Miles, 2017 * * The program is a *HUGE* common-lisp compiler/interpreter. * *******************************************************************/ :- module(loadfile, []). :- meta_predicate lisp_grovel(0). :- meta_predicate with_each_form(1,*). :- include('./header'). cddd:- cd('/home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/t/daydreamer/'). cdkm:- cd('/home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/t/km/'). lci :- with_lisp_translation(file('ci2.data'),print_term). print_term(COMMENTP):- is_comment(COMMENTP,_),!. print_term([_|N]):- P=..[struct_opv_new|N],reader_intern_symbols(P,PI), format('~N~q.~n',[PI]). dd:- cddd,f_compile_file('dd.cl',_). dd1:- cddd,f_load('dd_compile.cl',_), f_load('gate_compile.cl',_). dd2:- cddd,f_load('dd.cl',_). tdd:- f_compile_file('../../t/daydreamer/*.cl',_). tdd1:- f_compile_file('../../t/daydreamer/*.cl',_). tdd2:- f_load('../../t/daydreamer/*.cl',_). km:- cdkm, f_compile_file("km",_). km1:- cdkm, f_load("km",_). f_sys_compile_file_mask(Mask,keys(Keys),TF):- with_each_file(do_compile_1file(Keys,TF),Mask). /* Function COMPILE-FILE Syntax: compile-file input-file &key output-file verbose print external-format => output-truename, warnings-p, failure-p Arguments and Values: input-file---a pathname designator. (Default fillers for unspecified components are taken from *default-pathname-defaults*.) output-file---a pathname designator. The default is implementation-defined. verbose---a generalized boolean. The default is the value of *compile-verbose*. print---a generalized boolean. The default is the value of *compile-print*. external-format---an external file format designator. The default is :default. output-truename---a pathname (the truename of the output file), or nil. warnings-p---a generalized boolean. failure-p---a generalized boolean. Description: compile-file transforms the contents of the file specified by input-file into implementation-dependent binary data which are placed in the file specified by output-file. The file to which input-file refers should be a source file. output-file can be used to specify an output pathname; the actual pathname of the compiled file to which compiled code will be output is computed as if by calling compile-file-pathname. If input-file or output-file is a logical pathname, it is translated into a physical pathname as if by calling translate-logical-pathname. If verbose is true, compile-file prints a message in the form of a comment (i.e., with a leading semicolon) to standard output indicating what file is being compiled and other useful information. If verbose is false, compile-file does not print this information. If print is true, information about top level forms in the file being compiled is printed to standard output. Exactly what is printed is implementation-dependent, but nevertheless some information is printed. If print is nil, no information is printed. The external-format specifies the external file format to be used when opening the file; see the function open. compile-file and load must cooperate in such a way that the resulting compiled file can be loaded without specifying an external file format anew; see the function load. compile-file binds *readtable* and *package* to the values they held before processing the file. *compile-file-truename* is bound by compile-file to hold the truename of the pathname of the file being compiled. *compile-file-pathname* is bound by compile-file to hold a pathname denoted by the first argument to compile-file, merged against the defaults; that is, (pathname (merge-pathnames input-file)). The compiled functions contained in the compiled file become available for use when the compiled file is loaded into Lisp. Any function definition that is processed by the compiler, including #'(lambda ...) forms and local function definitions made by flet, labels and defun forms, result in an object of type compiled-function. The primary value returned by compile-file, output-truename, is the truename of the output file, or nil if the file could not be created. The secondary value, warnings-p, is false if no conditions of type error or warning were detected by the compiler, and true otherwise. The tertiary value, failure-p, is false if no conditions of type error or warning (other than style-warning) were detected by the compiler, and true otherwise. For general information about how files are processed by the file compiler, see Section 3.2.3 (File Compilation). Programs to be compiled by the file compiler must only contain externalizable objects; for details on such objects, see Section 3.2.4 (Literal Objects in Compiled Files). For information on how to extend the set of externalizable objects, see the function make-load-form and Section 3.2.4.4 (Additional Constraints on Externalizable Objects). Examples: None. Affected By: *error-output*, *standard-output*, *compile-verbose*, *compile-print* Exceptional Situations: For information about errors detected during the compilation process, see Section 3.2.5 (Exceptional Situations in the Compiler). An error of type file-error might be signaled if (wild-pathname-p input-file) returns true. If either the attempt to open the source file for input or the attempt to open the compiled file for output fails, an error of type file-error is signaled. See Also: compile, declare, eval-when, pathname, logical-pathname, Section 20.1 (File System Concepts), Section 19.1.2 (Pathnames as Filenames) Notes: None. */ f_compile_file(File):- f_compile_file(File,([]),_). f_compile_file(File,R):- f_compile_file(File,([]),R). (wl:init_args(1,compile_file)). f_compile_file(File,Keys,R):- do_compile_1file(Keys,File),!, f_compile_file_pathname(File,Keys,R),!. wl:interned_eval(("(defparameter sys::*output-file-pathname* ())")). % For top level eval-when forms, :compile-toplevel specifies that the compiler must evaluate the body at compile time, and :load-toplevel specifies that the compiler must arrange to evaluate the body at load time. For non-top level eval-when forms, :execute specifies that the body must be executed in the run-time environment. do_compile_1file(Keys,File0):- %ignore(R=t), pl_probe_file(File0,File), prolog_to_os_filename(File,OSFile), f_compile_file_pathname(OSFile,Keys,PLFilePath), to_prolog_pathname(PLFilePath,PLFile), locally_let( [sym('sys::*compile-file-pathname*')=path(str(File)), sym('sys::*compile-file-truename*')=path(str(OSFile)), sym('sys::*compiler-mode*')=sym(':compile-toplevel'), sym('sys::*output-file-pathname*')=path(PLFilePath), sym('cl:*package*')=value(sym('cl:*package*')), sym('cl:*readtable*')=value(sym('cl:*readtable*'))], setup_call_cleanup( open(PLFile,write,Stream), do_compile_1file_to_stream(Keys,File0,Stream), close(Stream))). % The Prolog translator is still unfinished and experimental. You can install the package by typing pack_install(transpiler) in the SWI-Prolog console. Now, you can use the translator to convert JavaScript source code into Lua: do_compile_1file_to_stream(_Keys,File0,Stream):- always(( pl_probe_file(File0,File), to_prolog_string_anyways(File0,Name), get_time(Epoch),format_time(string(EpochS), '%+', Epoch), working_directory(PWD,PWD), statistics(runtime,[Start,_]), format(Stream,'#!/usr/bin/env swipl %; WAM-CL translated Lisp File (see https://github.com/TeamSPoon/wam_common_lisp/tree/master/prolog/wam_cl ) %; File: ~q (~w) %; PWD: ~w %; Start time: ~w :-style_check(-discontiguous). :-style_check(-singleton). :-use_module(library(wamcl_runtime)). ',[Name,File,PWD,EpochS]), with_output_to(Stream,statistics), locally(t_l:sreader_options(with_text,true), with_each_file(with_each_form(lisp_compile_to_prolog_output(Stream)),File)), statistics(runtime,[End,_]), Total is (End - Start)/1000, format(Stream,'~n~n%; Total compilation time: ~w seconds~n~n',[Total]))). lisp_compile_to_prolog_output(Stream,COMMENTP):- is_comment(COMMENTP,Txt),!,with_output_to(Stream,fmt_lispcode(Txt)),!. lisp_compile_to_prolog_output(Stream,with_text(I,Txt)):-!,with_output_to(Stream,fmt_lispcode(Txt)),!,lisp_compile_to_prolog_output(Stream,I),!. lisp_compile_to_prolog_output(Stream,PExpression):- b_setval('$variable_names',[]), as_sexp(PExpression,Expression), !, % dbginfo(:- lisp_compile_to_prolog(Pkg,Expression)), with_output_to(Stream,lisp_compile_to_prolog(Expression)),!. lisp_compile_to_prolog(_,COMMENTP):- is_comment(COMMENTP,Txt),!,fmt_lispcode(Txt),!. lisp_compile_to_prolog(Pkg,with_text(I,Txt)):-!,fmt_lispcode(Txt),!,lisp_compile_to_prolog(Pkg,I),!. lisp_compile_to_prolog(Pkg,Forms):- source_location(_,_),!,reader_intern_symbols(Pkg,Forms,_),!. lisp_compile_to_prolog(Pkg,Expression):- always(locally_let(xx_package_xx=Pkg,lisp_compile_to_prolog(Expression))),!. write_file_info:- % (is_user_output->write(is_user_output);write(not_user_output)), \+ is_user_output, \+ current_prolog_flag(lisp_verbose,0),!, nl, write('/*********** '), ignore(notrace_catch_fail((nb_current('$lisp_translation_stream',In),stream_property(In,file_name(File)),write(File)))), ignore(notrace_catch_fail((nb_current('$lisp_translation_line',LineChars),write(:),write(LineChars)))), writeln(' **********************/'),!, flush_all_output_safe,!. write_file_info. lisp_compile_to_prolog(PExpression):- ((always(( as_sexp(PExpression,SExpression),!, both_outputs(write_file_info),!, flush_all_output_safe,!, set_md_lang(prolog),!, reading_package(Pkg),!, %cmpout(:- lisp_compile_to_prolog(Pkg,SExpression)), writeq(:- lisp_compile_to_prolog(Pkg,SExpression)), !, reader_intern_symbols(SExpression,Expression), debug_var('_Ignored',Result))), once((lisp_compile(Result,Expression,PrologCode))))), cmpout(:- PrologCode),!, ignore((always(lisp_grovel(PrologCode)))),!. grovel_time_called(do_when). grovel_time_called(sf_in_package). grovel_time_called(f_use_package). grovel_time_called(sf_defpackage). %grovel_time_called(sf_defmacro). %grovel_time_called(CL_DEF):- atom(CL_DEF),atom_concat(CL_DEF,'def'). %grovel_time_called(CL_DEF):- atom(CL_DEF),atom_contains(CL_DEF,'_package'). grovel_time_called(set_opv). grovel_time_called(break). grovel_time_called(sf_sys_strace). grovel_file(File,Keys,Load_RetO):- dmsg(:- f_compile_file(File,Keys,Load_RetO)). lisp_grovel(PrologCode):- ( \+ compound(PrologCode); \+ callable(PrologCode)),!. lisp_grovel(PAB):- PAB=..[F,A|_],grovel_time_called(F),!,(var(A)-> true;call(PAB)),!. lisp_grovel(_). lisp_grovel((A,B)):-!, lisp_grovel(A),lisp_grovel(B). lisp_grovel(f_load(File,Keys,_Load_Ret)):- !, grovel_file(File,Keys,_Load_RetO). lisp_grovel(f_require(File,Keys,_Load_Ret)):- !, grovel_file(File,Keys,_Load_RetO). lisp_grovel(A):- is_assert_op(A,Where,AA),!,lisp_grovel_assert(Where,AA). %lisp_grovel(PAB):- grovel_time_called(PAB)->always(PAB);true. %lisp_grovel(f_compile_file(File,Keys,Load_Ret)):- !, f_compile_file(File,Keys,Load_Ret). lisp_grovel(_). lisp_grovel_assert(T,MP):- compound(MP),strip_module(MP,_,P),functor(P,F,_), arg(_, v(doc_string,macro_lambda,function_lambda,init_args,lambda_def,arglist_info),F),!, show_call_trace(assert_lsp(T,MP)). lisp_grovel_assert(_,_). lisp_grovel_assert(T):-lisp_grovel_assert(u,T),!. %*compile-file-truename* pl_load(File,_Keys,T):- exists_file(File),file_name_extension(_Base,Ext,File),prolog_file_type(Ext,Type),Type==prolog,!, ensure_loaded(File),T=t. pl_load(L,Keys,T):- f_load(L,Keys,T),!. f_load(L):- f_load(L,_). f_load(L,T):- f_load(L,[],T). (wl:init_args(1,load)). f_load(L,Keys,T):- to_prolog_string_if_needed(L,Loc)->L\==Loc,!,f_load(Loc,Keys,T). %f_load('$OBJ'(_Pathname,Loc),Keys,T):- !, f_load(Loc,Keys,T). f_load(File,_Keys,t):- fail, % check maybe for fresh pl_compiled_filename(File,PL),exists_file(PL),!,dbginfo(in_comment(ensure_loaded(PL))),!,ensure_loaded(PL). %f_load(File,R):- f_compile_file(File,t),!,pl_compiled_filename(File,PL),exists_file(PL),!,in_comment(dbginfo(ensure_loaded(PL))),!,ensure_loaded(PL). f_load(File,Keys,t):- with_each_file(load_1file(Keys),File). load_1file(_Keys,File):- always((locally_let( [sym('cl:*readtable*')=value(sym('cl:*readtable*')), sym('cl:*package*')=value(sym('cl:*package*')), sym('sys::*compiler-mode*')=sym(':load-toplevel')], locally(t_l:sreader_options(with_text,true), with_each_form(lisp_reader_compiled_eval,File))))). lisp_reader_compiled_eval(COMMENTP):- is_comment(COMMENTP,Txt),!,fmt_lispcode(Txt). lisp_reader_compiled_eval(with_text(I,Txt)):-!,fmt_lispcode(Txt),!,lisp_reader_compiled_eval(I),!. lisp_reader_compiled_eval(PExpression):- always(( as_sexp(PExpression,SExpression),!, both_outputs(write_file_info),!, reading_package(Pkg),!, dbginfo(flat(:- lisp_compile_to_prolog(Pkg,SExpression))),!, reader_intern_symbols(SExpression,Expression),!, process_load_expression(Expression))),!. process_load_expression(COMMENTP):- is_comment(COMMENTP,Txt),!,fmt_lispcode(Txt). process_load_expression(with_text(I,Txt)):-!,in_md(cl,fmt_lispcode(Txt)),always(process_load_expression(I)),!. process_load_expression(Expression):- b_setval('$variable_names',[]), debug_var('_IgnoredResult',Result),!, lisp_compile(Result,Expression,PrologCode), dbginfo(:- PrologCode), with_output_to(user_error, (setup_call_cleanup(format('~N/*~n',[]),ignore(always(PrologCode)),format('~N*/~n',[])))),!. with_flist(How,List):- must_maplist(with1file(How),List),!. %with1file(How,File):- exists_file(File),file_name_extension(File,Ext,_Base),prolog_file_type(Ext,Type),Type==prolog,!,pl_load(File,[],_). with1file(How,File):- always(call(How,File)). with_each_form(How,File):- local_override(with_forms,What),What\==How,!,with_each_form(What,File). with_each_form(How,File):- dbginfo(with_lisp_translation(file(File),How)),!, with_lisp_translation(file(File),How),!. expand_directory_file_path(FDir,Ext,List):- directory_file_path(FDir,Ext,Mask),expand_file_name(Mask,List),List\==[Mask]. with_directory(How,FDir):- expand_directory_file_path(FDir,'*.cl',List),!,with_flist(How,List). with_directory(How,FDir):- expand_directory_file_path(FDir,'*.lisp',List),!,with_flist(How,List). with_directory(How,FDir):- expand_directory_file_path(FDir,'*.lsp',List),!,with_flist(How,List). with_each_file(How,File):- string(File),name(Atom,File),!,with_each_file(How,Atom). with_each_file(How,File):- compound(File),!,absolute_file_name(File,Abs),file_directory_name(Abs,Dir),exists_directory(Dir),!, with_each_file(How,Abs). with_each_file(How,File):- exists_file(File),!,with1file(How,File). with_each_file(How,FDir):- exists_directory(FDir),with_directory(How,FDir),!. with_each_file(How,Mask):- expand_file_name(Mask,List),List\==[Mask],!,with_flist(How,List). with_each_file(How,File):- path_probe(FD),with_fstem(FD,File,Found),!,with1file(How,Found). with_each_file(How,FDir):- exists_directory(FDir),!,with_directory(How,FDir),!. with_each_file(How,File):- working_directory(CD,CD),with_fstem(CD,File,Found),!,with1file(How,Found). % with_each_file(How,File):- with_lisp_translation(File,lisp_compiled_eval). %cl:require( :tables "tables.lisp") % asserting... u wl:arglist_info(f_require, [sys_name, c38_optional, u_pathnames], [_Name_Param], arginfo{all:[sys_name, u_pathnames], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_name, u_pathnames], opt:[u_pathnames], req:[sys_name], rest:0, whole:0}). % asserting... u wl:init_args(1,require). % asserting... u wl:lambda_def(defun, require, f_require, [sys_name, c38_optional, u_pathnames], [[let, [[string, [string, sys_name]]], [unless, [find, string, xx_modules_xx, kw_test, function(string_c61)], [u_do_list_designator, [u_file, u_pathnames], [load, u_file]]]]]). % asserting... u f_require(Name_Param, RestNKeys, FResult) :- Env=[bv(sys_name, Name_Param), bv(u_pathnames, Pathnames_Param)], opt_var(Env, u_pathnames, Pathnames_Param, true, [], 1, RestNKeys), f_string(Name_Param, String_Init), LEnv=[[bv(string, String_Init)]|Env], get_var(LEnv, xx_modules_xx, Xx_modules_xx_Get), f_find(String_Init, Xx_modules_xx_Get, [kw_test, function(string_c61)], IFTEST), ( IFTEST\==[] -> FResult=[] ; get_var(LEnv, u_pathnames, Pathnames_Get), throw(f_u_file(Pathnames_Get, List_designator_Param)), get_var(LEnv, u_file, File_Get), f_load(File_Get, [], Load_Ret), throw(f_u_do_list_designator(List_designator_Param, Load_Ret, ElseResult)), FResult=ElseResult ). /*:- set_opv(f_require,type_of,compiled_function), set_opv(require, compile_as, kw_function), set_opv(require, function, f_require).*/ % asserting... u wl:arglist_info(f_provide, [sys_name], [_Name_Param], arginfo{all:[sys_name], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_name], opt:0, req:[sys_name], rest:0, whole:0}). % asserting... u wl:init_args(x, provide). % asserting... u wl:lambda_def(defun, provide, f_provide, [sys_name], [[let, [[string, [string, sys_name]]], [pushnew, string, xx_modules_xx, kw_test, function(string_c61)], string]]). % asserting... u f_provide(Name_Param, FResult) :- % Env=[bv(sys_name, Name_Param)], f_string(Name_Param, String_Init), % LEnv=[[bv(string, String_Init)]|Env], sf_pushnew(_Env, String_Init, xx_modules_xx, [kw_test, function(string_c61)], _Pushnew_R), String_Init=FResult. /*:- set_opv(f_provide,type_of,compiled_function), set_opv(provide, compile_as, kw_function), set_opv(provide, function, f_provide). */ :- fixup_exports. /* */ /* make_pass(1, [ 'xabcl/abcl-contrib.lisp', 'xabcl/adjoin.lisp', 'xabcl/and.lisp', 'xabcl/apropos.lisp', 'xabcl/arrays.lisp', 'xabcl/assert.lisp', 'xabcl/assoc.lisp', 'xabcl/autoloads.lisp', 'xabcl/aver.lisp', 'xabcl/backquote.lisp', 'xabcl/bit-array-ops.lisp', 'xabcl/boole.lisp', 'xabcl/boot.lisp', 'xabcl/butlast.lisp', 'xabcl/byte-io.lisp', 'xabcl/case.lisp', 'xabcl/chars.lisp', 'xabcl/check-type.lisp', 'xabcl/coerce.lisp', 'xabcl/collect.lisp', 'xabcl/compile-file.lisp', 'xabcl/compile-file-pathname.lisp', 'xabcl/compiler-error.lisp', 'xabcl/compiler-macro.lisp', 'xabcl/compiler-pass1.lisp', 'xabcl/compiler-pass2.lisp', 'xabcl/compiler-types.lisp', 'xabcl/compile-system.lisp', 'xabcl/concatenate.lisp', 'xabcl/cond.lisp', 'xabcl/copy-seq.lisp', 'xabcl/copy-symbol.lisp', 'xabcl/count.lisp', 'xabcl/debug.lisp', 'xabcl/define-modify-macro.lisp', 'xabcl/define-symbol-macro.lisp', 'xabcl/defmacro.lisp', 'xabcl/defpackage.lisp', 'xabcl/defsetf.lisp', 'xabcl/defstruct.lisp', 'xabcl/deftype.lisp', 'xabcl/delete-duplicates.lisp', 'xabcl/delete.lisp', 'xabcl/deposit-field.lisp', 'xabcl/describe-compiler-policy.lisp', 'xabcl/describe.lisp', 'xabcl/destructuring-bind.lisp', 'xabcl/digest.lisp', 'xabcl/directory.lisp', 'xabcl/disassemble.lisp', 'xabcl/do-all-symbols.lisp', 'xabcl/documentation.lisp', 'xabcl/do-external-symbols.lisp', 'xabcl/do.lisp', 'xabcl/dolist.lisp', 'xabcl/do-symbols.lisp', 'xabcl/dotimes.lisp', 'xabcl/dribble.lisp', 'xabcl/dump-class.lisp', 'xabcl/dump-form.lisp', 'xabcl/early-defuns.lisp', 'xabcl/ed.lisp', 'xabcl/enough-namestring.lisp', 'xabcl/ensure-directories-exist.lisp', 'xabcl/error.lisp', 'xabcl/extensible-sequences-base.lisp', 'xabcl/extensible-sequences.lisp', 'xabcl/fasl-concat.lisp', 'xabcl/fdefinition.lisp', 'xabcl/featurep.lisp', 'xabcl/fill.lisp', 'xabcl/find-all-symbols.lisp', 'xabcl/find.lisp', 'xabcl/format.lisp', 'xabcl/gentemp.lisp', 'xabcl/get-pid.lisp', 'xabcl/gray-streams.lisp', 'xabcl/gui.lisp', 'xabcl/inline.lisp', 'xabcl/inspect.lisp', 'xabcl/java-collections.lisp', 'xabcl/java.lisp', 'xabcl/jvm-class-file.lisp', 'xabcl/jvm-instructions.lisp', 'xabcl/jvm.lisp', 'xabcl/known-functions.lisp', 'xabcl/known-symbols.lisp', 'xabcl/late-setf.lisp', 'xabcl/lcm.lisp', 'xabcl/ldb.lisp', 'xabcl/ldiff.lisp', 'xabcl/list-length.lisp', 'xabcl/list.lisp', 'xabcl/load.lisp', 'xabcl/loop.lisp', 'xabcl/macros.lisp', 'xabcl/make-hash-table.lisp', 'xabcl/make-load-form-saving-slots.lisp', 'xabcl/make-sequence.lisp', 'xabcl/make-string.lisp', 'xabcl/make-string-output-stream.lisp', 'xabcl/map1.lisp', 'xabcl/map-into.lisp', 'xabcl/map.lisp', 'xabcl/mask-field.lisp', 'xabcl/member-if.lisp', 'xabcl/mismatch.lisp', 'xabcl/mop.lisp', 'xabcl/multiple-value-bind.lisp', 'xabcl/multiple-value-list.lisp', 'xabcl/multiple-value-setq.lisp', 'xabcl/nsubstitute.lisp', 'xabcl/nth-value.lisp', 'xabcl/numbers.lisp', 'xabcl/open.lisp', 'xabcl/or.lisp', 'xabcl/package.lisp', 'xabcl/parse-integer.lisp', 'xabcl/parse-lambda-list.lisp', 'xabcl/pathnames.lisp', 'xabcl/pprint-dispatch.lisp', 'xabcl/pprint.lisp', 'xabcl/precompiler.lisp', 'xabcl/print.lisp', 'xabcl/print-object.lisp', 'xabcl/print-unreadable-object.lisp', 'xabcl/proclaim.lisp', 'xabcl/profiler.lisp', 'xabcl/prog.lisp', 'xabcl/psetf.lisp', 'xabcl/query.lisp', 'xabcl/read-circle.lisp', 'xabcl/read-conditional.lisp', 'xabcl/read-from-string.lisp', 'xabcl/read-sequence.lisp', 'xabcl/reduce.lisp', 'xabcl/remf.lisp', 'xabcl/remove-duplicates.lisp', 'xabcl/remove.lisp', 'xabcl/replace.lisp', 'xabcl/require.lisp', 'xabcl/restart.lisp', 'xabcl/revappend.lisp', 'xabcl/rotatef.lisp', 'xabcl/run-benchmarks.lisp', 'xabcl/run-program.lisp', 'xabcl/run-shell-command.lisp', 'xabcl/runtime-class.lisp', 'xabcl/search.lisp', 'xabcl/sequences.lisp', 'xabcl/setf.lisp', 'xabcl/sets.lisp', 'xabcl/shiftf.lisp', 'xabcl/signal.lisp', 'xabcl/socket.lisp', 'xabcl/sort.lisp', 'xabcl/source-transform.lisp', 'xabcl/step.lisp', 'xabcl/strings.lisp', 'xabcl/sublis.lisp', 'xabcl/substitute.lisp', 'xabcl/subst.lisp', 'xabcl/subtypep.lisp', 'xabcl/tailp.lisp', 'xabcl/threads.lisp', 'xabcl/time.lisp', 'xabcl/top-level.lisp', 'xabcl/trace.lisp', 'xabcl/tree-equal.lisp', 'xabcl/typep.lisp', 'xabcl/upgraded-complex-part-type.lisp', 'xabcl/with-accessors.lisp', 'xabcl/with-hash-table-iterator.lisp', 'xabcl/with-input-from-string.lisp', 'xabcl/with-open-file.lisp', 'xabcl/with-output-to-string.lisp', 'xabcl/with-package-iterator.lisp', 'xabcl/with-slots.lisp', 'xabcl/with-standard-io-syntax.lisp', 'xabcl/write-sequence.lisp' ]). make_pass(2,['xabcl/clos.lisp', 'xabcl/asdf.lisp', 'xabcl/autoloads-gen.lisp']). */