(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA DB 63 38 01 31 DD 3E 19 01) "THREADS"
   ("MT"))
#Y(#:TOP-LEVEL-FORM-1-2
   #17Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 DA 3E 19 01)
   ("COMMON-LISP" "EXT") "THREADS")
#Y(#:TOP-LEVEL-FORM-1-3
   #17Y(00 00 00 00 00 00 00 00 00 01 DA DB 30 02 3E 19 01)
   ("MAKE-THREAD" "THREAD-WAIT" "THREAD-WAIT-WITH-TIMEOUT" "WITHOUT-INTERRUPTS"
    "THREAD-YIELD" "THREAD-KILL" "THREAD-INTERRUPT" "THREAD-RESTART" "THREADP"
    "THREAD-NAME" "THREAD-ACTIVE-P" "THREAD-STATE" "CURRENT-THREAD"
    "LIST-THREADS" "MAKE-LOCK" "THREAD-LOCK" "THREAD-UNLOCK" "WITH-LOCK"
    "Y-OR-N-P-TIMEOUT" "WITH-TIMEOUT")
   "THREADS" SYSTEM::INTERN-EXPORT)
#Y(#:TOP-LEVEL-FORM-1-4 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 CA 19 01)
   "THREADS")
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "MT" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 DA 19 01)
   ("MT") "EXT")
#Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 E3 19 01)
   "MT" "EXT")
#Y(#:TOP-LEVEL-FORM-5
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   THREADS::WITH-TIMEOUT-F SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(THREADS::WITH-TIMEOUT-F
      #71Y(05 00 02 00 03 00 00 00 00 04 00 2B 02 7F 04 00 00 7F 02 00 01 47 00
           2D A0 2B 02 00 0B 00 00 2E 01 0B 00 01 63 DC 68 02 01 6E 03 03 AD B1
           6D 04 02 30 05 53 04 B5 36 00 54 02 0D 00 00 00 00 55 16 01 48 19 05
           19 05)
      THREADS::TIMEOUT THREADS::CURRENT-THREAD
      #Y(THREADS::WITH-TIMEOUT-F-1
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "Timeout monitor for ")
      COMMON-LISP::FORMAT
      #Y(THREADS::WITH-TIMEOUT-F-2
         #36Y(00 00 00 00 00 00 00 00 00 01 69 01 01 2F 02 07 00 01 1C 0D 69 00
              02 2A 14 DB 6D 03 02 30 04 19 01 00 19 01)
         COMMON-LISP::NIL COMMON-LISP::NIL COMMON-LISP::SLEEP
         #Y(THREADS::WITH-TIMEOUT-F-2-1
            #17Y(00 00 00 00 00 00 00 00 00 01 69 01 02 36 00 49 01)
            COMMON-LISP::NIL COMMON-LISP::NIL)
         THREADS::THREAD-INTERRUPT)
      THREADS::MAKE-THREAD))
#Y(#:TOP-LEVEL-FORM-6
   #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)
   THREADS::WITH-TIMEOUT SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "Execute BODY; if execution takes more than SECONDS seconds,
terminate and evaluate TIMEOUT-FORMS."
   SYSTEM::%SET-DOCUMENTATION
   #Y(THREADS::WITH-TIMEOUT
      #69Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 2E 9F 5C 5B 78 A0
           5C 5B 79 A1 5C 79 DC 72 8E DD 72 8E DE AE 63 A2 7C 02 AE 63 A4 7C 02
           7B 02 DF B3 E0 B2 7B 02 E0 B2 7B 02 7B 04 61 03 19 08 AE 2F 01 19
           03)
      2. SYSTEM::MACRO-CALL-ERROR "WT-" "WT-" COMMON-LISP::FLET
      THREADS::WITH-TIMEOUT-F COMMON-LISP::FUNCTION)
   SYSTEM::MAKE-MACRO)
#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 80 C5
        19 01)
   THREADS::Y-OR-N-P-TIMEOUT SYSTEM::REMOVE-OLD-DEFINITIONS
   COMMON-LISP::FUNCTION "Y-OR-N-P with timeout." SYSTEM::%SET-DOCUMENTATION
   #Y(THREADS::Y-OR-N-P-TIMEOUT
      #37Y(00 00 00 00 02 00 00 00 01 18 00 2B 02 7F 03 00 00 7F 02 00 01 AC 6D
           00 01 AD 6D 01 01 B2 AE AE 2D 03 02 19 07)
      #Y(THREADS::Y-OR-N-P-TIMEOUT-WT-1294
         #18Y(00 00 00 00 00 00 00 00 00 01 99 01 07 00 02 9B 00 01)
         COMMON-LISP::NIL COMMON-LISP::Y-OR-N-P)
      #Y(THREADS::Y-OR-N-P-TIMEOUT-WT-1295
         #23Y(00 00 00 00 00 00 00 00 00 01 DB 63 69 00 01 33 02 16 07 00 01 19
              01)
         COMMON-LISP::NIL
         #Y(THREADS::Y-OR-N-P-TIMEOUT-WT-1295-1
            #35Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 93 02 0D C7 14
                 B0 38 02 31 88 AF 31 8A 9E 19 04 C6 1B 71)
            "[Timed out] " "NO" "YES"))
      THREADS::WITH-TIMEOUT-F))
#Y(#:TOP-LEVEL-FORM-8
   #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)
   THREADS::WITH-LOCK SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "Execute BODY with LOCK locked." SYSTEM::%SET-DOCUMENTATION
   #Y(THREADS::WITH-LOCK
      #59Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 24 9F 5C 5B 78 A0
           5C 79 DC 72 8E DD AD B0 7B 02 7B 01 DE DF E0 B1 7B 02 A3 7C 02 E1 B1
           7B 02 7B 03 61 03 19 06 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR "WL-" COMMON-LISP::LET
      COMMON-LISP::UNWIND-PROTECT COMMON-LISP::PROGN THREADS::THREAD-LOCK
      THREADS::THREAD-UNLOCK)
   SYSTEM::MAKE-MACRO)
