API tools faq
paste
Advertisement
logicmoo

WAM-CL Pack installs

logicmoo
Apr 24th, 2018
468
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 132.85 KB | None | 0 0
raw download clone embed print report
  1. sixsixsix@gitlab:~$ rm -rf lib/swipl/pack
  2. sixsixsix@gitlab:~$ swipl
  3. Welcome to SWI-Prolog (threaded, 64 bits, version 7.7.11-22-g2e660b5-DIRTY)
  4. SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software.
  5. Please run ?- license. for legal details.
  6.  
  7. For online help and background, visit http://www.swi-prolog.org
  8. For built-in help, use ?- help(Topic). or ?- apropos(Word).
  9.  
  10. ?- use_module(library(wamcl)).
  11. ERROR: source_sink `library(wamcl)' does not exist
  12. ERROR: In:
  13. ERROR:   [17] throw(error(existence_error(source_sink,...),_2798))
  14. ERROR:   [12] '$load_file'(library(wamcl),user,[if(not_loaded),...]) at /opt/logicmoo_workspace/lib/swipl-7.7.11/boot/init.pl:1981
  15. ERROR:    [7] <user>
  16. ERROR:
  17. ERROR: Note: some frames are missing due to last-call optimization.
  18. ERROR: Re-run your program in debug mode (:- debug.) to get more detail.
  19. ?- pack_install(wam_common_lisp).
  20. % Contacting server at http://www.swi-prolog.org/pack/query ... ok
  21. Install wam_common_lisp@1.1.118 from GIT at https://github.com/TeamSPoon/wam_common_lisp.git Y/n?
  22.  
  23. Create directory for packages
  24.   (1) * /home/sixsixsix/lib/swipl/pack
  25.   (2)   Cancel
  26.  
  27. Your choice?
  28. % Cloning into '/home/sixsixsix/lib/swipl/pack/wam_common_lisp'...
  29. % Contacting server at http://www.swi-prolog.org/pack/query ... ok
  30. Warning: Package depends on the following:
  31. Warning:   "dictoo", provided by dictoo@1.1.118 from https://github.com/TeamSPoon/dictoo.git
  32. Warning:     "gvar_syntax", provided by gvar_syntax@1.1.118 from https://github.com/TeamSPoon/gvar_syntax.git
  33. Warning:   "logicmoo_utils", provided by logicmoo_utils@1.1.118 from https://github.com/TeamSPoon/logicmoo_utils.git
  34. Warning:   "loop_check", provided by loop_check@1.1.118 from https://github.com/TeamSPoon/loop_check.git
  35. Warning:     "with_thread_local", provided by with_thread_local@1.1.118 from https://github.com/TeamSPoon/with_thread_local.git
  36. Warning:       "each_call_cleanup", provided by each_call_cleanup@1.1.118 from https://github.com/TeamSPoon/each_call_cleanup.git
  37. Warning:   "must_trace", provided by must_trace@1.1.118 from https://github.com/TeamSPoon/must_trace.git
  38. Warning:     "clause_attvars", provided by clause_attvars@1.1.118 from https://github.com/TeamSPoon/clause_attvars.git
  39. Warning:       "dictoo", provided by dictoo@1.1.118 from https://github.com/TeamSPoon/dictoo.git
  40. Warning:         "gvar_syntax", provided by gvar_syntax@1.1.118 from https://github.com/TeamSPoon/gvar_syntax.git
  41. Warning:     "hook_hybrid", provided by hook_hybrid@1.1.118 from https://github.com/TeamSPoon/hook_hybrid.git
  42. Warning:       "clause_attvars", provided by clause_attvars@1.1.118 from https://github.com/TeamSPoon/clause_attvars.git
  43. Warning:         "dictoo", provided by dictoo@1.1.118 from https://github.com/TeamSPoon/dictoo.git
  44. Warning:           "gvar_syntax", provided by gvar_syntax@1.1.118 from https://github.com/TeamSPoon/gvar_syntax.git
  45. Warning:       "each_call_cleanup", provided by each_call_cleanup@1.1.118 from https://github.com/TeamSPoon/each_call_cleanup.git
  46. Warning:       "file_scope", provided by file_scope@1.1.118 from https://github.com/TeamSPoon/file_scope.git
  47. Warning:         "logicmoo_utils", provided by logicmoo_utils@1.1.118 from https://github.com/TeamSPoon/logicmoo_utils.git
  48. Warning:         "must_trace", provided by must_trace@1.1.118 from https://github.com/TeamSPoon/must_trace.git
  49. Warning:       "loop_check", provided by loop_check@1.1.118 from https://github.com/TeamSPoon/loop_check.git
  50. Warning:         "with_thread_local", provided by with_thread_local@1.1.118 from https://github.com/TeamSPoon/with_thread_local.git
  51. Warning:           "each_call_cleanup", provided by each_call_cleanup@1.1.118 from https://github.com/TeamSPoon/each_call_cleanup.git
  52. Warning:       "must_trace", provided by must_trace@1.1.118 from https://github.com/TeamSPoon/must_trace.git
  53. Warning:       "subclause_expansion", provided by subclause_expansion@1.1.118 from https://github.com/TeamSPoon/subclause_expansion.git
  54. Warning:         "gvar_syntax", provided by gvar_syntax@1.1.118 from https://github.com/TeamSPoon/gvar_syntax.git
  55. Warning:         "logicmoo_utils", provided by logicmoo_utils@1.1.118 from https://github.com/TeamSPoon/logicmoo_utils.git
  56. Warning:     "logicmoo_utils", provided by logicmoo_utils@1.1.118 from https://github.com/TeamSPoon/logicmoo_utils.git
  57. Warning:     "loop_check", provided by loop_check@1.1.118 from https://github.com/TeamSPoon/loop_check.git
  58. Warning:       "with_thread_local", provided by with_thread_local@1.1.118 from https://github.com/TeamSPoon/with_thread_local.git
  59. Warning:         "each_call_cleanup", provided by each_call_cleanup@1.1.118 from https://github.com/TeamSPoon/each_call_cleanup.git
  60. Warning:     "with_thread_local", provided by with_thread_local@1.1.118 from https://github.com/TeamSPoon/with_thread_local.git
  61. Warning:       "each_call_cleanup", provided by each_call_cleanup@1.1.118 from https://github.com/TeamSPoon/each_call_cleanup.git
  62. Warning:     "xlisting", provided by xlisting@1.1.118 from https://github.com/TeamSPoon/xlisting.git
  63. Warning:       "clause_attvars", provided by clause_attvars@1.1.118 from https://github.com/TeamSPoon/clause_attvars.git
  64. Warning:         "dictoo", provided by dictoo@1.1.118 from https://github.com/TeamSPoon/dictoo.git
  65. Warning:           "gvar_syntax", provided by gvar_syntax@1.1.118 from https://github.com/TeamSPoon/gvar_syntax.git
  66. Warning:   "no_repeats", provided by no_repeats@1.1.118 from https://github.com/TeamSPoon/no_repeats.git
  67. Warning:   "predicate_streams", provided by predicate_streams@1.1.118 from http://github.com/TeamSPoon/predicate_streams.git
  68. Warning:   "with_open_options", provided by with_open_options@1.1.118 from https://github.com/TeamSPoon/with_open_options.git
  69. Warning:   "with_thread_local", provided by with_thread_local@1.1.118 from https://github.com/TeamSPoon/with_thread_local.git
  70. Warning:     "each_call_cleanup", provided by each_call_cleanup@1.1.118 from https://github.com/TeamSPoon/each_call_cleanup.git
  71. Warning:   "xlisting", provided by xlisting@1.1.118 from https://github.com/TeamSPoon/xlisting.git
  72. Warning:     "clause_attvars", provided by clause_attvars@1.1.118 from https://github.com/TeamSPoon/clause_attvars.git
  73. Warning:       "dictoo", provided by dictoo@1.1.118 from https://github.com/TeamSPoon/dictoo.git
  74. Warning:         "gvar_syntax", provided by gvar_syntax@1.1.118 from https://github.com/TeamSPoon/gvar_syntax.git
  75.  
  76. What do you wish to do
  77.   (1) * Install proposed dependencies
  78.   (2)   Only install requested package
  79.   (3)   Cancel
  80.  
  81. Your choice?
  82. % "wam_common_lisp.git" was downloaded 1 times
  83. % Cloning into '/home/sixsixsix/lib/swipl/pack/dictoo'...
  84. i dictoo@1.1.118            - Dict-like OO Syntax
  85. % Cloning into '/home/sixsixsix/lib/swipl/pack/gvar_syntax'...
  86. i gvar_syntax@1.1.118       - Global Variable Syntax
  87. % Cloning into '/home/sixsixsix/lib/swipl/pack/logicmoo_utils'...
  88. i logicmoo_utils@1.1.118    - Common predicates used by external Logicmoo Utils and Base
  89. % Updating index for library /home/sixsixsix/lib/swipl/pack/logicmoo_utils/prolog/
  90. % Cloning into '/home/sixsixsix/lib/swipl/pack/loop_check'...
  91. i loop_check@1.1.118        - New simple loop checking
  92. % Updating index for library /home/sixsixsix/lib/swipl/pack/loop_check/prolog/
  93. % Cloning into '/home/sixsixsix/lib/swipl/pack/with_thread_local'...
  94. i with_thread_local@1.1.118 - Call a Goal with local assertions
  95. % Updating index for library /home/sixsixsix/lib/swipl/pack/with_thread_local/prolog/
  96. % Cloning into '/home/sixsixsix/lib/swipl/pack/each_call_cleanup'...
  97. i each_call_cleanup@1.1.118 - Each Call Redo Setup and Cleanup
  98. % Updating index for library /home/sixsixsix/lib/swipl/pack/each_call_cleanup/prolog/
  99. % Cloning into '/home/sixsixsix/lib/swipl/pack/must_trace'...
  100. i must_trace@1.1.118        - Trace with your eyeballs instead of your fingers
  101. % Updating index for library /home/sixsixsix/lib/swipl/pack/must_trace/prolog/
  102. % Cloning into '/home/sixsixsix/lib/swipl/pack/clause_attvars'...
  103. i clause_attvars@1.1.118    - An alternate interface to the clause database to allow attributed variables to be asserted
  104. % Updating index for library /home/sixsixsix/lib/swipl/pack/clause_attvars/prolog/
  105. % Cloning into '/home/sixsixsix/lib/swipl/pack/hook_hybrid'...
  106. i hook_hybrid@1.1.118       - Hook assert retract call of *specific* predicates
  107. % Updating index for library /home/sixsixsix/lib/swipl/pack/hook_hybrid/prolog/
  108. % Cloning into '/home/sixsixsix/lib/swipl/pack/file_scope'...
  109. i file_scope@1.1.118        - File local scoped efects
  110. % Updating index for library /home/sixsixsix/lib/swipl/pack/file_scope/prolog/
  111. % Cloning into '/home/sixsixsix/lib/swipl/pack/subclause_expansion'...
  112. i subclause_expansion@1.1.118 - More use specific versions of term/goal expansion hooks
  113. % Updating index for library /home/sixsixsix/lib/swipl/pack/subclause_expansion/prolog/
  114. % Cloning into '/home/sixsixsix/lib/swipl/pack/xlisting'...
  115. i xlisting@1.1.118          - Selective Interactive Non-Deterministic Tracing
  116. % Updating index for library /home/sixsixsix/lib/swipl/pack/xlisting/prolog/
  117. % Cloning into '/home/sixsixsix/lib/swipl/pack/no_repeats'...
  118. i no_repeats@1.1.118        - New ways to avoid duplicate solutions
  119. % Updating index for library /home/sixsixsix/lib/swipl/pack/no_repeats/prolog/
  120. % Cloning into '/home/sixsixsix/lib/swipl/pack/predicate_streams'...
  121. i predicate_streams@1.1.118 - Implement your own Abstract Predicate Streams
  122. % Updating index for library /home/sixsixsix/lib/swipl/pack/predicate_streams/prolog/
  123. % Cloning into '/home/sixsixsix/lib/swipl/pack/with_open_options'...
  124. i with_open_options@1.1.118 - Utilities to open various objects for read/write
  125. % Updating index for library /home/sixsixsix/lib/swipl/pack/with_open_options/prolog/
  126. Package:                wam_common_lisp
  127. Title:                  ANSI Common Lisp implemented in Prolog
  128. Installed version:      1.1.118
  129. Author:                 Douglas Miles <http://www.linkedin.com/in/logicmoo>
  130. Maintainer:             TeamSPoon <https://github.com/TeamSPoon/>
  131. Packager:               TeamSPoon/LogicMoo <https://github.com/TeamSPoon/>
  132. Home page:              https://github.com/TeamSPoon/wam_common_lisp
  133. Download URL:           https://github.com/TeamSPoon/wam_common_lisp/release/*.zip
  134. Requires:               dictoo, logicmoo_utils, loop_check, must_trace, no_repeats, predicate_streams, with_open_options, with_thread_local, xlisting
  135. Activate pack "wam_common_lisp" Y/n?
  136. true.
  137.  
  138. ?- use_module(library(wamcl)).
  139. true.
  140.  
  141. ?- lisp.
  142. % grovelled_source_file_symbols("SET-WAM-CL-OPTION", pkg_sys, sys_set_wam_cl_option, '0pts', f_sys_set_wam_cl_option).
  143. % grovelled_source_file_symbols("GET-WAM-CL-OPTION", pkg_sys, sys_get_wam_cl_option, '0pts', f_sys_get_wam_cl_option).
  144. % grovelled_source_file_symbols("TYPE-OF", pkg_cl, type_of, typ30f, f_type_of).
  145. % grovelled_source_file_symbols("SUBTYPEP", pkg_cl, subtypep, typ30f, f_subtypep).
  146. % grovelled_source_file_symbols("TYPEP", pkg_cl, typep, typ30f, f_typep).
  147. % grovelled_source_file_symbols("CLASS-OF", pkg_cl, class_of, typ30f, f_class_of).
  148. % grovelled_source_file_symbols("MAKE-SYNONYM-STREAM", pkg_cl, make_synonym_stream, streams, f_make_synonym_stream).
  149. % grovelled_source_file_symbols("SUBSEQ", pkg_cl, subseq, s3q, f_subseq).
  150. % grovelled_source_file_symbols("SUBSEQ", pkg_cl, subseq, s3q, f_subseq).
  151. % grovelled_source_file_symbols("SUBST", pkg_cl, subst, s3q, f_subst).
  152. % grovelled_source_file_symbols("REMOVE", pkg_cl, remove, s3q, f_remove).
  153. % grovelled_source_file_symbols("LIST-LENGTH", pkg_cl, list_length, s3q, f_list_length).
  154. % grovelled_source_file_symbols("LENGTH", pkg_cl, length, s3q, f_length).
  155. % grovelled_source_file_symbols("COPY-LIST", pkg_cl, copy_list, s3q, f_copy_list).
  156. % grovelled_source_file_symbols("NCONC", pkg_cl, nconc, s3q, f_nconc).
  157. % grovelled_source_file_symbols("MAPCAR", pkg_cl, mapcar, s3q, f_mapcar).
  158. % grovelled_source_file_symbols("REPLACE", pkg_cl, replace, s3q, f_replace).
  159. % grovelled_source_file_symbols("NREVERSE", pkg_cl, nreverse, s3q, f_nreverse).
  160. % grovelled_source_file_symbols("REVERSE", pkg_cl, reverse, s3q, f_reverse).
  161. % grovelled_source_file_symbols("POSITION-IF-NOT", pkg_cl, position_if_not, s3q, f_position_if_not).
  162. % grovelled_source_file_symbols("POSITION-IF", pkg_cl, position_if, s3q, f_position_if).
  163. % grovelled_source_file_symbols("POSITION", pkg_cl, position, s3q, f_position).
  164. % grovelled_source_file_symbols("SEARCH", pkg_cl, search, s3q, f_search).
  165. % grovelled_source_file_symbols("FIND-IF-NOT", pkg_cl, find_if_not, s3q, f_find_if_not).
  166. % grovelled_source_file_symbols("FIND-IF", pkg_cl, find_if, s3q, f_find_if).
  167. % grovelled_source_file_symbols("FIND", pkg_cl, find, s3q, f_find).
  168. % grovelled_source_file_symbols("MEMBER-IF-NOT", pkg_cl, member_if_not, s3q, f_member_if_not).
  169. % grovelled_source_file_symbols("MEMBER-IF", pkg_cl, member_if, s3q, f_member_if).
  170. % grovelled_source_file_symbols("MEMBER", pkg_cl, member, s3q, f_member).
  171. % grovelled_source_file_symbols("ADJOIN", pkg_cl, adjoin, s3q, f_adjoin).
  172. % grovelled_source_file_symbols("MEMQ", pkg_sys, sys_memq, s3q, f_sys_memq).
  173. % grovelled_source_file_symbols("MAKE-READ-TABLE", pkg_sys, sys_make_read_table, readtables, f_sys_make_read_table).
  174. % grovelled_source_file_symbols("WRITE-LINE", pkg_cl, write_line, print, f_write_line).
  175. % grovelled_source_file_symbols("TERPRI", pkg_cl, terpri, print, f_terpri).
  176. % grovelled_source_file_symbols("PRINT", pkg_cl, print, print, f_print).
  177. % grovelled_source_file_symbols("PRINC", pkg_cl, princ, print, f_princ).
  178. % grovelled_source_file_symbols("PRIN1", pkg_cl, prin1, print, f_prin1).
  179. % grovelled_source_file_symbols("PRINC", pkg_cl, princ, print, f_princ).
  180. % grovelled_source_file_symbols("PRINT", pkg_cl, print, print, f_print).
  181. % grovelled_source_file_symbols("PRIN1", pkg_cl, prin1, print, f_prin1).
  182. % grovelled_source_file_symbols("FORMAT", pkg_cl, format, print, f_format).
  183. :- side_effect(set_opv(sys_string_to_pathname,
  184.                       symbol_function,
  185.                       f_sys_string_to_pathname)).
  186. % grovelled_source_file_symbols("STRING-TO-PATHNAME", pkg_sys, sys_string_to_pathname, pathname, f_sys_string_to_pathname).
  187. % grovelled_source_file_symbols("PATHNAME", pkg_cl, pathname, pathname, f_pathname).
  188. % grovelled_source_file_symbols("NAMESTRING", pkg_cl, namestring, pathname, f_namestring).
  189. % grovelled_source_file_symbols("MAKE-PATHNAME", pkg_cl, make_pathname, pathname, f_make_pathname).
  190. % grovelled_source_file_symbols("PROBE-FILE", pkg_cl, probe_file, pathname, f_probe_file).
  191. % grovelled_source_file_symbols("TRUENAME", pkg_cl, truename, pathname, f_truename).
  192. % grovelled_source_file_symbols("COMPILE-FILE-PATHNAME", pkg_cl, compile_file_pathname, pathname, f_compile_file_pathname).
  193. :- side_effect(assertz_new(struct_opv(claz_pathname,
  194.                                      name,
  195.                                      directory,
  196.                                      pathname_directory))).
  197. :- side_effect(assertz_new(struct_opv(claz_pathname,
  198.                                      initargs,
  199.                                      [kw_directory],
  200.                                      pathname_directory))).
  201. :- side_effect(assertz_new(struct_opv(claz_pathname,
  202.                                      location,
  203.                                      1,
  204.                                      pathname_directory))).
  205. :- side_effect(assertz_new(struct_opv(claz_pathname,
  206.                                      name,
  207.                                      sys_device,
  208.                                      pathname_device))).
  209. :- side_effect(assertz_new(struct_opv(claz_pathname,
  210.                                      initargs,
  211.                                      [kw_device],
  212.                                      pathname_device))).
  213. :- side_effect(assertz_new(struct_opv(claz_pathname,
  214.                                      location,
  215.                                      2,
  216.                                      pathname_device))).
  217. :- side_effect(assertz_new(struct_opv(claz_pathname,
  218.                                      name,
  219.                                      sys_host,
  220.                                      pathname_host))).
  221. :- side_effect(assertz_new(struct_opv(claz_pathname,
  222.                                      initargs,
  223.                                      [kw_host],
  224.                                      pathname_host))).
  225. :- side_effect(assertz_new(struct_opv(claz_pathname, location, 3, pathname_host))).
  226. :- side_effect(assertz_new(struct_opv(claz_pathname,
  227.                                      name,
  228.                                      sys_name,
  229.                                      pathname_name))).
  230. :- side_effect(assertz_new(struct_opv(claz_pathname,
  231.                                      initargs,
  232.                                      [kw_name],
  233.                                      pathname_name))).
  234. :- side_effect(assertz_new(struct_opv(claz_pathname, location, 4, pathname_name))).
  235. :- side_effect(assertz_new(struct_opv(claz_pathname,
  236.                                      name,
  237.                                      sys_version,
  238.                                      pathname_version))).
  239. :- side_effect(assertz_new(struct_opv(claz_pathname,
  240.                                      initargs,
  241.                                      [kw_version],
  242.                                      pathname_version))).
  243. :- side_effect(assertz_new(struct_opv(claz_pathname,
  244.                                      location,
  245.                                      5,
  246.                                      pathname_version))).
  247. :- side_effect(assertz_new(struct_opv(claz_pathname, name, type, pathname_type))).
  248. :- side_effect(assertz_new(struct_opv(claz_pathname,
  249.                                      initargs,
  250.                                      [kw_type],
  251.                                      pathname_type))).
  252. :- side_effect(assertz_new(struct_opv(claz_pathname, location, 6, pathname_type))).
  253. :- side_effect(assertz_new(struct_opv(claz_sys_definition_source_mixin,
  254.                                      name,
  255.                                      sys_source,
  256.                                      sys_definition_source_mixin_source))).
  257. :- side_effect(assertz_new(struct_opv(claz_sys_definition_source_mixin,
  258.                                      initargs,
  259.                                      [kw_source],
  260.                                      sys_definition_source_mixin_source))).
  261. :- side_effect(assertz_new(struct_opv(claz_sys_definition_source_mixin,
  262.                                      location,
  263.                                      1,
  264.                                      sys_definition_source_mixin_source))).
  265. :- side_effect(assertz_new(struct_opv(claz_sys_plist_mixin,
  266.                                      name,
  267.                                      sys_plist,
  268.                                      sys_plist_mixin_plist))).
  269. :- side_effect(assertz_new(struct_opv(claz_sys_plist_mixin,
  270.                                      initargs,
  271.                                      [kw_plist],
  272.                                      sys_plist_mixin_plist))).
  273. :- side_effect(assertz_new(struct_opv(claz_sys_plist_mixin,
  274.                                      location,
  275.                                      1,
  276.                                      sys_plist_mixin_plist))).
  277. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  278.                                      name,
  279.                                      sys_class_direct_generic_functions,
  280.                                      sys_specializer_class_direct_generic_functions))).
  281. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  282.                                      initargs,
  283.                                      [kw_class_direct_generic_functions],
  284.                                      sys_specializer_class_direct_generic_functions))).
  285. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  286.                                      location,
  287.                                      1,
  288.                                      sys_specializer_class_direct_generic_functions))).
  289. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  290.                                      name,
  291.                                      sys_class_direct_methods,
  292.                                      sys_specializer_class_direct_methods))).
  293. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  294.                                      initargs,
  295.                                      [kw_class_direct_methods],
  296.                                      sys_specializer_class_direct_methods))).
  297. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  298.                                      location,
  299.                                      2,
  300.                                      sys_specializer_class_direct_methods))).
  301. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  302.                                      name,
  303.                                      sys_flag,
  304.                                      sys_specializer_flag))).
  305. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  306.                                      initargs,
  307.                                      [kw_flag],
  308.                                      sys_specializer_flag))).
  309. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  310.                                      location,
  311.                                      3,
  312.                                      sys_specializer_flag))).
  313. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  314.                                      name,
  315.                                      type,
  316.                                      sys_specializer_type))).
  317. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  318.                                      initargs,
  319.                                      [kw_type],
  320.                                      sys_specializer_type))).
  321. :- side_effect(assertz_new(struct_opv(claz_sys_specializer,
  322.                                      location,
  323.                                      4,
  324.                                      sys_specializer_type))).
  325. :- side_effect(assertz_new(struct_opv(claz_sys_super_class,
  326.                                      name,
  327.                                      sys_class_direct_subclasses,
  328.                                      sys_super_class_class_direct_subclasses))).
  329. :- side_effect(assertz_new(struct_opv(claz_sys_super_class,
  330.                                      initargs,
  331.                                      [kw_class_direct_subclasses],
  332.                                      sys_super_class_class_direct_subclasses))).
  333. :- side_effect(assertz_new(struct_opv(claz_sys_super_class,
  334.                                      location,
  335.                                      1,
  336.                                      sys_super_class_class_direct_subclasses))).
  337. :- side_effect(assertz_new(struct_opv(claz_sys_super_class,
  338.                                      name,
  339.                                      sys_classname,
  340.                                      sys_super_class_classname))).
  341. :- side_effect(assertz_new(struct_opv(claz_sys_super_class,
  342.                                      initargs,
  343.                                      [kw_classname],
  344.                                      sys_super_class_classname))).
  345. :- side_effect(assertz_new(struct_opv(claz_sys_super_class,
  346.                                      location,
  347.                                      2,
  348.                                      sys_super_class_classname))).
  349. :- side_effect(assertz_new(struct_opv(claz_class,
  350.                                      name,
  351.                                      default_initargs,
  352.                                      sys_class_default_initargs))).
  353. :- side_effect(assertz_new(struct_opv(claz_class,
  354.                                      initargs,
  355.                                      [kw_default_initargs],
  356.                                      sys_class_default_initargs))).
  357. :- side_effect(assertz_new(struct_opv(claz_class,
  358.                                      location,
  359.                                      1,
  360.                                      sys_class_default_initargs))).
  361. :- side_effect(assertz_new(struct_opv(claz_class,
  362.                                      name,
  363.                                      documentation,
  364.                                      sys_class_documentation))).
  365. :- side_effect(assertz_new(struct_opv(claz_class,
  366.                                      initargs,
  367.                                      [kw_documentation],
  368.                                      sys_class_documentation))).
  369. :- side_effect(assertz_new(struct_opv(claz_class,
  370.                                      location,
  371.                                      2,
  372.                                      sys_class_documentation))).
  373. :- side_effect(assertz_new(struct_opv(claz_class,
  374.                                      name,
  375.                                      sys_all_superclasses,
  376.                                      sys_class_all_superclasses))).
  377. :- side_effect(assertz_new(struct_opv(claz_class,
  378.                                      initargs,
  379.                                      [kw_all_superclasses],
  380.                                      sys_class_all_superclasses))).
  381. :- side_effect(assertz_new(struct_opv(claz_class,
  382.                                      location,
  383.                                      3,
  384.                                      sys_class_all_superclasses))).
  385. :- side_effect(assertz_new(struct_opv(claz_class,
  386.                                      name,
  387.                                      sys_class_direct_default_initargs,
  388.                                      sys_class_class_direct_default_initargs))).
  389. :- side_effect(assertz_new(struct_opv(claz_class,
  390.                                      initargs,
  391.                                      [kw_class_direct_default_initargs],
  392.                                      sys_class_class_direct_default_initargs))).
  393. :- side_effect(assertz_new(struct_opv(claz_class,
  394.                                      location,
  395.                                      4,
  396.                                      sys_class_class_direct_default_initargs))).
  397. :- side_effect(assertz_new(struct_opv(claz_class,
  398.                                      name,
  399.                                      sys_class_direct_generic_functions,
  400.                                      sys_class_class_direct_generic_functions))).
  401. :- side_effect(assertz_new(struct_opv(claz_class,
  402.                                      initargs,
  403.                                      [kw_class_direct_generic_functions],
  404.                                      sys_class_class_direct_generic_functions))).
  405. :- side_effect(assertz_new(struct_opv(claz_class,
  406.                                      location,
  407.                                      5,
  408.                                      sys_class_class_direct_generic_functions))).
  409. :- side_effect(assertz_new(struct_opv(claz_class,
  410.                                      name,
  411.                                      sys_class_direct_methods,
  412.                                      sys_class_class_direct_methods))).
  413. :- side_effect(assertz_new(struct_opv(claz_class,
  414.                                      initargs,
  415.                                      [kw_class_direct_methods],
  416.                                      sys_class_class_direct_methods))).
  417. :- side_effect(assertz_new(struct_opv(claz_class,
  418.                                      location,
  419.                                      6,
  420.                                      sys_class_class_direct_methods))).
  421. :- side_effect(assertz_new(struct_opv(claz_class,
  422.                                      name,
  423.                                      sys_class_direct_slots,
  424.                                      sys_class_class_direct_slots))).
  425. :- side_effect(assertz_new(struct_opv(claz_class,
  426.                                      initargs,
  427.                                      [kw_class_direct_slots],
  428.                                      sys_class_class_direct_slots))).
  429. :- side_effect(assertz_new(struct_opv(claz_class,
  430.                                      location,
  431.                                      7,
  432.                                      sys_class_class_direct_slots))).
  433. :- side_effect(assertz_new(struct_opv(claz_class,
  434.                                      name,
  435.                                      sys_class_direct_subclasses,
  436.                                      sys_class_class_direct_subclasses))).
  437. :- side_effect(assertz_new(struct_opv(claz_class,
  438.                                      initargs,
  439.                                      [kw_class_direct_subclasses],
  440.                                      sys_class_class_direct_subclasses))).
  441. :- side_effect(assertz_new(struct_opv(claz_class,
  442.                                      location,
  443.                                      8,
  444.                                      sys_class_class_direct_subclasses))).
  445. :- side_effect(assertz_new(struct_opv(claz_class,
  446.                                      name,
  447.                                      sys_class_direct_superclasses,
  448.                                      sys_class_class_direct_superclasses))).
  449. :- side_effect(assertz_new(struct_opv(claz_class,
  450.                                      initargs,
  451.                                      [kw_class_direct_superclasses],
  452.                                      sys_class_class_direct_superclasses))).
  453. :- side_effect(assertz_new(struct_opv(claz_class,
  454.                                      location,
  455.                                      9,
  456.                                      sys_class_class_direct_superclasses))).
  457. :- side_effect(assertz_new(struct_opv(claz_class,
  458.                                      name,
  459.                                      sys_class_eq_specializer,
  460.                                      sys_class_class_eq_specializer))).
  461. :- side_effect(assertz_new(struct_opv(claz_class,
  462.                                      initargs,
  463.                                      [kw_class_eq_specializer],
  464.                                      sys_class_class_eq_specializer))).
  465. :- side_effect(assertz_new(struct_opv(claz_class,
  466.                                      location,
  467.                                      10,
  468.                                      sys_class_class_eq_specializer))).
  469. :- side_effect(assertz_new(struct_opv(claz_class,
  470.                                      name,
  471.                                      sys_dependents,
  472.                                      sys_class_dependents))).
  473. :- side_effect(assertz_new(struct_opv(claz_class,
  474.                                      initargs,
  475.                                      [kw_dependents],
  476.                                      sys_class_dependents))).
  477. :- side_effect(assertz_new(struct_opv(claz_class,
  478.                                      location,
  479.                                      11,
  480.                                      sys_class_dependents))).
  481. :- side_effect(assertz_new(struct_opv(claz_class,
  482.                                      name,
  483.                                      sys_finalized_p,
  484.                                      sys_class_finalized_p))).
  485. :- side_effect(assertz_new(struct_opv(claz_class,
  486.                                      initargs,
  487.                                      [kw_finalized_p],
  488.                                      sys_class_finalized_p))).
  489. :- side_effect(assertz_new(struct_opv(claz_class,
  490.                                      location,
  491.                                      12,
  492.                                      sys_class_finalized_p))).
  493. :- side_effect(assertz_new(struct_opv(claz_class, name, sys_flag, sys_class_flag))).
  494. :- side_effect(assertz_new(struct_opv(claz_class,
  495.                                      initargs,
  496.                                      [kw_flag],
  497.                                      sys_class_flag))).
  498. :- side_effect(assertz_new(struct_opv(claz_class, location, 13, sys_class_flag))).
  499. :- side_effect(assertz_new(struct_opv(claz_class,
  500.                                      name,
  501.                                      sys_initialized,
  502.                                      sys_class_initialized))).
  503. :- side_effect(assertz_new(struct_opv(claz_class,
  504.                                      initargs,
  505.                                      [kw_initialized],
  506.                                      sys_class_initialized))).
  507. :- side_effect(assertz_new(struct_opv(claz_class,
  508.                                      location,
  509.                                      14,
  510.                                      sys_class_initialized))).
  511. :- side_effect(assertz_new(struct_opv(claz_class,
  512.                                      name,
  513.                                      sys_listeners,
  514.                                      sys_class_listeners))).
  515. :- side_effect(assertz_new(struct_opv(claz_class,
  516.                                      initargs,
  517.                                      [kw_listeners],
  518.                                      sys_class_listeners))).
  519. :- side_effect(assertz_new(struct_opv(claz_class,
  520.                                      location,
  521.                                      15,
  522.                                      sys_class_listeners))).
  523. :- side_effect(assertz_new(struct_opv(claz_class,
  524.                                      name,
  525.                                      sys_location_table,
  526.                                      sys_class_location_table))).
  527. :- side_effect(assertz_new(struct_opv(claz_class,
  528.                                      initargs,
  529.                                      [kw_location_table],
  530.                                      sys_class_location_table))).
  531. :- side_effect(assertz_new(struct_opv(claz_class,
  532.                                      location,
  533.                                      16,
  534.                                      sys_class_location_table))).
  535. :- side_effect(assertz_new(struct_opv(claz_class, name, sys_name, class_name))).
  536. :- side_effect(assertz_new(struct_opv(claz_class,
  537.                                      initargs,
  538.                                      [kw_name],
  539.                                      class_name))).
  540. :- side_effect(assertz_new(struct_opv(claz_class, location, 17, class_name))).
  541. :- side_effect(assertz_new(struct_opv(claz_class,
  542.                                      name,
  543.                                      sys_precedence_list,
  544.                                      sys_class_precedence_list))).
  545. :- side_effect(assertz_new(struct_opv(claz_class,
  546.                                      initargs,
  547.                                      [kw_precedence_list],
  548.                                      sys_class_precedence_list))).
  549. :- side_effect(assertz_new(struct_opv(claz_class,
  550.                                      location,
  551.                                      18,
  552.                                      sys_class_precedence_list))).
  553. :- side_effect(assertz_new(struct_opv(claz_class,
  554.                                      name,
  555.                                      sys_safe_p,
  556.                                      sys_class_safe_p))).
  557. :- side_effect(assertz_new(struct_opv(claz_class,
  558.                                      initargs,
  559.                                      [kw_safe_p],
  560.                                      sys_class_safe_p))).
  561. :- side_effect(assertz_new(struct_opv(claz_class, location, 19, sys_class_safe_p))).
  562. :- side_effect(assertz_new(struct_opv(claz_class,
  563.                                      name,
  564.                                      sys_sealedp,
  565.                                      sys_class_sealedp))).
  566. :- side_effect(assertz_new(struct_opv(claz_class,
  567.                                      initargs,
  568.                                      [kw_sealedp],
  569.                                      sys_class_sealedp))).
  570. :- side_effect(assertz_new(struct_opv(claz_class,
  571.                                      location,
  572.                                      20,
  573.                                      sys_class_sealedp))).
  574. :- side_effect(assertz_new(struct_opv(claz_class, name, sys_size, sys_class_size))).
  575. :- side_effect(assertz_new(struct_opv(claz_class,
  576.                                      initargs,
  577.                                      [kw_size],
  578.                                      sys_class_size))).
  579. :- side_effect(assertz_new(struct_opv(claz_class, location, 21, sys_class_size))).
  580. :- side_effect(assertz_new(struct_opv(claz_class,
  581.                                      name,
  582.                                      sys_slot_location_table,
  583.                                      sys_class_slot_location_table))).
  584. :- side_effect(assertz_new(struct_opv(claz_class,
  585.                                      initargs,
  586.                                      [kw_slot_location_table],
  587.                                      sys_class_slot_location_table))).
  588. :- side_effect(assertz_new(struct_opv(claz_class,
  589.                                      location,
  590.                                      22,
  591.                                      sys_class_slot_location_table))).
  592. :- side_effect(assertz_new(struct_opv(claz_class,
  593.                                      name,
  594.                                      sys_slot_table,
  595.                                      sys_class_slot_table))).
  596. :- side_effect(assertz_new(struct_opv(claz_class,
  597.                                      initargs,
  598.                                      [kw_slot_table],
  599.                                      sys_class_slot_table))).
  600. :- side_effect(assertz_new(struct_opv(claz_class,
  601.                                      location,
  602.                                      23,
  603.                                      sys_class_slot_table))).
  604. :- side_effect(assertz_new(struct_opv(claz_class,
  605.                                      name,
  606.                                      sys_slots,
  607.                                      sys_class_slots))).
  608. :- side_effect(assertz_new(struct_opv(claz_class,
  609.                                      initargs,
  610.                                      [kw_slots],
  611.                                      sys_class_slots))).
  612. :- side_effect(assertz_new(struct_opv(claz_class, location, 24, sys_class_slots))).
  613. :- side_effect(assertz_new(struct_opv(claz_class,
  614.                                      name,
  615.                                      sys_valid_initargs,
  616.                                      sys_class_valid_initargs))).
  617. :- side_effect(assertz_new(struct_opv(claz_class,
  618.                                      initargs,
  619.                                      [kw_valid_initargs],
  620.                                      sys_class_valid_initargs))).
  621. :- side_effect(assertz_new(struct_opv(claz_class,
  622.                                      location,
  623.                                      25,
  624.                                      sys_class_valid_initargs))).
  625. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  626.                                      name,
  627.                                      sys_can_precede_list,
  628.                                      sys_pcl_class_can_precede_list))).
  629. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  630.                                      initargs,
  631.                                      [kw_can_precede_list],
  632.                                      sys_pcl_class_can_precede_list))).
  633. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  634.                                      location,
  635.                                      1,
  636.                                      sys_pcl_class_can_precede_list))).
  637. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  638.                                      name,
  639.                                      sys_class_precedence_list,
  640.                                      sys_pcl_class_class_precedence_list))).
  641. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  642.                                      initargs,
  643.                                      [kw_class_precedence_list],
  644.                                      sys_pcl_class_class_precedence_list))).
  645. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  646.                                      location,
  647.                                      2,
  648.                                      sys_pcl_class_class_precedence_list))).
  649. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  650.                                      name,
  651.                                      sys_cpl_available_p,
  652.                                      sys_pcl_class_cpl_available_p))).
  653. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  654.                                      initargs,
  655.                                      [kw_cpl_available_p],
  656.                                      sys_pcl_class_cpl_available_p))).
  657. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  658.                                      location,
  659.                                      3,
  660.                                      sys_pcl_class_cpl_available_p))).
  661. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  662.                                      name,
  663.                                      sys_incompatible_superclass_list,
  664.                                      sys_pcl_class_incompatible_superclass_list))).
  665. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  666.                                      initargs,
  667.                                      [kw_incompatible_superclass_list],
  668.                                      sys_pcl_class_incompatible_superclass_list))).
  669. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  670.                                      location,
  671.                                      4,
  672.                                      sys_pcl_class_incompatible_superclass_list))).
  673. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  674.                                      name,
  675.                                      sys_wrapper,
  676.                                      sys_pcl_class_wrapper))).
  677. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  678.                                      initargs,
  679.                                      [kw_wrapper],
  680.                                      sys_pcl_class_wrapper))).
  681. :- side_effect(assertz_new(struct_opv(claz_sys_pcl_class,
  682.                                      location,
  683.                                      5,
  684.                                      sys_pcl_class_wrapper))).
  685. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  686.                                      name,
  687.                                      sys_class_direct_accessors,
  688.                                      sys_slotted_class_class_direct_accessors))).
  689. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  690.                                      initargs,
  691.                                      [kw_class_direct_accessors],
  692.                                      sys_slotted_class_class_direct_accessors))).
  693. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  694.                                      location,
  695.                                      1,
  696.                                      sys_slotted_class_class_direct_accessors))).
  697. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  698.                                      name,
  699.                                      sys_class_direct_slots,
  700.                                      sys_slotted_class_class_direct_slots))).
  701. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  702.                                      initargs,
  703.                                      [kw_class_direct_slots],
  704.                                      sys_slotted_class_class_direct_slots))).
  705. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  706.                                      location,
  707.                                      2,
  708.                                      sys_slotted_class_class_direct_slots))).
  709. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  710.                                      name,
  711.                                      sys_instance_size,
  712.                                      sys_slotted_class_instance_size))).
  713. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  714.                                      initargs,
  715.                                      [kw_instance_size],
  716.                                      sys_slotted_class_instance_size))).
  717. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  718.                                      location,
  719.                                      3,
  720.                                      sys_slotted_class_instance_size))).
  721. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  722.                                      name,
  723.                                      sys_slots,
  724.                                      sys_slotted_class_slots))).
  725. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  726.                                      initargs,
  727.                                      [kw_slots],
  728.                                      sys_slotted_class_slots))).
  729. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  730.                                      location,
  731.                                      4,
  732.                                      sys_slotted_class_slots))).
  733. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  734.                                      name,
  735.                                      sys_subclass_of_stablehash_p,
  736.                                      sys_slotted_class_subclass_of_stablehash_p))).
  737. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  738.                                      initargs,
  739.                                      [kw_subclass_of_stablehash_p],
  740.                                      sys_slotted_class_subclass_of_stablehash_p))).
  741. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  742.                                      location,
  743.                                      5,
  744.                                      sys_slotted_class_subclass_of_stablehash_p))).
  745. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  746.                                      name,
  747.                                      sys_valid_initargs_from_slots,
  748.                                      sys_slotted_class_valid_initargs_from_slots))).
  749. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  750.                                      initargs,
  751.                                      [kw_valid_initargs_from_slots],
  752.                                      sys_slotted_class_valid_initargs_from_slots))).
  753. :- side_effect(assertz_new(struct_opv(claz_sys_slotted_class,
  754.                                      location,
  755.                                      6,
  756.                                      sys_slotted_class_valid_initargs_from_slots))).
  757. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  758.                                      name,
  759.                                      default_initargs,
  760.                                      sys_standard_class_default_initargs))).
  761. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  762.                                      initargs,
  763.                                      [kw_default_initargs],
  764.                                      sys_standard_class_default_initargs))).
  765. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  766.                                      location,
  767.                                      1,
  768.                                      sys_standard_class_default_initargs))).
  769. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  770.                                      name,
  771.                                      documentation,
  772.                                      sys_standard_class_documentation))).
  773. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  774.                                      initargs,
  775.                                      [kw_documentation],
  776.                                      sys_standard_class_documentation))).
  777. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  778.                                      location,
  779.                                      2,
  780.                                      sys_standard_class_documentation))).
  781. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  782.                                      name,
  783.                                      sys_class_direct_default_initargs,
  784.                                      sys_standard_class_class_direct_default_initargs))).
  785. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  786.                                      initargs,
  787.                                      [kw_class_direct_default_initargs],
  788.                                      sys_standard_class_class_direct_default_initargs))).
  789. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  790.                                      location,
  791.                                      3,
  792.                                      sys_standard_class_class_direct_default_initargs))).
  793. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  794.                                      name,
  795.                                      sys_class_direct_generic_functions,
  796.                                      sys_standard_class_class_direct_generic_functions))).
  797. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  798.                                      initargs,
  799.                                      [kw_class_direct_generic_functions],
  800.                                      sys_standard_class_class_direct_generic_functions))).
  801. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  802.                                      location,
  803.                                      4,
  804.                                      sys_standard_class_class_direct_generic_functions))).
  805. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  806.                                      name,
  807.                                      sys_class_direct_instance_specializers,
  808.                                      sys_standard_class_sys_class_direct_instance_specializers))).
  809. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  810.                                      initargs,
  811.  
  812.                                      [ kw_sys_class_direct_instance_specializers
  813.                                      ],
  814.                                      sys_standard_class_sys_class_direct_instance_specializers))).
  815. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  816.                                      location,
  817.                                      5,
  818.                                      sys_standard_class_sys_class_direct_instance_specializers))).
  819. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  820.                                      name,
  821.                                      sys_class_direct_methods,
  822.                                      sys_standard_class_class_direct_methods))).
  823. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  824.                                      initargs,
  825.                                      [kw_class_direct_methods],
  826.                                      sys_standard_class_class_direct_methods))).
  827. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  828.                                      location,
  829.                                      6,
  830.                                      sys_standard_class_class_direct_methods))).
  831. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  832.                                      name,
  833.                                      sys_class_direct_slots,
  834.                                      sys_standard_class_class_direct_slots))).
  835. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  836.                                      initargs,
  837.                                      [kw_class_direct_slots],
  838.                                      sys_standard_class_class_direct_slots))).
  839. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  840.                                      location,
  841.                                      7,
  842.                                      sys_standard_class_class_direct_slots))).
  843. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  844.                                      name,
  845.                                      sys_class_direct_subclasses,
  846.                                      sys_standard_class_class_direct_subclasses))).
  847. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  848.                                      initargs,
  849.                                      [kw_class_direct_subclasses],
  850.                                      sys_standard_class_class_direct_subclasses))).
  851. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  852.                                      location,
  853.                                      8,
  854.                                      sys_standard_class_class_direct_subclasses))).
  855. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  856.                                      name,
  857.                                      sys_class_direct_superclasses,
  858.                                      sys_standard_class_class_direct_superclasses))).
  859. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  860.                                      initargs,
  861.                                      [kw_class_direct_superclasses],
  862.                                      sys_standard_class_class_direct_superclasses))).
  863. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  864.                                      location,
  865.                                      9,
  866.                                      sys_standard_class_class_direct_superclasses))).
  867. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  868.                                      name,
  869.                                      sys_current_version,
  870.                                      sys_standard_class_current_version))).
  871. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  872.                                      initargs,
  873.                                      [kw_current_version],
  874.                                      sys_standard_class_current_version))).
  875. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  876.                                      location,
  877.                                      10,
  878.                                      sys_standard_class_current_version))).
  879. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  880.                                      name,
  881.                                      sys_dependents,
  882.                                      sys_standard_class_dependents))).
  883. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  884.                                      initargs,
  885.                                      [kw_dependents],
  886.                                      sys_standard_class_dependents))).
  887. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  888.                                      location,
  889.                                      11,
  890.                                      sys_standard_class_dependents))).
  891. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  892.                                      name,
  893.                                      sys_finalized,
  894.                                      sys_standard_class_finalized))).
  895. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  896.                                      initargs,
  897.                                      [kw_finalized],
  898.                                      sys_standard_class_finalized))).
  899. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  900.                                      location,
  901.                                      12,
  902.                                      sys_standard_class_finalized))).
  903. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  904.                                      name,
  905.                                      sys_finalized_direct_subclasses,
  906.                                      sys_standard_class_finalized_direct_subclasses))).
  907. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  908.                                      initargs,
  909.                                      [kw_finalized_direct_subclasses],
  910.                                      sys_standard_class_finalized_direct_subclasses))).
  911. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  912.                                      location,
  913.                                      13,
  914.                                      sys_standard_class_finalized_direct_subclasses))).
  915. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  916.                                      name,
  917.                                      sys_finalized_p,
  918.                                      sys_standard_class_finalized_p))).
  919. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  920.                                      initargs,
  921.                                      [kw_finalized_p],
  922.                                      sys_standard_class_finalized_p))).
  923. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  924.                                      location,
  925.                                      14,
  926.                                      sys_standard_class_finalized_p))).
  927. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  928.                                      name,
  929.                                      sys_fixed_slot_locations,
  930.                                      sys_standard_class_fixed_slot_locations))).
  931. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  932.                                      initargs,
  933.                                      [kw_fixed_slot_locations],
  934.                                      sys_standard_class_fixed_slot_locations))).
  935. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  936.                                      location,
  937.                                      15,
  938.                                      sys_standard_class_fixed_slot_locations))).
  939. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  940.                                      name,
  941.                                      sys_flag,
  942.                                      sys_standard_class_flag))).
  943. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  944.                                      initargs,
  945.                                      [kw_flag],
  946.                                      sys_standard_class_flag))).
  947. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  948.                                      location,
  949.                                      16,
  950.                                      sys_standard_class_flag))).
  951. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  952.                                      name,
  953.                                      sys_forward,
  954.                                      sys_standard_class_forward))).
  955. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  956.                                      initargs,
  957.                                      [kw_forward],
  958.                                      sys_standard_class_forward))).
  959. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  960.                                      location,
  961.                                      17,
  962.                                      sys_standard_class_forward))).
  963. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  964.                                      name,
  965.                                      sys_funcallablep,
  966.                                      sys_standard_class_funcallablep))).
  967. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  968.                                      initargs,
  969.                                      [kw_funcallablep],
  970.                                      sys_standard_class_funcallablep))).
  971. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  972.                                      location,
  973.                                      18,
  974.                                      sys_standard_class_funcallablep))).
  975. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  976.                                      name,
  977.                                      sys_instantiated,
  978.                                      sys_standard_class_instantiated))).
  979. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  980.                                      initargs,
  981.                                      [kw_instantiated],
  982.                                      sys_standard_class_instantiated))).
  983. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  984.                                      location,
  985.                                      19,
  986.                                      sys_standard_class_instantiated))).
  987. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  988.                                      name,
  989.                                      sys_layout,
  990.                                      sys_standard_class_layout))).
  991. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  992.                                      initargs,
  993.                                      [kw_layout],
  994.                                      sys_standard_class_layout))).
  995. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  996.                                      location,
  997.                                      20,
  998.                                      sys_standard_class_layout))).
  999. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1000.                                      name,
  1001.                                      sys_location_table,
  1002.                                      sys_standard_class_location_table))).
  1003. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1004.                                      initargs,
  1005.                                      [kw_location_table],
  1006.                                      sys_standard_class_location_table))).
  1007. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1008.                                      location,
  1009.                                      21,
  1010.                                      sys_standard_class_location_table))).
  1011. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1012.                                      name,
  1013.                                      sys_name,
  1014.                                      sys_standard_class_name))).
  1015. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1016.                                      initargs,
  1017.                                      [kw_name],
  1018.                                      sys_standard_class_name))).
  1019. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1020.                                      location,
  1021.                                      22,
  1022.                                      sys_standard_class_name))).
  1023. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1024.                                      name,
  1025.                                      sys_optimize_slot_access,
  1026.                                      sys_standard_class_optimize_slot_access))).
  1027. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1028.                                      initargs,
  1029.                                      [kw_optimize_slot_access],
  1030.                                      sys_standard_class_optimize_slot_access))).
  1031. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1032.                                      location,
  1033.                                      23,
  1034.                                      sys_standard_class_optimize_slot_access))).
  1035. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1036.                                      name,
  1037.                                      sys_precedence_list,
  1038.                                      sys_standard_class_precedence_list))).
  1039. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1040.                                      initargs,
  1041.                                      [kw_precedence_list],
  1042.                                      sys_standard_class_precedence_list))).
  1043. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1044.                                      location,
  1045.                                      24,
  1046.                                      sys_standard_class_precedence_list))).
  1047. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1048.                                      name,
  1049.                                      sys_sealedp,
  1050.                                      sys_standard_class_sealedp))).
  1051. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1052.                                      initargs,
  1053.                                      [kw_sealedp],
  1054.                                      sys_standard_class_sealedp))).
  1055. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1056.                                      location,
  1057.                                      25,
  1058.                                      sys_standard_class_sealedp))).
  1059. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1060.                                      name,
  1061.                                      sys_size,
  1062.                                      sys_standard_class_size))).
  1063. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1064.                                      initargs,
  1065.                                      [kw_size],
  1066.                                      sys_standard_class_size))).
  1067. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1068.                                      location,
  1069.                                      26,
  1070.                                      sys_standard_class_size))).
  1071. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1072.                                      name,
  1073.                                      sys_slot_table,
  1074.                                      sys_standard_class_slot_table))).
  1075. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1076.                                      initargs,
  1077.                                      [kw_slot_table],
  1078.                                      sys_standard_class_slot_table))).
  1079. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1080.                                      location,
  1081.                                      27,
  1082.                                      sys_standard_class_slot_table))).
  1083. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1084.                                      name,
  1085.                                      sys_slots,
  1086.                                      sys_standard_class_slots))).
  1087. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1088.                                      initargs,
  1089.                                      [kw_slots],
  1090.                                      sys_standard_class_slots))).
  1091. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1092.                                      location,
  1093.                                      28,
  1094.                                      sys_standard_class_slots))).
  1095. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1096.                                      name,
  1097.                                      sys_valid_initargs,
  1098.                                      sys_standard_class_valid_initargs))).
  1099. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1100.                                      initargs,
  1101.                                      [kw_valid_initargs],
  1102.                                      sys_standard_class_valid_initargs))).
  1103. :- side_effect(assertz_new(struct_opv(claz_standard_class,
  1104.                                      location,
  1105.                                      29,
  1106.                                      sys_standard_class_valid_initargs))).
  1107. :- side_effect(assertz_new(struct_opv(claz_pathname, name, pathname))).
  1108. :- side_effect(assertz_new(struct_opv(claz_pathname, include, []))).
  1109. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1110.                                      documentation,
  1111.                                      '$ARRAY'([*],
  1112.                                               claz_base_character,
  1113.                                               "A physical pathname.")))).
  1114. :- side_effect(set_kind_object_slot_value(standard_class,
  1115.                                          claz_pathname,
  1116.                                          kw_documentation,
  1117.  
  1118.                                          [ '$ARRAY'([*],
  1119.                                                     claz_base_character,
  1120.                                                     "A physical pathname.")
  1121.                                          ])).
  1122. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1123.                                      name,
  1124.                                      sys_host,
  1125.                                      pathname_host))).
  1126. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1127.                                      initargs,
  1128.                                      [kw_host],
  1129.                                      pathname_host))).
  1130. :- side_effect(assertz_new(struct_opv(claz_pathname, location, 1, pathname_host))).
  1131. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1132.                                      accessor,
  1133.                                      pathname_host,
  1134.                                      pathname_host))).
  1135. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1136.                                      initarg,
  1137.                                      kw_host,
  1138.                                      pathname_host))).
  1139. :- side_effect(assertz_new(struct_opv(claz_pathname, initform, [], pathname_host))).
  1140. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1141.                                      name,
  1142.                                      sys_device,
  1143.                                      pathname_device))).
  1144. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1145.                                      initargs,
  1146.                                      [kw_device],
  1147.                                      pathname_device))).
  1148. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1149.                                      location,
  1150.                                      2,
  1151.                                      pathname_device))).
  1152. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1153.                                      accessor,
  1154.                                      pathname_device,
  1155.                                      pathname_device))).
  1156. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1157.                                      initarg,
  1158.                                      kw_device,
  1159.                                      pathname_device))).
  1160. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1161.                                      initform,
  1162.                                      kw_unspecific,
  1163.                                      pathname_device))).
  1164. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1165.                                      name,
  1166.                                      directory,
  1167.                                      pathname_directory))).
  1168. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1169.                                      initargs,
  1170.                                      [kw_directory],
  1171.                                      pathname_directory))).
  1172. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1173.                                      location,
  1174.                                      3,
  1175.                                      pathname_directory))).
  1176. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1177.                                      accessor,
  1178.                                      pathname_directory,
  1179.                                      pathname_directory))).
  1180. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1181.                                      initarg,
  1182.                                      kw_directory,
  1183.                                      pathname_directory))).
  1184. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1185.                                      initform,
  1186.                                      [],
  1187.                                      pathname_directory))).
  1188. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1189.                                      name,
  1190.                                      sys_name,
  1191.                                      pathname_name))).
  1192. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1193.                                      initargs,
  1194.                                      [kw_name],
  1195.                                      pathname_name))).
  1196. :- side_effect(assertz_new(struct_opv(claz_pathname, location, 4, pathname_name))).
  1197. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1198.                                      accessor,
  1199.                                      pathname_name,
  1200.                                      pathname_name))).
  1201. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1202.                                      initarg,
  1203.                                      kw_name,
  1204.                                      pathname_name))).
  1205. :- side_effect(assertz_new(struct_opv(claz_pathname, initform, [], pathname_name))).
  1206. :- side_effect(assertz_new(struct_opv(claz_pathname, name, type, pathname_type))).
  1207. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1208.                                      initargs,
  1209.                                      [kw_type],
  1210.                                      pathname_type))).
  1211. :- side_effect(assertz_new(struct_opv(claz_pathname, location, 5, pathname_type))).
  1212. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1213.                                      accessor,
  1214.                                      pathname_type,
  1215.                                      pathname_type))).
  1216. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1217.                                      initarg,
  1218.                                      kw_type,
  1219.                                      pathname_type))).
  1220. :- side_effect(assertz_new(struct_opv(claz_pathname, initform, [], pathname_type))).
  1221. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1222.                                      name,
  1223.                                      sys_version,
  1224.                                      pathname_version))).
  1225. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1226.                                      initargs,
  1227.                                      [kw_version],
  1228.                                      pathname_version))).
  1229. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1230.                                      location,
  1231.                                      6,
  1232.                                      pathname_version))).
  1233. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1234.                                      accessor,
  1235.                                      pathname_version,
  1236.                                      pathname_version))).
  1237. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1238.                                      initarg,
  1239.                                      kw_version,
  1240.                                      pathname_version))).
  1241. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1242.                                      initform,
  1243.                                      kw_newest,
  1244.                                      pathname_version))).
  1245. :- side_effect(make_default_constructor(claz_pathname,
  1246.                                        (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)))))).
  1247. wl:lambda_def(defun, sys_pathname_p, f_sys_pathname_p, [sys_obj], [[progn, [eq, [type_of, sys_obj], [quote, pathname]]]]).
  1248. 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}).
  1249. wl: init_args(x, f_sys_pathname_p).
  1250.  
  1251. ```
  1252.  
  1253. ### Compiled Function: `SYS::PATHNAME-P`
  1254. ```prolog
  1255. f_sys_pathname_p(Obj_In, FnResult) :-
  1256.        GEnv=[bv(sys_obj, Obj_In)],
  1257.        catch(( ( get_var(GEnv, sys_obj, Obj_Get),
  1258.                  f_type_of(Obj_Get, Eq_Param),
  1259.                  f_eq(Eq_Param, pathname, Pathname)
  1260.                ),
  1261.                Pathname=FnResult
  1262.              ),
  1263.              block_exit(sys_pathname_p, FnResult),
  1264.              true).
  1265. :- was_info((set_opv(sys_pathname_p, symbol_function, f_sys_pathname_p), DefunResult=sys_pathname_p)).
  1266. :- side_effect(maybe_add_kw_function(claz_pathname,
  1267.                                     "PATHNAME",
  1268.                                     "-P",
  1269.                                     kw_predicate,
  1270.                                     [obj],
  1271.                                     eq('type-of'(obj), quote(pathname)))).
  1272. :- side_effect(assertz_new(struct_opv(claz_pathname, conc_name, "PATHNAME-"))).
  1273. wl:lambda_def(defun, pathname_directory, f_pathname_directory, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_directory]]]]).
  1274. 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}).
  1275. wl: init_args(1, f_pathname_directory).
  1276.  
  1277. ```
  1278.  
  1279. ### Compiled Function: `CL:PATHNAME-DIRECTORY`
  1280. ```prolog
  1281. f_pathname_directory(Object_In, RestNKeys15, FnResult14) :-
  1282.        GEnv21=[bv(sys_object, Object_In)],
  1283.        catch(( ( get_var(GEnv21, sys_object, Object_Get),
  1284.                  f_class_slot_value(claz_pathname,
  1285.                                     Object_Get,
  1286.                                     pathname_directory,
  1287.                                     Pathname_directory)
  1288.                ),
  1289.                Pathname_directory=FnResult14
  1290.              ),
  1291.              block_exit(pathname_directory, FnResult14),
  1292.              true).
  1293. :- was_info((set_opv(pathname_directory, symbol_function, f_pathname_directory), DefunResult20=pathname_directory)).
  1294. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1295.                                      readers,
  1296.                                      [pathname_directory],
  1297.                                      pathname_directory))).
  1298. wl: declared(pathname_directory, defun_setf(setf_pathname_directory)).
  1299.  
  1300. 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]]]).
  1301. 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}).
  1302. wl: init_args(x, f_setf_pathname_directory).
  1303.  
  1304. ```
  1305.  
  1306. ### Compiled Function: `CL::SETF-PATHNAME-DIRECTORY`
  1307. ```prolog
  1308. f_setf_pathname_directory(Object_In27, Value_In, FnResult24) :-
  1309.        GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)],
  1310.        catch(( ( get_var(GEnv33, sys_object, Object_Get29),
  1311.                  get_var(GEnv33, sys_value, Value_Get),
  1312.                  f_sys_set_class_slot_value(claz_pathname,
  1313.                                             Object_Get29,
  1314.                                             pathname_directory,
  1315.                                             Value_Get,
  1316.                                             Slot_value_Ret)
  1317.                ),
  1318.                Slot_value_Ret=FnResult24
  1319.              ),
  1320.              block_exit(setf_pathname_directory, FnResult24),
  1321.              true).
  1322. :- was_info((set_opv(setf_pathname_directory, symbol_function, f_setf_pathname_directory), DefunResult32=setf_pathname_directory)).
  1323. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1324.                                      writers,
  1325.                                      [setf_pathname_directory],
  1326.                                      pathname_directory))).
  1327. wl:lambda_def(defun, pathname_device, f_pathname_device, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_device]]]]).
  1328. 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}).
  1329. wl: init_args(1, f_pathname_device).
  1330.  
  1331. ```
  1332.  
  1333. ### Compiled Function: `CL:PATHNAME-DEVICE`
  1334. ```prolog
  1335. f_pathname_device(Object_In, RestNKeys15, FnResult14) :-
  1336.        GEnv21=[bv(sys_object, Object_In)],
  1337.        catch(( ( get_var(GEnv21, sys_object, Object_Get),
  1338.                  f_class_slot_value(claz_pathname,
  1339.                                     Object_Get,
  1340.                                     pathname_device,
  1341.                                     Pathname_device)
  1342.                ),
  1343.                Pathname_device=FnResult14
  1344.              ),
  1345.              block_exit(pathname_device, FnResult14),
  1346.              true).
  1347. :- was_info((set_opv(pathname_device, symbol_function, f_pathname_device), DefunResult20=pathname_device)).
  1348. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1349.                                      readers,
  1350.                                      [pathname_device],
  1351.                                      pathname_device))).
  1352. wl: declared(pathname_device, defun_setf(setf_pathname_device)).
  1353.  
  1354. 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]]]).
  1355. 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}).
  1356. wl: init_args(x, f_setf_pathname_device).
  1357.  
  1358. ```
  1359.  
  1360. ### Compiled Function: `CL::SETF-PATHNAME-DEVICE`
  1361. ```prolog
  1362. f_setf_pathname_device(Object_In27, Value_In, FnResult24) :-
  1363.        GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)],
  1364.        catch(( ( get_var(GEnv33, sys_object, Object_Get29),
  1365.                  get_var(GEnv33, sys_value, Value_Get),
  1366.                  f_sys_set_class_slot_value(claz_pathname,
  1367.                                             Object_Get29,
  1368.                                             pathname_device,
  1369.                                             Value_Get,
  1370.                                             Slot_value_Ret)
  1371.                ),
  1372.                Slot_value_Ret=FnResult24
  1373.              ),
  1374.              block_exit(setf_pathname_device, FnResult24),
  1375.              true).
  1376. :- was_info((set_opv(setf_pathname_device, symbol_function, f_setf_pathname_device), DefunResult32=setf_pathname_device)).
  1377. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1378.                                      writers,
  1379.                                      [setf_pathname_device],
  1380.                                      pathname_device))).
  1381. wl:lambda_def(defun, pathname_host, f_pathname_host, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_host]]]]).
  1382. 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}).
  1383. wl: init_args(1, f_pathname_host).
  1384.  
  1385. ```
  1386.  
  1387. ### Compiled Function: `CL:PATHNAME-HOST`
  1388. ```prolog
  1389. f_pathname_host(Object_In, RestNKeys15, FnResult14) :-
  1390.        GEnv21=[bv(sys_object, Object_In)],
  1391.        catch(( ( get_var(GEnv21, sys_object, Object_Get),
  1392.                  f_class_slot_value(claz_pathname,
  1393.                                     Object_Get,
  1394.                                     pathname_host,
  1395.                                     Pathname_host)
  1396.                ),
  1397.                Pathname_host=FnResult14
  1398.              ),
  1399.              block_exit(pathname_host, FnResult14),
  1400.              true).
  1401. :- was_info((set_opv(pathname_host, symbol_function, f_pathname_host), DefunResult20=pathname_host)).
  1402. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1403.                                      readers,
  1404.                                      [pathname_host],
  1405.                                      pathname_host))).
  1406. wl: declared(pathname_host, defun_setf(setf_pathname_host)).
  1407.  
  1408. 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]]]).
  1409. 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}).
  1410. wl: init_args(x, f_setf_pathname_host).
  1411.  
  1412. ```
  1413.  
  1414. ### Compiled Function: `CL::SETF-PATHNAME-HOST`
  1415. ```prolog
  1416. f_setf_pathname_host(Object_In27, Value_In, FnResult24) :-
  1417.        GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)],
  1418.        catch(( ( get_var(GEnv33, sys_object, Object_Get29),
  1419.                  get_var(GEnv33, sys_value, Value_Get),
  1420.                  f_sys_set_class_slot_value(claz_pathname,
  1421.                                             Object_Get29,
  1422.                                             pathname_host,
  1423.                                             Value_Get,
  1424.                                             Slot_value_Ret)
  1425.                ),
  1426.                Slot_value_Ret=FnResult24
  1427.              ),
  1428.              block_exit(setf_pathname_host, FnResult24),
  1429.              true).
  1430. :- was_info((set_opv(setf_pathname_host, symbol_function, f_setf_pathname_host), DefunResult32=setf_pathname_host)).
  1431. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1432.                                      writers,
  1433.                                      [setf_pathname_host],
  1434.                                      pathname_host))).
  1435. wl:lambda_def(defun, pathname_name, f_pathname_name, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_name]]]]).
  1436. 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}).
  1437. wl: init_args(1, f_pathname_name).
  1438.  
  1439. ```
  1440.  
  1441. ### Compiled Function: `CL:PATHNAME-NAME`
  1442. ```prolog
  1443. f_pathname_name(Object_In, RestNKeys15, FnResult14) :-
  1444.        GEnv21=[bv(sys_object, Object_In)],
  1445.        catch(( ( get_var(GEnv21, sys_object, Object_Get),
  1446.                  f_class_slot_value(claz_pathname,
  1447.                                     Object_Get,
  1448.                                     pathname_name,
  1449.                                     Pathname_name)
  1450.                ),
  1451.                Pathname_name=FnResult14
  1452.              ),
  1453.              block_exit(pathname_name, FnResult14),
  1454.              true).
  1455. :- was_info((set_opv(pathname_name, symbol_function, f_pathname_name), DefunResult20=pathname_name)).
  1456. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1457.                                      readers,
  1458.                                      [pathname_name],
  1459.                                      pathname_name))).
  1460. wl: declared(pathname_name, defun_setf(setf_pathname_name)).
  1461.  
  1462. 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]]]).
  1463. 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}).
  1464. wl: init_args(x, f_setf_pathname_name).
  1465.  
  1466. ```
  1467.  
  1468. ### Compiled Function: `CL::SETF-PATHNAME-NAME`
  1469. ```prolog
  1470. f_setf_pathname_name(Object_In27, Value_In, FnResult24) :-
  1471.        GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)],
  1472.        catch(( ( get_var(GEnv33, sys_object, Object_Get29),
  1473.                  get_var(GEnv33, sys_value, Value_Get),
  1474.                  f_sys_set_class_slot_value(claz_pathname,
  1475.                                             Object_Get29,
  1476.                                             pathname_name,
  1477.                                             Value_Get,
  1478.                                             Slot_value_Ret)
  1479.                ),
  1480.                Slot_value_Ret=FnResult24
  1481.              ),
  1482.              block_exit(setf_pathname_name, FnResult24),
  1483.              true).
  1484. :- was_info((set_opv(setf_pathname_name, symbol_function, f_setf_pathname_name), DefunResult32=setf_pathname_name)).
  1485. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1486.                                      writers,
  1487.                                      [setf_pathname_name],
  1488.                                      pathname_name))).
  1489. wl:lambda_def(defun, pathname_version, f_pathname_version, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_version]]]]).
  1490. 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}).
  1491. wl: init_args(x, f_pathname_version).
  1492.  
  1493. ```
  1494.  
  1495. ### Compiled Function: `CL:PATHNAME-VERSION`
  1496. ```prolog
  1497. f_pathname_version(Object_In, FnResult14) :-
  1498.        GEnv21=[bv(sys_object, Object_In)],
  1499.        catch(( ( get_var(GEnv21, sys_object, Object_Get),
  1500.                  f_class_slot_value(claz_pathname,
  1501.                                     Object_Get,
  1502.                                     pathname_version,
  1503.                                     Pathname_version)
  1504.                ),
  1505.                Pathname_version=FnResult14
  1506.              ),
  1507.              block_exit(pathname_version, FnResult14),
  1508.              true).
  1509. :- was_info((set_opv(pathname_version, symbol_function, f_pathname_version), DefunResult20=pathname_version)).
  1510. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1511.                                      readers,
  1512.                                      [pathname_version],
  1513.                                      pathname_version))).
  1514. wl: declared(pathname_version, defun_setf(setf_pathname_version)).
  1515.  
  1516. 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]]]).
  1517. 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}).
  1518. wl: init_args(x, f_setf_pathname_version).
  1519.  
  1520. ```
  1521.  
  1522. ### Compiled Function: `CL::SETF-PATHNAME-VERSION`
  1523. ```prolog
  1524. f_setf_pathname_version(Object_In27, Value_In, FnResult24) :-
  1525.        GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)],
  1526.        catch(( ( get_var(GEnv33, sys_object, Object_Get29),
  1527.                  get_var(GEnv33, sys_value, Value_Get),
  1528.                  f_sys_set_class_slot_value(claz_pathname,
  1529.                                             Object_Get29,
  1530.                                             pathname_version,
  1531.                                             Value_Get,
  1532.                                             Slot_value_Ret)
  1533.                ),
  1534.                Slot_value_Ret=FnResult24
  1535.              ),
  1536.              block_exit(setf_pathname_version, FnResult24),
  1537.              true).
  1538. :- was_info((set_opv(setf_pathname_version, symbol_function, f_setf_pathname_version), DefunResult32=setf_pathname_version)).
  1539. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1540.                                      writers,
  1541.                                      [setf_pathname_version],
  1542.                                      pathname_version))).
  1543. wl:lambda_def(defun, pathname_type, f_pathname_type, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_type]]]]).
  1544. 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}).
  1545. wl: init_args(1, f_pathname_type).
  1546.  
  1547. ```
  1548.  
  1549. ### Compiled Function: `CL:PATHNAME-TYPE`
  1550. ```prolog
  1551. f_pathname_type(Object_In, RestNKeys15, FnResult14) :-
  1552.        GEnv21=[bv(sys_object, Object_In)],
  1553.        catch(( ( get_var(GEnv21, sys_object, Object_Get),
  1554.                  f_class_slot_value(claz_pathname,
  1555.                                     Object_Get,
  1556.                                     pathname_type,
  1557.                                     Pathname_type)
  1558.                ),
  1559.                Pathname_type=FnResult14
  1560.              ),
  1561.              block_exit(pathname_type, FnResult14),
  1562.              true).
  1563. :- was_info((set_opv(pathname_type, symbol_function, f_pathname_type), DefunResult20=pathname_type)).
  1564. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1565.                                      readers,
  1566.                                      [pathname_type],
  1567.                                      pathname_type))).
  1568. wl: declared(pathname_type, defun_setf(setf_pathname_type)).
  1569.  
  1570. 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]]]).
  1571. 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}).
  1572. wl: init_args(x, f_setf_pathname_type).
  1573.  
  1574. ```
  1575.  
  1576. ### Compiled Function: `CL::SETF-PATHNAME-TYPE`
  1577. ```prolog
  1578. f_setf_pathname_type(Object_In27, Value_In, FnResult24) :-
  1579.        GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)],
  1580.        catch(( ( get_var(GEnv33, sys_object, Object_Get29),
  1581.                  get_var(GEnv33, sys_value, Value_Get),
  1582.                  f_sys_set_class_slot_value(claz_pathname,
  1583.                                             Object_Get29,
  1584.                                             pathname_type,
  1585.                                             Value_Get,
  1586.                                             Slot_value_Ret)
  1587.                ),
  1588.                Slot_value_Ret=FnResult24
  1589.              ),
  1590.              block_exit(setf_pathname_type, FnResult24),
  1591.              true).
  1592. :- was_info((set_opv(setf_pathname_type, symbol_function, f_setf_pathname_type), DefunResult32=setf_pathname_type)).
  1593. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1594.                                      writers,
  1595.                                      [setf_pathname_type],
  1596.                                      pathname_type))).
  1597. wl:lambda_def(defun, pathname_host, f_pathname_host, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_host]]]]).
  1598. 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}).
  1599. wl: init_args(1, f_pathname_host).
  1600.  
  1601. ```
  1602.  
  1603. ### Compiled Function: `CL:PATHNAME-HOST`
  1604. ```prolog
  1605. f_pathname_host(Object_In, RestNKeys15, FnResult14) :-
  1606.        GEnv21=[bv(sys_object, Object_In)],
  1607.        catch(( ( get_var(GEnv21, sys_object, Object_Get),
  1608.                  f_class_slot_value(claz_pathname,
  1609.                                     Object_Get,
  1610.                                     pathname_host,
  1611.                                     Pathname_host)
  1612.                ),
  1613.                Pathname_host=FnResult14
  1614.              ),
  1615.              block_exit(pathname_host, FnResult14),
  1616.              true).
  1617. :- was_info((set_opv(pathname_host, symbol_function, f_pathname_host), DefunResult20=pathname_host)).
  1618. wl: declared(pathname_host, defun_setf(setf_pathname_host)).
  1619.  
  1620. 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]]]).
  1621. 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}).
  1622. wl: init_args(x, f_setf_pathname_host).
  1623.  
  1624. ```
  1625.  
  1626. ### Compiled Function: `CL::SETF-PATHNAME-HOST`
  1627. ```prolog
  1628. f_setf_pathname_host(Object_In27, Value_In, FnResult24) :-
  1629.        GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)],
  1630.        catch(( ( get_var(GEnv33, sys_object, Object_Get29),
  1631.                  get_var(GEnv33, sys_value, Value_Get),
  1632.                  f_sys_set_class_slot_value(claz_pathname,
  1633.                                             Object_Get29,
  1634.                                             pathname_host,
  1635.                                             Value_Get,
  1636.                                             Slot_value_Ret)
  1637.                ),
  1638.                Slot_value_Ret=FnResult24
  1639.              ),
  1640.              block_exit(setf_pathname_host, FnResult24),
  1641.              true).
  1642. :- was_info((set_opv(setf_pathname_host, symbol_function, f_setf_pathname_host), DefunResult32=setf_pathname_host)).
  1643. wl:lambda_def(defun, pathname_device, f_pathname_device, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_device]]]]).
  1644. 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}).
  1645. wl: init_args(1, f_pathname_device).
  1646.  
  1647. ```
  1648.  
  1649. ### Compiled Function: `CL:PATHNAME-DEVICE`
  1650. ```prolog
  1651. f_pathname_device(Object_In, RestNKeys15, FnResult14) :-
  1652.        GEnv21=[bv(sys_object, Object_In)],
  1653.        catch(( ( get_var(GEnv21, sys_object, Object_Get),
  1654.                  f_class_slot_value(claz_pathname,
  1655.                                     Object_Get,
  1656.                                     pathname_device,
  1657.                                     Pathname_device)
  1658.                ),
  1659.                Pathname_device=FnResult14
  1660.              ),
  1661.              block_exit(pathname_device, FnResult14),
  1662.              true).
  1663. :- was_info((set_opv(pathname_device, symbol_function, f_pathname_device), DefunResult20=pathname_device)).
  1664. wl: declared(pathname_device, defun_setf(setf_pathname_device)).
  1665.  
  1666. 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]]]).
  1667. 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}).
  1668. wl: init_args(x, f_setf_pathname_device).
  1669.  
  1670. ```
  1671.  
  1672. ### Compiled Function: `CL::SETF-PATHNAME-DEVICE`
  1673. ```prolog
  1674. f_setf_pathname_device(Object_In27, Value_In, FnResult24) :-
  1675.        GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)],
  1676.        catch(( ( get_var(GEnv33, sys_object, Object_Get29),
  1677.                  get_var(GEnv33, sys_value, Value_Get),
  1678.                  f_sys_set_class_slot_value(claz_pathname,
  1679.                                             Object_Get29,
  1680.                                             pathname_device,
  1681.                                             Value_Get,
  1682.                                             Slot_value_Ret)
  1683.                ),
  1684.                Slot_value_Ret=FnResult24
  1685.              ),
  1686.              block_exit(setf_pathname_device, FnResult24),
  1687.              true).
  1688. :- was_info((set_opv(setf_pathname_device, symbol_function, f_setf_pathname_device), DefunResult32=setf_pathname_device)).
  1689. wl:lambda_def(defun, pathname_directory, f_pathname_directory, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_directory]]]]).
  1690. 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}).
  1691. wl: init_args(1, f_pathname_directory).
  1692.  
  1693. ```
  1694.  
  1695. ### Compiled Function: `CL:PATHNAME-DIRECTORY`
  1696. ```prolog
  1697. f_pathname_directory(Object_In, RestNKeys15, FnResult14) :-
  1698.        GEnv21=[bv(sys_object, Object_In)],
  1699.        catch(( ( get_var(GEnv21, sys_object, Object_Get),
  1700.                  f_class_slot_value(claz_pathname,
  1701.                                     Object_Get,
  1702.                                     pathname_directory,
  1703.                                     Pathname_directory)
  1704.                ),
  1705.                Pathname_directory=FnResult14
  1706.              ),
  1707.              block_exit(pathname_directory, FnResult14),
  1708.              true).
  1709. :- was_info((set_opv(pathname_directory, symbol_function, f_pathname_directory), DefunResult20=pathname_directory)).
  1710. wl: declared(pathname_directory, defun_setf(setf_pathname_directory)).
  1711.  
  1712. 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]]]).
  1713. 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}).
  1714. wl: init_args(x, f_setf_pathname_directory).
  1715.  
  1716. ```
  1717.  
  1718. ### Compiled Function: `CL::SETF-PATHNAME-DIRECTORY`
  1719. ```prolog
  1720. f_setf_pathname_directory(Object_In27, Value_In, FnResult24) :-
  1721.        GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)],
  1722.        catch(( ( get_var(GEnv33, sys_object, Object_Get29),
  1723.                  get_var(GEnv33, sys_value, Value_Get),
  1724.                  f_sys_set_class_slot_value(claz_pathname,
  1725.                                             Object_Get29,
  1726.                                             pathname_directory,
  1727.                                             Value_Get,
  1728.                                             Slot_value_Ret)
  1729.                ),
  1730.                Slot_value_Ret=FnResult24
  1731.              ),
  1732.              block_exit(setf_pathname_directory, FnResult24),
  1733.              true).
  1734. :- was_info((set_opv(setf_pathname_directory, symbol_function, f_setf_pathname_directory), DefunResult32=setf_pathname_directory)).
  1735. wl:lambda_def(defun, pathname_name, f_pathname_name, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_name]]]]).
  1736. 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}).
  1737. wl: init_args(1, f_pathname_name).
  1738.  
  1739. ```
  1740.  
  1741. ### Compiled Function: `CL:PATHNAME-NAME`
  1742. ```prolog
  1743. f_pathname_name(Object_In, RestNKeys15, FnResult14) :-
  1744.        GEnv21=[bv(sys_object, Object_In)],
  1745.        catch(( ( get_var(GEnv21, sys_object, Object_Get),
  1746.                  f_class_slot_value(claz_pathname,
  1747.                                     Object_Get,
  1748.                                     pathname_name,
  1749.                                     Pathname_name)
  1750.                ),
  1751.                Pathname_name=FnResult14
  1752.              ),
  1753.              block_exit(pathname_name, FnResult14),
  1754.              true).
  1755. :- was_info((set_opv(pathname_name, symbol_function, f_pathname_name), DefunResult20=pathname_name)).
  1756. wl: declared(pathname_name, defun_setf(setf_pathname_name)).
  1757.  
  1758. 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]]]).
  1759. 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}).
  1760. wl: init_args(x, f_setf_pathname_name).
  1761.  
  1762. ```
  1763.  
  1764. ### Compiled Function: `CL::SETF-PATHNAME-NAME`
  1765. ```prolog
  1766. f_setf_pathname_name(Object_In27, Value_In, FnResult24) :-
  1767.        GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)],
  1768.        catch(( ( get_var(GEnv33, sys_object, Object_Get29),
  1769.                  get_var(GEnv33, sys_value, Value_Get),
  1770.                  f_sys_set_class_slot_value(claz_pathname,
  1771.                                             Object_Get29,
  1772.                                             pathname_name,
  1773.                                             Value_Get,
  1774.                                             Slot_value_Ret)
  1775.                ),
  1776.                Slot_value_Ret=FnResult24
  1777.              ),
  1778.              block_exit(setf_pathname_name, FnResult24),
  1779.              true).
  1780. :- was_info((set_opv(setf_pathname_name, symbol_function, f_setf_pathname_name), DefunResult32=setf_pathname_name)).
  1781. wl:lambda_def(defun, pathname_type, f_pathname_type, [sys_object], [[progn, [sys_class_slot_value, claz_pathname, sys_object, [quote, pathname_type]]]]).
  1782. 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}).
  1783. wl: init_args(1, f_pathname_type).
  1784.  
  1785. ```
  1786.  
  1787. ### Compiled Function: `CL:PATHNAME-TYPE`
  1788. ```prolog
  1789. f_pathname_type(Object_In, RestNKeys15, FnResult14) :-
  1790.        GEnv21=[bv(sys_object, Object_In)],
  1791.        catch(( ( get_var(GEnv21, sys_object, Object_Get),
  1792.                  f_class_slot_value(claz_pathname,
  1793.                                     Object_Get,
  1794.                                     pathname_type,
  1795.                                     Pathname_type)
  1796.                ),
  1797.                Pathname_type=FnResult14
  1798.              ),
  1799.              block_exit(pathname_type, FnResult14),
  1800.              true).
  1801. :- was_info((set_opv(pathname_type, symbol_function, f_pathname_type), DefunResult20=pathname_type)).
  1802. wl: declared(pathname_type, defun_setf(setf_pathname_type)).
  1803.  
  1804. 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]]]).
  1805. 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}).
  1806. wl: init_args(x, f_setf_pathname_type).
  1807.  
  1808. ```
  1809.  
  1810. ### Compiled Function: `CL::SETF-PATHNAME-TYPE`
  1811. ```prolog
  1812. f_setf_pathname_type(Object_In27, Value_In, FnResult24) :-
  1813.        GEnv33=[bv(sys_object, Object_In27), bv(sys_value, Value_In)],
  1814.        catch(( ( get_var(GEnv33, sys_object, Object_Get29),
  1815.                  get_var(GEnv33, sys_value, Value_Get),
  1816.                  f_sys_set_class_slot_value(claz_pathname,
  1817.                                             Object_Get29,
  1818.                                             pathname_type,
  1819.                                             Value_Get,
  1820.                                             Slot_value_Ret)
  1821.                ),
  1822.                Slot_value_Ret=FnResult24
  1823.              ),
  1824.              block_exit(setf_pathname_type, FnResult24),
  1825.              true).
  1826. :- was_info((set_opv(setf_pathname_type, symbol_function, f_setf_pathname_type), DefunResult32=setf_pathname_type)).
  1827. wl: declared(pathname_version, defun_setf(setf_pathname_version)).
  1828.  
  1829. 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]]]).
  1830. 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}).
  1831. wl: init_args(x, f_setf_pathname_version).
  1832.  
  1833. ```
  1834.  
  1835. ### Compiled Function: `CL::SETF-PATHNAME-VERSION`
  1836. ```prolog
  1837. f_setf_pathname_version(Object_In, Value_In, FnResult14) :-
  1838.        GEnv23=[bv(sys_object, Object_In), bv(sys_value, Value_In)],
  1839.        catch(( ( get_var(GEnv23, sys_object, Object_Get),
  1840.                  get_var(GEnv23, sys_value, Value_Get),
  1841.                  f_sys_set_class_slot_value(claz_pathname,
  1842.                                             Object_Get,
  1843.                                             pathname_version,
  1844.                                             Value_Get,
  1845.                                             Slot_value_Ret)
  1846.                ),
  1847.                Slot_value_Ret=FnResult14
  1848.              ),
  1849.              block_exit(setf_pathname_version, FnResult14),
  1850.              true).
  1851. :- was_info((set_opv(setf_pathname_version, symbol_function, f_setf_pathname_version), DefunResult22=setf_pathname_version)).
  1852. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1853.                                      metaobject,
  1854.                                      pathname{ debug_name:"znst_metaobject_0",
  1855.                                                pathname_device:[],
  1856.                                                pathname_directory:[],
  1857.                                                pathname_host:[],
  1858.                                                pathname_name:[],
  1859.                                                pathname_type:[],
  1860.                                                pathname_version:[],
  1861.                                                ref:ref_pathname_znst_metaobject_0
  1862.                                              }))).
  1863. :- side_effect(assertz_new(struct_opv(claz_pathname,
  1864.                                      prototype,
  1865.                                      pathname{ debug_name:"znst_prototypical_0",
  1866.                                                pathname_device:[],
  1867.                                                pathname_directory:[],
  1868.                                                pathname_host:[],
  1869.                                                pathname_name:[],
  1870.                                                pathname_type:[],
  1871.                                                pathname_version:[],
  1872.                                                ref:ref_pathname_znst_prototypical_0
  1873.                                              }))).
  1874. % grovelled_source_file_symbols("COERCE-TO-FUNCTION", pkg_sys, sys_coerce_to_function, decls, f_sys_coerce_to_function).
  1875. % grovelled_source_file_symbols("SPECIAL-OPERATOR-P", pkg_cl, special_operator_p, decls, f_special_operator_p).
  1876. % grovelled_source_file_symbols("SPECIAL-OPERATOR-P", pkg_cl, special_operator_p, decls, f_special_operator_p).
  1877. % grovelled_source_file_symbols("DIVIDE", pkg_sys, sys_divide, mth, f_divide).
  1878. % grovelled_source_file_symbols("MINUS", pkg_sys, sys_minus, mth, f_minus).
  1879. % grovelled_source_file_symbols("PLUS", pkg_sys, sys_plus, mth, f_plus).
  1880. % grovelled_source_file_symbols("/", pkg_cl, /, mth, 'f_/').
  1881. % grovelled_source_file_symbols("*", pkg_cl, *, mth, 'f_*').
  1882. % grovelled_source_file_symbols("-", pkg_cl, -, mth, 'f_-').
  1883. % grovelled_source_file_symbols("+", pkg_cl, +, mth, 'f_+').
  1884. % grovelled_source_file_symbols("1-", pkg_cl, '1-', mth, 'f_1-').
  1885. % grovelled_source_file_symbols("1+", pkg_cl, '1+', mth, 'f_1+').
  1886. % grovelled_source_file_symbols("FROUND", pkg_cl, fround, mth, f_fround).
  1887. % grovelled_source_file_symbols("FFLOOR", pkg_cl, ffloor, mth, f_ffloor).
  1888. % grovelled_source_file_symbols("FCEILING", pkg_cl, fceiling, mth, f_fceiling).
  1889. % grovelled_source_file_symbols("FTRUNCATE", pkg_cl, ftruncate, mth, f_ftruncate).
  1890. % grovelled_source_file_symbols("ROUND", pkg_cl, round, mth, f_round).
  1891. % grovelled_source_file_symbols("TRUNCATE", pkg_cl, truncate, mth, f_truncate).
  1892. % grovelled_source_file_symbols("FLOOR", pkg_cl, floor, mth, f_floor).
  1893. % grovelled_source_file_symbols("CEILING", pkg_cl, ceiling, mth, f_ceiling).
  1894. % grovelled_source_file_symbols("RANDOM-POSFIXNUM", pkg_sys, sys_random_posfixnum, mth, f_sys_random_posfixnum).
  1895. % grovelled_source_file_symbols("EXPT", pkg_cl, expt, mth, f_expt).
  1896. % grovelled_source_file_symbols("EXP", pkg_cl, exp, mth, f_exp).
  1897. % grovelled_source_file_symbols("SQRT", pkg_cl, sqrt, mth, f_sqrt).
  1898. % grovelled_source_file_symbols(">", pkg_cl, >, mth, 'f_>').
  1899. % grovelled_source_file_symbols(">=", pkg_cl, >=, mth, 'f_>=').
  1900. % grovelled_source_file_symbols("<", pkg_cl, <, mth, 'f_<').
  1901. % grovelled_source_file_symbols("<=", pkg_cl, <=, mth, 'f_<=').
  1902. % grovelled_source_file_symbols("=", pkg_cl, =, mth, 'f_=').
  1903. % grovelled_source_file_symbols("MIN", pkg_cl, min, mth, f_min).
  1904. % grovelled_source_file_symbols("MAX", pkg_cl, max, mth, f_max).
  1905. % grovelled_source_file_symbols("HASH-TABLE-ITERATOR-FUNCTION", pkg_sys, sys_hash_table_iterator_function, hash7s, f_sys_hash_table_iterator_function).
  1906. % grovelled_source_file_symbols("HASH-TABLE-COUNT", pkg_cl, hash_table_count, hash7s, f_hash_table_count).
  1907. :- side_effect(set_opv(with_hash_table_iterator,
  1908.                       symbol_function,
  1909.                       mf_with_hash_table_iterator)).
  1910. % grovelled_source_file_symbols("WITH-HASH-TABLE-ITERATOR", pkg_cl, with_hash_table_iterator, hash7s, mf_with_hash_table_iterator).
  1911. :- side_effect(set_opv(with_hash_table_iterator,
  1912.                       symbol_function,
  1913.                       sf_with_hash_table_iterator)).
  1914. % grovelled_source_file_symbols("WITH-HASH-TABLE-ITERATOR", pkg_cl, with_hash_table_iterator, hash7s, sf_with_hash_table_iterator).
  1915. % grovelled_source_file_symbols("MAPHASH-ITER", pkg_sys, sys_maphash_iter, hash7s, f_sys_maphash_iter).
  1916. % grovelled_source_file_symbols("MAPHASH", pkg_cl, maphash, hash7s, f_maphash).
  1917. % grovelled_source_file_symbols("CLRHASH", pkg_cl, clrhash, hash7s, f_clrhash).
  1918. % grovelled_source_file_symbols("REMHASH", pkg_cl, remhash, hash7s, f_remhash).
  1919. % grovelled_source_file_symbols("PUTHASH", pkg_sys, sys_puthash, hash7s, f_sys_puthash).
  1920. % grovelled_source_file_symbols("GETHASH", pkg_cl, gethash, hash7s, f_gethash).
  1921. % grovelled_source_file_symbols("GETHASH", pkg_cl, gethash, hash7s, f_gethash).
  1922. % grovelled_source_file_symbols("MAKE-HASH-TABLE", pkg_cl, make_hash_table, hash7s, f_make_hash_table).
  1923. % grovelled_source_file_symbols("HASH-TABLE-TEST", pkg_cl, hash_table_test, hash7s, f_hash_table_test).
  1924. % grovelled_source_file_symbols("HASH-TABLE-P", pkg_cl, hash_table_p, hash7s, f_hash_table_p).
  1925. % grovelled_source_file_symbols("LABELS", pkg_cl, labels, fn, sf_labels).
  1926. % grovelled_source_file_symbols("FLET", pkg_cl, flet, fn, sf_flet).
  1927. % grovelled_source_file_symbols("DEFUN", pkg_cl, defun, fn, sf_defun).
  1928. % grovelled_source_file_symbols("ADD-CI", pkg_sys, sys_add_ci, clstructs, sf_sys_add_ci).
  1929. % grovelled_source_file_symbols("ADD-CI", pkg_sys, sys_add_ci, clstructs, sf_sys_add_ci).
  1930. % grovelled_source_file_symbols("ENV-EVAL", pkg_sys, sys_env_eval, funcall, f_sys_env_eval).
  1931. % grovelled_source_file_symbols("APPLY", pkg_cl, apply, funcall, f_apply).
  1932. % grovelled_source_file_symbols("FUNCALL", pkg_cl, funcall, funcall, f_funcall).
  1933. % grovelled_source_file_symbols("EVAL", pkg_cl, eval, funcall, f_eval).
  1934. % grovelled_source_file_symbols("PROVIDE", pkg_cl, provide, loadfile, f_provide).
  1935. % grovelled_source_file_symbols("REQUIRE", pkg_cl, require, loadfile, f_require).
  1936. % grovelled_source_file_symbols("LOAD", pkg_cl, load, loadfile, f_load).
  1937. % grovelled_source_file_symbols("LOAD", pkg_cl, load, loadfile, f_load).
  1938. % grovelled_source_file_symbols("LOAD", pkg_cl, load, loadfile, f_load).
  1939. % grovelled_source_file_symbols("COMPILE-FILE", pkg_cl, compile_file, loadfile, f_compile_file).
  1940. % grovelled_source_file_symbols("COMPILE-FILE", pkg_cl, compile_file, loadfile, f_compile_file).
  1941. % grovelled_source_file_symbols("COMPILE-FILE", pkg_cl, compile_file, loadfile, f_compile_file).
  1942. % grovelled_source_file_symbols("COMPILE-FILE-MASK", pkg_sys, sys_compile_file_mask, loadfile, f_sys_compile_file_mask).
  1943. % grovelled_source_file_symbols("DESCRIBE", pkg_cl, describe, docs, f_describe).
  1944. % grovelled_source_file_symbols("APROPOS-SYMBOL", pkg_sys, sys_apropos_symbol, docs, f_sys_apropos_symbol).
  1945. % grovelled_source_file_symbols("APROPOS-DO-SYMS", pkg_sys, sys_apropos_do_syms, docs, f_sys_apropos_do_syms).
  1946. % grovelled_source_file_symbols("APROPOS", pkg_cl, apropos, docs, f_apropos).
  1947. % grovelled_source_file_symbols("APROPOS-LIST", pkg_cl, apropos_list, docs, f_apropos_list).
  1948. :- side_effect(set_opv(lambda, symbol_function, sf_lambda)).
  1949. % grovelled_source_file_symbols("LAMBDA", pkg_cl, lambda, cl0z3rs, sf_lambda).
  1950. % grovelled_source_file_symbols("ERROR", pkg_cl, error, errs, f_error).
  1951. % grovelled_source_file_symbols("LCOMPILEN", pkg_sys, sys_lcompilen, comp, f_sys_lcompilen).
  1952. % grovelled_source_file_symbols("LCOMPILE", pkg_sys, sys_lcompile, comp, f_sys_lcompile).
  1953. % grovelled_source_file_symbols("INSERTF-LIST-VALUE", pkg_sys, sys_insertf_list_value, comp, f_sys_insertf_list_value).
  1954. % grovelled_source_file_symbols("REMOVEF-LIST-VALUE", pkg_sys, sys_removef_list_value, comp, f_sys_removef_list_value).
  1955. % grovelled_source_file_symbols("BREAK", pkg_cl, break, callp, f_break).
  1956. % grovelled_source_file_symbols("RTRACE", pkg_sys, sys_rtrace, callp, f_sys_rtrace).
  1957. % grovelled_source_file_symbols("RTRACE", pkg_sys, sys_rtrace, callp, f_sys_rtrace).
  1958. % grovelled_source_file_symbols("TRACE", pkg_cl, trace, cl, f_trace).
  1959. % grovelled_source_file_symbols("VALUES-LIST", pkg_cl, values_list, body, f_values_list).
  1960. :- side_effect(set_opv(dolist, symbol_function, sf_dolist)).
  1961. % grovelled_source_file_symbols("DOLIST", pkg_cl, dolist, body, sf_dolist).
  1962. :- side_effect(set_opv(destructuring_bind,
  1963.                       symbol_function,
  1964.                       sf_destructuring_bind)).
  1965. % grovelled_source_file_symbols("DESTRUCTURING-BIND", pkg_cl, destructuring_bind, body, sf_destructuring_bind).
  1966. % grovelled_source_file_symbols("VECTOR", pkg_cl, vector, aray, f_vector).
  1967. % grovelled_source_file_symbols("MAKE-ARRAY", pkg_cl, make_array, aray, f_make_array).
  1968. % grovelled_source_file_symbols("MAKE-ARRAY", pkg_cl, make_array, aray, f_make_array).
  1969. % grovelled_source_file_symbols("AREF", pkg_cl, aref, aray, f_aref).
  1970. % grovelled_source_file_symbols("ARRAY-DIMENSION", pkg_cl, array_dimension, aray, f_array_dimension).
  1971. % grovelled_source_file_symbols("ARRAY-DIMENSIONS", pkg_cl, array_dimensions, aray, f_array_dimensions).
  1972. % grovelled_source_file_symbols("ADJUSTABLE-ARRAY-P", pkg_cl, adjustable_array_p, aray, f_adjustable_array_p).
  1973. :- side_effect(set_opv(sys_process_lambda_list,
  1974.                       symbol_function,
  1975.                       f_sys_process_lambda_list)).
  1976. % grovelled_source_file_symbols("PROCESS-LAMBDA-LIST", pkg_sys, sys_process_lambda_list, arglists, f_sys_process_lambda_list).
  1977. % grovelled_source_file_symbols("CAAADR", pkg_cl, caaadr, c0nz, f_caaadr).
  1978. % grovelled_source_file_symbols("CDDDDR", pkg_cl, cddddr, c0nz, f_cddddr).
  1979. % grovelled_source_file_symbols("CDDAR", pkg_cl, cddar, c0nz, f_cddar).
  1980. % grovelled_source_file_symbols("CDDDR", pkg_cl, cdddr, c0nz, f_cdddr).
  1981. % grovelled_source_file_symbols("CADDR", pkg_cl, caddr, c0nz, f_caddr).
  1982. % grovelled_source_file_symbols("CAADR", pkg_cl, caadr, c0nz, f_caadr).
  1983. % grovelled_source_file_symbols("CDADR", pkg_cl, cdadr, c0nz, f_cdadr).
  1984. % grovelled_source_file_symbols("CADAR", pkg_cl, cadar, c0nz, f_cadar).
  1985. % grovelled_source_file_symbols("CDAAR", pkg_cl, cdaar, c0nz, f_cdaar).
  1986. % grovelled_source_file_symbols("CAAAR", pkg_cl, caaar, c0nz, f_caaar).
  1987. % grovelled_source_file_symbols("CAAR", pkg_cl, caar, c0nz, f_caar).
  1988. % grovelled_source_file_symbols("CDAR", pkg_cl, cdar, c0nz, f_cdar).
  1989. % grovelled_source_file_symbols("CDDR", pkg_cl, cddr, c0nz, f_cddr).
  1990. % grovelled_source_file_symbols("LAST-1", pkg_sys, sys_last_1, c0nz, f_last_1).
  1991. % grovelled_source_file_symbols("LAST-0", pkg_sys, sys_last_0, c0nz, f_last_0).
  1992. % grovelled_source_file_symbols("LAST", pkg_cl, last, c0nz, f_last).
  1993. % grovelled_source_file_symbols("CADR", pkg_cl, cadr, c0nz, f_cadr).
  1994. % grovelled_source_file_symbols("SECOND", pkg_cl, second, c0nz, f_second).
  1995. % grovelled_source_file_symbols("ASSOC", pkg_cl, assoc, c0nz, f_assoc).
  1996. % grovelled_source_file_symbols("RASSOC", pkg_cl, rassoc, c0nz, f_rassoc).
  1997. % grovelled_source_file_symbols("ACONS", pkg_cl, acons, c0nz, f_acons).
  1998. % grovelled_source_file_symbols("COPY-ALIST", pkg_cl, copy_alist, c0nz, f_copy_alist).
  1999. % grovelled_source_file_symbols("SET-CDR", pkg_sys, sys_set_cdr, c0nz, f_sys_set_cdr).
  2000. % grovelled_source_file_symbols("RPLACD", pkg_cl, rplacd, c0nz, f_rplacd).
  2001. % grovelled_source_file_symbols("SET-CAR", pkg_sys, sys_set_car, c0nz, f_sys_set_car).
  2002. % grovelled_source_file_symbols("RPLACA", pkg_cl, rplaca, c0nz, f_rplaca).
  2003. % grovelled_source_file_symbols("CDR", pkg_cl, cdr, c0nz, f_cdr).
  2004. % grovelled_source_file_symbols("CAR", pkg_cl, car, c0nz, f_car).
  2005. % grovelled_source_file_symbols("FIRST", pkg_cl, first, c0nz, f_first).
  2006. % grovelled_source_file_symbols("LIST", pkg_cl, list, c0nz, f_list).
  2007. % grovelled_source_file_symbols("APPEND", pkg_cl, append, c0nz, f_append).
  2008. % grovelled_source_file_symbols("CONS", pkg_cl, cons, c0nz, f_cons).
  2009. % grovelled_source_file_symbols("ATOM", pkg_cl, atom, c0nz, f_atom).
  2010. % grovelled_source_file_symbols("NULL", pkg_cl, null, c0nz, f_null).
  2011. :- side_effect(set_opv(sys_set_nthcdr, symbol_function, f_set_nthcdr)).
  2012. % grovelled_source_file_symbols("SET-NTHCDR", pkg_sys, sys_set_nthcdr, c0nz, f_set_nthcdr).
  2013. % grovelled_source_file_symbols("NTHCDR", pkg_cl, nthcdr, c0nz, f_nthcdr).
  2014. % grovelled_source_file_symbols("ELT", pkg_cl, elt, c0nz, f_elt).
  2015. % grovelled_source_file_symbols("NTH", pkg_cl, nth, c0nz, f_nth).
  2016. % grovelled_source_file_symbols("QUIT", pkg_sys, sys_quit, eq4l1y, f_sys_quit).
  2017. % grovelled_source_file_symbols("EQUALP", pkg_cl, equalp, eq4l1y, f_equalp).
  2018. % grovelled_source_file_symbols("EQUAL", pkg_cl, equal, eq4l1y, f_equal).
  2019. % grovelled_source_file_symbols("EQL", pkg_cl, eql, eq4l1y, f_eql).
  2020. % grovelled_source_file_symbols("EQ", pkg_cl, eq, eq4l1y, f_eq).
  2021. % grovelled_source_file_symbols("NOT", pkg_cl, not, eq4l1y, f_not).
  2022. % grovelled_source_file_symbols("READ", pkg_cl, read, r3d3rz, f_read).
  2023. % grovelled_source_file_symbols("DEFPARAMETER", pkg_cl, defparameter, v4rZ, sf_defparameter).
  2024. % grovelled_source_file_symbols("SETQ", pkg_cl, setq, v4rZ, sf_setq).
  2025. :- side_effect(set_opv(sys_deflexical, symbol_function, sf_deflexical)).
  2026. % grovelled_source_file_symbols("DEFLEXICAL", pkg_sys, sys_deflexical, v4rZ, sf_deflexical).
  2027. :- side_effect(set_opv(defvar, symbol_function, sf_defvar)).
  2028. % grovelled_source_file_symbols("DEFVAR", pkg_cl, defvar, v4rZ, sf_defvar).
  2029. % grovelled_source_file_symbols("DEFVAR", pkg_cl, defvar, v4rZ, sf_defvar).
  2030. :- side_effect(set_opv(sys_defconst, symbol_function, sf_defconst)).
  2031. % grovelled_source_file_symbols("DEFCONST", pkg_sys, sys_defconst, v4rZ, sf_defconst).
  2032. :- side_effect(set_opv(defconstant, symbol_function, sf_defconstant)).
  2033. % grovelled_source_file_symbols("DEFCONSTANT", pkg_cl, defconstant, v4rZ, sf_defconstant).
  2034. % grovelled_source_file_symbols("SET-SYMBOL-MACRO", pkg_sys, sys_set_symbol_macro, symbol, f_sys_set_symbol_macro).
  2035. :- side_effect(set_opv(sys_symbol_macro, symbol_function, f_sys_symbol_macro)).
  2036. % grovelled_source_file_symbols("SYMBOL-MACRO", pkg_sys, sys_symbol_macro, symbol, f_sys_symbol_macro).
  2037. % grovelled_source_file_symbols("SYMBOL-MACROLET", pkg_cl, symbol_macrolet, symbol, sf_symbol_macrolet).
  2038. :- side_effect(set_opv(define_symbol_macro,
  2039.                       symbol_function,
  2040.                       sf_define_symbol_macro)).
  2041. % grovelled_source_file_symbols("DEFINE-SYMBOL-MACRO", pkg_cl, define_symbol_macro, symbol, sf_define_symbol_macro).
  2042. % grovelled_source_file_symbols("%SYMBOL-MACROEXPAND", pkg_sys, sys_pf_symbol_macroexpand, symbol, f_sys_pf_symbol_macroexpand).
  2043. % grovelled_source_file_symbols("PUT-SYSPROP", pkg_sys, sys_put_sysprop, symbol, f_sys_put_sysprop).
  2044. % grovelled_source_file_symbols("GET-SYSPROP", pkg_sys, sys_get_sysprop, symbol, f_sys_get_sysprop).
  2045. % grovelled_source_file_symbols("GETF", pkg_cl, getf, symbol, f_getf).
  2046. % grovelled_source_file_symbols("PUT", pkg_sys, sys_put, symbol, f_sys_put).
  2047. % grovelled_source_file_symbols("PUTPROP", pkg_sys, sys_putprop, symbol, f_sys_putprop).
  2048. % grovelled_source_file_symbols("GET", pkg_cl, get, symbol, f_get).
  2049. % grovelled_source_file_symbols("SYMBOL-PLIST", pkg_cl, symbol_plist, symbol, f_symbol_plist).
  2050. % grovelled_source_file_symbols("MAKE-SYMBOL", pkg_cl, make_symbol, symbol, f_make_symbol).
  2051. % grovelled_source_file_symbols("UNINTERN", pkg_cl, unintern, symbol, f_unintern).
  2052. % grovelled_source_file_symbols("INTERN", pkg_cl, intern, symbol, f_intern).
  2053. % grovelled_source_file_symbols("FIND-SYMBOL", pkg_cl, find_symbol, symbol, f_find_symbol).
  2054. % grovelled_source_file_symbols("GENTEMP", pkg_cl, gentemp, symbol, f_gentemp).
  2055. % grovelled_source_file_symbols("GENTEMP", pkg_cl, gentemp, symbol, f_gentemp).
  2056. % grovelled_source_file_symbols("GENTEMP", pkg_cl, gentemp, symbol, f_gentemp).
  2057. % grovelled_source_file_symbols("GENSYM", pkg_cl, gensym, symbol, f_gensym).
  2058. % grovelled_source_file_symbols("GENSYM", pkg_cl, gensym, symbol, f_gensym).
  2059. % grovelled_source_file_symbols("SET", pkg_cl, set, symbol, f_set).
  2060. % grovelled_source_file_symbols("SET-SYMBOL-VALUE", pkg_sys, sys_set_symbol_value, symbol, f_sys_set_symbol_value).
  2061. % grovelled_source_file_symbols("SET-SYMBOL-VALUE", pkg_sys, sys_set_symbol_value, symbol, f_sys_set_symbol_value).
  2062. % grovelled_source_file_symbols("SET-SYMBOL-FUNCTION", pkg_sys, sys_set_symbol_function, symbol, f_sys_set_symbol_function).
  2063. % grovelled_source_file_symbols("SYMBOL-PACKAGE", pkg_cl, symbol_package, symbol, f_symbol_package).
  2064. % grovelled_source_file_symbols("SYMBOL-FUNCTION", pkg_cl, symbol_function, symbol, f_symbol_function).
  2065. % grovelled_source_file_symbols("SYMBOL-VALUE", pkg_cl, symbol_value, symbol, f_symbol_value).
  2066. % grovelled_source_file_symbols("SYMBOL-NAME", pkg_cl, symbol_name, symbol, f_symbol_name).
  2067. % correct_missing_symbols.
  2068. % grovelled_source_file_symbols("MACRO-FUNCTION", pkg_cl, macro_function, macr, f_macro_function).
  2069. % grovelled_source_file_symbols("MACRO-FUNCTION", pkg_cl, macro_function, macr, f_macro_function).
  2070. % grovelled_source_file_symbols("SET-SYMBOL-MACRO-FUNCTION", pkg_sys, sys_set_symbol_macro_function, macr, f_sys_set_symbol_macro_function).
  2071. % grovelled_source_file_symbols("MACROEXPAND", pkg_cl, macroexpand, macr, f_macroexpand).
  2072. % grovelled_source_file_symbols("MACROEXPAND-1", pkg_cl, macroexpand_1, macr, f_macroexpand_1).
  2073. :- side_effect(set_opv(macrolet, symbol_function, mf_macrolet)).
  2074. % grovelled_source_file_symbols("MACROLET", pkg_cl, macrolet, macr, mf_macrolet).
  2075. :- side_effect(set_opv(define_compiler_macro,
  2076.                       symbol_function,
  2077.                       sf_define_compiler_macro)).
  2078. % grovelled_source_file_symbols("DEFINE-COMPILER-MACRO", pkg_cl, define_compiler_macro, macr, sf_define_compiler_macro).
  2079. % grovelled_source_file_symbols("DEFMACRO", pkg_cl, defmacro, macr, sf_defmacro).
  2080. % grovelled_source_file_symbols("CLASS-NAME", pkg_cl, class_name, soops, f_class_name).
  2081. % grovelled_source_file_symbols("TO-PVS", pkg_sys, sys_to_pvs, soops, f_sys_to_pvs).
  2082. % grovelled_source_file_symbols("SET-OPV", pkg_sys, sys_set_opv, soops, f_sys_set_opv).
  2083. % grovelled_source_file_symbols("GET-OPV", pkg_sys, sys_get_opv, soops, f_sys_get_opv).
  2084. % grovelled_source_file_symbols("GET-IPROPS", pkg_sys, sys_get_iprops, soops, f_sys_get_iprops).
  2085. % grovelled_source_file_symbols("CLASS-PRECEDENCE-LIST", pkg_sys, sys_class_precedence_list, soops, f_clos_class_precedence_list).
  2086. % grovelled_source_file_symbols("CLASS-DIRECT-SUPERCLASSES", pkg_sys, sys_class_direct_superclasses, soops, f_clos_class_direct_superclasses).
  2087. % grovelled_source_file_symbols("DEFCLASS", pkg_cl, defclass, soops, sf_defclass).
  2088. % grovelled_source_file_symbols("DEFSTRUCT", pkg_cl, defstruct, soops, sf_defstruct).
  2089. % grovelled_source_file_symbols("FIND-CLASS", pkg_cl, find_class, soops, f_find_class).
  2090. :- side_effect(set_opv(sys_set_class_slot_value,
  2091.                       symbol_function,
  2092.                       f_sys_set_class_slot_value)).
  2093. % grovelled_source_file_symbols("SET-CLASS-SLOT-VALUE", pkg_sys, sys_set_class_slot_value, soops, f_sys_set_class_slot_value).
  2094. % grovelled_source_file_symbols("CLASS-SLOT-VALUE", pkg_sys, sys_class_slot_value, soops, f_class_slot_value).
  2095. % grovelled_source_file_symbols("SLOT-VALUE", pkg_cl, slot_value, soops, f_slot_value).
  2096. % grovelled_source_file_symbols("SLOT-EXISTS-P", pkg_cl, slot_exists_p, soops, f_slot_exists_p).
  2097. % grovelled_source_file_symbols("PF-SET-SLOT-VALUE", pkg_sys, sys_pf_set_slot_value, soops, f_sys_pf_set_slot_value).
  2098. % grovelled_source_file_symbols("MAKE-INSTANCE", pkg_cl, make_instance, soops, f_make_instance).
  2099. % grovelled_source_file_symbols("SHADOW", pkg_cl, shadow, package, f_shadow).
  2100. % grovelled_source_file_symbols("SHADOW", pkg_cl, shadow, package, f_shadow).
  2101. % grovelled_source_file_symbols("UNEXPORT", pkg_cl, unexport, package, f_unexport).
  2102. % grovelled_source_file_symbols("UNEXPORT", pkg_cl, unexport, package, f_unexport).
  2103. % grovelled_source_file_symbols("EXPORT", pkg_cl, export, package, f_export).
  2104. % grovelled_source_file_symbols("EXPORT", pkg_cl, export, package, f_export).
  2105. % grovelled_source_file_symbols("IMPORT", pkg_cl, import, package, f_import).
  2106. % grovelled_source_file_symbols("IMPORT", pkg_cl, import, package, f_import).
  2107. % grovelled_source_file_symbols("PACKAGE-NAME", pkg_cl, package_name, package, f_package_name).
  2108. % grovelled_source_file_symbols("FIND-PACKAGE", pkg_cl, find_package, package, f_find_package).
  2109. % grovelled_source_file_symbols("MAKE-PACKAGE", pkg_cl, make_package, package, f_make_package).
  2110. % grovelled_source_file_symbols("DEFPACKAGE", pkg_cl, defpackage, package, sf_defpackage).
  2111. % grovelled_source_file_symbols("USE-PACKAGE", pkg_cl, use_package, package, f_use_package).
  2112. % grovelled_source_file_symbols("USE-PACKAGE", pkg_cl, use_package, package, f_use_package).
  2113. :- side_effect(set_opv(in_package, symbol_function, f_in_package)).
  2114. % grovelled_source_file_symbols("IN-PACKAGE", pkg_cl, in_package, package, f_in_package).
  2115. % grovelled_source_file_symbols("SELECT-PACKAGE", pkg_sys, sys_select_package, package, f_sys_select_package).
  2116. :- side_effect(set_opv(in_package, symbol_function, sf_in_package)).
  2117. % grovelled_source_file_symbols("IN-PACKAGE", pkg_cl, in_package, package, sf_in_package).
  2118. % grovelled_source_file_symbols("LIST-ALL-PACKAGES", pkg_cl, list_all_packages, package, f_list_all_packages).
  2119. % grovelled_source_file_symbols("DEFKNOWN", pkg_sys, sys_defknown, evil, sf_sys_defknown).
  2120. % grovelled_source_file_symbols("DEFSETF", pkg_cl, defsetf, evil, sf_defsetf).
  2121. % grovelled_source_file_symbols("DEFTYPE", pkg_cl, deftype, evil, sf_deftype).
  2122. % grovelled_source_file_symbols("PROCLAMATION", pkg_sys, sys_proclamation, evil, sf_sys_proclamation).
  2123. % grovelled_source_file_symbols("PSXHASH", pkg_sys, sys_psxhash, evil, f_sys_psxhash).
  2124. % grovelled_source_file_symbols("SXHASH", pkg_cl, sxhash, evil, f_sxhash).
  2125. % grovelled_source_file_symbols("PROCLAIM", pkg_cl, proclaim, evil, sf_proclaim).
  2126. % grovelled_source_file_symbols("DECLARE", pkg_cl, declare, evil, sf_declare).
  2127. % grovelled_source_file_symbols("SETF-FUNCTION-NAME-P", pkg_sys, sys_setf_function_name_p, places, f_sys_setf_function_name_p).
  2128. :- side_effect(set_opv(push, symbol_function, sf_push)).
  2129. % grovelled_source_file_symbols("PUSH", pkg_cl, push, places, sf_push).
  2130. % grovelled_source_file_symbols("SET-RSLOT", pkg_sys, sys_set_rslot, places, f_sys_set_rslot).
  2131. :- side_effect(set_opv(sys_is, symbol_function, mf_sys_is)).
  2132. % grovelled_source_file_symbols("IS", pkg_sys, sys_is, tests, mf_sys_is).
  2133. :- side_effect(set_opv(sys_is, symbol_function, sf_sys_is)).
  2134. % grovelled_source_file_symbols("IS", pkg_sys, sys_is, tests, sf_sys_is).
  2135.  
  2136. __        ___    __  __        ____ _
  2137. \ \      / / \  |  \/  |      / ___| |
  2138. \ \ /\ / / _ \ | |\/| |_____| |   | |
  2139.  \ V  V / ___ \| |  | |_____| |___| |___
  2140.   \_/\_/_/   \_\_|  |_|      \____|_____|
  2141.  
  2142. Common Lisp, written in Prolog
  2143. ```
  2144. ```cl
  2145. CL-USER> (+ 1 )
  2146. ```
  2147. ```prolog
  2148. :- lisp_compiled_eval([+, 1]).
  2149. ## COMPILER
  2150. % 82,021 inferences, 0.010 CPU in 0.010 seconds (100% CPU, 8058113 Lips)
  2151. :- 'f_+'(0, 1, _31662).
  2152. ## EXEC
  2153. % 38 inferences, 0.000 CPU in 0.000 seconds (100% CPU, 775811 Lips)
  2154. 1
  2155. ```
  2156. ```cl
  2157. CL-USER> (defun foo (a) (+ a 2))
  2158. ```
  2159. ```prolog
  2160. :- lisp_compiled_eval([defun, u_foo, [u_a], [+, u_a, 2]]).
  2161. ## COMPILER
  2162. % 191,199 inferences, 0.028 CPU in 0.028 seconds (100% CPU, 6899766 Lips)
  2163. lambda_def(defun, u_foo, f_u_foo, [u_a], [[+, u_a, 2]]).
  2164. arglist_info(u_foo, f_u_foo, [u_a], arginfo{all:[u_a], allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[u_a], opt:0, outer:ReplEnv, req:[u_a], rest:0, sublists:0, whole:0}).
  2165. init_args(x, f_u_foo).
  2166.  
  2167. ```
  2168.  
  2169. ### Compiled Function: `U::FOO`
  2170. ```prolog
  2171. f_u_foo(A_In, FnResult) :-
  2172.        GEnv=[bv(u_a, A_In)],
  2173.        catch(( ( get_var(GEnv, u_a, A_Get),
  2174.                  'f_+'(A_Get, 2, _54588)
  2175.                ),
  2176.                _54588=FnResult
  2177.              ),
  2178.              block_exit(u_foo, FnResult),
  2179.              true).
  2180. :- set_opv(u_foo, symbol_function, f_u_foo),
  2181.   DefunResult=u_foo.
  2182. ## EXEC
  2183. % 291 inferences, 0.000 CPU in 0.000 seconds (99% CPU, 1576629 Lips)
  2184. FOO
  2185. ```
  2186. ```cl
  2187. CL-USER> (foo 4)
  2188. ```
  2189. ```prolog
  2190. :- lisp_compiled_eval([u_foo, 4]).
  2191. ## COMPILER
  2192. % 27,511 inferences, 0.004 CPU in 0.004 seconds (100% CPU, 7378954 Lips)
  2193. :- f_u_foo(4, Foo_Ret).
  2194. ## EXEC
  2195. % 64 inferences, 0.000 CPU in 0.000 seconds (99% CPU, 1802208 Lips)
  2196. 6
  2197. ```
  2198. ```cl
  2199. CL-USER>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!