(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)
   (TRACE UNTRACE *TRACE-FUNCTION* *TRACE-ARGS* *TRACE-FORM* *TRACE-VALUES*)
  )
#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 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (SPECIAL *TRACE-FUNCTION* *TRACE-ARGS* *TRACE-FORM* *TRACE-VALUES*)
  )
#Y(#:TOP-LEVEL-FORM-5
   #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 *TRACED-FUNCTIONS*) *TRACED-FUNCTIONS*
  )
#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 *TRACE-LEVEL*) *TRACE-LEVEL* 0.
  )
#Y(#:TOP-LEVEL-FORM-7
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   TRACE REMOVE-OLD-DEFINITIONS MACRO
   #Y(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
          )
      *TRACED-FUNCTIONS* APPEND FUNCTION-NAME-P TRACE1
  )  )
#Y(#:TOP-LEVEL-FORM-8
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) TRACE1
   REMOVE-OLD-DEFINITIONS
   #Y(TRACE1
      #485Y(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 8D 38 01 72 8D B8 89 09 81
            A7 A9 20 81 AF 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 46 65 3B B3 65 3C 65 3D
            65 3E 65 3F 65 47 65 43 65 48 65 44 66 1D 7B 02 7B 02 7B 02 7B 05
            A6 7C 02 7B 03 7B 03 61 04 16 01 F8 7B 03 7B 03 7B 05 E8 BF 7B 01
            7B 02 61 06 19 0E E4 E5 01 02 6E 03 0C E7 BB 33 02 1F E8 AA 1B FE
            57
           )
      :SUPPRESS-IF :STEP-IF :PRE :POST :PRE-BREAK-IF :POST-BREAK-IF :PRE-PRINT
      :POST-PRINT :PRINT FUNCTION-NAME-P SOURCE-PROGRAM-ERROR
      "~S: function name should be a symbol, not ~S" LANGUAGE TRACE QUOTE
      LOAD-TIME-VALUE GET-SETF-SYMBOL BLOCK UNLESS FBOUNDP WARN
      (ENGLISH "~S: undefined function ~S") 'TRACE ((RETURN NIL)) WHEN
      SPECIAL-OPERATOR-P (ENGLISH "~S: cannot trace special form ~S") 'TRACE
      ((RETURN NIL)) LET* SYMBOL-FUNCTION CONSP EQ GET ('TRACING-DEFINITION)
      SETF ('TRACED-DEFINITION) PUSHNEW (*TRACED-FUNCTIONS* :TEST #'EQUAL)
      FORMAT (ENGLISH "~&;; Tracing ~:[function~;macro~] ~S.")
      ('TRACING-DEFINITION) "TRACED-" GET-FUNNAME-SYMBOL CONCAT-PNAMES
      (DECLARE (COMPILE) (INLINE CAR CDR CONS APPLY VALUES-LIST)) LET
      ((*TRACE-LEVEL* (TRACE-LEVEL-INC))) ((TRACE-PRE-OUTPUT)) TRACE-PRINT
      MULTIPLE-VALUE-LIST ((BREAK-LOOP T)) *TRACE-VALUES* IF
      ((TRACE-STEP-APPLY) (APPLY *TRACE-FUNCTION* *TRACE-ARGS*))
      ((BREAK-LOOP T)) ((TRACE-POST-OUTPUT)) ((VALUES-LIST *TRACE-VALUES*)) NOT
      FUNCTION LAMBDA &REST *TRACE-ARGS* &AUX *TRACE-FORM* MAKE-APPLY-FORM
      (*TRACE-ARGS*) *TRACE-FUNCTION* GET-TRACED-DEFINITION CONS 'MACRO
      (*TRACE-FORM* (CAR *TRACE-ARGS*)) CDR
  )  )
#Y(#:TOP-LEVEL-FORM-9
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   TRACE-LEVEL-INC REMOVE-OLD-DEFINITIONS
   #Y(TRACE-LEVEL-INC #17Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 36 01 19 01)
      #.#'1+ *TRACE-LEVEL*
  )  )
#Y(#:TOP-LEVEL-FORM-10
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   GET-TRACED-DEFINITION REMOVE-OLD-DEFINITIONS
   #Y(GET-TRACED-DEFINITION
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 36 02 19 02) #.#'GET
      TRACED-DEFINITION
  )  )
#Y(#:TOP-LEVEL-FORM-11
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   TRACE-STEP-APPLY REMOVE-OLD-DEFINITIONS
   #Y(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
          )
      #.#'EVAL STEP APPLY QUOTE *TRACE-FUNCTION* *TRACE-ARGS*
  )  )
#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)
   MAKE-APPLY-FORM REMOVE-OLD-DEFINITIONS
   #Y(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
          )
      QUOTE
  )  )
#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)
   TRACE-PRE-OUTPUT REMOVE-OLD-DEFINITIONS
   #Y(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
          )
      #.#'TERPRI *TRACE-OUTPUT* #.#'WRITE *TRACE-LEVEL* :STREAM :BASE 10.
      :RADIX #.#'WRITE-STRING " Trace: " #.#'PRIN1 *TRACE-FORM*
  )  )
#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)
   TRACE-POST-OUTPUT REMOVE-OLD-DEFINITIONS
   #Y(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
          )
      #.#'TERPRI *TRACE-OUTPUT* #.#'WRITE *TRACE-LEVEL* :STREAM :BASE 10.
      :RADIX #.#'WRITE-STRING " Trace: " #.#'WRITE *TRACE-FORM*
      #.#'WRITE-STRING " ==> " *TRACE-VALUES* TRACE-PRINT
  )  )
#Y(#:TOP-LEVEL-FORM-15
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   TRACE-PRINT REMOVE-OLD-DEFINITIONS
   #Y(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 01 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
          )
      #.#'TERPRI *TRACE-OUTPUT* #.#'PRIN1 #.#'WRITE-STRING ", "
  )  )
#Y(#:TOP-LEVEL-FORM-16
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   UNTRACE REMOVE-OLD-DEFINITIONS MACRO
   #Y(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
          )
      MAPCAN #'UNTRACE1 (COPY-LIST *TRACED-FUNCTIONS*) QUOTE
  )  )
#Y(#:TOP-LEVEL-FORM-17
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) UNTRACE1
   REMOVE-OLD-DEFINITIONS
   #Y(UNTRACE1
      #83Y(00 00 00 00 01 00 00 00 00 02 AD 89 00 14 AD 6F 05 AC E0 38 01 72 81
           92 00 1A 00 14 B0 2F 0A 15 19 04 DB DC 01 02 6E 03 03 DE B0 33 02 1F
           AD AD 32 7F 1B 1A AD 8D 4F 0B 9E 5E 14 AE E1 38 01 32 81 22 6B E2 01
           02 6E 03 03 DE B1 2D 03 09 AF 61 01 1B 48
          )
      FUNCTION-NAME-P SOURCE-PROGRAM-ERROR
      "~S: function name should be a symbol, not ~S" LANGUAGE UNTRACE
      GET-FUNNAME-SYMBOL TRACED-DEFINITION TRACING-DEFINITION
      "~S: ~S was traced and has been redefined!" WARN UNTRACE2
  )  )
#Y(#:TOP-LEVEL-FORM-18
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) UNTRACE2
   REMOVE-OLD-DEFINITIONS
   #Y(UNTRACE2
      #36Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 AC DB 32 86 AC DC 32 86 16 01
           AD 6B 03 38 07 C9 FA 32 4E 0F 03 19 02
          )
      GET-FUNNAME-SYMBOL TRACED-DEFINITION TRACING-DEFINITION
      *TRACED-FUNCTIONS* #.#'EQUAL
  )  )
