meta_preds undeclared

Installed packages (38):

i clause_attvars@1.1.118    - An alternate interface to the clause database to allow attributed variables to be asserted
i dictoo@1.1.118            - Dict-like OO Syntax
i each_call_cleanup@1.1.118 - Each Call Redo Setup and Cleanup
i eggdrop@1.1.118           - Hook up to an existing IRC Client called an Eggdrop
i file_scope@1.1.118        - File local scoped efects
i fluxplayer-prolog-engine@0.0.1 - Prolog interface to Slack http://www.slack.com
i gvar_syntax@1.1.118       - Global Variable Syntax
i hook_hybrid@1.1.118       - Hook assert retract call of *specific* predicates
i instant_prolog_docs@1.1.118 - Magically document prolog source files based on predicate and variable naming conventions
i lib_atts@1.1.118          - Common atts.pl interface like https://sicstus.sics.se/sicstus/docs/4.0.0/html/sicstus/lib_002datts.html
i logicmoo_base@1.1.118     - LogicMOO - Extends Prolog Programming to support Dynamic Epistemic Logic (DEL) with Constraints
i logicmoo_experimental@1.1.118 - Various experimental packages - warning: HUGE amount of test data
i logicmoo_nlu@1.1.114      - Various English to Logic Convertors - warning: HUGE amount of test data
i logicmoo_packages@1.1.118 - Various packages - warning: HUGE amount of test data
i logicmoo_planner@1.1.118  - Various PDDLish planners - warning: HUGE amount of test data
i logicmoo_planners@1.1.118 - Various Hybrid HTN Planners speaking PDDLish and OCLh
i logicmoo_utils@1.1.118    - Common predicates used by external Logicmoo Utils and Base
i loop_check@1.1.118        - New simple loop checking
i mpi@1.0                   - Porting of the LAMMPI library of Yap Prolog to SWI-Prolog
i multimodal_dcg@1.1.118    - Reduce floundering of DCGs by constraining and narrowing search
i multivar@1.1.118          - User defined datatypes
i must_trace@1.1.118        - Trace with your eyeballs instead of your fingers
i no_repeats@1.1.118        - New ways to avoid duplicate solutions
i pfc@1.1.118               - Pfc -- a package for forward chaining in Prolog
i predicate_streams@1.1.118 - Implement your own Abstract Predicate Streams
i prologmud@1.1.118         - Online text adventure game - MUD Server
i prologmud_samples@1.1.118 - Online text adventure game - Sample
i s_expression@1.1.118      - Utilities for Handling of S-Expression Lisp/Scheme-Like forms and parsing of KIF, GDL, PDDL, CLIF
i slack_prolog@1.1.118      - Prolog interface to Slack http://www.slack.com
i subclause_expansion@1.1.118 - More use specific versions of term/goal expansion hooks
i tabling_dra@1.1.118       - SWI-Prolog interface to Table-handling procedures for the "dra" interpreter. Written by Feliks Kluzniak at UTD (March 2009)
i transpiler@0.1            - A universal translator for programming languages
i trill@4.1.0               - A tableau probabilistic reasoner in three different versions
i wam_common_lisp@1.1.118   - ANSI Common Lisp implemented in Prolog
i with_open_options@1.1.118 - Utilities to open various objects for read/write
i with_thread_local@1.1.118 - Call a Goal with local assertions
i xlisting@1.1.118          - Selective Interactive Non-Deterministic Tracing
i xlisting_web@1.1.118      - Manipulate and browse prolog runtime over www
:- side_effect(set_opv(sys_set_wam_cl_option,
                       symbol_function,
                       f_sys_set_wam_cl_option)).
% grovelled_source_file_symbols("SET-WAM-CL-OPTION", pkg_sys, sys_set_wam_cl_option, '0pts', f_sys_set_wam_cl_option).
:- side_effect(set_opv(sys_get_wam_cl_option,
                       symbol_function,
                       f_sys_get_wam_cl_option)).
% grovelled_source_file_symbols("GET-WAM-CL-OPTION", pkg_sys, sys_get_wam_cl_option, '0pts', f_sys_get_wam_cl_option).
% grovelled_source_file_symbols("TYPE-OF", pkg_cl, type_of, typ30f, f_type_of).
% grovelled_source_file_symbols("TYPEP", pkg_cl, typep, typ30f, f_typep).
% grovelled_source_file_symbols("CLASS-OF", pkg_cl, class_of, typ30f, f_class_of).
% grovelled_source_file_symbols("MAKE-SYNONYM-STREAM", pkg_cl, make_synonym_stream, streams, f_make_synonym_stream).
% grovelled_source_file_symbols("SUBSEQ", pkg_cl, subseq, s3q, f_subseq).
% grovelled_source_file_symbols("SUBSEQ", pkg_cl, subseq, s3q, f_subseq).
% grovelled_source_file_symbols("SUBST", pkg_cl, subst, s3q, f_subst).
% grovelled_source_file_symbols("REMOVE", pkg_cl, remove, s3q, f_remove).
% grovelled_source_file_symbols("LIST-LENGTH", pkg_cl, list_length, s3q, f_list_length).
% grovelled_source_file_symbols("LENGTH", pkg_cl, length, s3q, f_length).
% grovelled_source_file_symbols("COPY-LIST", pkg_cl, copy_list, s3q, f_copy_list).
% grovelled_source_file_symbols("NCONC", pkg_cl, nconc, s3q, f_nconc).
% grovelled_source_file_symbols("MAPCAR", pkg_cl, mapcar, s3q, f_mapcar).
% grovelled_source_file_symbols("REPLACE", pkg_cl, replace, s3q, f_replace).
% grovelled_source_file_symbols("NREVERSE", pkg_cl, nreverse, s3q, f_nreverse).
% grovelled_source_file_symbols("REVERSE", pkg_cl, reverse, s3q, f_reverse).
% grovelled_source_file_symbols("POSITION-IF-NOT", pkg_cl, position_if_not, s3q, f_position_if_not).
% grovelled_source_file_symbols("POSITION-IF", pkg_cl, position_if, s3q, f_position_if).
% grovelled_source_file_symbols("POSITION", pkg_cl, position, s3q, f_position).
% grovelled_source_file_symbols("SEARCH", pkg_cl, search, s3q, f_search).
% grovelled_source_file_symbols("FIND-IF-NOT", pkg_cl, find_if_not, s3q, f_find_if_not).
% grovelled_source_file_symbols("FIND-IF", pkg_cl, find_if, s3q, f_find_if).
% grovelled_source_file_symbols("FIND", pkg_cl, find, s3q, f_find).
% grovelled_source_file_symbols("MEMBER-IF-NOT", pkg_cl, member_if_not, s3q, f_member_if_not).
% grovelled_source_file_symbols("MEMBER-IF", pkg_cl, member_if, s3q, f_member_if).
% grovelled_source_file_symbols("MEMBER", pkg_cl, member, s3q, f_member).
% grovelled_source_file_symbols("ADJOIN", pkg_cl, adjoin, s3q, f_adjoin).
% grovelled_source_file_symbols("MEMQ", pkg_sys, sys_memq, s3q, f_sys_memq).
:- side_effect(set_opv(sys_make_read_table,
                       symbol_function,
                       f_sys_make_read_table)).
% grovelled_source_file_symbols("MAKE-READ-TABLE", pkg_sys, sys_make_read_table, readtables, f_sys_make_read_table).
% grovelled_source_file_symbols("WRITE-LINE", pkg_cl, write_line, print, f_write_line).
% grovelled_source_file_symbols("TERPRI", pkg_cl, terpri, print, f_terpri).
% grovelled_source_file_symbols("PRINT", pkg_cl, print, print, f_print).
% grovelled_source_file_symbols("PRINC", pkg_cl, princ, print, f_princ).
% grovelled_source_file_symbols("PRIN1", pkg_cl, prin1, print, f_prin1).
% grovelled_source_file_symbols("FORMAT", pkg_cl, format, print, f_format).
% grovelled_source_file_symbols("PROBE-FILE", pkg_cl, probe_file, pathname, f_probe_file).
% grovelled_source_file_symbols("TRUENAME", pkg_cl, truename, pathname, f_truename).
% grovelled_source_file_symbols("COMPILE-FILE-PATHNAME", pkg_cl, compile_file_pathname, pathname, f_compile_file_pathname).
% grovelled_source_file_symbols("MAKE-PATHNAME", pkg_cl, make_pathname, pathname, f_make_pathname).
% grovelled_source_file_symbols("COERCE-TO-FUNCTION", pkg_sys, sys_coerce_to_function, decls, f_sys_coerce_to_function).
% grovelled_source_file_symbols("SPECIAL-OPERATOR-P", pkg_cl, special_operator_p, decls, f_special_operator_p).
% grovelled_source_file_symbols("SPECIAL-OPERATOR-P", pkg_cl, special_operator_p, decls, f_special_operator_p).
:- side_effect(set_opv(divide, symbol_function, f_divide)).
% grovelled_source_file_symbols("DIVIDE", pkg_cl, divide, mth, f_divide).
:- side_effect(set_opv(minus, symbol_function, f_minus)).
% grovelled_source_file_symbols("MINUS", pkg_cl, minus, mth, f_minus).
:- side_effect(set_opv(plus, symbol_function, f_plus)).
% grovelled_source_file_symbols("PLUS", pkg_cl, plus, mth, f_plus).
% grovelled_source_file_symbols("/", pkg_cl, c47, mth, f_c47).
% grovelled_source_file_symbols("-", pkg_cl, c45, mth, f_c45).
% grovelled_source_file_symbols("+", pkg_cl, c43, mth, f_c43).
:- side_effect(set_opv(c43, symbol_function, 'f_+')).
% grovelled_source_file_symbols("+", pkg_cl, c43, mth, 'f_+').
% grovelled_source_file_symbols("FROUND", pkg_cl, fround, mth, f_fround).
% grovelled_source_file_symbols("FFLOOR", pkg_cl, ffloor, mth, f_ffloor).
% grovelled_source_file_symbols("FCEILING", pkg_cl, fceiling, mth, f_fceiling).
% grovelled_source_file_symbols("FTRUNCATE", pkg_cl, ftruncate, mth, f_ftruncate).
% grovelled_source_file_symbols("ROUND", pkg_cl, round, mth, f_round).
% grovelled_source_file_symbols("TRUNCATE", pkg_cl, truncate, mth, f_truncate).
% grovelled_source_file_symbols("FLOOR", pkg_cl, floor, mth, f_floor).
% grovelled_source_file_symbols("CEILING", pkg_cl, ceiling, mth, f_ceiling).
% grovelled_source_file_symbols("RANDOM-POSFIXNUM", pkg_sys, sys_random_posfixnum, mth, f_sys_random_posfixnum).
% grovelled_source_file_symbols("EXPT", pkg_cl, expt, mth, f_expt).
% grovelled_source_file_symbols("EXP", pkg_cl, exp, mth, f_exp).
% grovelled_source_file_symbols("SQRT", pkg_cl, sqrt, mth, f_sqrt).
% grovelled_source_file_symbols(">", pkg_cl, c62, mth, f_c62).
% grovelled_source_file_symbols("<", pkg_cl, c60, mth, f_c60).
% grovelled_source_file_symbols(">=", pkg_cl, c62_c61, mth, f_c62_c61).
% grovelled_source_file_symbols("<=", pkg_cl, c60_c61, mth, f_c60_c61).
% grovelled_source_file_symbols("=", pkg_cl, c61, mth, f_c61).
% grovelled_source_file_symbols("MIN", pkg_cl, min, mth, f_min).
% grovelled_source_file_symbols("MAX", pkg_cl, max, mth, f_max).
% grovelled_source_file_symbols("HASH-TABLE-ITERATOR-FUNCTION", pkg_sys, sys_hash_table_iterator_function, hashts, f_sys_hash_table_iterator_function).
% grovelled_source_file_symbols("HASH-TABLE-COUNT", pkg_cl, hash_table_count, hashts, f_hash_table_count).
:- side_effect(set_opv(with_hash_table_iterator,
                       symbol_function,
                       sf_with_hash_table_iterator)).
% grovelled_source_file_symbols("WITH-HASH-TABLE-ITERATOR", pkg_cl, with_hash_table_iterator, hashts, sf_with_hash_table_iterator).
:- side_effect(set_opv(sys_maphash_iter, symbol_function, f_sys_maphash_iter)).
% grovelled_source_file_symbols("MAPHASH-ITER", pkg_sys, sys_maphash_iter, hashts, f_sys_maphash_iter).
% grovelled_source_file_symbols("MAPHASH", pkg_cl, maphash, hashts, f_maphash).
% grovelled_source_file_symbols("CLRHASH", pkg_cl, clrhash, hashts, f_clrhash).
% grovelled_source_file_symbols("REMHASH", pkg_cl, remhash, hashts, f_remhash).
% grovelled_source_file_symbols("PUTHASH", pkg_sys, sys_puthash, hashts, f_sys_puthash).
% grovelled_source_file_symbols("GETHASH", pkg_cl, gethash, hashts, f_gethash).
% grovelled_source_file_symbols("GETHASH", pkg_cl, gethash, hashts, f_gethash).
% grovelled_source_file_symbols("MAKE-HASH-TABLE", pkg_cl, make_hash_table, hashts, f_make_hash_table).
% grovelled_source_file_symbols("HASH-TABLE-TEST", pkg_cl, hash_table_test, hashts, f_hash_table_test).
% grovelled_source_file_symbols("HASH-TABLE-P", pkg_cl, hash_table_p, hashts, f_hash_table_p).
% grovelled_source_file_symbols("LABELS", pkg_cl, labels, fn, sf_labels).
% grovelled_source_file_symbols("FLET", pkg_cl, flet, fn, sf_flet).
:- side_effect(set_opv(defun, symbol_function, sf_defun)).
% grovelled_source_file_symbols("DEFUN", pkg_cl, defun, fn, sf_defun).
:- side_effect(set_opv(sys_env_eval, symbol_function, f_sys_env_eval)).
% grovelled_source_file_symbols("ENV-EVAL", pkg_sys, sys_env_eval, funcall, f_sys_env_eval).
% grovelled_source_file_symbols("APPLY", pkg_cl, apply, funcall, f_apply).
% grovelled_source_file_symbols("FUNCALL", pkg_cl, funcall, funcall, f_funcall).
% grovelled_source_file_symbols("EVAL", pkg_cl, eval, funcall, f_eval).
% grovelled_source_file_symbols("PROVIDE", pkg_cl, provide, loadfile, f_provide).
% grovelled_source_file_symbols("REQUIRE", pkg_cl, require, loadfile, f_require).
% grovelled_source_file_symbols("LOAD", pkg_cl, load, loadfile, f_load).
% grovelled_source_file_symbols("LOAD", pkg_cl, load, loadfile, f_load).
% grovelled_source_file_symbols("LOAD", pkg_cl, load, loadfile, f_load).
% grovelled_source_file_symbols("COMPILE-FILE", pkg_cl, compile_file, loadfile, f_compile_file).
% grovelled_source_file_symbols("COMPILE-FILE", pkg_cl, compile_file, loadfile, f_compile_file).
% grovelled_source_file_symbols("COMPILE-FILE", pkg_cl, compile_file, loadfile, f_compile_file).
:- side_effect(set_opv(compile_file_mask, symbol_function, f_compile_file_mask)).
% grovelled_source_file_symbols("COMPILE-FILE-MASK", pkg_cl, compile_file_mask, loadfile, f_compile_file_mask).
:- side_effect(set_opv(sys_apropos_symbol,
                       symbol_function,
                       f_sys_apropos_symbol)).
% grovelled_source_file_symbols("APROPOS-SYMBOL", pkg_sys, sys_apropos_symbol, docs, f_sys_apropos_symbol).
:- side_effect(set_opv(sys_apropos_do_syms,
                       symbol_function,
                       f_sys_apropos_do_syms)).
% grovelled_source_file_symbols("APROPOS-DO-SYMS", pkg_sys, sys_apropos_do_syms, docs, f_sys_apropos_do_syms).
% grovelled_source_file_symbols("APROPOS", pkg_cl, apropos, docs, f_apropos).
% grovelled_source_file_symbols("APROPOS-LIST", pkg_cl, apropos_list, docs, f_apropos_list).
% grovelled_source_file_symbols("ERROR", pkg_cl, error, errs, f_error).
% grovelled_source_file_symbols("LCOMPILEN", pkg_sys, sys_lcompilen, comp, f_sys_lcompilen).
% grovelled_source_file_symbols("LCOMPILE", pkg_sys, sys_lcompile, comp, f_sys_lcompile).
:- side_effect(set_opv(sys_insertf_list_value,
                       symbol_function,
                       f_sys_insertf_list_value)).
% grovelled_source_file_symbols("INSERTF-LIST-VALUE", pkg_sys, sys_insertf_list_value, comp, f_sys_insertf_list_value).
:- side_effect(set_opv(sys_removef_list_value,
                       symbol_function,
                       f_sys_removef_list_value)).
% grovelled_source_file_symbols("REMOVEF-LIST-VALUE", pkg_sys, sys_removef_list_value, comp, f_sys_removef_list_value).
% grovelled_source_file_symbols("BREAK", pkg_cl, break, callp, f_break).
:- side_effect(set_opv(sys_rtrace, symbol_function, f_sys_rtrace)).
% grovelled_source_file_symbols("RTRACE", pkg_sys, sys_rtrace, callp, f_sys_rtrace).
% grovelled_source_file_symbols("RTRACE", pkg_sys, sys_rtrace, callp, f_sys_rtrace).
:- side_effect(set_opv(trace, symbol_function, f_trace)).
% grovelled_source_file_symbols("TRACE", pkg_cl, trace, cl, f_trace).
% grovelled_source_file_symbols("VALUES-LIST", pkg_cl, values_list, body, f_values_list).
:- side_effect(set_opv(dolist, symbol_function, f_dolist)).
% grovelled_source_file_symbols("DOLIST", pkg_cl, dolist, body, f_dolist).
% grovelled_source_file_symbols("VECTOR", pkg_cl, vector, aray, f_vector).
% grovelled_source_file_symbols("MAKE-ARRAY", pkg_cl, make_array, aray, f_make_array).
% grovelled_source_file_symbols("MAKE-ARRAY", pkg_cl, make_array, aray, f_make_array).
% grovelled_source_file_symbols("AREF", pkg_cl, aref, aray, f_aref).
% grovelled_source_file_symbols("ARRAY-DIMENSION", pkg_cl, array_dimension, aray, f_array_dimension).
% grovelled_source_file_symbols("ARRAY-DIMENSIONS", pkg_cl, array_dimensions, aray, f_array_dimensions).
% grovelled_source_file_symbols("ADJUSTABLE-ARRAY-P", pkg_cl, adjustable_array_p, aray, f_adjustable_array_p).
% grovelled_source_file_symbols("CAAADR", pkg_cl, caaadr, c0nz, f_caaadr).
% grovelled_source_file_symbols("CDDDDR", pkg_cl, cddddr, c0nz, f_cddddr).
% grovelled_source_file_symbols("CDDAR", pkg_cl, cddar, c0nz, f_cddar).
% grovelled_source_file_symbols("CDDDR", pkg_cl, cdddr, c0nz, f_cdddr).
% grovelled_source_file_symbols("CADDR", pkg_cl, caddr, c0nz, f_caddr).
% grovelled_source_file_symbols("CAADR", pkg_cl, caadr, c0nz, f_caadr).
% grovelled_source_file_symbols("CDADR", pkg_cl, cdadr, c0nz, f_cdadr).
% grovelled_source_file_symbols("CADAR", pkg_cl, cadar, c0nz, f_cadar).
% grovelled_source_file_symbols("CDAAR", pkg_cl, cdaar, c0nz, f_cdaar).
% grovelled_source_file_symbols("CAAAR", pkg_cl, caaar, c0nz, f_caaar).
% grovelled_source_file_symbols("CAAR", pkg_cl, caar, c0nz, f_caar).
% grovelled_source_file_symbols("CDAR", pkg_cl, cdar, c0nz, f_cdar).
% grovelled_source_file_symbols("CDDR", pkg_cl, cddr, c0nz, f_cddr).
:- side_effect(set_opv(last_1, symbol_function, f_last_1)).
% grovelled_source_file_symbols("LAST-1", pkg_cl, last_1, c0nz, f_last_1).
:- side_effect(set_opv(last_0, symbol_function, f_last_0)).
% grovelled_source_file_symbols("LAST-0", pkg_cl, last_0, c0nz, f_last_0).
% grovelled_source_file_symbols("LAST", pkg_cl, last, c0nz, f_last).
% grovelled_source_file_symbols("CADR", pkg_cl, cadr, c0nz, f_cadr).
% grovelled_source_file_symbols("PF-CADR", pkg_sys, sys_pf_cadr, c0nz, f_sys_pf_cadr).
% grovelled_source_file_symbols("SECOND", pkg_cl, second, c0nz, f_second).
% grovelled_source_file_symbols("ASSOC", pkg_cl, assoc, c0nz, f_assoc).
% grovelled_source_file_symbols("RASSOC", pkg_cl, rassoc, c0nz, f_rassoc).
% grovelled_source_file_symbols("ACONS", pkg_cl, acons, c0nz, f_acons).
% grovelled_source_file_symbols("COPY-ALIST", pkg_cl, copy_alist, c0nz, f_copy_alist).
% grovelled_source_file_symbols("SET-CDR", pkg_sys, sys_set_cdr, c0nz, f_sys_set_cdr).
% grovelled_source_file_symbols("RPLACD", pkg_cl, rplacd, c0nz, f_rplacd).
% grovelled_source_file_symbols("SET-CAR", pkg_sys, sys_set_car, c0nz, f_sys_set_car).
% grovelled_source_file_symbols("RPLACA", pkg_cl, rplaca, c0nz, f_rplaca).
:- side_effect(set_opv(u_pf_cddr, symbol_function, f_u_pf_cddr)).
% grovelled_source_file_symbols("PF-CDDR", pkg_user, u_pf_cddr, c0nz, f_u_pf_cddr).
% grovelled_source_file_symbols("CDR", pkg_cl, cdr, c0nz, f_cdr).
:- side_effect(set_opv(u_pf_cdr, symbol_function, f_u_pf_cdr)).
% grovelled_source_file_symbols("PF-CDR", pkg_user, u_pf_cdr, c0nz, f_u_pf_cdr).
% grovelled_source_file_symbols("PF-CDR", pkg_sys, sys_pf_cdr, c0nz, f_sys_pf_cdr).
% grovelled_source_file_symbols("CAR", pkg_cl, car, c0nz, f_car).
% grovelled_source_file_symbols("FIRST", pkg_cl, first, c0nz, f_first).
% grovelled_source_file_symbols("PF-CAR", pkg_sys, sys_pf_car, c0nz, f_sys_pf_car).
% grovelled_source_file_symbols("LIST", pkg_cl, list, c0nz, f_list).
% grovelled_source_file_symbols("APPEND", pkg_cl, append, c0nz, f_append).
% grovelled_source_file_symbols("CONS", pkg_cl, cons, c0nz, f_cons).
% grovelled_source_file_symbols("ATOM", pkg_cl, atom, c0nz, f_atom).
% grovelled_source_file_symbols("NULL", pkg_cl, null, c0nz, f_null).
:- side_effect(set_opv(set_nthcdr, symbol_function, f_set_nthcdr)).
% grovelled_source_file_symbols("SET-NTHCDR", pkg_cl, set_nthcdr, c0nz, f_set_nthcdr).
% grovelled_source_file_symbols("NTHCDR", pkg_cl, nthcdr, c0nz, f_nthcdr).
% grovelled_source_file_symbols("ELT", pkg_cl, elt, c0nz, f_elt).
% grovelled_source_file_symbols("NTH", pkg_cl, nth, c0nz, f_nth).
% grovelled_source_file_symbols("QUIT", pkg_sys, sys_quit, eq4l1y, f_sys_quit).
% grovelled_source_file_symbols("EQUALP", pkg_cl, equalp, eq4l1y, f_equalp).
% grovelled_source_file_symbols("EQUAL", pkg_cl, equal, eq4l1y, f_equal).
% grovelled_source_file_symbols("EQL", pkg_cl, eql, eq4l1y, f_eql).
% grovelled_source_file_symbols("EQ", pkg_cl, eq, eq4l1y, f_eq).
% grovelled_source_file_symbols("NOT", pkg_cl, not, eq4l1y, f_not).
% grovelled_source_file_symbols("READ", pkg_cl, read, r3d3rz, f_read).
% grovelled_source_file_symbols("READ", pkg_cl, read, r3d3rz, f_read).
:- side_effect(set_opv(defparameter, symbol_function, sf_defparameter)).
% grovelled_source_file_symbols("DEFPARAMETER", pkg_cl, defparameter, v4rZ, sf_defparameter).
:- side_effect(set_opv(sys_put_sysprop, symbol_function, f_sys_put_sysprop)).
% grovelled_source_file_symbols("PUT-SYSPROP", pkg_sys, sys_put_sysprop, symbol, f_sys_put_sysprop).
:- side_effect(set_opv(sys_get_sysprop, symbol_function, f_sys_get_sysprop)).
% grovelled_source_file_symbols("GET-SYSPROP", pkg_sys, sys_get_sysprop, symbol, f_sys_get_sysprop).
% grovelled_source_file_symbols("GETF", pkg_cl, getf, symbol, f_getf).
% grovelled_source_file_symbols("PUT", pkg_sys, sys_put, symbol, f_sys_put).
:- side_effect(set_opv(sys_putprop, symbol_function, f_sys_putprop)).
% grovelled_source_file_symbols("PUTPROP", pkg_sys, sys_putprop, symbol, f_sys_putprop).
% grovelled_source_file_symbols("GET", pkg_cl, get, symbol, f_get).
% grovelled_source_file_symbols("SYMBOL-PLIST", pkg_cl, symbol_plist, symbol, f_symbol_plist).
% grovelled_source_file_symbols("MAKE-SYMBOL", pkg_cl, make_symbol, symbol, f_make_symbol).
% grovelled_source_file_symbols("MAKE-SYMBOL", pkg_cl, make_symbol, symbol, f_make_symbol).
% grovelled_source_file_symbols("UNINTERN", pkg_cl, unintern, symbol, f_unintern).
% grovelled_source_file_symbols("UNINTERN", pkg_cl, unintern, symbol, f_unintern).
% grovelled_source_file_symbols("INTERN", pkg_cl, intern, symbol, f_intern).
% grovelled_source_file_symbols("INTERN", pkg_cl, intern, symbol, f_intern).
% grovelled_source_file_symbols("FIND-SYMBOL", pkg_cl, find_symbol, symbol, f_find_symbol).
% grovelled_source_file_symbols("FIND-SYMBOL", pkg_cl, find_symbol, symbol, f_find_symbol).
% grovelled_source_file_symbols("GENTEMP", pkg_cl, gentemp, symbol, f_gentemp).
% grovelled_source_file_symbols("GENTEMP", pkg_cl, gentemp, symbol, f_gentemp).
% grovelled_source_file_symbols("GENTEMP", pkg_cl, gentemp, symbol, f_gentemp).
% grovelled_source_file_symbols("GENSYM", pkg_cl, gensym, symbol, f_gensym).
% grovelled_source_file_symbols("GENSYM", pkg_cl, gensym, symbol, f_gensym).
% grovelled_source_file_symbols("SET", pkg_cl, set, symbol, f_set).
% grovelled_source_file_symbols("SET-SYMBOL-VALUE", pkg_sys, sys_set_symbol_value, symbol, f_sys_set_symbol_value).
% grovelled_source_file_symbols("SET-SYMBOL-VALUE", pkg_sys, sys_set_symbol_value, symbol, f_sys_set_symbol_value).
:- side_effect(set_opv(sys_set_symbol_function,
                       symbol_function,
                       f_sys_set_symbol_function)).
% grovelled_source_file_symbols("SET-SYMBOL-FUNCTION", pkg_sys, sys_set_symbol_function, symbol, f_sys_set_symbol_function).
% grovelled_source_file_symbols("SYMBOL-FUNCTION", pkg_cl, symbol_function, symbol, f_symbol_function).
% grovelled_source_file_symbols("SYMBOL-VALUE", pkg_cl, symbol_value, symbol, f_symbol_value).
% grovelled_source_file_symbols("SYMBOL-PACKAGE", pkg_cl, symbol_package, symbol, f_symbol_package).
% grovelled_source_file_symbols("SYMBOL-NAME", pkg_cl, symbol_name, symbol, f_symbol_name).
% grovelled_source_file_symbols("MACRO-FUNCTION", pkg_cl, macro_function, macr, f_macro_function).
:- side_effect(set_opv(sys_set_symbol_macro,
                       symbol_function,
                       f_sys_set_symbol_macro)).
% grovelled_source_file_symbols("SET-SYMBOL-MACRO", pkg_sys, sys_set_symbol_macro, macr, f_sys_set_symbol_macro).
:- side_effect(set_opv(sys_set_symbol_macro_function,
                       symbol_function,
                       f_sys_set_symbol_macro_function)).
% grovelled_source_file_symbols("SET-SYMBOL-MACRO-FUNCTION", pkg_sys, sys_set_symbol_macro_function, macr, f_sys_set_symbol_macro_function).
:- side_effect(set_opv(sys_pf_symbol_macroexpand,
                       symbol_function,
                       f_sys_pf_symbol_macroexpand)).
% grovelled_source_file_symbols("PF-SYMBOL-MACROEXPAND", pkg_sys, sys_pf_symbol_macroexpand, macr, f_sys_pf_symbol_macroexpand).
% grovelled_source_file_symbols("MACROEXPAND", pkg_cl, macroexpand, macr, f_macroexpand).
% grovelled_source_file_symbols("MACROEXPAND-1", pkg_cl, macroexpand_1, macr, f_macroexpand_1).
:- side_effect(set_opv(macrolet, symbol_function, mf_macrolet)).
% grovelled_source_file_symbols("MACROLET", pkg_cl, macrolet, macr, mf_macrolet).
:- side_effect(set_opv(defmacro, symbol_function, sf_defmacro)).
% grovelled_source_file_symbols("DEFMACRO", pkg_cl, defmacro, macr, sf_defmacro).
% grovelled_source_file_symbols("CLASS-NAME", pkg_cl, class_name, soops, f_class_name).
:- side_effect(set_opv(sys_to_pvs, symbol_function, f_sys_to_pvs)).
% grovelled_source_file_symbols("TO-PVS", pkg_sys, sys_to_pvs, soops, f_sys_to_pvs).
:- side_effect(set_opv(sys_set_opv, symbol_function, f_sys_set_opv)).
% grovelled_source_file_symbols("SET-OPV", pkg_sys, sys_set_opv, soops, f_sys_set_opv).
:- side_effect(set_opv(sys_get_opv, symbol_function, f_sys_get_opv)).
% grovelled_source_file_symbols("GET-OPV", pkg_sys, sys_get_opv, soops, f_sys_get_opv).
:- side_effect(set_opv(sys_get_iprops, symbol_function, f_sys_get_iprops)).
% grovelled_source_file_symbols("GET-IPROPS", pkg_sys, sys_get_iprops, soops, f_sys_get_iprops).
% grovelled_source_file_symbols("CLASS-PRECEDENCE-LIST", pkg_sys, sys_class_precedence_list, soops, f_sys_class_precedence_list).
% grovelled_source_file_symbols("CLASS-DIRECT-SUPERCLASSES", pkg_sys, sys_class_direct_superclasses, soops, f_sys_class_direct_superclasses).
:- side_effect(set_opv(defclass, symbol_function, sf_defclass)).
% grovelled_source_file_symbols("DEFCLASS", pkg_cl, defclass, soops, sf_defclass).
:- side_effect(set_opv(defstruct, symbol_function, sf_defstruct)).
% grovelled_source_file_symbols("DEFSTRUCT", pkg_cl, defstruct, soops, sf_defstruct).
% grovelled_source_file_symbols("SLOT-VALUE", pkg_cl, slot_value, soops, f_slot_value).
% grovelled_source_file_symbols("SLOT-EXISTS-P", pkg_cl, slot_exists_p, soops, f_slot_exists_p).
% grovelled_source_file_symbols("FIND-CLASS", pkg_cl, find_class, soops, f_find_class).
% grovelled_source_file_symbols("PF-SET-SLOT-VALUE", pkg_sys, sys_pf_set_slot_value, soops, f_sys_pf_set_slot_value).
% grovelled_source_file_symbols("MAKE-INSTANCE", pkg_cl, make_instance, soops, f_make_instance).
% grovelled_source_file_symbols("SHADOW", pkg_cl, shadow, package, f_shadow).
% grovelled_source_file_symbols("SHADOW", pkg_cl, shadow, package, f_shadow).
% grovelled_source_file_symbols("UNEXPORT", pkg_cl, unexport, package, f_unexport).
% grovelled_source_file_symbols("UNEXPORT", pkg_cl, unexport, package, f_unexport).
% grovelled_source_file_symbols("EXPORT", pkg_cl, export, package, f_export).
% grovelled_source_file_symbols("EXPORT", pkg_cl, export, package, f_export).
% grovelled_source_file_symbols("IMPORT", pkg_cl, import, package, f_import).
% grovelled_source_file_symbols("IMPORT", pkg_cl, import, package, f_import).
% grovelled_source_file_symbols("PACKAGE-NAME", pkg_cl, package_name, package, f_package_name).
% grovelled_source_file_symbols("FIND-PACKAGE", pkg_cl, find_package, package, f_find_package).
% grovelled_source_file_symbols("MAKE-PACKAGE", pkg_cl, make_package, package, f_make_package).
:- side_effect(set_opv(defpackage, symbol_function, sf_defpackage)).
% grovelled_source_file_symbols("DEFPACKAGE", pkg_cl, defpackage, package, sf_defpackage).
% grovelled_source_file_symbols("USE-PACKAGE", pkg_cl, use_package, package, f_use_package).
% grovelled_source_file_symbols("USE-PACKAGE", pkg_cl, use_package, package, f_use_package).
:- side_effect(set_opv(sys_select_package,
                       symbol_function,
                       f_sys_select_package)).
% grovelled_source_file_symbols("SELECT-PACKAGE", pkg_sys, sys_select_package, package, f_sys_select_package).
% grovelled_source_file_symbols("LIST-ALL-PACKAGES", pkg_cl, list_all_packages, package, f_list_all_packages).
% grovelled_source_file_symbols("DEFKNOWN", pkg_sys, sys_defknown, evil, sf_sys_defknown).
:- side_effect(set_opv(defsetf, symbol_function, sf_defsetf)).
% grovelled_source_file_symbols("DEFSETF", pkg_cl, defsetf, evil, sf_defsetf).
% grovelled_source_file_symbols("DEFTYPE", pkg_cl, deftype, evil, sf_deftype).
% grovelled_source_file_symbols("PROCLAMATION", pkg_sys, sys_proclamation, evil, sf_sys_proclamation).
% grovelled_source_file_symbols("PSXHASH", pkg_sys, sys_psxhash, evil, f_sys_psxhash).
% grovelled_source_file_symbols("SXHASH", pkg_cl, sxhash, evil, f_sxhash).
:- side_effect(set_opv(proclaim, symbol_function, sf_proclaim)).
% grovelled_source_file_symbols("PROCLAIM", pkg_cl, proclaim, evil, sf_proclaim).
:- side_effect(set_opv(declare, symbol_function, sf_declare)).
% grovelled_source_file_symbols("DECLARE", pkg_cl, declare, evil, sf_declare).
% grovelled_source_file_symbols("SETF-FUNCTION-NAME-P", pkg_sys, sys_setf_function_name_p, places, f_sys_setf_function_name_p).
:- side_effect(set_opv(push, symbol_function, f_push)).
% grovelled_source_file_symbols("PUSH", pkg_cl, push, places, f_push).
:- side_effect(set_opv(sys_set_rslot, symbol_function, f_sys_set_rslot)).
% grovelled_source_file_symbols("SET-RSLOT", pkg_sys, sys_set_rslot, places, f_sys_set_rslot).
% grovelled_source_file_symbols("GET-SETF-METHOD", pkg_sys, sys_get_setf_method, places, f_sys_get_setf_method).
% grovelled_source_file_symbols("SETF-STRUCTURE-ACCESS", pkg_sys, sys_setf_structure_access, places, f_sys_setf_structure_access).
% grovelled_source_file_symbols("GET-SETF-METHOD-MULTIPLE-VALUE", pkg_sys, sys_get_setf_method_multiple_value, places, f_sys_get_setf_method_multiple_value).
% grovelled_source_file_symbols("SETF", pkg_cl, setf, places, mf_setf).
% grovelled_source_file_symbols("DECF", pkg_cl, decf, places, mf_decf).
% grovelled_source_file_symbols("INCF", pkg_cl, incf, places, mf_incf).
% grovelled_source_file_symbols("POP", pkg_cl, pop, places, mf_pop).
% grovelled_source_file_symbols("PUSHNEW", pkg_cl, pushnew, places, mf_pushnew).
:- side_effect(set_opv(pushnew, symbol_function, sf_pushnew)).
% grovelled_source_file_symbols("PUSHNEW", pkg_cl, pushnew, places, sf_pushnew).
:- side_effect(set_opv(push, symbol_function, mf_push)).
% grovelled_source_file_symbols("PUSH", pkg_cl, push, places, mf_push).
% grovelled_source_file_symbols("ROTATEF", pkg_cl, rotatef, places, mf_rotatef).
% grovelled_source_file_symbols("SHIFTF", pkg_cl, shiftf, places, mf_shiftf).
% grovelled_source_file_symbols("GET-SETF-EXPANSION", pkg_cl, get_setf_expansion, places, f_get_setf_expansion).
% grovelled_source_file_symbols("EXPAND-OR-GET-SETF-INVERSE", pkg_sys, sys_expand_or_get_setf_inverse, places, f_sys_expand_or_get_setf_inverse).
% grovelled_source_file_symbols("GET-SETF-METHOD-INVERSE", pkg_sys, sys_get_setf_method_inverse, places, f_sys_get_setf_method_inverse).
:- side_effect(set_opv(u_is, symbol_function, mf_u_is)).
% grovelled_source_file_symbols("IS", pkg_user, u_is, tests, mf_u_is).
:- side_effect(set_opv(u_is, symbol_function, sf_u_is)).
% grovelled_source_file_symbols("IS", pkg_user, u_is, tests, sf_u_is).

__        ___    __  __        ____ _
\ \      / / \  |  \/  |      / ___| |
 \ \ /\ / / _ \ | |\/| |_____| |   | |
  \ V  V / ___ \| |  | |_____| |___| |___
   \_/\_/_/   \_\_|  |_|      \____|_____|

Common Lisp, written in Prolog
```
```cl
CL-USER> #'if
```
```prolog
:- lisp_compiled_eval(function(if)).
## COMPILER
% 1,241 inferences, 0.000 CPU in 0.000 seconds (99% CPU, 3138165 Lips)
## EXEC
% 30 inferences, 0.000 CPU in 0.000 seconds (94% CPU, 2151617 Lips)
sf_if
```
```cl
CL-USER> #'function
```
```prolog
:- lisp_compiled_eval(function(function)).
## COMPILER
% 1,168 inferences, 0.000 CPU in 0.000 seconds (99% CPU, 3136210 Lips)
## EXEC
% 30 inferences, 0.000 CPU in 0.000 seconds (91% CPU, 2118943 Lips)
sf_function
```
```cl
CL-USER> make.
```
```prolog
% Found new meta-predicates in iteration 1 (0.235 sec)
% :- meta_predicate string:index_of_first_success(*,2,*,*,*).
% :- meta_predicate string:index_of_first_failure(*,2,*,*,*).
% :- meta_predicate env:ct(3,?,?,?).
% :- meta_predicate kp4rms:not_fn(1,?).
% :- meta_predicate kp4rms:not_fn(2,?,?).
% :- meta_predicate kp4rms:apply_as_pred(4,?,?,?).
% :- meta_predicate kp4rms:function(2,?,?).
% :- meta_predicate kp4rms:apply_as_pred(3,?,?).
% :- meta_predicate kp4rms:apply_as_pred(2,?).
% :- meta_predicate kp4rms:not_fn(3,?,?,?).
% :- meta_predicate in1t:set_interactive(0).
% :- meta_predicate eq4l1y:t_or_nil(0,*).
% :- meta_predicate loadfile:lisp_grovel(0).
% :- meta_predicate loadfile:with_each_form(1,*).
% :- meta_predicate docs:note_if_matches(*,*,0).
% :- meta_predicate os7r33M:on_first_write_old_goal(*,0,*,*).
% :- meta_predicate os7r33M:in_md2(*,0).
% :- meta_predicate os7r33M:split_user_output_to_file(*,0).
% :- meta_predicate os7r33M:ansicall_maybe(*,0).
% :- meta_predicate os7r33M:show_call_trace(0).
% :- meta_predicate os7r33M:dnotrace(0).
% :- meta_predicate os7r33M:both_outputs(0).
% :- meta_predicate os7r33M:in_md(*,0).
% :- meta_predicate os7r33M:in_comment(0).
% :- meta_predicate sxpr:notrace_catch_fail(0,?,0).
% :- meta_predicate sxpr:call_proc(1,?).
% :- meta_predicate sxpr:with_rest_info(1).
% :- meta_predicate sxpr:track_stream(*,0).
% :- meta_predicate sxpr:quietly_sreader(0).
% :- meta_predicate sxpr:notrace_catch_fail(0).
% :- meta_predicate sxpr:remove_optional_char(//,?,?).
% :- meta_predicate sxpr:expr_with_comments(*,2,*,*,*).
% :- meta_predicate sxpr:sexpr_dcgUnless(//,?,?).
% :- meta_predicate sxpr:read_string_until_pairs(*,//,?,?).
% :- meta_predicate sxpr:sexpr_dcgPeek(//,?,?).
% :- meta_predicate sxpr:dcg_phrase(//,?,?).
% :- meta_predicate sxpr:phrase_from_stream_lazy_part(//,*).
% :- meta_predicate sxpr:phrase_from_pending_stream(*,//,*).
% :- meta_predicate sxpr:sexpr_vector0(*,//,?,?).
% :- meta_predicate pathname:or_nil(0).
% :- meta_predicate pathname:or_die(0).
% :- meta_predicate readtables:rewrite_some(2,*,*).
% Restarting analysis ...
% Found new meta-predicates in iteration 2 (0.132 sec)
% :- meta_predicate env:update_lst_or_prepend(3,*,*,*).
% :- meta_predicate env:set_el(3,?,*,*).
% :- meta_predicate env:update_el_tail_or_append(3,?,*,?,?).
% :- meta_predicate env:update_el_or_append(3,?,*,*,*).
% :- meta_predicate env:push_lst_append(3,?,*,*).
% :- meta_predicate env:push_el_append(3,?,*,*,*).
% :- meta_predicate env:update_lst_or_append(3,?,*,?).
% :- meta_predicate env:push_list_prepend(3,?,*,*).
% :- meta_predicate kp4rms:function(*,2,?,?).
% :- meta_predicate kp4rms:call_as_ident(2,?,?).
% :- meta_predicate in1t:imply_interactive(0).
% :- meta_predicate sxpr:dcg_and2(//,//,?,?).
% :- meta_predicate sxpr:bx(0).
% :- meta_predicate sxpr:dcg_not(//,?,?).
% :- meta_predicate sxpr:phrase_from_pending_stream(//,*).
% :- meta_predicate sxpr:phrase_from_stream_part_seekable(//,*).
% Restarting analysis ...
% Found new meta-predicates in iteration 3 (0.126 sec)
% :- meta_predicate env:update_or_append(3,*,*,*).
% :- meta_predicate env:update_or_prepend(3,*,*,*).
% :- meta_predicate env:push_prepend(3,?,*,*).
% :- meta_predicate env:push_append(3,*,*,*).
% :- meta_predicate env:push_le_prepend(3,?,*,*,*).
% :- meta_predicate kp4rms:xform_with_ident(*,2,*).
% Restarting analysis ...
:- was_info(yes(make)).
T
```
```cl
CL-USER>