fouts@AMES-NAS.ARPA (Marty) (04/23/85)
Enclosed are context diffs for changes to xlbfun.c and xlftab.c
which add the interface necessary to use putprop to add values to
property lists.
*** xlbfun.c Mon Apr 22 13:31:09 1985
--- xlbfun.c.new Mon Apr 22 13:28:52 1985
***************
*** 417,419
/* return nil */
return (NIL);
}
--- 417,440 -----
/* return nil */
return (NIL);
}
+
+ /* xputprop - put a property value on the property list */
+ NODE *xputprop(args)
+ NODE *args;
+ {
+ NODE *sym, *prp, *val;
+
+ /* get the symbol, value, and property */
+ sym = xlmatch(SYM,&args);
+ val = xlarg(&args);
+ prp = xlmatch(SYM,&args);
+ xllastarg(args);
+
+ /* add the property */
+ xlputprop(sym,val,prp);
+
+ /* return nil */
+ return(NIL);
+
+ }
+
*** xlftab.c Mon Apr 22 13:31:35 1985
--- xlftab.c.new Mon Apr 22 13:29:41 1985
***************
*** 7,13
*xeval(),*xapply(),*xfuncall(),*xquote(),*xbquote(),
*xset(),*xsetq(),*xsetf(),*xdefun(),*xdefmacro(),
*xgensym(),*xmakesymbol(),*xintern(),
! *xsymname(),*xsymvalue(),*xsymplist(),*xget(),*xremprop(),
*xcar(),*xcaar(),*xcadr(),*xcdr(),*xcdar(),*xcddr(),
*xcons(),*xlist(),*xappend(),*xreverse(),*xlast(),*xnth(),*xnthcdr(),
*xmember(),*xassoc(),*xsubst(),*xsublis(),*xremove(),*xlength(),
--- 7,13 -----
*xeval(),*xapply(),*xfuncall(),*xquote(),*xbquote(),
*xset(),*xsetq(),*xsetf(),*xdefun(),*xdefmacro(),
*xgensym(),*xmakesymbol(),*xintern(),
! *xsymname(),*xsymvalue(),*xsymplist(),*xget(),*xremprop(),*xputprop(),
*xcar(),*xcaar(),*xcadr(),*xcdr(),*xcdar(),*xcddr(),
*xcons(),*xlist(),*xappend(),*xreverse(),*xlast(),*xnth(),*xnthcdr(),
*xmember(),*xassoc(),*xsubst(),*xsublis(),*xremove(),*xlength(),
***************
*** 55,60
{ "symbol-plist", SUBR, xsymplist },
{ "get", SUBR, xget },
{ "remprop", SUBR, xremprop },
/* list functions */
{ "car", SUBR, xcar },
--- 55,61 -----
{ "symbol-plist", SUBR, xsymplist },
{ "get", SUBR, xget },
{ "remprop", SUBR, xremprop },
+ { "putprop", SUBR, xputprop },
/* list functions */
{ "car", SUBR, xcar },
----------