(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "EXT" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 D5 19 01)
   (CUSTOM::*PROMPT*) "CUSTOM")
#Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 D5 19 01)
   (EXT::*COMMAND-INDEX* EXT::PROMPT-NEW-PACKAGE EXT::PACKAGE-SHORT-NAME
    CUSTOM::*PROMPT*)
   "EXT")
#Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "SYSTEM" COMMON-LISP::*PACKAGE*)
#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)
   (COMMON-LISP::SPECIAL SYSTEM::*BREAK-COUNT*) SYSTEM::*BREAK-COUNT* 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 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*DEBUG-PRINT-FRAME-LIMIT*)
   SYSTEM::*DEBUG-PRINT-FRAME-LIMIT*)
#Y(#:TOP-LEVEL-FORM-7
   #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)
   (COMMON-LISP::SPECIAL SYSTEM::*RECURSE-COUNT-ERROR-OUTPUT*)
   SYSTEM::*RECURSE-COUNT-ERROR-OUTPUT* 0.)
#Y(#:TOP-LEVEL-FORM-8
   #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)
   (COMMON-LISP::SPECIAL SYSTEM::*RECURSE-COUNT-DEBUG-IO*)
   SYSTEM::*RECURSE-COUNT-DEBUG-IO* 0.)
#Y(#:TOP-LEVEL-FORM-9
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   EXT::PACKAGE-SHORT-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::PACKAGE-SHORT-NAME
      #50Y(00 00 00 00 01 00 00 00 00 02 DA AE 71 CC 38 04 B3 71 CB 72 49 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(EXT::PACKAGE-SHORT-NAME-1
         #26Y(00 00 00 00 02 00 00 00 00 03 AE 72 45 AE 72 45 90 01 31 03 9F 19
              03 9E 19 03))
      COMMON-LISP::*PRINT-CASE*
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (:CAPITALIZE . 15.)
         (:DOWNCASE . 8.) (:UPCASE . 1.))))
#Y(#:TOP-LEVEL-FORM-10
   #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)
   (COMMON-LISP::SPECIAL EXT::*COMMAND-INDEX*) EXT::*COMMAND-INDEX* 0.)
#Y(#:TOP-LEVEL-FORM-11
   #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)
   (COMMON-LISP::SPECIAL SYSTEM::*HOME-PACKAGE*) SYSTEM::*HOME-PACKAGE*)
#Y(#:TOP-LEVEL-FORM-12
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   EXT::PROMPT-NEW-PACKAGE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::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)
      SYSTEM::*HOME-PACKAGE* COMMON-LISP::*PACKAGE*))
#Y(#:TOP-LEVEL-FORM-13
   #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)
   (COMMON-LISP::SPECIAL CUSTOM::*PROMPT*) CUSTOM::*PROMPT*
   #Y(#:TOP-LEVEL-FORM-13-1
      #54Y(00 00 00 00 00 00 00 00 00 01 6B 00 8F 1D 05 6B 00 8C CB 05 E1 2F 08
           19 01 63 DB DC 6B 00 8D D3 04 2E 03 1D 04 6B 00 2F 04 14 6B 05 32 95
           0F 05 14 2D 04 06 19 01)
      COMMON-LISP::*PACKAGE*
      #Y(#:TOP-LEVEL-FORM-13-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)
         #\[ SYSTEM::DO-FORMAT-DECIMAL #\])
      "T" EXT::PROMPT-NEW-PACKAGE EXT::PACKAGE-SHORT-NAME EXT::*COMMAND-INDEX*
      COMMON-LISP::FORMAT "[*package* invalid]" SYSTEM::TEXT)
   COMMON-LISP::VARIABLE
   "The top level prompt.  If a function, the return value is used.
If anything else, printed."
   SYSTEM::%SET-DOCUMENTATION)
#Y(#:TOP-LEVEL-FORM-14
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PROMPT-STRING1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PROMPT-STRING1 #13Y(00 00 00 00 00 00 00 00 00 01 C5 19 01) ""))
#Y(#:TOP-LEVEL-FORM-15
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PROMPT-STRING2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PROMPT-STRING2
      #42Y(03 00 01 00 00 00 00 00 00 01 6B 00 8E 1B 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)
      CUSTOM::*PROMPT* COMMON-LISP::NIL (#(COMMON-LISP::ERROR 12.) 2. . 1.)))
#Y(#:TOP-LEVEL-FORM-16
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PROMPT-STRING3 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PROMPT-STRING3 #13Y(00 00 00 00 00 00 00 00 00 01 C5 19 01)
      "> "))
#Y(#:TOP-LEVEL-FORM-17
   #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)
   (COMMON-LISP::SPECIAL SYSTEM::*KEY-BINDINGS*) SYSTEM::*KEY-BINDINGS*)
#Y(#:TOP-LEVEL-FORM-18
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::HELP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::HELP
      #39Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 38 05 72 4E 72 46 63 1B 0A 87
           01 00 14 38 03 31 88 83 01 AD 8D 91 72 00 19 03)
      #.#'COMMON-LISP::STRINGP SYSTEM::*KEY-BINDINGS*))
#Y(#:TOP-LEVEL-FORM-19
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 05 DB 6B 02 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*SAVED-DEBUG-PACKAGE*)
   SYSTEM::*SAVED-DEBUG-PACKAGE* SYSTEM::*COMMON-LISP-USER-PACKAGE*)
#Y(#:TOP-LEVEL-FORM-20
   #28Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 08 DB 63 38 01 71 6C 31
        51 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*SAVED-DEBUG-READTABLE*)
   SYSTEM::*SAVED-DEBUG-READTABLE*)
#Y(#:TOP-LEVEL-FORM-21
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-RESET-IO SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-RESET-IO
      #47Y(00 00 00 00 00 00 00 00 00 01 6B 00 6B 01 9D 0F 00 9E 0F 01 16 02 6B
           02 6B 03 9D 0F 02 9E 0F 03 16 02 6B 04 DF 6F 06 6B 00 2D 03 07 E2 CE
           52)
      COMMON-LISP::*PACKAGE* SYSTEM::*SAVED-DEBUG-PACKAGE*
      COMMON-LISP::*READTABLE* SYSTEM::*SAVED-DEBUG-READTABLE*
      COMMON-LISP::*DEBUG-IO* "~&Reset *PACKAGE* to ~s" SYSTEM::TEXT
      COMMON-LISP::FORMAT SYSTEM::DEBUG COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*DEBUG-FRAME*) SYSTEM::*DEBUG-FRAME*)
#Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*DEBUG-MODE*) SYSTEM::*DEBUG-MODE*)
#Y(#:TOP-LEVEL-FORM-24
   #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)
   (COMMON-LISP::SPECIAL SYSTEM::*FRAME-LIMIT1*) SYSTEM::*FRAME-LIMIT1*)
#Y(#:TOP-LEVEL-FORM-25
   #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)
   (COMMON-LISP::SPECIAL SYSTEM::*FRAME-LIMIT2*) SYSTEM::*FRAME-LIMIT2*)
#Y(#:TOP-LEVEL-FORM-26
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FRAME-LIMIT1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::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 33 73 16 01 12 02 15 19 02)
      SYSTEM::THE-FRAME SYSTEM::*FRAME-LIMIT1* SYSTEM::*FRAME-LIMIT2* 0. 1.
      SYSTEM::FRAME-UP-1))
#Y(#:TOP-LEVEL-FORM-27
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FRAME-LIMIT2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::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 33 73 16 01 12 02 15 19 01)
      SYSTEM::THE-FRAME SYSTEM::*FRAME-LIMIT1* SYSTEM::*FRAME-LIMIT2* 1.
      SYSTEM::FRAME-UP-1 SYSTEM::DRIVER-FRAME-P 0. 2. SYSTEM::FRAME-DOWN-1))
#Y(#:TOP-LEVEL-FORM-28
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-HELP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-HELP #15Y(00 00 00 00 00 00 00 00 00 01 2E 00 DB C7 52)
      SYSTEM::HELP SYSTEM::DEBUG COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-29
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-UNWIND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-UNWIND #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52)
      SYSTEM::DEBUG SYSTEM::UNWIND))
#Y(#:TOP-LEVEL-FORM-30
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-MODE-1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-MODE-1
      #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC C8 52) 1.
      SYSTEM::*DEBUG-MODE* SYSTEM::DEBUG COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-31
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-MODE-2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-MODE-2
      #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC C8 52) 2.
      SYSTEM::*DEBUG-MODE* SYSTEM::DEBUG COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-32
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-MODE-3 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-MODE-3
      #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC C8 52) 3.
      SYSTEM::*DEBUG-MODE* SYSTEM::DEBUG COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-33
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-MODE-4 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-MODE-4
      #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC C8 52) 4.
      SYSTEM::*DEBUG-MODE* SYSTEM::DEBUG COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-34
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-MODE-5 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-MODE-5
      #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC C8 52) 5.
      SYSTEM::*DEBUG-MODE* SYSTEM::DEBUG COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-35
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-WHERE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-WHERE
      #19Y(00 00 00 00 00 00 00 00 00 01 6B 00 6B 01 30 02 DD C9 52)
      COMMON-LISP::*STANDARD-OUTPUT* SYSTEM::*DEBUG-FRAME*
      SYSTEM::DESCRIBE-FRAME SYSTEM::DEBUG COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-36
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-UP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::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)
      COMMON-LISP::*STANDARD-OUTPUT* SYSTEM::*DEBUG-FRAME* SYSTEM::*DEBUG-MODE*
      SYSTEM::FRAME-UP-1 SYSTEM::DESCRIBE-FRAME SYSTEM::DEBUG
      COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-37
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-TOP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::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)
      COMMON-LISP::*STANDARD-OUTPUT* SYSTEM::*DEBUG-FRAME* SYSTEM::*DEBUG-MODE*
      SYSTEM::FRAME-UP SYSTEM::DESCRIBE-FRAME SYSTEM::DEBUG
      COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-38
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::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)
      COMMON-LISP::*STANDARD-OUTPUT* SYSTEM::*DEBUG-FRAME* SYSTEM::*DEBUG-MODE*
      SYSTEM::FRAME-DOWN-1 SYSTEM::DESCRIBE-FRAME SYSTEM::DEBUG
      COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-39
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-BOTTOM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::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)
      COMMON-LISP::*STANDARD-OUTPUT* SYSTEM::*DEBUG-FRAME* SYSTEM::*DEBUG-MODE*
      SYSTEM::FRAME-DOWN SYSTEM::DESCRIBE-FRAME SYSTEM::DEBUG
      COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-40
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::GET-FRAME-LIMIT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::GET-FRAME-LIMIT
      #62Y(00 00 00 00 00 00 00 00 00 01 63 1B 0C 00 19 02 6B 02 DE 6F 01 AE 2D
           03 05 DA 6F 01 6B 02 38 02 31 88 6B 02 01 02 38 01 71 76 38 05 80 7D
           00 14 8E 0A 04 AC 25 03 59 AC 24 03 52 15 19 01)
      "
Enter the limit for max. frames to print or ':all' for all: "
      SYSTEM::TEXT COMMON-LISP::*DEBUG-IO* :ALL
      "~&~A is not a number. Try again." COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-41
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-SET-FRAME-LIMIT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-SET-FRAME-LIMIT
      #17Y(00 00 00 00 00 00 00 00 00 01 2E 00 0F 01 DC C8 52)
      SYSTEM::GET-FRAME-LIMIT SYSTEM::*DEBUG-PRINT-FRAME-LIMIT* SYSTEM::DEBUG
      COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-42
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-BACKTRACE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-BACKTRACE
      #87Y(00 00 00 00 00 00 03 00 00 10 3B 03 03 0E 00 FB 3B 02 03 0E 01 FA 3D
           01 6B 02 B0 70 03 B0 70 04 93 02 04 2E 05 1C 01 A0 14 E0 92 01 12 6B
           07 AF 30 08 AE AF B4 30 03 FB 22 10 85 00 93 01 6E AC AE 91 01 33 68
           16 01 E7 D3 52 6B 09 E4 6F 0B AE 2D 03 0C 16 01 1B 70)
      SYSTEM::*DEBUG-MODE* SYSTEM::*DEBUG-PRINT-FRAME-LIMIT*
      SYSTEM::*FRAME-LIMIT1* SYSTEM::FRAME-UP-1 SYSTEM::FRAME-DOWN-1
      SYSTEM::GET-FRAME-LIMIT 0. COMMON-LISP::*STANDARD-OUTPUT*
      SYSTEM::DESCRIBE-FRAME COMMON-LISP::*DEBUG-IO* "~&Printed ~D frames"
      SYSTEM::TEXT COMMON-LISP::FORMAT SYSTEM::DEBUG COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-43
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-BACKTRACE-1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-BACKTRACE-1
      #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) 1.
      SYSTEM::DEBUG-BACKTRACE))
#Y(#:TOP-LEVEL-FORM-44
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-BACKTRACE-2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-BACKTRACE-2
      #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) 2.
      SYSTEM::DEBUG-BACKTRACE))
#Y(#:TOP-LEVEL-FORM-45
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-BACKTRACE-3 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-BACKTRACE-3
      #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) 3.
      SYSTEM::DEBUG-BACKTRACE))
#Y(#:TOP-LEVEL-FORM-46
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-BACKTRACE-4 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-BACKTRACE-4
      #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) 4.
      SYSTEM::DEBUG-BACKTRACE))
#Y(#:TOP-LEVEL-FORM-47
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-BACKTRACE-5 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-BACKTRACE-5
      #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) 5.
      SYSTEM::DEBUG-BACKTRACE))
#Y(#:TOP-LEVEL-FORM-48
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-TRAP-ON SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-TRAP-ON
      #18Y(00 00 00 00 00 00 00 00 00 01 6B 00 64 30 01 DC C8 52)
      SYSTEM::*DEBUG-FRAME* SYSTEM::TRAP-EVAL-FRAME SYSTEM::DEBUG
      COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-49
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-TRAP-OFF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-TRAP-OFF
      #18Y(00 00 00 00 00 00 00 00 00 01 6B 00 63 30 01 DC C8 52)
      SYSTEM::*DEBUG-FRAME* SYSTEM::TRAP-EVAL-FRAME SYSTEM::DEBUG
      COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-50
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-REDO SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-REDO
      #17Y(00 00 00 00 00 00 00 00 00 01 6B 00 2F 01 DC C8 52)
      SYSTEM::*DEBUG-FRAME* SYSTEM::REDO-EVAL-FRAME SYSTEM::DEBUG
      COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-51
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-RETURN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-RETURN
      #22Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 6F 02 6F 03 30 04 DF CB 52)
      SYSTEM::*DEBUG-FRAME* "Values: " SYSTEM::TEXT SYSTEM::READ-FORM
      SYSTEM::RETURN-FROM-EVAL-FRAME SYSTEM::DEBUG COMMON-LISP::CONTINUE))
#Y(#:TOP-LEVEL-FORM-52
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-CONTINUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-CONTINUE #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52)
      SYSTEM::DEBUG EXT::QUIT))
#Y(#:TOP-LEVEL-FORM-53
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEBUG-PRINT-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEBUG-PRINT-ERROR #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52)
      SYSTEM::DEBUG SYSTEM::PRINT-ERROR))
#Y(#:TOP-LEVEL-FORM-54
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PRINT-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PRINT-ERROR
      #24Y(00 00 00 00 01 00 00 00 00 02 6B 00 DB 6F 02 AF 63 70 03 2D 03 04 19
           02)
      COMMON-LISP::*DEBUG-IO* "~%Recent Error is: >> ~A <<" SYSTEM::TEXT
      SYSTEM::PRINT-CONDITION COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-55
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMMANDS0 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMMANDS0
      #25Y(00 00 00 00 00 00 00 00 00 01 DA 6F 01 DC 98 03 7A DE 98 03 7A 61 03
           19 01)
      "
Help (abbreviated :h) = this list
Use the usual editing capabilities.
(quit) or (exit) leaves CLISP."
      SYSTEM::TEXT "Help" SYSTEM::DEBUG-HELP ":h"))
#Y(#:TOP-LEVEL-FORM-56
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMMANDS1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMMANDS1
      #232Y(00 00 00 00 00 00 00 00 00 01 DA 6F 01 DC 98 03 7A DE 98 03 7A DF
            98 03 7A E0 98 07 7A E2 98 07 7A E3 98 0A 7A E5 98 0A 7A E6 98 0A
            7A E7 98 0A 7A E8 98 0F 7A EA 98 0F 7A EB 98 12 7A ED 98 12 7A EE
            98 15 7A F0 98 15 7A F1 98 18 7A F3 98 18 7A F4 98 1B 7A F6 98 1B
            7A F7 98 1E 7A 65 1F 98 1E 7A 65 20 98 21 7A 65 22 98 21 7A 65 23
            98 24 7A 65 25 98 24 7A 65 26 98 27 7A 65 28 98 27 7A 65 29 98 2A
            7A 65 2B 98 2A 7A 65 2C 98 2D 7A 65 2E 98 2D 7A 65 2F 98 30 7A 65
            31 98 30 7A 65 32 98 33 7A 65 34 98 33 7A 65 35 98 36 7A 65 37 98
            36 7A 65 38 98 39 7A 65 3A 98 39 7A 65 3B 98 3C 7A 65 3D 98 3C 7A
            65 3E 98 3F 7A 65 40 98 3F 7A 65 41 03 42 7A 65 43 03 44 7A 65 45
            98 46 7A 65 47 98 46 7A 61 30 19 01)
      "
Commands may be abbreviated as shown in the second column.
COMMAND        ABBR             DESCRIPTION
Help           :h (or ?)        this command list
Error          :e               Print the recent Error Message
Abort          :a               abort to the next recent input loop
Unwind         :uw              abort to the next recent input loop
Reset          :re              toggle *PACKAGE* and *READTABLE* between the
                                local bindings and the sane values
Mode-1         :m1              inspect all the stack elements
Mode-2         :m2              inspect all the frames
Mode-3         :m3              inspect only lexical frames
Mode-4         :m4              inspect only EVAL and APPLY frames (default)
Mode-5         :m5              inspect only APPLY frames
Where          :w               inspect this frame
Up             :u               go up one frame, inspect it
Top            :t               go to top frame, inspect it
Down           :d               go down one frame, inspect it
Bottom         :b               go to bottom (most recent) frame, inspect it
Backtrace-1    :bt1             list all stack elements
Backtrace-2    :bt2             list all frames
Backtrace-3    :bt3             list all lexical frames
Backtrace-4    :bt4             list all EVAL and APPLY frames
Backtrace-5    :bt5             list all APPLY frames
Backtrace      :bt              list stack in current mode
Backtrace-l    :bl              list stack in current mode.
                                Limit of frames to print will be prompted for.
Frame-limit    :fl              set the frame-limit. This many frames will
                                be printed in a backtrace at most.
Break+         :br+             set breakpoint in EVAL frame
Break-         :br-             disable breakpoint in EVAL frame
Redo           :rd              re-evaluate form in EVAL frame
Return         :rt              leave EVAL frame, prescribing the return values"
      SYSTEM::TEXT "Help" SYSTEM::DEBUG-HELP ":h" "?" "Error"
      SYSTEM::DEBUG-PRINT-ERROR ":e" "Abort" SYSTEM::DEBUG-UNWIND ":a" "Unwind"
      ":uw" "Reset" SYSTEM::DEBUG-RESET-IO ":re" "Mode-1" SYSTEM::DEBUG-MODE-1
      ":m1" "Mode-2" SYSTEM::DEBUG-MODE-2 ":m2" "Mode-3" SYSTEM::DEBUG-MODE-3
      ":m3" "Mode-4" SYSTEM::DEBUG-MODE-4 ":m4" "Mode-5" SYSTEM::DEBUG-MODE-5
      ":m5" "Where" SYSTEM::DEBUG-WHERE ":w" "Up" SYSTEM::DEBUG-UP ":u" "Top"
      SYSTEM::DEBUG-TOP ":t" "Down" SYSTEM::DEBUG-DOWN ":d" "Bottom"
      SYSTEM::DEBUG-BOTTOM ":b" "Backtrace-1" SYSTEM::DEBUG-BACKTRACE-1 ":bt1"
      "Backtrace-2" SYSTEM::DEBUG-BACKTRACE-2 ":bt2" "Backtrace-3"
      SYSTEM::DEBUG-BACKTRACE-3 ":bt3" "Backtrace-4" SYSTEM::DEBUG-BACKTRACE-4
      ":bt4" "Backtrace-5" SYSTEM::DEBUG-BACKTRACE-5 ":bt5" "Backtrace"
      SYSTEM::DEBUG-BACKTRACE ":bt" "Backtrace-l"
      #Y(SYSTEM::COMMANDS1-1
         #19Y(00 00 00 00 00 00 00 00 00 01 6B 00 63 64 2D 03 01 19 01)
         SYSTEM::*DEBUG-MODE* SYSTEM::DEBUG-BACKTRACE)
      ":bl"
      #Y(SYSTEM::COMMANDS1-2
         #19Y(00 00 00 00 00 00 00 00 00 01 6B 00 63 64 2D 03 01 19 01)
         SYSTEM::*DEBUG-MODE* SYSTEM::DEBUG-BACKTRACE)
      "Frame-limit" SYSTEM::DEBUG-SET-FRAME-LIMIT ":fl"))
#Y(#:TOP-LEVEL-FORM-57
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMMANDS2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMMANDS2
      #46Y(00 00 00 00 00 00 00 00 00 01 DA 98 01 7A DC 98 01 7A DD 98 04 7A DF
           98 04 7A E0 98 07 7A E2 98 07 7A E3 98 0A 7A E5 98 0A 7A 61 08 19
           01)
      "Break+" SYSTEM::DEBUG-TRAP-ON ":br+" "Break-" SYSTEM::DEBUG-TRAP-OFF
      ":br-" "Redo" SYSTEM::DEBUG-REDO ":rd" "Return" SYSTEM::DEBUG-RETURN
      ":rt"))
#Y(#:TOP-LEVEL-FORM-58
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMMANDS3 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMMANDS3
      #25Y(00 00 00 00 00 00 00 00 00 01 DA 6F 01 DC 98 03 7A DE 98 03 7A 61 03
           19 01)
      "
Continue       :c       continue evaluation"
      SYSTEM::TEXT "Continue" SYSTEM::DEBUG-CONTINUE ":c"))
#Y(#:TOP-LEVEL-FORM-59
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMMANDS4 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMMANDS4
      #74Y(00 00 00 00 00 00 00 00 00 01 DA 6F 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 EC D8 7A EE 03 15 7A F0 03
           17 7A F2 03 19 7A F4 03 1B 7A F6 03 1D 7A 65 1E 03 1F 7A 65 20 03 21
           7A 61 11 19 01)
      "
Continue       :c       continue evaluation
Step           :s       step into form: evaluate this form in single step mode
Next           :n       step over form: evaluate this form at once
Over           :o       step over this level: evaluate at once up to the next return
Continue       :c      switch off single step mode, continue evaluation
-- Step-until :su, Next-until :nu, Over-until :ou, Continue-until :cu --
           same as above, specify a condition when to stop"
      SYSTEM::TEXT "Step"
      #Y(SYSTEM::COMMANDS4-1 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52)
         SYSTEM::STEPPER SYSTEM::INTO)
      ":s"
      #Y(SYSTEM::COMMANDS4-2 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52)
         SYSTEM::STEPPER SYSTEM::INTO)
      "Next"
      #Y(SYSTEM::COMMANDS4-3 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52)
         SYSTEM::STEPPER SYSTEM::OVER)
      ":n"
      #Y(SYSTEM::COMMANDS4-4 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52)
         SYSTEM::STEPPER SYSTEM::OVER)
      "Over"
      #Y(SYSTEM::COMMANDS4-5 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52)
         SYSTEM::STEPPER SYSTEM::OVER-THIS-LEVEL)
      ":o"
      #Y(SYSTEM::COMMANDS4-6 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52)
         SYSTEM::STEPPER SYSTEM::OVER-THIS-LEVEL)
      "Continue"
      #Y(SYSTEM::COMMANDS4-7 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52)
         SYSTEM::STEPPER COMMON-LISP::CONTINUE)
      ":c"
      #Y(SYSTEM::COMMANDS4-8 #13Y(00 00 00 00 00 00 00 00 00 01 DA C6 52)
         SYSTEM::STEPPER COMMON-LISP::CONTINUE)
      "Step-until"
      #Y(SYSTEM::COMMANDS4-9
         #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52) SYSTEM::STEPPER
         SYSTEM::INTO)
      ":su"
      #Y(SYSTEM::COMMANDS4-10
         #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52) SYSTEM::STEPPER
         SYSTEM::INTO)
      "Next-until"
      #Y(SYSTEM::COMMANDS4-11
         #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52) SYSTEM::STEPPER
         SYSTEM::OVER)
      ":nu"
      #Y(SYSTEM::COMMANDS4-12
         #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52) SYSTEM::STEPPER
         SYSTEM::OVER)
      "Over-until"
      #Y(SYSTEM::COMMANDS4-13
         #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52) SYSTEM::STEPPER
         SYSTEM::OVER-THIS-LEVEL)
      ":ou"
      #Y(SYSTEM::COMMANDS4-14
         #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52) SYSTEM::STEPPER
         SYSTEM::OVER-THIS-LEVEL)
      "Continue-until"
      #Y(SYSTEM::COMMANDS4-15
         #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52) SYSTEM::STEPPER
         COMMON-LISP::CONTINUE)
      ":cu"
      #Y(SYSTEM::COMMANDS4-16
         #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 64 40 02 52) SYSTEM::STEPPER
         COMMON-LISP::CONTINUE)))
#Y(#:TOP-LEVEL-FORM-60
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAIN-LOOP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAIN-LOOP #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 DC 31 54)
      0. SYSTEM::*BREAK-COUNT*
      #Y(SYSTEM::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)
         SYSTEM::DEBUG SYSTEM::PROMPT-STRING1 SYSTEM::PROMPT-STRING2
         SYSTEM::PROMPT-STRING3 SYSTEM::COMMANDS0 SYSTEM::READ-EVAL-PRINT
         EXT::EXIT)))
#Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 00 00 00 00 01 98 00 0F 01 19 01)
   SYSTEM::MAIN-LOOP EXT::*DRIVER*)
#Y(#:TOP-LEVEL-FORM-62
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::BREAK-LOOP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::BREAK-LOOP
      #553Y(04 00 02 00 01 00 02 00 00 0D 00 2B 04 7F 04 00 00 3B 03 01 00 0B
            00 01 3B 02 80 D8 7D 02 06 00 00 1D 80 D5 1B 80 DD E8 6B 06 38 02
            31 88 6B 06 31 8A 1B 81 2F D0 0F 10 EB 6F 12 6B 06 38 02 31 88 1B
            81 35 6B 02 31 8A EE 6F 12 6B 02 38 02 31 88 06 01 01 1D 81 4D 1B
            81 38 6B 02 31 8A 93 00 09 EF 6F 12 6B 02 38 02 31 88 68 01 02 6B
            02 31 83 06 01 01 1D 81 2D 1B 81 18 03 17 1B 0E 93 01 14 6B 02 31
            8A 06 02 02 1C 70 03 18 14 6F 12 6B 02 38 02 31 88 E5 AD 63 1B 80
            41 87 01 00 F3 85 03 14 72 8F 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 03 5D 0B 07 03 AD A5 2B 01
            7F 04 00 00 AC 2C 1C 01 16 01 7A 06 08 03 5D 0B 07 03 16 02 83 01
            AD 8D 91 FF BA 16 02 6B 02 31 8A 68 03 03 32 47 0B 03 03 16 02 1B
            80 B0 06 00 00 1C 0B 06 00 01 1D 06 DA 68 01 01 30 01 0B 00 02 6B
            02 6F 03 00 0B 01 03 93 03 80 7A 68 01 01 DE 38 02 72 27 8B 05 80
            6E E0 E1 30 08 6B 09 32 95 10 09 6B 09 E4 91 01 31 22 D0 0F 09 E0
            31 52 6B 0C 32 95 10 0C 6B 0C E4 91 01 31 0A D0 0F 0C DC 31 52 DC
            E7 30 08 E0 E1 30 08 11 6B 06 31 8A 11 06 01 02 1C FE CA E9 6B 06
            38 02 31 88 6B 10 32 95 10 10 6B 10 E4 90 01 31 FE C3 68 04 01 6B
            06 30 13 11 DC E7 30 08 06 01 02 1D 0A 06 01 00 1D FE D1 92 00 FE
            B7 06 01 01 1D 12 68 01 02 68 02 01 6F 16 38 07 72 4C 92 00 FE DC
            16 01 6B 02 31 8D 4B 1D 80 78 80 78 6B 02 31 7C A3 2B 01 6B 1E 32
            95 10 1E DC 72 69 9D 10 1F A0 10 20 63 38 01 72 73 53 2B 2E 21 14
            AF 38 02 31 88 6B 1E 38 10 BF 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 74 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)
      COMMON-LISP::CONTINUE COMMON-LISP::FIND-RESTART COMMON-LISP::*DEBUG-IO*
      COMMON-LISP::INTERACTIVE-STREAM-P COMMON-LISP::CONDITION
      COMMON-LISP::TYPEP COMMON-LISP::*ERROR-OUTPUT* :OUTPUT
      SYSTEM::SYMBOL-STREAM SYSTEM::*RECURSE-COUNT-ERROR-OUTPUT* 3. 0.
      SYSTEM::*RECURSE-COUNT-DEBUG-IO* :IO "** - Continuable Error" "*** - "
      SYSTEM::*RECURSIVE-ERROR-COUNT* "Unprintable error message." SYSTEM::TEXT
      SYSTEM::PRINT-CONDITION "You can continue (by typing 'continue')."
      "If you continue (by typing 'continue'): " COMMON-LISP::COMPUTE-RESTARTS
      "The following restarts are available, too:"
      "The following restarts are available:" "R"
      "
"
      " = "
      #Y(SYSTEM::BREAK-LOOP-1
         #17Y(00 00 00 00 00 00 00 00 00 01 69 00 01 2F 01 19 01)
         COMMON-LISP::NIL COMMON-LISP::INVOKE-RESTART-INTERACTIVELY)
      #(SYSTEM::UNWIND EXT::QUIT) SYSTEM::*BREAK-COUNT*
      COMMON-LISP::*STANDARD-INPUT* COMMON-LISP::*STANDARD-OUTPUT*
      SYSTEM::PROMPT-STRING1 ". Break " SYSTEM::PROMPT-STRING2
      SYSTEM::PROMPT-STRING3 COMMON-LISP::CLOSE 13. SYSTEM::FRAME-LIMIT1
      SYSTEM::*FRAME-LIMIT1* SYSTEM::FRAME-LIMIT2 SYSTEM::*FRAME-LIMIT2* 4.
      SYSTEM::*DEBUG-MODE* SYSTEM::FRAME-UP-1 SYSTEM::FRAME-DOWN-1
      SYSTEM::*DEBUG-FRAME*
      #Y(SYSTEM::BREAK-LOOP-2
         #54Y(02 00 01 00 00 00 00 00 00 01 C7 50 0A 6B 03 2A 14 6D 04 01 30 05
              51 26 06 19 69 01 02 2F 07 19 01 4E 01 00 4E 01 01 07 01 01 1C 78
              69 01 03 2F 08 19 01 00 19 01)
         COMMON-LISP::NIL COMMON-LISP::NIL SYSTEM::DEBUG SYSTEM::*DEBUG-FRAME*
         #Y(SYSTEM::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 03 1D 05 2E 05 14 31 9D 14 69 01
                 04 73 04 24 30 06 1F 0A E1 07 01 03 1C 02 CE 52 CD 52 19 01)
            COMMON-LISP::NIL SYSTEM::COMMANDS1 SYSTEM::*DEBUG-FRAME*
            SYSTEM::EVAL-FRAME-P SYSTEM::COMMANDS2 SYSTEM::COMMANDS3
            SYSTEM::READ-EVAL-PRINT SYSTEM::DEBUG EXT::QUIT SYSTEM::UNWIND)
         SYSTEM::SAME-ENV-AS
         #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (EXT::QUIT . 14.)
            (SYSTEM::UNWIND . 8.) (SYSTEM::PRINT-ERROR . 1.))
         SYSTEM::PRINT-ERROR COMMON-LISP::INVOKE-RESTART-INTERACTIVELY)))
#Y(#:TOP-LEVEL-FORM-63 #16Y(00 00 00 00 00 00 00 00 00 01 98 00 0F 01 19 01)
   SYSTEM::BREAK-LOOP EXT::*BREAK-DRIVER*)
#Y(#:TOP-LEVEL-FORM-64
   #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)
   (COMMON-LISP::SPECIAL SYSTEM::*STEP-LEVEL*) SYSTEM::*STEP-LEVEL* 0.
   COMMON-LISP::VARIABLE "current Step-depth" SYSTEM::%SET-DOCUMENTATION)
#Y(#:TOP-LEVEL-FORM-65
   #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)
   (COMMON-LISP::SPECIAL SYSTEM::*STEP-QUIT*) SYSTEM::*STEP-QUIT*
   #.COMMON-LISP::MOST-POSITIVE-FIXNUM COMMON-LISP::VARIABLE
   "critical Step-depth" SYSTEM::%SET-DOCUMENTATION)
#Y(#:TOP-LEVEL-FORM-66
   #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)
   (COMMON-LISP::SPECIAL SYSTEM::*STEP-WATCH*) SYSTEM::*STEP-WATCH*)
#Y(#:TOP-LEVEL-FORM-67
   #28Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 6F 06 32
        80 C5 19 01)
   COMMON-LISP::STEP SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "(STEP form), CLTL S. 441" SYSTEM::%SET-DOCUMENTATION
   #Y(COMMON-LISP::STEP
      #33Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 0A 9F 5C 78 DC DD
           AE 61 03 19 04 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::LET*
      ((SYSTEM::*STEP-LEVEL* 0.)
       (SYSTEM::*STEP-QUIT* COMMON-LISP::MOST-POSITIVE-FIXNUM)
       (SYSTEM::*STEP-WATCH* COMMON-LISP::NIL)
       (CUSTOM::*EVALHOOK* #'SYSTEM::STEP-HOOK-FN)))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-68
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::STEP-VALUES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::STEP-VALUES
      #118Y(00 00 00 00 01 00 00 00 00 02 0E 00 10 01 38 01 31 8A DC 6F 03 38
            03 31 88 6B 04 38 11 31 7F DF 38 03 31 88 B0 72 45 AC 24 06 15 AC
            24 08 1A B1 72 45 38 11 31 7F E4 6F 03 38 03 31 88 B1 1B 29 E1 6F
            03 38 03 31 88 1B 26 E3 6F 03 38 03 31 88 94 05 38 11 31 7F 1B 17
            94 00 83 01 38 11 31 7F AC 8C 91 05 E5 38 03 31 88 AC 8D 91 6B 16
            01 16 01 11 9E 44 19 02)
      COMMON-LISP::*DEBUG-IO* COMMON-LISP::*STANDARD-OUTPUT* "step "
      SYSTEM::TEXT SYSTEM::*STEP-LEVEL* " ==> " 0. "no values" 1. "value: "
      " values: " ", "))
#Y(#:TOP-LEVEL-FORM-69
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::STEP-HOOK-FN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::STEP-HOOK-FN
      #303Y(04 00 02 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 6B 01 32 95 10 01
            6B 01 6B 02 91 01 33 0E 0E 03 1D 80 A3 14 36 00 1D 80 9D C9 0F 02
            4B 05 80 F9 80 CB 00 2B 01 E0 72 69 9D 10 07 A0 10 08 63 38 01 72
            73 53 2E 2E 09 14 AF 38 02 31 88 E4 AF 38 02 31 88 6B 01 38 10 BF
            31 7F E5 AF 31 87 2E 0C 14 AF 38 02 31 88 2E 0D 14 AF 38 02 31 88
            AE 32 74 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 6F 1A 38 03 31 88 6B 01 38 11 31 7F F5 38 03 31 88 66 1E 38
            11 D9 09 0E 03 1C 09 0F 31 7F 03 1D 50 11 C2 66 1A 6D 1E 02 31 54
            B1 01 02 B3 31 5B 1B 80 51 42 02 93 00 18 65 1F 6F 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 BD 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)
      SYSTEM::*TOPLEVEL-ENVIRONMENT* SYSTEM::*STEP-LEVEL* SYSTEM::*STEP-QUIT*
      SYSTEM::*STEP-WATCH* #.COMMON-LISP::MOST-POSITIVE-FIXNUM
      #(COMMON-LISP::CONTINUE SYSTEM::UNWIND) COMMON-LISP::*DEBUG-IO*
      COMMON-LISP::*STANDARD-INPUT* COMMON-LISP::*STANDARD-OUTPUT*
      SYSTEM::PROMPT-STRING1 "Step " #\Space SYSTEM::PROMPT-STRING2
      SYSTEM::PROMPT-STRING3 COMMON-LISP::CLOSE 11. SYSTEM::FRAME-LIMIT1
      SYSTEM::*FRAME-LIMIT1* SYSTEM::FRAME-LIMIT2 SYSTEM::*FRAME-LIMIT2* 4.
      SYSTEM::*DEBUG-MODE* SYSTEM::FRAME-UP-1 SYSTEM::FRAME-DOWN-1
      SYSTEM::*DEBUG-FRAME* "step " SYSTEM::TEXT " --> " 3. SYSTEM::STEPPER
      #Y(SYSTEM::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)
         COMMON-LISP::NIL COMMON-LISP::NIL SYSTEM::DEBUG SYSTEM::*DEBUG-FRAME*
         #Y(SYSTEM::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)
            COMMON-LISP::NIL COMMON-LISP::NIL SYSTEM::COMMANDS1
            SYSTEM::*DEBUG-FRAME* SYSTEM::EVAL-FRAME-P SYSTEM::COMMANDS2
            SYSTEM::COMMANDS4 SYSTEM::READ-EVAL-PRINT)
         SYSTEM::SAME-ENV-AS SYSTEM::UNWIND)
      "condition when to stop: " SYSTEM::READ-FORM COMMON-LISP::FUNCTION
      COMMON-LISP::LAMBDA SYSTEM::EVAL-AT
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::CONTINUE . 52.)
         (SYSTEM::OVER-THIS-LEVEL . 27.) (SYSTEM::OVER . 1.)
         (SYSTEM::INTO . 16.))
      SYSTEM::STEP-HOOK-FN SYSTEM::STEP-VALUES 0.))
#Y(#:TOP-LEVEL-FORM-70 #15Y(00 00 00 00 00 00 00 00 00 01 02 0F 00 19 01)
   SYSTEM::*USE-CLCS*)
