API tools faq
paste
Advertisement
logicmoo

Untitled

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