/[gcl]/gcl/o/assignment.c
ViewVC logotype

Diff of /gcl/o/assignment.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.3 by camm, Tue Aug 20 23:23:57 2002 UTC
# Line 31  Foundation, 675 Mass Ave, Cambridge, MA Line 31  Foundation, 675 Mass Ave, Cambridge, MA
31  object sLsetf;  object sLsetf;
32    
33  object sLget;  object sLget;
34    object sLgetf;
35  object sLaref;  object sLaref;
36  object sLsvref;  object sLsvref;
37  object sLelt;  object sLelt;
# Line 312  setf(object place, object form) Line 313  setf(object place, object form)
313            val = Ieval(form);            val = Ieval(form);
314            return (putprop(sym,val,Ieval(car(Mcdr(args)))));            return (putprop(sym,val,Ieval(car(Mcdr(args)))));
315          }          }
316            if (fun == sLgetf)
317              Ieval(Mcaddr(args));
318          if (fun == sLaref) { f = siLaset; goto EVAL; }          if (fun == sLaref) { f = siLaset; goto EVAL; }
319          if (fun == sLsvref) { f = siLsvset; goto EVAL; }          if (fun == sLsvref) { f = siLsvset; goto EVAL; }
320          if (fun == sLelt) { f = siLelt_set; goto EVAL; }          if (fun == sLelt) { f = siLelt_set; goto EVAL; }
# Line 569  DEF_ORDINARY("DECF",sLdecf,LISP,""); Line 572  DEF_ORDINARY("DECF",sLdecf,LISP,"");
572  DEF_ORDINARY("ELT",sLelt,LISP,"");  DEF_ORDINARY("ELT",sLelt,LISP,"");
573  DEF_ORDINARY("FILL-POINTER",sLfill_pointer,LISP,"");  DEF_ORDINARY("FILL-POINTER",sLfill_pointer,LISP,"");
574  DEF_ORDINARY("GET",sLget,LISP,"");  DEF_ORDINARY("GET",sLget,LISP,"");
575    DEF_ORDINARY("GETF",sLgetf,LISP,"");
576  DEF_ORDINARY("GETHASH",sLgethash,LISP,"");  DEF_ORDINARY("GETHASH",sLgethash,LISP,"");
577  DEF_ORDINARY("INCF",sLincf,LISP,"");  DEF_ORDINARY("INCF",sLincf,LISP,"");
578  DEF_ORDINARY("POP",sLpop,LISP,"");  DEF_ORDINARY("POP",sLpop,LISP,"");

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26