Roxen.git / server / modules / tags / lisp.pike

version» Context lines:

Roxen.git/server/modules/tags/lisp.pike:1:   #define error(X) throw( ({ (X), backtrace() }) ) - constant cvs_version = "$Id: lisp.pike,v 1.9 1998/05/18 22:02:03 per Exp $"; + constant cvs_version = "$Id: lisp.pike,v 1.10 1998/08/10 21:39:38 per Exp $";      #include <module.h>   inherit "module";      constant thread_safe=1;      array register_module()   {    return ({ MODULE_PARSER, "Lisp tag module",    "This module defines a new tag, "
Roxen.git/server/modules/tags/lisp.pike:214:    lisp_code[s] = o;    return o;   }      string tag_lisp(string t, mapping m, string c,    object id, object f, mapping defines)   {    if(m->help)    return register_module()[2];    + // NOCACHE(); +     string context = (query("enable_context") && m->context)    || id->not_query;    object e = find_environment(context, id->conf);    // werror(sprintf("Environment: %s\n", e->print(1)));    if(m->once && e->once_done) return "";       object lisp = lisp_compile(c);    if (!lisp)    return "<!-- syntax error in lisp code -->\n";