(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)
   "COMMON-LISP" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (COMMON-LISP::TRACE COMMON-LISP::UNTRACE))
#Y(#:TOP-LEVEL-FORM-3 #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-4 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (EXT::*TRACE-FUNCTION* EXT::*TRACE-ARGS* EXT::*TRACE-FORM*
    EXT::*TRACE-VALUES*))
#Y(#:TOP-LEVEL-FORM-5 #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-6 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (COMMON-LISP::SPECIAL EXT::*TRACE-FUNCTION* EXT::*TRACE-ARGS*
    EXT::*TRACE-FORM* EXT::*TRACE-VALUES*))
#Y(#:TOP-LEVEL-FORM-7
   #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::*TRACED-FUNCTIONS*)
   SYSTEM::*TRACED-FUNCTIONS*)
#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::*TRACE-LEVEL*) SYSTEM::*TRACE-LEVEL* 0.)
#Y(#:TOP-LEVEL-FORM-9
   #43Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 AC 2C 00 01 0B 00 00 DB 2F 02 DB
        AD 6D 03 01 32 80 DE 2F 02 DE AD 6D 05 01 32 80 C9 19 02)
   #Y(SYSTEM::LOCAL-HELPER
      #47Y(00 00 00 00 01 00 00 00 00 02 95 01 94 02 C6 74 AC 94 02 C7 74 1B 0D
           83 02 AD AD 81 29 01 14 94 03 C7 34 F8 95 02 8D 91 6E AD AD 40 02 19
           05)
      COMMON-LISP::NIL
      #Y(SYSTEM::FORCE-CCLOSURE
         #45Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 AC 8F 08 0C AC 8E 07 15 AE
              AD 70 08 2F 00 19 03 DB DC AE DD DE DF 6F 06 E1 B5 33 06 1F 15 19
              02)
         COMMON-LISP::FDEFINITION COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
         SYSTEM::CLOSURE "~S: ~S must name a closure" SYSTEM::TEXT EXT::LOCAL
         COMMON-LISP::COMPILE)
      #Y(SYSTEM::SUBCLOSURE-POS
         #58Y(00 00 00 00 02 00 00 00 00 03 AE 72 2B AF 72 31 AF 70 00 DB 63 1B
              0B DC 6F 03 DE B3 B5 33 03 1E 85 01 AD B0 90 01 2E 6F B2 AE 81 29
              00 14 8F 08 6F AE AD 32 31 23 69 9E 19 07)
         SYSTEM::SYMBOL-SUFFIX 2. "~s: no local name ~s in ~s" SYSTEM::TEXT
         EXT::LOCAL))
   SYSTEM::%LOCAL-GET SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::%LOCAL-GET
      #23Y(00 00 00 00 01 00 00 00 00 02 AD 07 00 01 34 42 02 AD AD 32 29 19
           04)
      COMMON-LISP::NIL)
   SYSTEM::%LOCAL-SET
   #Y(SYSTEM::%LOCAL-SET
      #60Y(00 00 00 00 02 00 00 00 00 03 AE 8F 08 1D AD 07 00 01 34 42 02 AD AD
           B2 8E 07 1E AF AF 72 29 72 31 B3 70 08 2F 09 14 32 2A 19 05 DB DC B0
           DD DE DF 6F 06 E1 A5 7A 33 05 1F A3 1B 6A)
      COMMON-LISP::NIL COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      SYSTEM::CLOSURE "~S: ~S must be a closure" SYSTEM::TEXT
      (COMMON-LISP::SETF EXT::LOCAL) COMMON-LISP::COMPILE
      COMMON-LISP::FDEFINITION))
#Y(#:TOP-LEVEL-FORM-10
   #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)
   EXT::LOCAL SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "Return the closure defined locally with LABELS or FLET.
SPEC is a list of (CLOSURE SUB-CLOSURE SUB-SUB-CLOSURE ...)
CLOSURE must be compiled."
   SYSTEM::%SET-DOCUMENTATION
   #Y(EXT::LOCAL #17Y(00 00 00 00 01 00 01 00 00 08 95 02 AC 2F 00 19 04)
      SYSTEM::%LOCAL-GET)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-11
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 DC 2F 03 DC DE 32 80 DA DF E0
        98 02 7A 32 86 DA E1 E2 2D 03 09 C5 19 01)
   EXT::LOCAL SYSTEM::DEFSTRUCT-WRITER #1=#:SETF-LOCAL
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #36Y(00 00 00 00 02 00 00 00 00 03 95 02 DA 72 8E 01 02 AE 7B 01 DB B0 DC
           B3 7B 02 7B 03 DD B2 7B 02 40 05 19 05)
      "LOCAL-" SYSTEM::%LOCAL-SET COMMON-LISP::QUOTE SYSTEM::%LOCAL-GET)
   SYSTEM::SETF-EXPANDER -5. COMMON-LISP::SETF
   "Modify the local definition (LABELS or FLET).
This will not work with closures that use lexical variables!"
   SYSTEM::%SET-DOCUMENTATION)
#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)
   SYSTEM::LOCAL-FUNCTION-NAME-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::LOCAL-FUNCTION-NAME-P
      #23Y(00 00 00 00 01 00 00 00 00 02 AD 32 02 1F 06 94 01 C5 5A 19 02 19
           02)
      EXT::LOCAL))
#Y(#:TOP-LEVEL-FORM-13
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::TRACE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::TRACE
      #62Y(00 00 00 00 01 00 01 00 00 08 95 02 93 00 05 DB 63 AE 1B 1D C5 19 04
           AC 2F 03 1B 0E 94 00 9D 20 76 AC 88 02 72 99 03 9E 37 00 14 84 02 16
           01 83 00 9D 21 68 16 01 AC 31 A2 16 01 5D 19 04)
      SYSTEM::*TRACED-FUNCTIONS* COMMON-LISP::APPEND SYSTEM::FUNCTION-NAME-P
      SYSTEM::TRACE1)
   SYSTEM::MAKE-MACRO)
#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::ERROR-FUNCTION-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ERROR-FUNCTION-NAME
      #19Y(00 00 00 00 02 00 00 00 00 03 DA DB 6F 02 B0 B0 33 02 1F)
      SYSTEM::SOURCE-PROGRAM-ERROR "~s: ~s is not a function name"
      SYSTEM::TEXT))
#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::TRACE1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TRACE1
      #480Y(00 00 00 00 01 00 00 00 80 1C 09 00 00 00 3D 09 3D 08 3D 07 3D 06
            3D 05 3D 04 3D 03 3D 02 3D 01 38 01 72 8E 38 01 72 8E B8 88 09 04
            E4 B9 30 0B B8 E4 E6 2D 03 0D A9 20 81 A1 E9 EA E8 04 0F 5C 78 7B
            02 61 02 14 7B 02 EB 63 EC ED B0 7B 02 EE EF F0 E8 C1 7B 02 7B 04
            03 17 7C 03 F2 F3 B1 7B 02 EE F4 F5 E8 C2 7B 02 7B 04 03 1C 7C 03
            F7 B3 65 1E B3 7B 02 7B 02 B3 65 1F B6 7B 02 7B 02 7B 02 EC 65 20
            B6 65 21 B6 03 22 7C 02 7B 03 65 23 65 21 B6 03 24 7C 02 B8 7B 03
            65 25 E8 C4 7B 02 03 26 7C 02 7B 04 65 27 64 65 28 B7 E8 66 19 7B
            02 7B 05 65 23 65 21 B6 03 29 7C 02 65 23 65 1E B8 7B 02 65 2A 66
            1A 6F 2B 70 2C 65 2D 65 2E 65 2F EB 63 EC 66 1F 03 30 7C 02 93 19
            0C 65 31 65 32 66 1B 7B 02 7B 02 61 01 14 93 18 0C 65 31 65 32 66
            1A 7B 02 7B 02 61 01 14 66 1F 93 1E 09 F2 66 1F 03 33 7C 02 61 01
            14 65 2E 65 34 65 32 65 35 66 26 03 36 7C 02 7B 02 7B 02 7B 01 93
            20 09 F2 66 21 03 37 7C 02 61 01 14 66 23 93 1F 0C 65 31 65 32 66
            21 7B 02 7B 02 61 01 14 93 21 0C 65 31 65 32 66 23 7B 02 7B 02 61
            01 14 EC 66 2A 03 38 7C 02 03 39 7A 33 03 23 7A 33 02 23 7C 02 7B
            01 33 02 23 7A 33 03 23 7C 03 7B 03 7B 02 65 35 65 3A BD 7B 02 65
            3B B0 65 3C 65 3D 65 3E 65 3F 65 40 65 41 E8 66 26 7B 02 03 42 7C
            02 7B 02 65 43 65 44 66 19 7B 02 7B 02 7B 05 A3 7C 02 7B 03 65 45
            65 3B B2 65 3C 65 3D 65 3E 65 3F 65 46 65 43 65 47 65 44 66 1C 7B
            02 7B 02 7B 02 7B 05 A5 7C 02 7B 03 7B 02 61 04 16 01 F8 7B 03 7B
            03 7B 05 E8 BF 7B 01 7B 02 61 06 19 0E E8 AA 1B FE 65)
      :SUPPRESS-IF :STEP-IF :PRE :POST :PRE-BREAK-IF :POST-BREAK-IF :PRE-PRINT
      :POST-PRINT :PRINT SYSTEM::FUNCTION-NAME-P COMMON-LISP::TRACE
      SYSTEM::ERROR-FUNCTION-NAME "function" SYSTEM::CHECK-REDEFINITION
      COMMON-LISP::QUOTE COMMON-LISP::LOAD-TIME-VALUE SYSTEM::GET-SETF-SYMBOL
      COMMON-LISP::BLOCK COMMON-LISP::UNLESS COMMON-LISP::FBOUNDP
      COMMON-LISP::WARN (SYSTEM::TEXT "~S: undefined function ~S")
      'COMMON-LISP::TRACE ((COMMON-LISP::RETURN COMMON-LISP::NIL))
      COMMON-LISP::WHEN COMMON-LISP::SPECIAL-OPERATOR-P
      (SYSTEM::TEXT "~S: cannot trace special operator ~S") 'COMMON-LISP::TRACE
      ((COMMON-LISP::RETURN COMMON-LISP::NIL)) COMMON-LISP::LET*
      COMMON-LISP::SYMBOL-FUNCTION SYSTEM::MACROP COMMON-LISP::EQ
      COMMON-LISP::GET ('SYSTEM::TRACING-DEFINITION) COMMON-LISP::SETF
      ('SYSTEM::TRACED-DEFINITION) COMMON-LISP::PUSHNEW
      (SYSTEM::*TRACED-FUNCTIONS* :TEST #'COMMON-LISP::EQUAL)
      COMMON-LISP::FORMAT
      (SYSTEM::TEXT "~&;; Tracing ~:[function~;macro~] ~S.")
      ('SYSTEM::TRACING-DEFINITION) "TRACED-" SYSTEM::GET-FUNNAME-SYMBOL
      SYSTEM::CONCAT-PNAMES
      (COMMON-LISP::DECLARE (COMMON-LISP::COMPILE)
       (COMMON-LISP::INLINE COMMON-LISP::CAR COMMON-LISP::CDR COMMON-LISP::CONS
        COMMON-LISP::APPLY COMMON-LISP::VALUES-LIST))
      COMMON-LISP::LET ((SYSTEM::*TRACE-LEVEL* (SYSTEM::TRACE-LEVEL-INC)))
      ((SYSTEM::TRACE-PRE-OUTPUT)) SYSTEM::TRACE-PRINT
      COMMON-LISP::MULTIPLE-VALUE-LIST ((SYSTEM::BREAK-LOOP COMMON-LISP::T))
      EXT::*TRACE-VALUES* COMMON-LISP::IF
      ((SYSTEM::TRACE-STEP-APPLY)
       (COMMON-LISP::APPLY EXT::*TRACE-FUNCTION* EXT::*TRACE-ARGS*))
      ((SYSTEM::BREAK-LOOP COMMON-LISP::T)) ((SYSTEM::TRACE-POST-OUTPUT))
      ((COMMON-LISP::VALUES-LIST EXT::*TRACE-VALUES*)) COMMON-LISP::NOT
      COMMON-LISP::FUNCTION COMMON-LISP::LAMBDA COMMON-LISP::&REST
      EXT::*TRACE-ARGS* COMMON-LISP::&AUX EXT::*TRACE-FORM*
      SYSTEM::MAKE-APPLY-FORM (EXT::*TRACE-ARGS*) EXT::*TRACE-FUNCTION*
      SYSTEM::GET-TRACED-DEFINITION SYSTEM::MAKE-MACRO
      (EXT::*TRACE-FORM* (COMMON-LISP::CAR EXT::*TRACE-ARGS*))
      SYSTEM::MACRO-EXPANDER))
#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::TRACE-LEVEL-INC SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TRACE-LEVEL-INC
      #17Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 36 01 19 01)
      #.#'COMMON-LISP::1+ SYSTEM::*TRACE-LEVEL*))
#Y(#:TOP-LEVEL-FORM-17
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::GET-TRACED-DEFINITION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::GET-TRACED-DEFINITION
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 36 02 19 02)
      #.#'COMMON-LISP::GET SYSTEM::TRACED-DEFINITION))
#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::TRACE-STEP-APPLY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TRACE-STEP-APPLY
      #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 6B 04 00 5D 7A DD 6B 05 00
           5D 7A 00 5D 5D 7A 00 5D 7A 36 01 19 01)
      #.#'COMMON-LISP::EVAL COMMON-LISP::STEP COMMON-LISP::APPLY
      COMMON-LISP::QUOTE EXT::*TRACE-FUNCTION* EXT::*TRACE-ARGS*))
#Y(#:TOP-LEVEL-FORM-19
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAKE-APPLY-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-APPLY-FORM
      #41Y(00 00 00 00 02 00 00 00 00 03 AE 63 AF 1B 0D 94 00 DA AD 00 5D 7A 84
           02 16 01 83 00 9D 21 70 16 01 AC 31 A2 16 01 5D 19 03)
      COMMON-LISP::QUOTE))
#Y(#:TOP-LEVEL-FORM-20
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::TRACE-PRE-OUTPUT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TRACE-PRE-OUTPUT
      #42Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 36 01 DC 6B 03 DE 6B 01 DF E0
           E1 64 36 07 E2 E3 6B 01 36 02 E4 6B 0B 6B 01 36 02 19 01)
      #.#'COMMON-LISP::TERPRI COMMON-LISP::*TRACE-OUTPUT*
      #.#'COMMON-LISP::WRITE SYSTEM::*TRACE-LEVEL* :STREAM :BASE 10. :RADIX
      #.#'COMMON-LISP::WRITE-STRING " Trace: " #.#'COMMON-LISP::PRIN1
      EXT::*TRACE-FORM*))
#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::TRACE-POST-OUTPUT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TRACE-POST-OUTPUT
      #55Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 36 01 DC 6B 03 DE 6B 01 DF E0
           E1 64 36 07 E2 E3 6B 01 36 02 E4 0E 0B 78 DE 6B 01 36 03 E6 E7 6B 01
           36 02 6B 0E 63 30 0F 19 01)
      #.#'COMMON-LISP::TERPRI COMMON-LISP::*TRACE-OUTPUT*
      #.#'COMMON-LISP::WRITE SYSTEM::*TRACE-LEVEL* :STREAM :BASE 10. :RADIX
      #.#'COMMON-LISP::WRITE-STRING " Trace: " #.#'COMMON-LISP::WRITE
      EXT::*TRACE-FORM* #.#'COMMON-LISP::WRITE-STRING " ==> "
      EXT::*TRACE-VALUES* SYSTEM::TRACE-PRINT))
#Y(#:TOP-LEVEL-FORM-22
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::TRACE-PRINT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TRACE-PRINT
      #60Y(00 00 00 00 01 00 01 00 00 08 3B 01 0A 7E 01 93 01 0D 1B 06 00 19 03
           93 01 05 DA 6B 01 36 01 AE 32 02 1F 16 94 02 DC AD 6B 01 36 02 16 01
           83 02 20 62 DD DE 6B 01 36 02 1B 6A 19 03)
      #.#'COMMON-LISP::TERPRI COMMON-LISP::*TRACE-OUTPUT*
      #.#'COMMON-LISP::PRIN1 #.#'COMMON-LISP::WRITE-STRING ", "))
#Y(#:TOP-LEVEL-FORM-23
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::UNTRACE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::UNTRACE
      #29Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB 93 02 09 DD AF 61 02 14 61
           03 19 04 C7 1B 78)
      COMMON-LISP::MAPCAN #'SYSTEM::UNTRACE1
      (COMMON-LISP::COPY-LIST SYSTEM::*TRACED-FUNCTIONS*) COMMON-LISP::QUOTE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-24
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::UNTRACE1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::UNTRACE1
      #83Y(00 00 00 00 01 00 00 00 00 02 AD 89 00 1A AD DE DF 2D 03 06 AD 6F 07
           AC E2 38 01 72 82 92 00 17 00 14 B0 2F 0C 15 19 04 DB DC 6F 03 DE B0
           33 02 1F AD AD 32 80 1B 17 AD 8D 4F 0B 9E 5E 14 AE E3 38 01 32 82 22
           6B E4 6F 03 DE B1 2D 03 0B AF 61 01 1B 4E)
      SYSTEM::FUNCTION-NAME-P SYSTEM::SOURCE-PROGRAM-ERROR
      "~S: function name should be a symbol, not ~S" SYSTEM::TEXT
      COMMON-LISP::UNTRACE "function" SYSTEM::CHECK-REDEFINITION
      SYSTEM::GET-FUNNAME-SYMBOL SYSTEM::TRACED-DEFINITION
      SYSTEM::TRACING-DEFINITION "~S: ~S was traced and has been redefined!"
      COMMON-LISP::WARN SYSTEM::UNTRACE2))
#Y(#:TOP-LEVEL-FORM-25
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::UNTRACE2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::UNTRACE2
      #36Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 AC DB 32 87 AC DC 32 87 16 01
           AD 6B 03 38 07 C9 FA 32 4F 0F 03 19 02)
      SYSTEM::GET-FUNNAME-SYMBOL SYSTEM::TRACED-DEFINITION
      SYSTEM::TRACING-DEFINITION SYSTEM::*TRACED-FUNCTIONS*
      #.#'COMMON-LISP::EQUAL))
