NIL
82:DRIBBLEFILE]
{ERIS}<LISPMANUAL>DOMANUAL.TYPESCRIPT;1
83:
(GETHASH broken)
83:BT
EVALA
\EVALFORM
\EVALFORM
*ENV*
\LISPERROR
\DTESTFAIL
GETHASH
REF#TOPROG
APPLY
GOBBLE
GOBBLE.DUMP
DUMP.ARG
FOOT#TOPROG
APPLY
GOBBLE
GOBBLE.DUMP

(GETHASH broken)
84:BT
EVALA
\EVALFORM
\EVALFORM
*ENV*
\LISPERROR
\DTESTFAIL
GETHASH
REF#TOPROG

(GETHASH broken)
85:REVERT REF#TOPROG
REF#TOPROG

(REF#TOPROG broken)
86:EVAL
TO PROG BUG: attempting to process unlabeled arg twice
NIL
(REF#TOPROG broken)
87:OK
TO PROG BUG: attempting to process unlabeled arg twice
NIL
(REF#TOPROG broken)
88:CALLS(REF#TOPROG]
((SAVE.ARG SHOULDNT DUMP.CHARS PARSE.INDEX.SPEC WARNING 
U-CASE LIST.TO.STRING MKATOM EQUAL SAVE.INFILE.NOTE 
PRINT.DUMMY.REF MEMB REF.TO.PAGE CONCAT REVERSE LAST) (
FIG.NUM CHAP.NUM SEC.STRING SEC.LIST CHAP.PAGE.LST X 
REFS ARG.ATOM TEMP ARGS TYPE REF.STRING MAX.REF 
SECONDARY.REFS PRIMARY.REFS DEF.REFS SAV) (TO.NAME 
IM.REF.FLG IMPTR.HASH) NIL)
89:IM.REF.FLG
T
90:(SETQ IM.REF.FLG ]
(IM.REF.FLG reset)
NIL
91:EVAL
TO PROG BUG: attempting to process unlabeled arg twice
NIL
(REF#TOPROG broken)
92:
92←CLOSEALL]
({ERIS}<LISPMANUAL>CHAPDATATYPES.IMPTR;2 
{ERIS}<LISPMANUAL>CHAPDATATYPES.IMERR;2 {MAXC2}<MANUAL>CHAPDATATYPES.TEX;1 
{ERIS}<LISPMANUAL>CHAPDATATYPES.IM;2 {ERIS}<LISPMANUAL>ORG.TXT;2 
{ERIS}<LISPMANUAL>DOC.TXT;1 {ERIS}<LISPUSERS>IMTRAN.TXT;2 
{SKY}<CONS>CONSV1N9.MAIL;1)
93←DO.MANUAL]
starting to process: (ChapDataTypes . 2)
  Warning:  
           WARNING: --- Note facility enabled --- Notes will be printed ---
 
  Warning:  DATATYPES has arglist: (USERSFLG)
  Warning:        but manual says: (---)
  Warning:  TYPENAMEP has arglist: (DATUM TYPE)
  Warning:        but manual says: (DATUM TYPENAME)
  Warning:  null index --- ignored
  Warning:  
  Warning:  
  Warning:  Including file: {ERIS}<LISPMANUAL>LITATOMS.IM;2
  Warning:  SETQQ has arglist: (X Y)
  Warning:        but manual says: (VAR VALUE)
  Warning:  GETTOPVAL has arglist: (X)
  Warning:        but manual says: (VAR)
  Warning:  SETTOPVAL has arglist: (ATM VAL)
  Warning:        but manual says: (VAR VALUE)
  Warning:  GETATOMVAL has arglist: (X)
  Warning:        but manual says: (VAR)
  Warning:  SETATOMVAL has arglist: (ATM VAL)
  Warning:        but manual says: (ATM VALUE)
  Warning:  GENSYM has arglist: (PREFIX NUMSUFFIX OSTRBUFFER NEW? CHARCODE)
  Warning:        but manual says: (CHAR)
  Warning:  CHARCODE has arglist: (C COMPFLG)
  Warning:        but manual says: (C)
  Warning:  EOF - included file: {ERIS}<LISPMANUAL>LITATOMS.IM;2
  Warning:   ----------  Tags
  Warning:       PrintNames
  Warning:  
  Warning:  
  Warning:  
  Warning:  Including file: {ERIS}<LISPMANUAL>LISTS.IM;2
  Warning:  ENDCOLLECT has arglist: (X Y)
  Warning:        but manual says: (LST TAIL)
  Warning:  EOF - included file: {ERIS}<LISPMANUAL>LISTS.IM;2
  Warning:  
  Warning:  
  Warning:  
  Warning:  Including file: {ERIS}<LISPMANUAL>STRINGS.IM;2


Shouldn't happen! 

(HELP broken)
94:      PF CHANGE.FONT
{from {ERIS}<LISPUSERS>IMTRAN.;2}
(CHANGE.FONT
 [LAMBDA (X)  **COMMENT**  
  (PROG NIL
     (PRIN3 (SELECTQ X
             ((NIL FOOTNOTE)
                            "\rm{}")
             (NOTE "\nt{}")
             (BOLD "\bf{}")
             (ITALIC "\sl{}")
             (LISP "\lisp{}")
             (ARG "\arg{}")
             (SHOULDNT))
         OUTFILE)
     (SETQ CURRENT.TRANS.TABLE (SELECTQ X
                       (LISP LISP.TRANS.TABLE)
                       ((NOTE ARG)
                        CM.TRANS.TABLE)
                       TR.TRANS.TABLE])
NIL
95:BTV
   X (53 55 53 52)
CHANGE.FONT
   C (UNDO . FONT)
DUMP
   X ((& 40 71 78 67 32 & 88 & --) (UNDO . FONT))
DUMP.CHARS
   NAME GNC
   TYPE (Function)
   SAV ((& 40 71 78 67 32 & 88 & --) (UNDO . FONT))
   TYPESTRING "Function"
   TotalWidth 462
   DUMPOUT.SAVE.INDENT NIL
   DUMPOUT.SAVE.WIDTH NIL
FORMAT.DEF
   NAME GNC
   ARGS (X)
   TYPES NIL
   NEXT.ARG NIL
   typestring "Function"
   fntype 0
   typelist NIL
FNDEF#TOPROG
   \INTERNAL NIL
APPLY
   SAVE.DUMP.FLG NIL
   C 123
   SAVE.FILE.PTR 5718
   CLIST NIL
   ORIG.NAME FNDEF
   NAME FNDEF
   BEGIN.END NIL
   TAG.LIST NIL

(HELP broken)
96:DEFINE(((SHOULDNT (X) (PRINTOUT T "Shouldn't
encountered" T) (BACKTRACE NIL T 7) NIL]
(SHOULDNT redefined)
(SHOULDNT)
97:(ASSOC 'BTV BREAKMACROS]
(BTV (BAKTRACE LASTPOS NIL (BREAKREAD (QUOTE LINE)) 1 T)
)
98:USE 1 FO 7 IN DEFINE

UNDEFINED FUNCTION
1
(HELP broken)
99:USE 1 FOR 7 IN SHOULDNT

UNDEFINED FUNCTION
1
(HELP broken)
100:FIX
DEFINE
DEFINE(SHOULDNT redefined)
(SHOULDNT)

UNDEFINED FUNCTION
FO
(HELP broken)
1:
(HELP broken)
1:PP SHOULDNT

(SHOULDNT
  [LAMBDA (X)  **COMMENT**  
    (PRINTOUT T "Shouldn't encountered" T)
    (BACKTRACE NIL T 1)
    NIL])
(SHOULDNT)
2:SHOULDNT]
Shouldn't encountered
   IPOS NIL
   EPOS T
   FLAGS 1
   PRINTFN NIL
BACKTRACE

   OLDVALUE T
   MACROY NIL
   RESETSTATE NIL
   *FORM* (BACKTRACE NIL T 1)
\EVALFORM

   *ARGVAL* NIL
   *TAIL* NIL
   *FN* BACKTRACE
\INTERPRETER1

   *TAIL* ((BACKTRACE NIL T 1) NIL)
SHOULDNT

   \INTERNAL :
APPLY

   LISPXID :
LISPX

   HELPCLOCK 895444
   LISPXHIST ((SHOULDNT NIL) :  SIDE (3 (/RPLACA (
SHOULDNT SHOULDNT SHOULDNT)) ((printout T 
"Shouldn't encountered" T) PRINTOUT T 
"Shouldn't encountered" T) (/PUTHASH (printout T 
"Shouldn't encountered" T) NIL {HARRAYP}#1,77610)))
   HELPFLAG T
   LISPXLISTFLG NIL
   LISPXLINE (NIL)
   LISPY NIL
   LISPZ NIL
   LISPXVALUE NIL
   LISPXTEM NIL
   BRKCOM SHOULDNT
   TYPE-IN T
\BREAK1BLOCK/BREAKCOM

   BRKFIL T
   NBREAKS 1
ERRORSET

   LISPXID :
   BRKLISPXHIST NIL
   BRKCOM SHOULDNT
   NBREAKS -1
BREAK1A

   TYPE-IN T
   BRKFIL T
   HELPFLAG T
   BRKVALUE NIL
   !VALUE NIL
   LASTPOS #1,13654/CHANGE.FONT
   BRKRDBUF NIL
   BRKBUFS NIL
   BREAKRESETVALS ((ECHOMODE T) (CONTROL NIL) (
SETREADMACROFLG NIL) (INTERRUPTABLE T) (SETDISPLAYHEIGHT
 808) (CURSOR ({BITMAP}#7,6622 7 . 15)) (SETBREAKTTY (
{STREAM}#1,67150 . {STREAM}#6,154470)))
   \BREAKRESETEXPR (((ECHOMODE T) (CONTROL NIL) (
SETREADMACROFLG NIL) (INTERRUPTABLE T) (SETDISPLAYHEIGHT
 808) (CURSOR ({BITMAP}#7,6622 7 . 15)) (SETBREAKTTY (
{STREAM}#1,67150 . {STREAM}#6,154470))))
   BRKORIGFLG NIL
   BRKLISPXHIST NIL
   BRKLINE (NIL)
   NBREAKS -1
\WINDOWBREAK1A

   BRKWINDOW {WINDOW}#7,11000
   TTYSTREAMS ({STREAM}#1,67150 . {STREAM}#6,154470)
ERRORSET

   BRKEXP (ERROR (QUOTE "??") (QUOTE "") T)
   BRKWHEN T
   BRKFN HELP
   BRKCOMS NIL
   BRKTYPE ERRORX
   ERRORN ("

Shouldn't happen!" "" help!)
BREAK1

   LISPXHIST ((DO.MANUAL NIL) ←  *LISPXPRINT* (
"

Shouldn't happen!" " " "" "
") SIDE (3 (ADDSPELL2 PP ("{spellseparator}" SHOULDNT PP
 DEFINE ASSOC PF DO.MANUAL CLOSEALL SETQ CALLS 
DRIBBLEFILE DRIBBLE FILES? ARGLIST FILEFNSLST FILESLOAD 
RESETSAVE.MOVD PRINT.INDEX.OBJECT 
PRINT.INDEX.OBJECTA0001 NEWTO MAKE.IM.TOC 
MAKE.IM.TOCA0001 MAKE.IM.NAME.HASHFILE MAKE.IM.INDEX 
MAKE.IM.INDEXA0002 MAKE.IM.INDEXA0001 INSPECT.TO 
INIT.INDEX.VARS GRAB.IMPTR GRAB.IMPTRA0001 GRAB.IMPAGE 
GRAB.IMPAGEA0001 GRAB.IM.DATA DO.MANUAL.CHAP 
VARDEF#TOPROG VAR#TOPROG TERM#TOPROG TAG#TOPROG 
TABLE#TOPROG)) (ADDSPELL2 ASSOC ("{spellseparator}" 
SHOULDNT PP DEFINE ASSOC PF DO.MANUAL CLOSEALL SETQ 
CALLS DRIBBLEFILE DRIBBLE FILES? ARGLIST FILEFNSLST 
FILESLOAD RESETSAVE.MOVD PRINT.INDEX.OBJECT 
PRINT.INDEX.OBJECTA0001 NEWTO MAKE.IM.TOC 
MAKE.IM.TOCA0001 MAKE.IM.NAME.HASHFILE MAKE.IM.INDEX 
MAKE.IM.INDEXA0002 MAKE.IM.INDEXA0001 INSPECT.TO 
INIT.INDEX.VARS GRAB.IMPTR GRAB.IMPTRA0001 GRAB.IMPAGE 
GRAB.IMPAGEA0001 GRAB.IM.DATA DO.MANUAL.CHAP 
VARDEF#TOPROG VAR#TOPROG TERM#TOPROG TAG#TOPROG 
TABLE#TOPROG)) (ADDSPELL2 DEFINE ("{spellseparator}" 
SHOULDNT PP DEFINE ASSOC PF DO.MANUAL CLOSEALL SETQ 
CALLS DRIBBLEFILE DRIBBLE FILES? ARGLIST FILEFNSLST 
FILESLOAD RESETSAVE.MOVD PRINT.INDEX.OBJECT 
PRINT.INDEX.OBJECTA0001 NEWTO MAKE.IM.TOC 
MAKE.IM.TOCA0001 MAKE.IM.NAME.HASHFILE MAKE.IM.INDEX 
MAKE.IM.INDEXA0002 MAKE.IM.INDEXA0001 INSPECT.TO 
INIT.INDEX.VARS GRAB.IMPTR GRAB.IMPTRA0001 GRAB.IMPAGE 
GRAB.IMPAGEA0001 GRAB.IM.DATA DO.MANUAL.CHAP 
VARDEF#TOPROG VAR#TOPROG TERM#TOPROG TAG#TOPROG 
TABLE#TOPROG))))
   RESETY NIL
   MESS1 "

Shouldn't happen!"
   MESS2 ""
   BRKTYPE ERRORX
HELP

   MESS NIL
SHOULDNT

   X (53 55 53 52)
CHANGE.FONT

   C (UNDO . FONT)
DUMP

   X (((FONT . LISP) 40 71 78 67 32 (FONT . ARG) 88 (
FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT
)) (UNDO . FONT))
DUMP.CHARS

   NAME GNC
   TYPE (Function)
   SAV (((FONT . LISP) 40 71 78 67 32 (FONT . ARG) 88 (
FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . FONT
)) (UNDO . FONT))
   TYPESTRING "Function"
FORMAT.DEF

   TotalWidth 462
   DUMPOUT.SAVE.INDENT NIL
   DUMPOUT.SAVE.WIDTH NIL
FNDEF#TOPROG

   NAME GNC
   ARGS (X)
   TYPES DISPLAY
   NEXT.ARG NIL
   typestring "Function"
   fntype 0
   typelist NIL
   \INTERNAL NIL
APPLY

GOBBLE

   SAVE.DUMP.FLG NIL
   C 123
   SAVE.FILE.PTR 5718
   CLIST NIL
   ORIG.NAME FNDEF
   NAME FNDEF
   BEGIN.END NIL
   TAG.LIST NIL
   SAVE.CONC NIL
   TO.NAME FNDEF
   TO.ORIG.NAME FNDEF
   TO.BEGIN.FLG NIL
   TO.TAG.LIST NIL
   TO.ARGS.REMAINING NIL
   TO.PROP.LIST (WIDTH NIL INDENT NIL SAVE.ARGS.PROPLIST
 (ARGS ((88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT)
 (UNDO . FONT)) 88 (FONT . LISP) 41 (UNDO . FONT) (UNDO
 . FONT) (UNDO . FONT)) NAME ((71 78 67 32 (FONT . ARG) 
88 (FONT . LISP) 41 (UNDO . FONT) (UNDO . FONT) (UNDO . 
FONT)) 67 32 (FONT . ARG) 88 (FONT . LISP) 41 (UNDO . 
FONT) (UNDO . FONT) (UNDO . FONT)) NIL) NIL)
   TO.ARG.NAME TEXT
   TO.ORIG.ARG.NAME TEXT
   TO.DONE.FLG NIL
   NO.SKIP.FLG NIL
GOBBLE.DUMP

   NO.SKIP.FLG NIL
DUMP.ARG

SUBSEC#TOPROG

   SUBSEC.COUNT.LIST (6 2)
   SUBSEC.LAST.SUB 0
   SUBSEC.SKIP.STRING "\vskip30pt"
   PRINTING.TITLE ((83 84 82 73 78 71 83) 83)
   SEC.STRING "2.6"
   SEC.LIST (2 6)
   \INTERNAL NIL
APPLY

GOBBLE

   SAVE.DUMP.FLG NIL
   C 123
   SAVE.FILE.PTR 2
   CLIST NIL
   ORIG.NAME SUBSEC
   NAME SUBSEC
   BEGIN.END BEGIN
   TAG.LIST (STRINGS)
   SAVE.CONC NIL
   TO.NAME SUBSEC
   TO.ORIG.NAME SUBSEC
   TO.BEGIN.FLG T
   TO.TAG.LIST (STRINGS)
   TO.ARGS.REMAINING NIL
   TO.PROP.LIST (WaitingForSecondQuote NIL WIDTH NIL 
INDENT NIL SAVE.ARGS.PROPLIST (TITLE ((83 116 114 105 
110 103 115) 115) NIL) NIL)
   TO.ARG.NAME TEXT
   TO.ORIG.ARG.NAME TEXT
   TO.DONE.FLG NIL
   NO.SKIP.FLG NIL
GOBBLE.DUMP

   NO.SKIP.FLG NIL
DUMP.ARG

CHAPTER#TOPROG

   title 
(HELP broken)
3:DRIBBLE]