1#!/usr/bin/env swipl
    2%; WAM-CL translated Lisp File (see https://github.com/logicmoo/wam_common_lisp/tree/master/prolog/wam_cl )
    3%; File: "wam-cl-init" (/home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/wam-cl-init.lisp)
    4%; PWD: /home/dmiles/logicmoo_workspace/packs_usr/wam_common_lisp/prolog/wam_cl/
    5%; Start time: Mon Jan 22 00:41:59 2018
    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
  166/*
  167
  168### Compiled Function: `SYS::DD` 
  169*/
  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
  280/*
  281
  282### Compiled Function: `SYS::SHOW-ASCII-ART` 
  283*/
  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