(SYSTEM::VERSION '(19990501.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "LISP"
  )
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (*PROMPT*)
  )
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "SYSTEM"
  )
#Y(#:TOP-LEVEL-FORM-4
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB DC 31 51 C6 19 01
       )
   (SPECIAL *BREAK-COUNT*) *BREAK-COUNT* 0.
  )
#Y(#:TOP-LEVEL-FORM-5
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB DC 31 51 C6 19 01
       )
   (SPECIAL *RECURSE-COUNT-ERROR-OUTPUT*) *RECURSE-COUNT-ERROR-OUTPUT* 0.
  )
#Y(#:TOP-LEVEL-FORM-6
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB DC 31 51 C6 19 01
       )
   (SPECIAL *RECURSE-COUNT-DEBUG-IO*) *RECURSE-COUNT-DEBUG-IO* 0.
  )
#Y(#:TOP-LEVEL-FORM-7
   #26Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 32 7F C5
        19 01
       )
   PACKAGE-SHORT-NAME REMOVE-OLD-DEFINITIONS FUNCTION
   "Return the shortest (nick)name of the package." %SET-DOCUMENTATION
   #Y(PACKAGE-SHORT-NAME
      #50Y(00 00 00 00 01 00 00 00 00 02 DA AE 71 CC 38 04 B3 71 CB 72 48 0E 01
           26 02 15 AC 38 02 31 45 19 03 AC 38 02 31 47 19 03 AC 38 02 31 49 19
           03 15 19 02
          )
      #Y(PACKAGE-SHORT-NAME-1
         #26Y(00 00 00 00 02 00 00 00 00 03 AE 72 44 AE 72 44 90 01 30 03 9F 19
              03 9E 19 03
        )    )
      *PRINT-CASE*
      #S(HASH-TABLE EQ (:CAPITALIZE . 15.) (:DOWNCASE . 8.) (:UPCASE . 1.))
  )  )
#Y(#:TOP-LEVEL-FORM-8
   #30Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB DC 31 51 DB DD DE
        2D 03 05 C6 19 01
       )
   (SPECIAL *COMMAND-INDEX*) *COMMAND-INDEX* 0. VARIABLE
   "The number of commands received so far." %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-9
   #30Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 DB DC DD
        2D 03 04 C6 19 01
       )
   (SPECIAL *HOME-PACKAGE*) *HOME-PACKAGE* VARIABLE
   "The starting package of this session." %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-10
   #26Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 32 7F C5
        19 01
       )
   PROMPT-NEW-PACKAGE REMOVE-OLD-DEFINITIONS FUNCTION
   "Return the current package or NIL if it never changed." %SET-DOCUMENTATION
   #Y(PROMPT-NEW-PACKAGE
      #31Y(00 00 00 00 00 00 00 00 00 01 0E 00 1C 04 0E 01 0F 00 6B 00 0E 01 22
           04 0E 01 19 01 00 19 01
          )
      *HOME-PACKAGE* *PACKAGE*
  )  )
#Y(#:TOP-LEVEL-FORM-11
   #30Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB DC 31 51 DB DD DE
        2D 03 05 C6 19 01
       )
   (SPECIAL *PROMPT*) *PROMPT*
   #Y(#:TOP-LEVEL-FORM-11-1
      #57Y(00 00 00 00 00 00 00 00 00 01 6B 00 8F 1C 05 6B 00 8C CB 08 E1 01 02
           2D 03 08 19 01 63 DB DC 6B 00 8D D3 04 2E 03 1D 04 6B 00 2F 04 14 6B
           05 32 94 0F 05 14 2D 04 06 19 01
          )
      *PACKAGE*
      #Y(#:TOP-LEVEL-FORM-11-1-1
         #47Y(00 00 00 00 01 00 00 00 01 17 9E 5B 1C 18 83 01 DA AF 31 87 AE 64
              01 05 94 08 83 09 2D 08 01 DC AF 31 87 9E 19 03 94 01 83 02 AF 31
              83 1B 61
             )
         #\[ DO-FORMAT-DECIMAL #\]
        )
      "T" PROMPT-NEW-PACKAGE PACKAGE-SHORT-NAME *COMMAND-INDEX* FORMAT
      "[*package* invalid]" LANGUAGE
     )
   VARIABLE
   "The top level prompt.  If a function, the return value is used.
If anything else, printed."
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-12
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   PROMPT-STRING1 REMOVE-OLD-DEFINITIONS
   #Y(PROMPT-STRING1 #13Y(00 00 00 00 00 00 00 00 00 01 C5 19 01) "")
  )
#Y(#:TOP-LEVEL-FORM-13
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   PROMPT-STRING2 REMOVE-OLD-DEFINITIONS
   #Y(PROMPT-STRING2
      #42Y(03 00 01 00 00 00 00 00 00 01 6B 00 8E 1A 0D 0E 00 14 31 86 19 01 58
           00 4A 00 00 02 47 01 72 57 02 6B 00 36 00 16 04 48 1B 67
          )
      *PROMPT* NIL (#(ERROR 12.) 2. . 1.)
  )  )
#Y(#:TOP-LEVEL-FORM-14
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   PROMPT-STRING3 REMOVE-OLD-DEFINITIONS
   #Y(PROMPT-STRING3 #13Y(00 00 00 00 00 00 00 00 00 01 C5 19 01) "> ")
  )
#Y(#:TOP-LEVEL-FORM-15
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19 01
       )
   (SPECIAL *KEY-BINDINGS*) *KEY-BINDINGS*
  )
#Y(#:TOP-LEVEL-FORM-16
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) HELP
   REMOVE-OLD-DEFINITIONS
   #Y(HELP
      #39Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 38 05 72 4D 72 45 63 1B 0A 87
           01 00 14 38 03 31 88 83 01 AD 8D 91 72 00 19 03
          )
      #.#'STRINGP *KEY-BINDINGS*
  )  )
#Y(#:TOP-LEVEL-FORM-17 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (SPECIAL *DEBUG-FRAME*) *DEBUG-FRAME*
  )
#Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (SPECIAL *DEBUG-MODE*) *DEBUG-MODE*
  )
#Y(#:TOP-LEVEL-FORM-19
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19 01
       )
   (SPECIAL *FRAME-LIMIT1*) *FRAME-LIMIT1*
  )
#Y(#:TOP-LEVEL-FORM-20
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19 01
       )
   (SPECIAL *FRAME-LIMIT2*) *FRAME-LIMIT2*
  )
#Y(#:TOP-LEVEL-FORM-21
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   FRAME-LIMIT1 REMOVE-OLD-DEFINITIONS
   #Y(FRAME-LIMIT1
      #42Y(00 00 00 00 01 00 00 00 00 02 2E 00 14 00 10 01 00 10 02 DD 1B 07 B3
           DE 30 05 FF 85 00 AC B6 91 01 32 73 16 01 12 02 15 19 02
          )
      THE-FRAME *FRAME-LIMIT1* *FRAME-LIMIT2* 0. 1. FRAME-UP-1
  )  )
#Y(#:TOP-LEVEL-FORM-22
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   FRAME-LIMIT2 REMOVE-OLD-DEFINITIONS
   #Y(FRAME-LIMIT2
      #62Y(00 00 00 00 00 00 00 00 00 01 2E 00 14 00 10 01 00 10 02 1B 04 9D FF
           16 01 B2 DD 70 04 AC A5 22 04 AC 89 05 70 16 01 E0 1B 07 B3 DD 30 08
           FF 85 00 AC E1 91 01 32 73 16 01 12 02 15 19 01
          )
      THE-FRAME *FRAME-LIMIT1* *FRAME-LIMIT2* 1. FRAME-UP-1 DRIVER-FRAME-P 0.
      2. FRAME-DOWN-1
  )  )
#Y(#:TOP-LEVEL-FORM-23
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) DEBUG-HELP
   REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-HELP #15Y(00 00 00 00 00 00 00 00 00 01 2E 00 DB C7 52) HELP DEBUG
      CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-24
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-UNWIND REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-UNWIND #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52) DEBUG UNWIND)
  )
#Y(#:TOP-LEVEL-FORM-25
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-MODE-1 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-MODE-1 #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC C8 52) 1.
      *DEBUG-MODE* DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-26
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-MODE-2 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-MODE-2 #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC C8 52) 2.
      *DEBUG-MODE* DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-27
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-MODE-3 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-MODE-3 #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC C8 52) 3.
      *DEBUG-MODE* DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-28
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-MODE-4 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-MODE-4 #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC C8 52) 4.
      *DEBUG-MODE* DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-29
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-MODE-5 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-MODE-5 #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC C8 52) 5.
      *DEBUG-MODE* DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-30
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-WHERE REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-WHERE
      #19Y(00 00 00 00 00 00 00 00 00 01 6B 00 6B 01 30 02 DD C9 52)
      *STANDARD-OUTPUT* *DEBUG-FRAME* DESCRIBE-FRAME DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-31
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) DEBUG-UP
   REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-UP
      #26Y(00 00 00 00 00 00 00 00 00 01 6B 00 6B 01 6B 02 30 03 0F 01 14 30 04
           DF CB 52
          )
      *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-UP-1 DESCRIBE-FRAME
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-32
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) DEBUG-TOP
   REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-TOP
      #26Y(00 00 00 00 00 00 00 00 00 01 6B 00 6B 01 6B 02 30 03 0F 01 14 30 04
           DF CB 52
          )
      *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-UP DESCRIBE-FRAME
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-33
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) DEBUG-DOWN
   REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-DOWN
      #26Y(00 00 00 00 00 00 00 00 00 01 6B 00 6B 01 6B 02 30 03 0F 01 14 30 04
           DF CB 52
          )
      *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-DOWN-1 DESCRIBE-FRAME
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-34
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-BOTTOM REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BOTTOM
      #26Y(00 00 00 00 00 00 00 00 00 01 6B 00 6B 01 6B 02 30 03 0F 01 14 30 04
           DF CB 52
          )
      *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-DOWN DESCRIBE-FRAME
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-35
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-BACKTRACE REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE
      #42Y(00 00 00 00 00 00 01 00 00 07 3B 01 03 0E 00 F9 6B 01 AE 70 02 AE 70
           03 6B 04 AD 30 05 AC AD B0 30 02 F9 23 73 16 01 E0 CC 52
          )
      *DEBUG-MODE* *FRAME-LIMIT1* FRAME-UP-1 FRAME-DOWN-1 *STANDARD-OUTPUT*
      DESCRIBE-FRAME DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-36
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-BACKTRACE-1 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE-1 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) 1.
      DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-37
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-BACKTRACE-2 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE-2 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) 2.
      DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-38
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-BACKTRACE-3 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE-3 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) 3.
      DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-39
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-BACKTRACE-4 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE-4 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) 4.
      DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-40
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-BACKTRACE-5 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE-5 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) 5.
      DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-41
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-TRAP-ON REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-TRAP-ON #18Y(00 00 00 00 00 00 00 00 00 01 6B 00 64 30 01 DC C8 52)
      *DEBUG-FRAME* TRAP-EVAL-FRAME DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-42
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-TRAP-OFF REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-TRAP-OFF
      #18Y(00 00 00 00 00 00 00 00 00 01 6B 00 63 30 01 DC C8 52) *DEBUG-FRAME*
      TRAP-EVAL-FRAME DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-43
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) DEBUG-REDO
   REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-REDO #17Y(00 00 00 00 00 00 00 00 00 01 6B 00 2F 01 DC C8 52)
      *DEBUG-FRAME* REDO-EVAL-FRAME DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-44
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-RETURN REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-RETURN
      #25Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 01 02 6E 03 02 6F 03 30 04 DF
           CB 52
          )
      *DEBUG-FRAME* "Values: " LANGUAGE READ-FORM RETURN-FROM-EVAL-FRAME DEBUG
      CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-45
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEBUG-CONTINUE REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-CONTINUE #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52) DEBUG QUIT)
  )
#Y(#:TOP-LEVEL-FORM-46
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) COMMANDS0
   REMOVE-OLD-DEFINITIONS
   #Y(COMMANDS0
      #24Y(00 00 00 00 00 00 00 00 00 01 DA 01 02 6E 03 01 DC 98 03 7A 61 02 19
           01
          )
      "
Help = this list
Use the usual editing capabilities.
(quit) or (exit) leaves CLISP."
      LANGUAGE "Help" DEBUG-HELP
  )  )
#Y(#:TOP-LEVEL-FORM-47
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) COMMANDS1
   REMOVE-OLD-DEFINITIONS
   #Y(COMMANDS1
      #105Y(00 00 00 00 00 00 00 00 00 01 DA 01 02 6E 03 01 DC 98 03 7A DE 98
            03 7A DF 98 06 7A E1 98 06 7A E2 98 09 7A E4 98 0B 7A E6 98 0D 7A
            E8 98 0F 7A EA 98 11 7A EC 98 13 7A EE 98 15 7A F0 98 17 7A F2 98
            19 7A F4 98 1B 7A F6 98 1D 7A 65 1E 98 1F 7A 65 20 98 21 7A 65 22
            98 23 7A 65 24 98 25 7A 65 26 98 27 7A 61 15 19 01
           )
      "
Help   = this command list
Abort  = abort to the next recent input loop
Unwind = abort to the next recent input loop
Mode-1 = inspect all the stack elements
Mode-2 = inspect all the frames
Mode-3 = inspect only lexical frames
Mode-4 = inspect only EVAL and APPLY frames (default)
Mode-5 = inspect only APPLY frames
Where  = inspect this frame
Up     = go up one frame, inspect it
Top    = go to top frame, inspect it
Down   = go down one frame, inspect it
Bottom = go to bottom (most recent) frame, inspect it
Backtrace-1 = list all stack elements
Backtrace-2 = list all frames
Backtrace-3 = list all lexical frames
Backtrace-4 = list all EVAL and APPLY frames
Backtrace-5 = list all APPLY frames
Backtrace   = list stack in current mode
Break+ = set breakpoint in EVAL frame
Break- = disable breakpoint in EVAL frame
Redo   = re-evaluate form in EVAL frame
Return = leave EVAL frame, prescribing the return values"
      LANGUAGE "Help" DEBUG-HELP "?" "Abort" DEBUG-UNWIND "Unwind" "Mode-1"
      DEBUG-MODE-1 "Mode-2" DEBUG-MODE-2 "Mode-3" DEBUG-MODE-3 "Mode-4"
      DEBUG-MODE-4 "Mode-5" DEBUG-MODE-5 "Where" DEBUG-WHERE "Up" DEBUG-UP
      "Top" DEBUG-TOP "Down" DEBUG-DOWN "Bottom" DEBUG-BOTTOM "Backtrace-1"
      DEBUG-BACKTRACE-1 "Backtrace-2" DEBUG-BACKTRACE-2 "Backtrace-3"
      DEBUG-BACKTRACE-3 "Backtrace-4" DEBUG-BACKTRACE-4 "Backtrace-5"
      DEBUG-BACKTRACE-5 "Backtrace" DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-48
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) COMMANDS2
   REMOVE-OLD-DEFINITIONS
   #Y(COMMANDS2
      #30Y(00 00 00 00 00 00 00 00 00 01 DA 98 01 7A DC 98 03 7A DE 98 05 7A E0
           98 07 7A 61 04 19 01
          )
      "Break+" DEBUG-TRAP-ON "Break-" DEBUG-TRAP-OFF "Redo" DEBUG-REDO "Return"
      DEBUG-RETURN
  )  )
#Y(#:TOP-LEVEL-FORM-49
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) COMMANDS3
   REMOVE-OLD-DEFINITIONS
   #Y(COMMANDS3
      #24Y(00 00 00 00 00 00 00 00 00 01 DA 01 02 6E 03 01 DC 98 03 7A 61 02 19
           01
          )
      "
Continue = continue evaluation"
      LANGUAGE "Continue" DEBUG-CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-50
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) MAIN-LOOP
   REMOVE-OLD-DEFINITIONS
   #Y(MAIN-LOOP #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC 31 54) 0.
      *BREAK-COUNT*
      #Y(MAIN-LOOP-1
         #41Y(02 00 01 00 00 00 00 00 00 01 C5 50 1A 2E 01 14 2E 02 14 2E 03 14
              73 03 13 2E 04 14 71 9D 30 05 1F 02 2E 06 51 19 01 19 01
             )
         DEBUG PROMPT-STRING1 PROMPT-STRING2 PROMPT-STRING3 COMMANDS0
         READ-EVAL-PRINT EXIT
  )  )  )
#Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 00 00 00 00 01 98 00 0F 01 19 01)
   MAIN-LOOP *DRIVER*
  )
#Y(#:TOP-LEVEL-FORM-52
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) BREAK-LOOP
   REMOVE-OLD-DEFINITIONS
   #Y(BREAK-LOOP
      #536Y(04 00 02 00 01 00 02 00 00 0D 00 2B 03 7F 04 00 00 3D 03 3B 02 80
            DC 7D 02 06 00 00 1D 80 D9 1B 80 DD E8 6B 06 38 02 31 88 6B 06 31
            8A 1B 81 2D D0 0F 10 EB 01 02 6E 03 12 6B 06 38 02 31 88 1B 81 2E
            6B 02 31 8A EE 01 02 6E 03 12 6B 02 38 02 31 88 93 04 81 41 1B 81
            2E 6B 02 31 8A 93 00 0C EF 01 02 6E 03 12 6B 02 38 02 31 88 68 01
            01 6B 02 31 83 93 04 81 20 1B 81 0D 03 17 1B 0E 93 01 17 6B 02 31
            8A 06 02 01 1C 70 03 18 14 01 02 6E 03 12 6B 02 38 02 31 88 E5 AD
            63 1B 80 41 87 01 00 F3 85 03 14 72 8E 73 02 13 F4 AD F5 B0 71 86
            73 04 13 93 06 07 AC 6B 02 38 02 31 88 AC 06 08 02 5D 0B 07 02 AD
            A5 2B 01 7F 04 00 00 AC 2C 1C 01 16 01 7A 06 08 02 5D 0B 07 02 16
            02 83 01 AD 8D 91 FF BA 16 02 68 03 02 32 46 0B 03 02 16 02 1B 80
            A4 06 00 00 1C 07 93 03 04 DA B0 30 01 0B 00 01 6B 02 6F 03 00 0B
            01 02 93 03 80 76 B0 DE 38 02 72 27 8B 05 80 6C E0 E1 30 08 6B 09
            32 94 10 09 6B 09 E4 91 01 30 22 D0 0F 09 E0 31 52 6B 0C 32 94 10
            0C 6B 0C E4 91 01 30 0A D0 0F 0C DC 31 52 DC E7 30 08 E0 E1 30 08
            11 6B 06 31 8A 11 06 01 01 1C FE CC E9 6B 06 38 02 31 88 6B 10 32
            94 10 10 6B 10 E4 90 01 30 FE C5 B3 6B 06 30 13 11 DC E7 30 08 06
            01 01 1D 0A 06 01 00 1D FE D9 92 00 FE BE 93 04 10 68 01 01 B1 6F
            16 38 07 72 4B 92 00 FE E9 16 01 4B 1D 80 78 80 78 6B 02 31 7C A3
            2B 01 6B 1E 32 94 10 1E DC 72 68 9D 10 1F A0 10 20 63 38 01 72 72
            53 2B 2E 21 14 AF 38 02 31 88 6B 1E 38 0D BC 31 7F 65 22 AF 38 02
            31 88 2E 23 14 AF 38 02 31 88 2E 24 14 AF 38 02 31 88 AE 32 73 3F
            54 67 00 00 00 2F 25 55 16 01 0B 0A 00 65 26 2F 27 10 28 2E 29 10
            2A 03 2B 10 2C 6B 28 6B 2C 70 2D 6B 2C 30 2E 10 2F C2 66 1A 6D 30
            02 31 54 31 55 4C 19 06
           )
      CONTINUE FIND-RESTART *DEBUG-IO* INTERACTIVE-STREAM-P CONDITION TYPEP
      *ERROR-OUTPUT* :OUTPUT SYMBOL-STREAM *RECURSE-COUNT-ERROR-OUTPUT* 3. 0.
      *RECURSE-COUNT-DEBUG-IO* :IO "** - Continuable Error" "*** - "
      *RECURSIVE-ERROR-COUNT* "Unprintable error message" LANGUAGE
      PRINT-CONDITION "You can continue (by typing 'continue')."
      "If you continue (by typing 'continue'): " COMPUTE-RESTARTS
      "The following restarts are available too:"
      "The following restarts are available:" "R"
      "
"
      " = "
      #Y(BREAK-LOOP-1 #17Y(00 00 00 00 00 00 00 00 00 01 69 00 01 2F 01 19 01)
         NIL INVOKE-RESTART-INTERACTIVELY
        )
      #(UNWIND QUIT) *BREAK-COUNT* *STANDARD-INPUT* *STANDARD-OUTPUT*
      PROMPT-STRING1 ". Break " PROMPT-STRING2 PROMPT-STRING3 CLOSE 13.
      FRAME-LIMIT1 *FRAME-LIMIT1* FRAME-LIMIT2 *FRAME-LIMIT2* 4. *DEBUG-MODE*
      FRAME-UP-1 FRAME-DOWN-1 *DEBUG-FRAME*
      #Y(BREAK-LOOP-2
         #53Y(02 00 01 00 00 00 00 00 00 01 C7 50 0A 6B 03 2A 14 6D 04 01 30 05
              51 14 AC 24 06 07 AC 24 07 09 00 19 02 4E 01 00 4E 01 01 07 01 01
              1C 78 69 01 02 2F 08 19 02
             )
         NIL NIL DEBUG *DEBUG-FRAME*
         #Y(BREAK-LOOP-2-1
            #62Y(00 00 00 00 00 00 00 00 00 01 69 00 01 2E 01 14 71 9D 6B 02 89
                 03 05 2E 04 14 31 9D 14 07 01 02 1D 05 2E 05 14 31 9D 14 69 01
                 03 73 04 24 30 06 1F 0A E1 07 01 02 1C 02 CE 52 CD 52 19 01
                )
            NIL COMMANDS1 *DEBUG-FRAME* EVAL-FRAME-P COMMANDS2 COMMANDS3
            READ-EVAL-PRINT DEBUG QUIT UNWIND
           )
         SAME-ENV-AS UNWIND QUIT INVOKE-RESTART-INTERACTIVELY
  )  )  )
#Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 00 00 00 00 01 98 00 0F 01 19 01)
   BREAK-LOOP *BREAK-DRIVER*
  )
#Y(#:TOP-LEVEL-FORM-54
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB DC 31 51 C6 19 01
       )
   (SPECIAL *STEP-LEVEL*) *STEP-LEVEL* 0.
  )
#Y(#:TOP-LEVEL-FORM-55
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB DC 31 51 C6 19 01
       )
   (SPECIAL *STEP-QUIT*) *STEP-QUIT* #.MOST-POSITIVE-FIXNUM
  )
#Y(#:TOP-LEVEL-FORM-56
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19 01
       )
   (SPECIAL *STEP-WATCH*) *STEP-WATCH*
  )
#Y(#:TOP-LEVEL-FORM-57
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01) STEP
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(STEP
      #33Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 0A 9F 5C 78 DC DD
           AE 61 03 19 04 AE 2F 01 19 03
          )
      2. MACRO-CALL-ERROR LET*
      ((*STEP-LEVEL* 0.) (*STEP-QUIT* MOST-POSITIVE-FIXNUM) (*STEP-WATCH* NIL)
        (*EVALHOOK* #'STEP-HOOK-FN)
  )  ))
#Y(#:TOP-LEVEL-FORM-58
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) COMMANDS4
   REMOVE-OLD-DEFINITIONS
   #Y(COMMANDS4
      #44Y(00 00 00 00 00 00 00 00 00 01 DA 01 02 6E 03 01 DC C8 7A DE CA 7A E0
           CC 7A E2 CE 7A E4 D0 7A E6 D2 7A E8 D4 7A EA D6 7A 61 09 19 01
          )
      "
Step     = step into form: evaluate this form in single step mode
Next     = step over form: evaluate this form at once
Over     = step over this level: evaluate at once up to the next return
Continue = switch off single step mode, continue evaluation
Step-until, Next-until, Over-until, Continue-until:
           same as above, specify a condition when to stop"
      LANGUAGE "Step"
      #Y(COMMANDS4-1 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52) STEPPER INTO)
      "Next"
      #Y(COMMANDS4-2 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52) STEPPER OVER)
      "Over"
      #Y(COMMANDS4-3 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52) STEPPER
         OVER-THIS-LEVEL
        )
      "Continue"
      #Y(COMMANDS4-4 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52) STEPPER
         CONTINUE
        )
      "Step-until"
      #Y(COMMANDS4-5 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52)
         STEPPER INTO
        )
      "Next-until"
      #Y(COMMANDS4-6 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52)
         STEPPER OVER
        )
      "Over-until"
      #Y(COMMANDS4-7 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52)
         STEPPER OVER-THIS-LEVEL
        )
      "Continue-until"
      #Y(COMMANDS4-8 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52)
         STEPPER CONTINUE
  )  )  )
#Y(#:TOP-LEVEL-FORM-59
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   STEP-VALUES REMOVE-OLD-DEFINITIONS
   #Y(STEP-VALUES
      #130Y(00 00 00 00 01 00 00 00 00 02 0E 00 10 01 38 01 31 8A DC 01 02 6E
            03 03 38 03 31 88 6B 04 38 0E 31 7F DF 38 03 31 88 B0 72 44 AC 24
            06 18 AC 24 08 20 B1 72 44 38 0E 31 7F E4 01 02 6E 03 03 38 03 31
            88 B1 1B 2F E1 01 02 6E 03 03 38 03 31 88 1B 29 E3 01 02 6E 03 03
            38 03 31 88 94 05 38 0E 31 7F 1B 17 94 00 83 01 38 0E 31 7F AC 8C
            91 05 E5 38 03 31 88 AC 8D 91 6B 16 01 16 01 11 9E 44 19 02
           )
      *DEBUG-IO* *STANDARD-OUTPUT* "step " LANGUAGE *STEP-LEVEL* " ==> " 0.
      "no values" 1. "value: " " values: " ", "
  )  )
#Y(#:TOP-LEVEL-FORM-60
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   STEP-HOOK-FN REMOVE-OLD-DEFINITIONS
   #Y(STEP-HOOK-FN
      #309Y(04 00 02 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 6B 01 32 94 10 01
            6B 01 6B 02 91 01 32 0E 0E 03 1D 80 A6 14 36 00 1D 80 A0 C9 0F 02
            4B 05 80 FF 80 D1 00 2B 01 E0 72 68 9D 10 07 A0 10 08 63 38 01 72
            72 53 2E 2E 09 14 AF 38 02 31 88 E4 AF 38 02 31 88 6B 01 38 0D BC
            31 7F E5 AF 31 87 2E 0C 14 AF 38 02 31 88 2E 0D 14 AF 38 02 31 88
            AE 32 73 3F 54 67 00 00 00 2F 0E 55 16 01 0B 07 00 E9 2F 10 10 11
            2E 12 10 13 D9 10 15 6B 11 6B 15 70 16 6B 15 30 17 10 18 38 01 31
            8B F3 01 02 6E 03 1A 38 03 31 88 6B 01 38 0E 31 7F F5 38 03 31 88
            66 1E 38 0E D9 09 0B 03 1C 09 0C 31 7F 03 1D 50 11 C2 66 1A 6D 1E
            02 31 54 B1 01 02 B3 31 5B 1B 80 54 42 02 93 00 1B 65 1F 01 02 6E
            03 1A 6F 20 6B 18 65 21 65 22 63 B0 7B 03 7B 02 30 23 0F 03 16 01
            9E 26 24 08 16 02 12 06 16 02 1B 1C 16 02 1B FF BA 31 55 16 02 12
            06 16 02 B6 98 25 1B 0C 16 02 12 06 16 02 0E 01 0F 02 B6 00 14 63
            B8 31 5B 43 14 2F 26 4D 11 19 03 16 02 12 06 16 02 03 27 0F 02 1B
            65
           )
      *TOPLEVEL-ENVIRONMENT* *STEP-LEVEL* *STEP-QUIT* *STEP-WATCH*
      #.MOST-POSITIVE-FIXNUM #(CONTINUE UNWIND) *DEBUG-IO* *STANDARD-INPUT*
      *STANDARD-OUTPUT* PROMPT-STRING1 "Step " #\Space PROMPT-STRING2
      PROMPT-STRING3 CLOSE 11. FRAME-LIMIT1 *FRAME-LIMIT1* FRAME-LIMIT2
      *FRAME-LIMIT2* 4. *DEBUG-MODE* FRAME-UP-1 FRAME-DOWN-1 *DEBUG-FRAME*
      "step " LANGUAGE " --> " 3. STEPPER
      #Y(STEP-HOOK-FN-1
         #35Y(02 00 01 00 00 00 00 00 00 01 C7 50 0B 6B 03 2A 14 DB 6D 04 02 30
              05 51 14 AC 24 06 03 00 19 02 4E 01 01
             )
         NIL NIL DEBUG *DEBUG-FRAME*
         #Y(STEP-HOOK-FN-1-1
            #46Y(00 00 00 00 00 00 00 00 00 01 69 00 01 2E 02 14 71 9D 6B 03 89
                 04 05 2E 05 14 31 9D 14 2E 06 14 71 9D 73 03 24 30 07 1F 03 4E
                 01 00 19 01
                )
            NIL NIL COMMANDS1 *DEBUG-FRAME* EVAL-FRAME-P COMMANDS2 COMMANDS4
            READ-EVAL-PRINT
           )
         SAME-ENV-AS UNWIND
        )
      "condition when to stop: " READ-FORM FUNCTION LAMBDA EVAL-AT
      #S(HASH-TABLE EQ (CONTINUE . 52.) (OVER-THIS-LEVEL . 27.) (OVER . 1.)
         (INTO . 16.)
        )
      STEP-HOOK-FN STEP-VALUES 0.
  )  )
#Y(#:TOP-LEVEL-FORM-61 #15Y(00 00 00 00 00 00 00 00 00 01 02 0F 00 19 01)
   *USE-CLCS*
  )
