tloop.init 790 B

123456789101112131415
  1. (FLUID (QUOTE (!*BREAK !*QUITBREAK BREAKEVAL!* BREAKNAME!* BREAKVALUE!*
  2. ERRORFORM!* BREAKLEVEL!* MAXBREAKLEVEL!* TOPLOOPNAME!* TOPLOOPEVAL!*
  3. TOPLOOPREAD!* TOPLOOPPRINT!* !*DEFN BREAKIN!* BREAKOUT!*)))
  4. (DEFLIST (QUOTE ((Q BREAKQUIT) (!? HELPBREAK) (A RESET) (M BREAKERRMSG) (E
  5. BREAKEDIT) (C BREAKCONTINUE) (R BREAKRETRY) (I INTERPBACKTRACE) (V
  6. VERBOSEBACKTRACE) (T BACKTRACE))) (QUOTE BREAKFUNCTION))
  7. (FLUID (QUOTE (TOPLOOPREAD!* TOPLOOPPRINT!* TOPLOOPEVAL!* TOPLOOPNAME!*
  8. TOPLOOPLEVEL!* HISTORYCOUNT!* HISTORYLIST!* PROMPTSTRING!* LISPBANNER!*
  9. !*EMSGP !*BACKTRACE !*TIME GCTIME!* !*DEFN DFPRINT!* !*OUTPUT SEMIC!* !*NONIL
  10. INITFORMS!*)))
  11. (FLUID (QUOTE (!*BREAK)))
  12. (PUT (QUOTE HIST) (QUOTE TYPE) (QUOTE NEXPR))
  13. (FLAG (QUOTE (DSKIN)) (QUOTE IGNORE))
  14. (FLUID (QUOTE (!*REDEFMSG !*ECHO)))