1#!/usr/bin/env swipl
6
7:-style_check(-discontiguous). 8:-style_check(-singleton). 9:-use_module(library(wamcl_runtime)). 10
11/*
12(in-package "SYSTEM")
13
14*/
15
16/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:0 **********************/
17:-lisp_compile_to_prolog(pkg_user,['in-package','#:system'])
18/*
19% macroexpand:-[in_package,system1].
20*/
21/*
22% into:-[eval_when,[kw_compile_toplevel,kw_load_toplevel,kw_execute],[sys_select_package,'$ARRAY'([*],claz_base_character,"SYSTEM")]].
23*/
24:- do_when([kw_compile_toplevel, kw_load_toplevel, kw_execute],
25 f_sys_select_package('$ARRAY'([*], claz_base_character, "SYSTEM"),
26 _Ignored),
27 _Ignored).
28/*
29(defpackage "SYSTEM" (:nicknames "SYS"))
30*/
31
32/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:24 **********************/
33:-lisp_compile_to_prolog(pkg_sys,[defpackage,'$STRING'("SYSTEM"),[':nicknames','$STRING'("SYS")]])
34:- sf_defpackage('$ARRAY'([*], claz_base_character, "SYSTEM"),
35 [[kw_nicknames, '$ARRAY'([*], claz_base_character, "SYS")]],
36 _Ignored).
37/*
38:- side_effect(set_kind_object_slot_value(claz_package,
39 pkg_system,
40 kw_nicknames,
41
42 [ '$ARRAY'([*],
43 claz_base_character,
44 "SYS")
45 ])).
46*/
47/*
48(defpackage "COMMON-LISP" (:nicknames "CL" "LISP")(:uses "SYSTEM"))
49*/
50
51/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:65 **********************/
52:-lisp_compile_to_prolog(pkg_sys,[defpackage,'$STRING'("COMMON-LISP"),[':nicknames','$STRING'("CL"),'$STRING'("LISP")],[':uses','$STRING'("SYSTEM")]])
53:- sf_defpackage('$ARRAY'([*], claz_base_character, "COMMON-LISP"),
54
55 [
56 [ kw_nicknames,
57 '$ARRAY'([*], claz_base_character, "CL"),
58 '$ARRAY'([*], claz_base_character, "LISP")
59 ],
60 [kw_uses, '$ARRAY'([*], claz_base_character, "SYSTEM")]
61 ],
62 _Ignored).
63/*
64:- side_effect(set_kind_object_slot_value(claz_package,
65 pkg_common_lisp,
66 kw_nicknames,
67
68 [ '$ARRAY'([*],
69 claz_base_character,
70 "CL"),
71 '$ARRAY'([*],
72 claz_base_character,
73 "LISP")
74 ])).
75*/
76/*
77:- side_effect(set_kind_object_slot_value(claz_package,
78 pkg_common_lisp,
79 kw_uses,
80
81 [ '$ARRAY'([*],
82 claz_base_character,
83 "SYSTEM")
84 ])).
85*/
86/*
87(defpackage "COMMON-LISP-USER" (:nicknames "U" "USER" "CL-USER") (:uses "COMMON-LISP"))
88*/
89
90/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:133 **********************/
91:-lisp_compile_to_prolog(pkg_sys,[defpackage,'$STRING'("COMMON-LISP-USER"),[':nicknames','$STRING'("U"),'$STRING'("USER"),'$STRING'("CL-USER")],[':uses','$STRING'("COMMON-LISP")]])
92:- sf_defpackage('$ARRAY'([*], claz_base_character, "COMMON-LISP-USER"),
93
94 [
95 [ kw_nicknames,
96 '$ARRAY'([*], claz_base_character, "U"),
97 '$ARRAY'([*], claz_base_character, "USER"),
98 '$ARRAY'([*], claz_base_character, "CL-USER")
99 ],
100 [kw_uses, '$ARRAY'([*], claz_base_character, "COMMON-LISP")]
101 ],
102 _Ignored).
103/*
104:- side_effect(set_kind_object_slot_value(claz_package,
105 pkg_common_lisp_user,
106 kw_nicknames,
107
108 [ '$ARRAY'([*],
109 claz_base_character,
110 "U"),
111 '$ARRAY'([*],
112 claz_base_character,
113 "USER"),
114 '$ARRAY'([*],
115 claz_base_character,
116 "CL-USER")
117 ])).
118*/
119/*
120:- side_effect(set_kind_object_slot_value(claz_package,
121 pkg_common_lisp_user,
122 kw_uses,
123
124 [ '$ARRAY'([*],
125 claz_base_character,
126 "COMMON-LISP")
127 ])).
128*/
129/*
130(defvar *lisp-file-type* "lisp")
131*/
132
133/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:221 **********************/
134:-lisp_compile_to_prolog(pkg_sys,[defvar,'*lisp-file-type*','$STRING'("lisp")])
135:- set_var(AEnv,
136 sys_xx_lisp_file_type_xx,
137 '$ARRAY'([*], claz_base_character, "lisp")).
138/*
139(defvar *default-pathname-defaults* #P"")
140
141*/
142
143/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:255 **********************/
144:-lisp_compile_to_prolog(pkg_sys,[defvar,'*default-pathname-defaults*','$OBJ'(claz_pathname,"")])
145:- set_var(AEnv, xx_default_pathname_defaults_xx, '$OBJ'(claz_pathname, "")).
146/*
147(defun dd ()
148 (let ((*lisp-file-type* "cl")
149 (*default-pathname-defaults* (merge-pathnames "daydreamer/"))) (load "dd")))
150
151
152*/
153
154/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:299 **********************/
155:-lisp_compile_to_prolog(pkg_sys,[defun,dd,[],[let,[['*lisp-file-type*','$STRING'("cl")],['*default-pathname-defaults*',['merge-pathnames','$STRING'("daydreamer/")]]],[load,'$STRING'("dd")]]])
156/*
157:- side_effect(generate_function_or_macro_name([name='GLOBAL', environ=env_1],
158 sys_dd,
159 kw_function,
160 f_sys_dd)).
161*/
162wl:lambda_def(defun, sys_dd, f_sys_dd, [], [[let, [[sys_xx_lisp_file_type_xx, '$ARRAY'([*], claz_base_character, "cl")], [xx_default_pathname_defaults_xx, [merge_pathnames, '$ARRAY'([*], claz_base_character, "daydreamer/")]]], [load, '$ARRAY'([*], claz_base_character, "dd")]]]).
163wl:arglist_info(sys_dd, f_sys_dd, [], arginfo{all:0, allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[], opt:0, req:0, rest:0, sublists:0, whole:0}).
164wl: init_args(x, f_sys_dd).
165
170f_sys_dd(FnResult) :-
171 CDR=[],
172 catch(( ( f_merge_pathnames('$ARRAY'([*],
173 claz_base_character,
174 "daydreamer/"),
175 Xx_default_pathname_defaults_xx_Init),
176 LEnv=[bv(sys_xx_lisp_file_type_xx, '$ARRAY'([*], claz_base_character, "cl"))|CDR],
177 save_special(sv(xx_default_pathname_defaults_xx,
178 Xx_default_pathname_defaults_xx_Init,
179 symbol_value,
180 Symbol_value)),
181 f_load('$ARRAY'([*], claz_base_character, "dd"), [], LetResult),
182 restore_special(sv(xx_default_pathname_defaults_xx,
183 Xx_default_pathname_defaults_xx_Init,
184 symbol_value,
185 Symbol_value))
186 ),
187 LetResult=FnResult
188 ),
189 block_exit(sys_dd, FnResult),
190 true).
191:- set_opv(sys_dd, symbol_function, f_sys_dd),
192 DefunResult=sys_dd. 193/*
194:- side_effect(assert_lsp(sys_dd,
195 lambda_def(defun,
196 sys_dd,
197 f_sys_dd,
198 [],
199
200 [
201 [ let,
202
203 [
204 [ sys_xx_lisp_file_type_xx,
205 '$ARRAY'([*],
206 claz_base_character,
207 "cl")
208 ],
209
210 [ xx_default_pathname_defaults_xx,
211
212 [ merge_pathnames,
213 '$ARRAY'([*],
214 claz_base_character,
215 "daydreamer/")
216 ]
217 ]
218 ],
219
220 [ load,
221 '$ARRAY'([*],
222 claz_base_character,
223 "dd")
224 ]
225 ]
226 ]))).
227*/
228/*
229:- side_effect(assert_lsp(sys_dd,
230 arglist_info(sys_dd,
231 f_sys_dd,
232 [],
233 arginfo{ all:0,
234 allow_other_keys:0,
235 aux:0,
236 body:0,
237 complex:0,
238 env:0,
239 key:0,
240 names:[],
241 opt:0,
242 req:0,
243 rest:0,
244 sublists:0,
245 whole:0
246 }))).
247*/
248/*
249:- side_effect(assert_lsp(sys_dd, init_args(x, f_sys_dd))).
250*/
251/*
252(defun show-ascii-art ()
253
254(write-line " __________ ")
255(write-line " / ___ ___ \\ ")
256(write-line "/ / @ \\/ @ \\ \\ ")
257(write-line "\\ \\___/\\___/ /\\ ")
258(write-line " \\____\\/____/|| ")
259(write-line " / /\\\\\\\\\\// ")
260(write-line "| |\\\\\\\\\\\\ ")
261(write-line " \\ \\\\\\\\\\\\ ")
262(write-line " \\______/\\\\\\\\ ")
263(write-line " _||_||_ ")
264(write-line " "))
265
266*/
267
268/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:432 **********************/
269:-lisp_compile_to_prolog(pkg_sys,[defun,'show-ascii-art',[],['write-line','$STRING'(" __________ ")],['write-line','$STRING'(" / ___ ___ \\ ")],['write-line','$STRING'("/ / @ \\/ @ \\ \\ ")],['write-line','$STRING'("\\ \\___/\\___/ /\\ ")],['write-line','$STRING'(" \\____\\/____/|| ")],['write-line','$STRING'(" / /\\\\\\\\\\// ")],['write-line','$STRING'("| |\\\\\\\\\\\\ ")],['write-line','$STRING'(" \\ \\\\\\\\\\\\ ")],['write-line','$STRING'(" \\______/\\\\\\\\ ")],['write-line','$STRING'(" _||_||_ ")],['write-line','$STRING'(" ")]])
270/*
271:- side_effect(generate_function_or_macro_name([name='GLOBAL', environ=env_1],
272 sys_show_ascii_art,
273 kw_function,
274 f_sys_show_ascii_art)).
275*/
276wl:lambda_def(defun, sys_show_ascii_art, f_sys_show_ascii_art, [], [[write_line, '$ARRAY'([*], claz_base_character, " __________ ")], [write_line, '$ARRAY'([*], claz_base_character, " / ___ ___ \\ ")], [write_line, '$ARRAY'([*], claz_base_character, "/ / @ \\/ @ \\ \\ ")], [write_line, '$ARRAY'([*], claz_base_character, "\\ \\___/\\___/ /\\ ")], [write_line, '$ARRAY'([*], claz_base_character, " \\____\\/____/|| ")], [write_line, '$ARRAY'([*], claz_base_character, " / /\\\\\\\\\\// ")], [write_line, '$ARRAY'([*], claz_base_character, "| |\\\\\\\\\\\\ ")], [write_line, '$ARRAY'([*], claz_base_character, " \\ \\\\\\\\\\\\ ")], [write_line, '$ARRAY'([*], claz_base_character, " \\______/\\\\\\\\ ")], [write_line, '$ARRAY'([*], claz_base_character, " _||_||_ ")], [write_line, '$ARRAY'([*], claz_base_character, " ")]]).
277wl:arglist_info(sys_show_ascii_art, f_sys_show_ascii_art, [], arginfo{all:0, allow_other_keys:0, aux:0, body:0, complex:0, env:0, key:0, names:[], opt:0, req:0, rest:0, sublists:0, whole:0}).
278wl: init_args(x, f_sys_show_ascii_art).
279
284f_sys_show_ascii_art(FnResult) :-
285 _8208=[],
286 catch(( ( f_write_line('$ARRAY'([*],
287 claz_base_character,
288 " __________ "),
289 Write_line_Ret),
290 f_write_line('$ARRAY'([*],
291 claz_base_character,
292 " / ___ ___ \\ "),
293 Write_line_Ret7),
294 f_write_line('$ARRAY'([*],
295 claz_base_character,
296 "/ / @ \\/ @ \\ \\ "),
297 Write_line_Ret8),
298 f_write_line('$ARRAY'([*],
299 claz_base_character,
300 "\\ \\___/\\___/ /\\ "),
301 Write_line_Ret9),
302 f_write_line('$ARRAY'([*],
303 claz_base_character,
304 " \\____\\/____/|| "),
305 Write_line_Ret10),
306 f_write_line('$ARRAY'([*],
307 claz_base_character,
308 " / /\\\\\\\\\\// "),
309 Write_line_Ret11),
310 f_write_line('$ARRAY'([*],
311 claz_base_character,
312 "| |\\\\\\\\\\\\ "),
313 Write_line_Ret12),
314 f_write_line('$ARRAY'([*],
315 claz_base_character,
316 " \\ \\\\\\\\\\\\ "),
317 Write_line_Ret13),
318 f_write_line('$ARRAY'([*],
319 claz_base_character,
320 " \\______/\\\\\\\\ "),
321 Write_line_Ret14),
322 f_write_line('$ARRAY'([*],
323 claz_base_character,
324 " _||_||_ "),
325 Write_line_Ret15),
326 f_write_line('$ARRAY'([*],
327 claz_base_character,
328 " "),
329 Write_line_Ret16)
330 ),
331 Write_line_Ret16=FnResult
332 ),
333 block_exit(sys_show_ascii_art, FnResult),
334 true).
335:- set_opv(sys_show_ascii_art, symbol_function, f_sys_show_ascii_art),
336 DefunResult=sys_show_ascii_art. 337/*
338:- side_effect(assert_lsp(sys_show_ascii_art,
339 lambda_def(defun,
340 sys_show_ascii_art,
341 f_sys_show_ascii_art,
342 [],
343
344 [
345 [ write_line,
346 '$ARRAY'([*],
347 claz_base_character,
348 " __________ ")
349 ],
350
351 [ write_line,
352 '$ARRAY'([*],
353 claz_base_character,
354 " / ___ ___ \\ ")
355 ],
356
357 [ write_line,
358 '$ARRAY'([*],
359 claz_base_character,
360 "/ / @ \\/ @ \\ \\ ")
361 ],
362
363 [ write_line,
364 '$ARRAY'([*],
365 claz_base_character,
366 "\\ \\___/\\___/ /\\ ")
367 ],
368
369 [ write_line,
370 '$ARRAY'([*],
371 claz_base_character,
372 " \\____\\/____/|| ")
373 ],
374
375 [ write_line,
376 '$ARRAY'([*],
377 claz_base_character,
378 " / /\\\\\\\\\\// ")
379 ],
380
381 [ write_line,
382 '$ARRAY'([*],
383 claz_base_character,
384 "| |\\\\\\\\\\\\ ")
385 ],
386
387 [ write_line,
388 '$ARRAY'([*],
389 claz_base_character,
390 " \\ \\\\\\\\\\\\ ")
391 ],
392
393 [ write_line,
394 '$ARRAY'([*],
395 claz_base_character,
396 " \\______/\\\\\\\\ ")
397 ],
398
399 [ write_line,
400 '$ARRAY'([*],
401 claz_base_character,
402 " _||_||_ ")
403 ],
404
405 [ write_line,
406 '$ARRAY'([*],
407 claz_base_character,
408 " ")
409 ]
410 ]))).
411*/
412/*
413:- side_effect(assert_lsp(sys_show_ascii_art,
414 arglist_info(sys_show_ascii_art,
415 f_sys_show_ascii_art,
416 [],
417 arginfo{ all:0,
418 allow_other_keys:0,
419 aux:0,
420 body:0,
421 complex:0,
422 env:0,
423 key:0,
424 names:[],
425 opt:0,
426 req:0,
427 rest:0,
428 sublists:0,
429 whole:0
430 }))).
431*/
432/*
433:- side_effect(assert_lsp(sys_show_ascii_art,
434 init_args(x, f_sys_show_ascii_art))).
435*/
436/*
437(show-ascii-art)
438
439*/
440
441/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:853 **********************/
442:-lisp_compile_to_prolog(pkg_sys,['show-ascii-art'])
443:- f_sys_show_ascii_art(_Ignored).
444/*
445(compile-file "wam-cl-init-00")
446*/
447
448/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:871 **********************/
449:-lisp_compile_to_prolog(pkg_sys,['compile-file','$STRING'("wam-cl-init-00")])
450:- f_compile_file('$ARRAY'([*], claz_base_character, "wam-cl-init-00"),
451 [],
452 _Ignored).
453/*
454(load "wam-cl-init-00")
455*/
456
457/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:903 **********************/
458:-lisp_compile_to_prolog(pkg_sys,[load,'$STRING'("wam-cl-init-00")])
459:- f_load('$ARRAY'([*], claz_base_character, "wam-cl-init-00"), [], _Ignored).
460/*
461(compile-file "wam-cl-init-10")
462*/
463
464/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:927 **********************/
465:-lisp_compile_to_prolog(pkg_sys,['compile-file','$STRING'("wam-cl-init-10")])
466:- f_compile_file('$ARRAY'([*], claz_base_character, "wam-cl-init-10"),
467 [],
468 _Ignored).
469/*
470(compile-file "wam-cl-init-20")
471*/
472
473/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:959 **********************/
474:-lisp_compile_to_prolog(pkg_sys,['compile-file','$STRING'("wam-cl-init-20")])
475:- f_compile_file('$ARRAY'([*], claz_base_character, "wam-cl-init-20"),
476 [],
477 _Ignored).
478/*
479(compile-file "wam-cl-init-30")
480*/
481
482/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:991 **********************/
483:-lisp_compile_to_prolog(pkg_sys,['compile-file','$STRING'("wam-cl-init-30")])
484:- f_compile_file('$ARRAY'([*], claz_base_character, "wam-cl-init-30"),
485 [],
486 _Ignored).
487/*
488'(load "wam-cl-init2")
489*/
490
491/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:1023 **********************/
492:-lisp_compile_to_prolog(pkg_sys,[quote,[load,'$STRING'("wam-cl-init2")]])
493/*
494'(load "wam-cl-init3")
495*/
496
497/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:1046 **********************/
498:-lisp_compile_to_prolog(pkg_sys,[quote,[load,'$STRING'("wam-cl-init3")]])
499/*
500'(write-line " WAM CommonLisp ")
501*/
502
503/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:1069 **********************/
504:-lisp_compile_to_prolog(pkg_sys,[quote,['write-line','$STRING'(" WAM CommonLisp ")]])
505/*
506'(read-eval-print-loop)
507
508*/
509
510/*********** /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp:1102 **********************/
511:-lisp_compile_to_prolog(pkg_sys,[quote,['read-eval-print-loop']])
512
513%; Total compilation time: 1.115 seconds
514