archive/share/trash/a.mcs

   1 (SETQ $SHOWTIIME T $LLOADPRINT NIL $DERIVABBREV T $OOPTIONSET T $DYNAMALLOC T
   2  $PPFEFORMAT T $CURSOR '&<-->)
   3 (MSETQ $PAGEPAUSE NIL)
   4 (SETQ $DERIVSUBST NIL $RADEXPAND '$ALL)
   5 (MDEFPROP $RPEXPAND
   6  ((LAMBDA) ((MLIST)) ((MPROGN) (($RATVARS) $L) (($RATWEIGHT) $L 1.) ((MSETQ) $RATWTLVL 2.))) MEXPR)
   7 (ARGS (QUOTE $RPEXPAND) (QUOTE (NIL . 0.)))