]50;ClearScrollbackc:- side_effect(set_opv(sys_set_nth, symbol_function, f_set_nth)). :- side_effect(set_opv(sys_string_to_pathname, symbol_function, f_sys_string_to_pathname)). :- side_effect(assertz_new(struct_opv(claz_pathname, name, directory, pathname_directory))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_directory], pathname_directory))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 1, pathname_directory))). :- side_effect(assertz_new(struct_opv(claz_pathname, name, sys_device, pathname_device))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_device], pathname_device))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 2, pathname_device))). :- side_effect(assertz_new(struct_opv(claz_pathname, name, sys_host, pathname_host))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_host], pathname_host))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 3, pathname_host))). :- side_effect(assertz_new(struct_opv(claz_pathname, name, sys_name, pathname_name))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_name], pathname_name))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 4, pathname_name))). :- side_effect(assertz_new(struct_opv(claz_pathname, name, sys_version, pathname_version))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_version], pathname_version))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 5, pathname_version))). :- side_effect(assertz_new(struct_opv(claz_pathname, name, type, pathname_type))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_type], pathname_type))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 6, pathname_type))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, default_initargs, sys_standard_class_default_initargs))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_default_initargs], sys_standard_class_default_initargs))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 1, sys_standard_class_default_initargs))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, documentation, sys_standard_class_documentation))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_documentation], sys_standard_class_documentation))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 2, sys_standard_class_documentation))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_class_direct_default_initargs, sys_standard_class_class_direct_default_initargs))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_class_direct_default_initargs], sys_standard_class_class_direct_default_initargs))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 3, sys_standard_class_class_direct_default_initargs))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_class_direct_generic_functions, sys_standard_class_class_direct_generic_functions))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_class_direct_generic_functions], sys_standard_class_class_direct_generic_functions))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 4, sys_standard_class_class_direct_generic_functions))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_class_direct_instance_specializers, sys_standard_class_sys_class_direct_instance_specializers))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [ kw_sys_class_direct_instance_specializers ], sys_standard_class_sys_class_direct_instance_specializers))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 5, sys_standard_class_sys_class_direct_instance_specializers))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_class_direct_methods, sys_standard_class_class_direct_methods))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_class_direct_methods], sys_standard_class_class_direct_methods))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 6, sys_standard_class_class_direct_methods))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_class_direct_slots, sys_standard_class_class_direct_slots))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_class_direct_slots], sys_standard_class_class_direct_slots))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 7, sys_standard_class_class_direct_slots))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_class_direct_subclasses, sys_standard_class_class_direct_subclasses))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_class_direct_subclasses], sys_standard_class_class_direct_subclasses))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 8, sys_standard_class_class_direct_subclasses))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_class_direct_superclasses, sys_standard_class_class_direct_superclasses))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_class_direct_superclasses], sys_standard_class_class_direct_superclasses))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 9, sys_standard_class_class_direct_superclasses))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_current_version, sys_standard_class_current_version))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_current_version], sys_standard_class_current_version))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 10, sys_standard_class_current_version))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_dependents, sys_standard_class_dependents))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_dependents], sys_standard_class_dependents))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 11, sys_standard_class_dependents))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_finalized, sys_standard_class_finalized))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_finalized], sys_standard_class_finalized))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 12, sys_standard_class_finalized))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_finalized_direct_subclasses, sys_standard_class_finalized_direct_subclasses))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_finalized_direct_subclasses], sys_standard_class_finalized_direct_subclasses))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 13, sys_standard_class_finalized_direct_subclasses))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_finalized_p, sys_standard_class_finalized_p))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_finalized_p], sys_standard_class_finalized_p))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 14, sys_standard_class_finalized_p))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_fixed_slot_locations, sys_standard_class_fixed_slot_locations))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_fixed_slot_locations], sys_standard_class_fixed_slot_locations))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 15, sys_standard_class_fixed_slot_locations))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_flag, sys_standard_class_flag))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_flag], sys_standard_class_flag))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 16, sys_standard_class_flag))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_forward, sys_standard_class_forward))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_forward], sys_standard_class_forward))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 17, sys_standard_class_forward))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_funcallablep, sys_standard_class_funcallablep))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_funcallablep], sys_standard_class_funcallablep))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 18, sys_standard_class_funcallablep))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_instantiated, sys_standard_class_instantiated))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_instantiated], sys_standard_class_instantiated))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 19, sys_standard_class_instantiated))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_layout, sys_standard_class_layout))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_layout], sys_standard_class_layout))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 20, sys_standard_class_layout))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_location_table, sys_standard_class_location_table))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_location_table], sys_standard_class_location_table))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 21, sys_standard_class_location_table))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_name, sys_standard_class_name))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_name], sys_standard_class_name))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 22, sys_standard_class_name))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_optimize_slot_access, sys_standard_class_optimize_slot_access))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_optimize_slot_access], sys_standard_class_optimize_slot_access))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 23, sys_standard_class_optimize_slot_access))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_precedence_list, sys_standard_class_precedence_list))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_precedence_list], sys_standard_class_precedence_list))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 24, sys_standard_class_precedence_list))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_sealedp, sys_standard_class_sealedp))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_sealedp], sys_standard_class_sealedp))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 25, sys_standard_class_sealedp))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_size, sys_standard_class_size))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_size], sys_standard_class_size))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 26, sys_standard_class_size))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_slot_table, sys_standard_class_slot_table))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_slot_table], sys_standard_class_slot_table))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 27, sys_standard_class_slot_table))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_slots, sys_standard_class_slots))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_slots], sys_standard_class_slots))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 28, sys_standard_class_slots))). :- side_effect(assertz_new(struct_opv(claz_standard_class, name, sys_valid_initargs, sys_standard_class_valid_initargs))). :- side_effect(assertz_new(struct_opv(claz_standard_class, initargs, [kw_valid_initargs], sys_standard_class_valid_initargs))). :- side_effect(assertz_new(struct_opv(claz_standard_class, location, 29, sys_standard_class_valid_initargs))). :- side_effect(assertz_new(struct_opv(claz_pathname, name, pathname))). :- side_effect(assertz_new(struct_opv(claz_pathname, include, []))). :- side_effect(assertz_new(struct_opv(claz_pathname, documentation, '$ARRAY'([*], claz_base_character, "A physical pathname.")))). :- side_effect(set_kind_object_slot_value(standard_class, claz_pathname, kw_documentation, [ '$ARRAY'([*], claz_base_character, "A physical pathname.") ])). :- side_effect(assertz_new(struct_opv(claz_pathname, name, sys_host, pathname_host))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_host], pathname_host))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 1, pathname_host))). :- side_effect(assertz_new(struct_opv(claz_pathname, accessor, pathname_host, pathname_host))). :- side_effect(assertz_new(struct_opv(claz_pathname, initarg, kw_host, pathname_host))). :- side_effect(assertz_new(struct_opv(claz_pathname, initform, [], pathname_host))). :- side_effect(assertz_new(struct_opv(claz_pathname, name, sys_device, pathname_device))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_device], pathname_device))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 2, pathname_device))). :- side_effect(assertz_new(struct_opv(claz_pathname, accessor, pathname_device, pathname_device))). :- side_effect(assertz_new(struct_opv(claz_pathname, initarg, kw_device, pathname_device))). :- side_effect(assertz_new(struct_opv(claz_pathname, initform, kw_unspecific, pathname_device))). :- side_effect(assertz_new(struct_opv(claz_pathname, name, directory, pathname_directory))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_directory], pathname_directory))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 3, pathname_directory))). :- side_effect(assertz_new(struct_opv(claz_pathname, accessor, pathname_directory, pathname_directory))). :- side_effect(assertz_new(struct_opv(claz_pathname, initarg, kw_directory, pathname_directory))). :- side_effect(assertz_new(struct_opv(claz_pathname, initform, [], pathname_directory))). :- side_effect(assertz_new(struct_opv(claz_pathname, name, sys_name, pathname_name))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_name], pathname_name))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 4, pathname_name))). :- side_effect(assertz_new(struct_opv(claz_pathname, accessor, pathname_name, pathname_name))). :- side_effect(assertz_new(struct_opv(claz_pathname, initarg, kw_name, pathname_name))). :- side_effect(assertz_new(struct_opv(claz_pathname, initform, [], pathname_name))). :- side_effect(assertz_new(struct_opv(claz_pathname, name, type, pathname_type))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_type], pathname_type))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 5, pathname_type))). :- side_effect(assertz_new(struct_opv(claz_pathname, accessor, pathname_type, pathname_type))). :- side_effect(assertz_new(struct_opv(claz_pathname, initarg, kw_type, pathname_type))). :- side_effect(assertz_new(struct_opv(claz_pathname, initform, [], pathname_type))). :- side_effect(assertz_new(struct_opv(claz_pathname, name, sys_version, pathname_version))). :- side_effect(assertz_new(struct_opv(claz_pathname, initargs, [kw_version], pathname_version))). :- side_effect(assertz_new(struct_opv(claz_pathname, location, 6, pathname_version))). :- side_effect(assertz_new(struct_opv(claz_pathname, accessor, pathname_version, pathname_version))). :- side_effect(assertz_new(struct_opv(claz_pathname, initarg, kw_version, pathname_version))). :- side_effect(assertz_new(struct_opv(claz_pathname, initform, kw_newest, pathname_version))). :- side_effect(make_default_constructor(claz_pathname, (assert_lsp(make_pathname, init_args(0, make_pathname)), assert_lsp(make_pathname, init_args(0, f_make_pathname)), set_opv(make_pathname, symbol_function, f_make_pathname), assert_lsp(pathname, (f_make_pathname(Make_pathname_Param, Make_pathname_Ret):-f_make_instance([claz_pathname|Make_pathname_Param], Make_pathname_Ret)))))). wl:lambda_def(defun, sys_pathname_p, f_sys_pathname_p, [sys_obj], [[progn, [eq, [type_of, sys_obj], [quote, pathname]]]]). wl:arglist_info(sys_pathname_p, f_sys_pathname_p, [sys_obj], arginfo{all:[sys_obj], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_obj], opt:0, outer:Env, req:[sys_obj], rest:0, sublists:0, whole:0}). wl: init_args(x, f_sys_pathname_p). ``` ### Compiled Function: `SYS::PATHNAME-P` ```prolog f_sys_pathname_p(Obj_In, FnResult) :- GEnv=[bv(sys_obj, Obj_In)], catch(( ( get_var(GEnv, sys_obj, Obj_Get), f_type_of(Obj_Get, Eq_Param), f_eq(Eq_Param, pathname, Pathname) ), Pathname=FnResult ), block_exit(sys_pathname_p, FnResult), true). :- was_info((set_opv(sys_pathname_p, symbol_function, f_sys_pathname_p), DefunResult=sys_pathname_p)). :- side_effect(maybe_add_kw_function(claz_pathname, "PATHNAME", "-P", kw_predicate, [obj], eq('type-of'(obj), quote(pathname)))). :- side_effect(assertz_new(struct_opv(claz_pathname, conc_name, "PATHNAME-"))). wl:lambda_def(defun, pathname_directory, f_pathname_directory, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_directory]]]]). wl:arglist_info(pathname_directory, f_pathname_directory, [sys_object], arginfo{all:[sys_object], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object], opt:0, outer:Env13, req:[sys_object], rest:0, sublists:0, whole:0}). wl: init_args(1, f_pathname_directory). ``` ### Compiled Function: `CL:PATHNAME-DIRECTORY` ```prolog f_pathname_directory(Object_In, RestNKeys15, FnResult14) :- GEnv21=[bv(sys_object, Object_In)], catch(( ( get_var(GEnv21, sys_object, Object_Get), f_class_slot_value(claz_pathname, Object_Get, pathname_directory, Pathname_directory) ), Pathname_directory=FnResult14 ), block_exit(pathname_directory, FnResult14), true). :- was_info((set_opv(pathname_directory, symbol_function, f_pathname_directory), DefunResult20=pathname_directory)). :- side_effect(assertz_new(struct_opv(claz_pathname, readers, [pathname_directory], pathname_directory))). wl: declared_as(pathname_directory, defun_setf(setf_pathname_directory)). wl:lambda_def(defun, setf_pathname_directory, f_setf_pathname_directory, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_directory], sys_value]]]). wl:arglist_info(setf_pathname_directory, f_setf_pathname_directory, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env23, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_directory). ``` ### Compiled Function: `CL::SETF-PATHNAME-DIRECTORY` ```prolog f_setf_pathname_directory(Object_In27, Value_In, FnResult24) :- GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)], catch(( ( get_var(GEnv33, sys_object, Object_Get29), get_var(GEnv33, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get29, pathname_directory, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult24 ), block_exit(setf_pathname_directory, FnResult24), true). :- was_info((set_opv(setf_pathname_directory, symbol_function, f_setf_pathname_directory), DefunResult32=setf_pathname_directory)). :- side_effect(assertz_new(struct_opv(claz_pathname, writers, [setf_pathname_directory], pathname_directory))). wl:lambda_def(defun, pathname_device, f_pathname_device, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_device]]]]). wl:arglist_info(pathname_device, f_pathname_device, [sys_object], arginfo{all:[sys_object], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object], opt:0, outer:Env13, req:[sys_object], rest:0, sublists:0, whole:0}). wl: init_args(1, f_pathname_device). ``` ### Compiled Function: `CL:PATHNAME-DEVICE` ```prolog f_pathname_device(Object_In, RestNKeys15, FnResult14) :- GEnv21=[bv(sys_object, Object_In)], catch(( ( get_var(GEnv21, sys_object, Object_Get), f_class_slot_value(claz_pathname, Object_Get, pathname_device, Pathname_device) ), Pathname_device=FnResult14 ), block_exit(pathname_device, FnResult14), true). :- was_info((set_opv(pathname_device, symbol_function, f_pathname_device), DefunResult20=pathname_device)). :- side_effect(assertz_new(struct_opv(claz_pathname, readers, [pathname_device], pathname_device))). wl: declared_as(pathname_device, defun_setf(setf_pathname_device)). wl:lambda_def(defun, setf_pathname_device, f_setf_pathname_device, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_device], sys_value]]]). wl:arglist_info(setf_pathname_device, f_setf_pathname_device, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env23, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_device). ``` ### Compiled Function: `CL::SETF-PATHNAME-DEVICE` ```prolog f_setf_pathname_device(Object_In27, Value_In, FnResult24) :- GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)], catch(( ( get_var(GEnv33, sys_object, Object_Get29), get_var(GEnv33, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get29, pathname_device, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult24 ), block_exit(setf_pathname_device, FnResult24), true). :- was_info((set_opv(setf_pathname_device, symbol_function, f_setf_pathname_device), DefunResult32=setf_pathname_device)). :- side_effect(assertz_new(struct_opv(claz_pathname, writers, [setf_pathname_device], pathname_device))). wl:lambda_def(defun, pathname_host, f_pathname_host, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_host]]]]). wl:arglist_info(pathname_host, f_pathname_host, [sys_object], arginfo{all:[sys_object], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object], opt:0, outer:Env13, req:[sys_object], rest:0, sublists:0, whole:0}). wl: init_args(1, f_pathname_host). ``` ### Compiled Function: `CL:PATHNAME-HOST` ```prolog f_pathname_host(Object_In, RestNKeys15, FnResult14) :- GEnv21=[bv(sys_object, Object_In)], catch(( ( get_var(GEnv21, sys_object, Object_Get), f_class_slot_value(claz_pathname, Object_Get, pathname_host, Pathname_host) ), Pathname_host=FnResult14 ), block_exit(pathname_host, FnResult14), true). :- was_info((set_opv(pathname_host, symbol_function, f_pathname_host), DefunResult20=pathname_host)). :- side_effect(assertz_new(struct_opv(claz_pathname, readers, [pathname_host], pathname_host))). wl: declared_as(pathname_host, defun_setf(setf_pathname_host)). wl:lambda_def(defun, setf_pathname_host, f_setf_pathname_host, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_host], sys_value]]]). wl:arglist_info(setf_pathname_host, f_setf_pathname_host, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env23, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_host). ``` ### Compiled Function: `CL::SETF-PATHNAME-HOST` ```prolog f_setf_pathname_host(Object_In27, Value_In, FnResult24) :- GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)], catch(( ( get_var(GEnv33, sys_object, Object_Get29), get_var(GEnv33, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get29, pathname_host, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult24 ), block_exit(setf_pathname_host, FnResult24), true). :- was_info((set_opv(setf_pathname_host, symbol_function, f_setf_pathname_host), DefunResult32=setf_pathname_host)). :- side_effect(assertz_new(struct_opv(claz_pathname, writers, [setf_pathname_host], pathname_host))). wl:lambda_def(defun, pathname_name, f_pathname_name, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_name]]]]). wl:arglist_info(pathname_name, f_pathname_name, [sys_object], arginfo{all:[sys_object], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object], opt:0, outer:Env13, req:[sys_object], rest:0, sublists:0, whole:0}). wl: init_args(1, f_pathname_name). ``` ### Compiled Function: `CL:PATHNAME-NAME` ```prolog f_pathname_name(Object_In, RestNKeys15, FnResult14) :- GEnv21=[bv(sys_object, Object_In)], catch(( ( get_var(GEnv21, sys_object, Object_Get), f_class_slot_value(claz_pathname, Object_Get, pathname_name, Pathname_name) ), Pathname_name=FnResult14 ), block_exit(pathname_name, FnResult14), true). :- was_info((set_opv(pathname_name, symbol_function, f_pathname_name), DefunResult20=pathname_name)). :- side_effect(assertz_new(struct_opv(claz_pathname, readers, [pathname_name], pathname_name))). wl: declared_as(pathname_name, defun_setf(setf_pathname_name)). wl:lambda_def(defun, setf_pathname_name, f_setf_pathname_name, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_name], sys_value]]]). wl:arglist_info(setf_pathname_name, f_setf_pathname_name, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env23, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_name). ``` ### Compiled Function: `CL::SETF-PATHNAME-NAME` ```prolog f_setf_pathname_name(Object_In27, Value_In, FnResult24) :- GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)], catch(( ( get_var(GEnv33, sys_object, Object_Get29), get_var(GEnv33, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get29, pathname_name, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult24 ), block_exit(setf_pathname_name, FnResult24), true). :- was_info((set_opv(setf_pathname_name, symbol_function, f_setf_pathname_name), DefunResult32=setf_pathname_name)). :- side_effect(assertz_new(struct_opv(claz_pathname, writers, [setf_pathname_name], pathname_name))). wl:lambda_def(defun, pathname_version, f_pathname_version, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_version]]]]). wl:arglist_info(pathname_version, f_pathname_version, [sys_object], arginfo{all:[sys_object], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object], opt:0, outer:Env13, req:[sys_object], rest:0, sublists:0, whole:0}). wl: init_args(x, f_pathname_version). ``` ### Compiled Function: `CL:PATHNAME-VERSION` ```prolog f_pathname_version(Object_In, FnResult14) :- GEnv21=[bv(sys_object, Object_In)], catch(( ( get_var(GEnv21, sys_object, Object_Get), f_class_slot_value(claz_pathname, Object_Get, pathname_version, Pathname_version) ), Pathname_version=FnResult14 ), block_exit(pathname_version, FnResult14), true). :- was_info((set_opv(pathname_version, symbol_function, f_pathname_version), DefunResult20=pathname_version)). :- side_effect(assertz_new(struct_opv(claz_pathname, readers, [pathname_version], pathname_version))). wl: declared_as(pathname_version, defun_setf(setf_pathname_version)). wl:lambda_def(defun, setf_pathname_version, f_setf_pathname_version, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_version], sys_value]]]). wl:arglist_info(setf_pathname_version, f_setf_pathname_version, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env23, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_version). ``` ### Compiled Function: `CL::SETF-PATHNAME-VERSION` ```prolog f_setf_pathname_version(Object_In27, Value_In, FnResult24) :- GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)], catch(( ( get_var(GEnv33, sys_object, Object_Get29), get_var(GEnv33, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get29, pathname_version, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult24 ), block_exit(setf_pathname_version, FnResult24), true). :- was_info((set_opv(setf_pathname_version, symbol_function, f_setf_pathname_version), DefunResult32=setf_pathname_version)). :- side_effect(assertz_new(struct_opv(claz_pathname, writers, [setf_pathname_version], pathname_version))). wl:lambda_def(defun, pathname_type, f_pathname_type, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_type]]]]). wl:arglist_info(pathname_type, f_pathname_type, [sys_object], arginfo{all:[sys_object], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object], opt:0, outer:Env13, req:[sys_object], rest:0, sublists:0, whole:0}). wl: init_args(1, f_pathname_type). ``` ### Compiled Function: `CL:PATHNAME-TYPE` ```prolog f_pathname_type(Object_In, RestNKeys15, FnResult14) :- GEnv21=[bv(sys_object, Object_In)], catch(( ( get_var(GEnv21, sys_object, Object_Get), f_class_slot_value(claz_pathname, Object_Get, pathname_type, Pathname_type) ), Pathname_type=FnResult14 ), block_exit(pathname_type, FnResult14), true). :- was_info((set_opv(pathname_type, symbol_function, f_pathname_type), DefunResult20=pathname_type)). :- side_effect(assertz_new(struct_opv(claz_pathname, readers, [pathname_type], pathname_type))). wl: declared_as(pathname_type, defun_setf(setf_pathname_type)). wl:lambda_def(defun, setf_pathname_type, f_setf_pathname_type, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_type], sys_value]]]). wl:arglist_info(setf_pathname_type, f_setf_pathname_type, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env23, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_type). ``` ### Compiled Function: `CL::SETF-PATHNAME-TYPE` ```prolog f_setf_pathname_type(Object_In27, Value_In, FnResult24) :- GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)], catch(( ( get_var(GEnv33, sys_object, Object_Get29), get_var(GEnv33, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get29, pathname_type, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult24 ), block_exit(setf_pathname_type, FnResult24), true). :- was_info((set_opv(setf_pathname_type, symbol_function, f_setf_pathname_type), DefunResult32=setf_pathname_type)). :- side_effect(assertz_new(struct_opv(claz_pathname, writers, [setf_pathname_type], pathname_type))). wl:lambda_def(defun, pathname_host, f_pathname_host, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_host]]]]). wl:arglist_info(pathname_host, f_pathname_host, [sys_object], arginfo{all:[sys_object], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object], opt:0, outer:Env13, req:[sys_object], rest:0, sublists:0, whole:0}). wl: init_args(1, f_pathname_host). ``` ### Compiled Function: `CL:PATHNAME-HOST` ```prolog f_pathname_host(Object_In, RestNKeys15, FnResult14) :- GEnv21=[bv(sys_object, Object_In)], catch(( ( get_var(GEnv21, sys_object, Object_Get), f_class_slot_value(claz_pathname, Object_Get, pathname_host, Pathname_host) ), Pathname_host=FnResult14 ), block_exit(pathname_host, FnResult14), true). :- was_info((set_opv(pathname_host, symbol_function, f_pathname_host), DefunResult20=pathname_host)). wl: declared_as(pathname_host, defun_setf(setf_pathname_host)). wl:lambda_def(defun, setf_pathname_host, f_setf_pathname_host, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_host], sys_value]]]). wl:arglist_info(setf_pathname_host, f_setf_pathname_host, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env23, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_host). ``` ### Compiled Function: `CL::SETF-PATHNAME-HOST` ```prolog f_setf_pathname_host(Object_In27, Value_In, FnResult24) :- GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)], catch(( ( get_var(GEnv33, sys_object, Object_Get29), get_var(GEnv33, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get29, pathname_host, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult24 ), block_exit(setf_pathname_host, FnResult24), true). :- was_info((set_opv(setf_pathname_host, symbol_function, f_setf_pathname_host), DefunResult32=setf_pathname_host)). wl:lambda_def(defun, pathname_device, f_pathname_device, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_device]]]]). wl:arglist_info(pathname_device, f_pathname_device, [sys_object], arginfo{all:[sys_object], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object], opt:0, outer:Env13, req:[sys_object], rest:0, sublists:0, whole:0}). wl: init_args(1, f_pathname_device). ``` ### Compiled Function: `CL:PATHNAME-DEVICE` ```prolog f_pathname_device(Object_In, RestNKeys15, FnResult14) :- GEnv21=[bv(sys_object, Object_In)], catch(( ( get_var(GEnv21, sys_object, Object_Get), f_class_slot_value(claz_pathname, Object_Get, pathname_device, Pathname_device) ), Pathname_device=FnResult14 ), block_exit(pathname_device, FnResult14), true). :- was_info((set_opv(pathname_device, symbol_function, f_pathname_device), DefunResult20=pathname_device)). wl: declared_as(pathname_device, defun_setf(setf_pathname_device)). wl:lambda_def(defun, setf_pathname_device, f_setf_pathname_device, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_device], sys_value]]]). wl:arglist_info(setf_pathname_device, f_setf_pathname_device, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env23, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_device). ``` ### Compiled Function: `CL::SETF-PATHNAME-DEVICE` ```prolog f_setf_pathname_device(Object_In27, Value_In, FnResult24) :- GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)], catch(( ( get_var(GEnv33, sys_object, Object_Get29), get_var(GEnv33, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get29, pathname_device, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult24 ), block_exit(setf_pathname_device, FnResult24), true). :- was_info((set_opv(setf_pathname_device, symbol_function, f_setf_pathname_device), DefunResult32=setf_pathname_device)). wl:lambda_def(defun, pathname_directory, f_pathname_directory, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_directory]]]]). wl:arglist_info(pathname_directory, f_pathname_directory, [sys_object], arginfo{all:[sys_object], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object], opt:0, outer:Env13, req:[sys_object], rest:0, sublists:0, whole:0}). wl: init_args(1, f_pathname_directory). ``` ### Compiled Function: `CL:PATHNAME-DIRECTORY` ```prolog f_pathname_directory(Object_In, RestNKeys15, FnResult14) :- GEnv21=[bv(sys_object, Object_In)], catch(( ( get_var(GEnv21, sys_object, Object_Get), f_class_slot_value(claz_pathname, Object_Get, pathname_directory, Pathname_directory) ), Pathname_directory=FnResult14 ), block_exit(pathname_directory, FnResult14), true). :- was_info((set_opv(pathname_directory, symbol_function, f_pathname_directory), DefunResult20=pathname_directory)). wl: declared_as(pathname_directory, defun_setf(setf_pathname_directory)). wl:lambda_def(defun, setf_pathname_directory, f_setf_pathname_directory, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_directory], sys_value]]]). wl:arglist_info(setf_pathname_directory, f_setf_pathname_directory, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env23, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_directory). ``` ### Compiled Function: `CL::SETF-PATHNAME-DIRECTORY` ```prolog f_setf_pathname_directory(Object_In27, Value_In, FnResult24) :- GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)], catch(( ( get_var(GEnv33, sys_object, Object_Get29), get_var(GEnv33, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get29, pathname_directory, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult24 ), block_exit(setf_pathname_directory, FnResult24), true). :- was_info((set_opv(setf_pathname_directory, symbol_function, f_setf_pathname_directory), DefunResult32=setf_pathname_directory)). wl:lambda_def(defun, pathname_name, f_pathname_name, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_name]]]]). wl:arglist_info(pathname_name, f_pathname_name, [sys_object], arginfo{all:[sys_object], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object], opt:0, outer:Env13, req:[sys_object], rest:0, sublists:0, whole:0}). wl: init_args(1, f_pathname_name). ``` ### Compiled Function: `CL:PATHNAME-NAME` ```prolog f_pathname_name(Object_In, RestNKeys15, FnResult14) :- GEnv21=[bv(sys_object, Object_In)], catch(( ( get_var(GEnv21, sys_object, Object_Get), f_class_slot_value(claz_pathname, Object_Get, pathname_name, Pathname_name) ), Pathname_name=FnResult14 ), block_exit(pathname_name, FnResult14), true). :- was_info((set_opv(pathname_name, symbol_function, f_pathname_name), DefunResult20=pathname_name)). wl: declared_as(pathname_name, defun_setf(setf_pathname_name)). wl:lambda_def(defun, setf_pathname_name, f_setf_pathname_name, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_name], sys_value]]]). wl:arglist_info(setf_pathname_name, f_setf_pathname_name, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env23, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_name). ``` ### Compiled Function: `CL::SETF-PATHNAME-NAME` ```prolog f_setf_pathname_name(Object_In27, Value_In, FnResult24) :- GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)], catch(( ( get_var(GEnv33, sys_object, Object_Get29), get_var(GEnv33, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get29, pathname_name, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult24 ), block_exit(setf_pathname_name, FnResult24), true). :- was_info((set_opv(setf_pathname_name, symbol_function, f_setf_pathname_name), DefunResult32=setf_pathname_name)). wl:lambda_def(defun, pathname_type, f_pathname_type, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_type]]]]). wl:arglist_info(pathname_type, f_pathname_type, [sys_object], arginfo{all:[sys_object], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object], opt:0, outer:Env13, req:[sys_object], rest:0, sublists:0, whole:0}). wl: init_args(1, f_pathname_type). ``` ### Compiled Function: `CL:PATHNAME-TYPE` ```prolog f_pathname_type(Object_In, RestNKeys15, FnResult14) :- GEnv21=[bv(sys_object, Object_In)], catch(( ( get_var(GEnv21, sys_object, Object_Get), f_class_slot_value(claz_pathname, Object_Get, pathname_type, Pathname_type) ), Pathname_type=FnResult14 ), block_exit(pathname_type, FnResult14), true). :- was_info((set_opv(pathname_type, symbol_function, f_pathname_type), DefunResult20=pathname_type)). wl: declared_as(pathname_type, defun_setf(setf_pathname_type)). wl:lambda_def(defun, setf_pathname_type, f_setf_pathname_type, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_type], sys_value]]]). wl:arglist_info(setf_pathname_type, f_setf_pathname_type, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env23, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_type). ``` ### Compiled Function: `CL::SETF-PATHNAME-TYPE` ```prolog f_setf_pathname_type(Object_In27, Value_In, FnResult24) :- GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)], catch(( ( get_var(GEnv33, sys_object, Object_Get29), get_var(GEnv33, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get29, pathname_type, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult24 ), block_exit(setf_pathname_type, FnResult24), true). :- was_info((set_opv(setf_pathname_type, symbol_function, f_setf_pathname_type), DefunResult32=setf_pathname_type)). wl: declared_as(pathname_version, defun_setf(setf_pathname_version)). wl:lambda_def(defun, setf_pathname_version, f_setf_pathname_version, [sys_object, sys_value], [[progn, [sys_set_class_slot_value, claz_pathname, sys_object, [quote, pathname_version], sys_value]]]). wl:arglist_info(setf_pathname_version, f_setf_pathname_version, [sys_object, sys_value], arginfo{all:[sys_object, sys_value], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[sys_object, sys_value], opt:0, outer:Env13, req:[sys_object, sys_value], rest:0, sublists:0, whole:0}). wl: init_args(x, f_setf_pathname_version). ``` ### Compiled Function: `CL::SETF-PATHNAME-VERSION` ```prolog f_setf_pathname_version(Object_In, Value_In, FnResult14) :- GEnv23=[bv(sys_object, Object_In), bv(sys_value, Value_In)], catch(( ( get_var(GEnv23, sys_object, Object_Get), get_var(GEnv23, sys_value, Value_Get), f_sys_set_class_slot_value(claz_pathname, Object_Get, pathname_version, Value_Get, Slot_value_Ret) ), Slot_value_Ret=FnResult14 ), block_exit(setf_pathname_version, FnResult14), true). :- was_info((set_opv(setf_pathname_version, symbol_function, f_setf_pathname_version), DefunResult22=setf_pathname_version)). :- side_effect(assertz_new(struct_opv(claz_pathname, metaobject, pathname{ debug_name:"znst_metaobject_0", pathname_device:[], pathname_directory:[], pathname_host:[], pathname_name:[], pathname_type:[], pathname_version:[], ref:ref_pathname_znst_metaobject_0 }))). :- side_effect(assertz_new(struct_opv(claz_pathname, prototype, pathname{ debug_name:"znst_prototypical_0", pathname_device:[], pathname_directory:[], pathname_host:[], pathname_name:[], pathname_type:[], pathname_version:[], ref:ref_pathname_znst_prototypical_0 }))). :- side_effect(set_opv(with_hash_table_iterator, symbol_function, mf_with_hash_table_iterator)). :- side_effect(set_opv(lambda, symbol_function, sf_lambda)). :- side_effect(set_opv(dolist, symbol_function, sf_dolist)). :- side_effect(set_opv(destructuring_bind, symbol_function, sf_destructuring_bind)). :- side_effect(set_opv(sys_aset, symbol_function, f_aset)). :- side_effect(set_opv(sys_process_lambda_list, symbol_function, f_sys_process_lambda_list)). :- side_effect(set_opv(sys_set_nthcdr, symbol_function, f_set_nthcdr)). :- side_effect(set_opv(sys_deflexical, symbol_function, sf_deflexical)). :- side_effect(set_opv(defvar, symbol_function, sf_defvar)). :- side_effect(set_opv(sys_defconst, symbol_function, sf_defconst)). :- side_effect(set_opv(defconstant, symbol_function, sf_defconstant)). :- side_effect(set_opv(sys_symbol_macro, symbol_function, f_sys_symbol_macro)). :- side_effect(set_opv(define_symbol_macro, symbol_function, sf_define_symbol_macro)). :- side_effect(set_opv(define_compiler_macro, symbol_function, sf_define_compiler_macro)). :- side_effect(set_opv(sys_set_class_slot_value, symbol_function, f_sys_set_class_slot_value)). :- side_effect(set_opv(in_package, symbol_function, f_in_package)). :- side_effect(set_opv(in_package, symbol_function, sf_in_package)). :- side_effect(set_opv(push, symbol_function, sf_push)). :- side_effect(set_opv(sys_is, symbol_function, mf_sys_is)). :- was_info(with_lisp_translation(file('sanity-test.lisp'), lisp_reader_compiled_eval)). :-lisp_compile_to_prolog(pkg_sys,[quote,[load,'$STRING'("../prolog/wam_cl/wam-cl-init")]]). :-lisp_compile_to_prolog(pkg_sys,[quote,[load,'$STRING'("wam-cl-init")]]). :-lisp_compile_to_prolog(pkg_sys,[load,'$STRING'("sanity-test-0")]). :- f_load('$ARRAY'([*], claz_base_character, "sanity-test-0"), [], _IgnoredResult). :-lisp_compile_to_prolog(pkg_sys,[load,'$STRING'("sanity-test-1")]). :- f_load('$ARRAY'([*], claz_base_character, "sanity-test-1"), [], _IgnoredResult). ?- | | | | |