(SYSTEM::VERSION '(SYSTEM::CLISP2 6. LISP:NIL 101293.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 19 01)
   (TRACE UNTRACE *TRACE-FUNCTION* *TRACE-ARGS* *TRACE-FORM* *TRACE-VALUES*)
  )
#Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-4 #11Y(00 00 00 00 00 01 D8 30 5B 19 01)
   (SPECIAL *TRACE-FUNCTION* *TRACE-ARGS* *TRACE-FORM* *TRACE-VALUES*)
  )
#Y(#:TOP-LEVEL-FORM-5
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *TRACED-FUNCTIONS*) *TRACED-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-6
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 DA 30 53 C4 19 01)
   (SPECIAL *TRACE-LEVEL*) *TRACE-LEVEL* 0.
  )
#Y(#:TOP-LEVEL-FORM-7
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) TRACE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(TRACE
      #58Y(01 00 01 00 00 08 94 02 92 00 05 D9 62 AC 1A 1D C3 19 04 AA 2E 03 1A
           0E 93 00 9B 1F 76 AA 87 02 72 98 03 9C 36 00 14 83 02 16 01 82 00 9B
           20 68 16 01 AA 30 A5 16 01 5C 19 04
          )
      *TRACED-FUNCTIONS* APPEND FUNCTION-NAME-P TRACE1
  )  )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   TRACE1 REMOVE-OLD-DEFINITIONS
   #Y(TRACE1
      #528Y(01 00 00 00 80 1C 09 00 00 00 3C 09 3C 08 3C 07 3C 06 3C 05 3C 04
            3C 03 3C 02 3C 01 37 01 71 86 37 01 71 86 B6 88 09 81 82 A7 1F 81
            8A E9 EA E8 04 0F 5B 77 7A 02 60 02 14 7A 02 EB 62 EC ED AE 7A 02
            EE EF F0 E8 BF 7A 02 7A 04 03 19 7B 03 F2 F3 AF 7A 02 EE F4 F5 E8
            C0 7A 02 7A 04 03 1E 7B 03 64 1F B1 64 20 B1 7A 02 7A 02 B1 64 21
            B4 7A 02 7A 02 7A 02 EC 64 22 B4 64 23 B4 03 24 7B 02 7A 03 64 25
            64 23 B4 03 26 7B 02 B6 7A 03 64 27 E8 C2 7A 02 03 28 7B 02 7A 04
            64 29 63 64 2A B5 E8 65 19 7A 02 7A 05 64 2B 64 23 B4 03 2C 7B 02
            E8 C2 7A 02 B7 64 25 64 23 B8 03 2D 7B 02 64 25 64 20 BA 7A 02 64
            2E 65 1E 6E 2F 6F 30 64 31 64 32 64 33 EB 62 EC 65 23 03 34 7B 02
            91 1D 80 DC 00 14 91 1C 80 E5 00 14 65 23 91 22 80 EC 00 14 64 32
            64 38 64 36 64 39 65 2A 03 3A 7B 02 7A 02 7A 02 7A 01 91 24 80 DE
            00 14 65 27 91 23 80 E2 00 14 91 25 80 EB 00 14 EC 65 2E 03 3C 7B
            02 03 3D 79 32 03 23 79 32 02 23 7B 02 7A 01 32 02 23 79 32 03 23
            7B 03 7A 03 7A 02 64 39 64 3E BF 7A 02 64 3F AE 64 40 64 41 64 42
            64 43 64 44 64 45 E8 65 2A 7A 02 03 46 7B 02 7A 02 64 47 64 48 65
            1D 7A 02 7A 02 7A 05 A1 7B 02 7A 03 64 49 64 4A 64 3F B1 64 40 64
            41 64 42 64 43 64 4B 64 47 64 4C 64 48 65 21 7A 02 7A 02 7A 02 7A
            05 A4 7B 02 7A 03 7A 03 60 04 16 01 F6 7A 03 7A 03 7A 05 7A 05 E8
            BD 7A 01 7A 02 60 06 19 0E E2 E3 E4 E5 6D 03 0E E7 B9 32 02 1F E8
            A8 1A FE 7C 64 35 64 36 65 1F 7A 02 7A 02 60 01 1A FF 16 64 35 64
            36 65 1E 7A 02 7A 02 60 01 1A FF 0D F2 65 23 03 37 7B 02 60 01 1A
            FF 09 F2 65 25 03 3B 7B 02 60 01 1A FF 17 64 35 64 36 65 25 7A 02
            7A 02 60 01 1A FF 10 64 35 64 36 65 27 7A 02 7A 02 60 01 1A FF 07
           )
      :SUPPRESS-IF :STEP-IF :PRE :POST :PRE-BREAK-IF :POST-BREAK-IF :PRE-PRINT
      :POST-PRINT :PRINT FUNCTION-NAME-P PROGRAM-ERROR
      "~S: function name should be a symbol, not ~S"
      "~S: Funktionsname sollte ein Symbol sein, nicht ~S"
      "~S : Le nom de la fonction doit être un symbole et non ~S" LANGUAGE
      TRACE QUOTE LOAD-TIME-VALUE GET-SETF-SYMBOL BLOCK UNLESS FBOUNDP WARN
      (DEUTSCH "~S: Funktion ~S ist nicht definiert." ENGLISH
       "~S: undefined function ~S" FRANCAIS
       "~S : La fonction ~S n'est pas définie."
      )
      'TRACE ((RETURN NIL)) WHEN SPECIAL-FORM-P
      (DEUTSCH "~S: Special-Form ~S kann nicht getraced werden." ENGLISH
       "~S: cannot trace special form ~S" FRANCAIS
       "~S : La forme spéciale ~S ne peut pas être tracée."
      )
      'TRACE ((RETURN NIL)) LET* SYMBOL-FUNCTION CONSP EQ GET
      ('TRACING-DEFINITION) SETF ('TRACED-DEFINITION) PUSHNEW
      (*TRACED-FUNCTIONS* :TEST #'EQUAL) FORMAT
      (DEUTSCH "~&;; ~:[Funktion~;Macro~] ~S wird getraced." ENGLISH
       "~&;; Tracing ~:[function~;macro~] ~S." FRANCAIS
       "~&;; Traçage ~:[de la fonction~;du macro~] ~S."
      )
      REPLACE-IN-FENV ('TRACED-DEFINITION) ('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 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REPLACE-IN-FENV REMOVE-OLD-DEFINITIONS
   #Y(REPLACE-IN-FENV
      #68Y(04 00 00 00 00 05 AE 8E 0A 04 AE 8E 09 2C 00 19 05 14 71 45 D9 1A 1B
           AC AB 31 8E 5E 14 B1 8E 02 0B AC 9C 5E 14 A1 22 04 AE AD 9D 5F DA AB
           81 02 35 00 AA AC 8E 01 60 00 19 08 AE D8 71 2B 91 00 50 00 19 06
          )
      5. 1. 2.
  )  )
#Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   TRACE-LEVEL-INC REMOVE-OLD-DEFINITIONS
   #Y(TRACE-LEVEL-INC #13Y(00 00 00 00 00 01 D8 6A 01 35 01 19 01) #.#'1+
      *TRACE-LEVEL*
  )  )
#Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-TRACED-DEFINITION REMOVE-OLD-DEFINITIONS
   #Y(GET-TRACED-DEFINITION #13Y(01 00 00 00 00 02 D8 AC D9 35 02 19 02)
      #.#'GET TRACED-DEFINITION
  )  )
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   TRACE-STEP-APPLY REMOVE-OLD-DEFINITIONS
   #Y(TRACE-STEP-APPLY
      #32Y(00 00 00 00 00 01 D8 D9 DA DB 6A 04 00 5C 79 DB 6A 05 00 5C 79 00 5C
           5C 79 00 5C 79 35 01 19 01
          )
      #.#'EVAL STEP APPLY QUOTE *TRACE-FUNCTION* *TRACE-ARGS*
  )  )
#Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-APPLY-FORM REMOVE-OLD-DEFINITIONS
   #Y(MAKE-APPLY-FORM
      #37Y(02 00 00 00 00 03 AC 62 AD 1A 0D 93 00 D8 AB 00 5C 79 83 02 16 01 82
           00 9B 20 70 16 01 AA 30 A5 16 01 5C 19 03
          )
      QUOTE
  )  )
#Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   TRACE-PRE-OUTPUT REMOVE-OLD-DEFINITIONS
   #Y(TRACE-PRE-OUTPUT
      #38Y(00 00 00 00 00 01 D8 6A 01 35 01 DA 6A 03 DC 6A 01 DD DE DF 63 35 07
           E0 E1 6A 01 35 02 E2 6A 0B 6A 01 35 02 19 01
          )
      #.#'TERPRI *TRACE-OUTPUT* #.#'WRITE *TRACE-LEVEL* :STREAM :BASE 10.
      :RADIX #.#'WRITE-STRING " Trace: " #.#'PRIN1 *TRACE-FORM*
  )  )
#Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   TRACE-POST-OUTPUT REMOVE-OLD-DEFINITIONS
   #Y(TRACE-POST-OUTPUT
      #51Y(00 00 00 00 00 01 D8 6A 01 35 01 DA 6A 03 DC 6A 01 DD DE DF 63 35 07
           E0 E1 6A 01 35 02 E2 0E 0B 77 DC 6A 01 35 03 E4 E5 6A 01 35 02 6A 0E
           62 2F 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-16 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   TRACE-PRINT REMOVE-OLD-DEFINITIONS
   #Y(TRACE-PRINT
      #52Y(01 00 01 00 00 08 3A 01 07 7D 01 92 01 0A 1A 03 92 01 05 D8 6A 01 35
           01 9D 1F 16 1A 06 DB DC 6A 01 35 02 93 02 DA AB 6A 01 35 02 16 01 82
           02 20 6C 00 19 03
          )
      #.#'TERPRI *TRACE-OUTPUT* #.#'PRIN1 #.#'WRITE-STRING ", "
  )  )
#Y(#:TOP-LEVEL-FORM-17
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) UNTRACE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(UNTRACE
      #25Y(01 00 01 00 00 08 94 02 D8 D9 92 02 09 DB AD 60 02 14 60 03 19 04 C5
           1A 78
          )
      MAPCAN #'UNTRACE1 (COPY-LIST *TRACED-FUNCTIONS*) QUOTE
  )  )
#Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   UNTRACE1 REMOVE-OLD-DEFINITIONS
   #Y(UNTRACE1
      #89Y(01 00 00 00 00 02 AB 88 00 14 AB 6E 07 AA E0 37 01 71 7A 91 00 23 00
           14 AE 2E 0F 15 19 04 D9 DA DB DC 6D 03 05 DE AE 32 02 1F AA AE 9E 5D
           14 AD 2C 04 0A AB AB 31 78 1A 1A AB 8C 51 0B 9C 5D 14 AC E1 37 01 31
           7A 21 62 E3 E4 E5 6D 03 05 DE AF 2C 03 0E AD 60 01 1A FF BE
          )
      FUNCTION-NAME-P PROGRAM-ERROR
      "~S: function name should be a symbol, not ~S"
      "~S: Funktionsname sollte ein Symbol sein, nicht ~S"
      "~S : Le nom de la fonction doit être un symbole et non ~S" LANGUAGE
      UNTRACE GET-FUNNAME-SYMBOL TRACED-DEFINITION TRACING-DEFINITION
      REPLACE-IN-FENV "~S: ~S was traced and has been redefined!"
      "~S: ~S war getraced und wurde umdefiniert!"
      "~S : ~S était tracée et a été redéfinie!" WARN UNTRACE2
  )  )
#Y(#:TOP-LEVEL-FORM-19 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   UNTRACE2 REMOVE-OLD-DEFINITIONS
   #Y(UNTRACE2
      #32Y(01 00 00 00 00 02 AB 6E 00 AA D9 31 7F AA DA 31 7F 16 01 AB 6A 03 37
           07 C7 F8 31 4F 0F 03 19 02
          )
      GET-FUNNAME-SYMBOL TRACED-DEFINITION TRACING-DEFINITION
      *TRACED-FUNCTIONS* #.#'EQUAL
  )  )