share/macro/basic.mac

   1 /*-*-MACSYMA-*-*/
   2
   3 eval_when([translate,batch,demo],
   4           if not(member('macro,properties(load_package))) then load(packg))$
   5
   6 herald_package(basic)$
   7
   8
   9 /* These are basic macros, nothing in here should call anything
  10    complicated. PUSH and POP here are the simple version
  11    which do not hack once-only evaluation.
  12    I might say that these macros are around mostly so
  13    that the code for implementing the more complicated
  14    macros, including the once-only stuff, can be simpler.
  15 */
  16
  17 prog1(statement1,[statements])::=
  18  buildq([statement1,statements,local:gensym()],
  19         lambda([local],splice(statements),local)(statement1))$
  20
  21 symbolcheck(x):=
  22  if symbolp(x) then x else error("arg must be a symbol",x)$
  23
  24 /* The functions push and pop are now defined in src/comm.lisp.
  25 push(c,l)::=(symbolcheck(l),buildq([c,l],l:cons(c,l)))$
  26
  27 pop(l)::=(symbolcheck(l),buildq([l],prog1(first(l),l:rest(l))))$
  28 */
  29
  30 /* TR_EV is a pretty sorry way to get optimization
  31    by Translation-time evaluation. User directed constant-folding
  32    you might call it. TR_EV has other uses. */
  33
  34 tr_ev(x)::=buildq([x],?meval(x))$