resync

logicmoo · Oct 24, 2018 · 8841796 · 8841796
1 parent 9f9444a
commit 8841796
Show file tree

Hide file tree

Showing 9 changed files with 8,780 additions and 16,652 deletions.
diff --git a/prolog/wam_cl/compile.pl b/prolog/wam_cl/compile.pl
@@ -18,7 +18,8 @@
 :- module(comp, []).
 :- set_module(class(library)).
 :- include('./header').
-:- use_module(library(pce)).
+
+% :- use_module(library(pce)).
 
 lisp_eval(SExpression):- lisp_compiled_eval(SExpression),!.
 

diff --git a/prolog/wam_cl/soops.pl b/prolog/wam_cl/soops.pl
@@ -579,9 +579,16 @@
 personal_props(sys_initialized).
 
 
+wl:init_args(x,sys_show_iprops).
+wl:interned_eval('`sys:show-iprops').
+f_sys_show_iprops(Obj,Result):- nonvar(Obj),findall([Prop|Value],get_opv_i(Obj,Prop,Value),ResultL),
+  wdmsg(ResultL),
+  list_to_set(ResultL,Result).
+
 wl:init_args(x,sys_get_iprops).
 wl:interned_eval('`sys:get-iprops').
 f_sys_get_iprops(Obj,Result):- nonvar(Obj),findall([Prop|Value],get_opv_i(Obj,Prop,Value),ResultL),list_to_set(ResultL,Result).
+
 wl:init_args(x,sys_get_opv).
 wl:interned_eval('`sys:get-opv').
 f_sys_get_opv(Obj,Prop,Value):- get_opv(Obj,Prop,Value).
@@ -932,6 +939,7 @@
 
 add_slot_def_props(N,Kind,SlotSym,MoreInfo):-
    always((gen_slot_name('',Kind,SlotSym,ZLOT),
+     wdmsg(assert_struct_opv4(Kind,name,SlotSym,ZLOT)),
      assert_struct_opv4(Kind,name,SlotSym,ZLOT), 
    to_prolog_string_anyways(SlotSym,SName),