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; |
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; } |
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,""); |